Revision 1522aeb7
Von Johannes Grassler vor etwa 1 Jahr hinzugefügt
| SL/XMLInvoice/UBL.pm | ||
|---|---|---|
| 1 | 1 |
package SL::XMLInvoice::UBL; |
| 2 | 2 |
|
| 3 |
use strict; |
|
| 4 |
use warnings; |
|
| 5 |
|
|
| 6 |
use parent qw(SL::XMLInvoice); |
|
| 7 |
|
|
| 8 |
use constant ITEMS_XPATH => '//cac:InvoiceLine'; |
|
| 9 |
|
|
| 3 | 10 |
=head1 NAME |
| 4 | 11 |
|
| 5 | 12 |
SL::XMLInvoice::UBL - XML parser for Universal Business Language invoices |
| ... | ... | |
| 47 | 54 |
|
| 48 | 55 |
=cut |
| 49 | 56 |
|
| 50 |
use strict; |
|
| 51 |
use parent qw(SL::XMLInvoice); |
|
| 52 |
|
|
| 53 |
use constant ITEMS_XPATH => '//cac:InvoiceLine'; |
|
| 54 |
|
|
| 55 | 57 |
# XML XPath expression for |
| 56 | 58 |
sub scalar_xpaths {
|
| 57 | 59 |
return {
|
| ... | ... | |
| 145 | 147 |
# have to guess whether it's a tax ID or VAT ID (not using |
| 146 | 148 |
# SL::VATIDNr->validate here to keep this code portable): |
| 147 | 149 |
|
| 148 |
if ( ${$self->{_metadata}}{'ustid'} =~ qr"/" )
|
|
| 149 |
{
|
|
| 150 |
if ( ${$self->{_metadata}}{'ustid'} =~ qr"/" ) {
|
|
| 150 | 151 |
# Unset this since the 'taxid' key has been retrieved with the same xpath |
| 151 | 152 |
# expression. |
| 152 | 153 |
${$self->{_metadata}}{'ustid'} = undef;
|
| 153 |
} else {
|
|
| 154 |
} else {
|
|
| 154 | 155 |
# Unset this since the 'ustid' key has been retrieved with the same xpath |
| 155 | 156 |
# expression. |
| 156 | 157 |
${$self->{_metadata}}{'taxnumber'} = undef;
|
| 157 |
}
|
|
| 158 |
} |
|
| 158 | 159 |
|
| 159 | 160 |
my @items; |
| 160 | 161 |
$self->{_items} = \@items;
|
Auch abrufbar als: Unified diff
Einrueckungen und weitere Stilprobleme repariert