Projekt

Allgemein

Profil

« Zurück | Weiter » 

Revision 0bdaae6a

Von Johannes Grassler vor mehr als 1 Jahr hinzugefügt

  • ID 0bdaae6aff8ba37ee94ec0e42990fd3991b7bb8b
  • Vorgänger b0c52c0a
  • Nachfolger 6787fca9

XMLInvoice: Formaterkennung umgebaut

  • Formaterkennung nun in den Unterklassen von SL::XMLInvoice
  • Interface fuer Subklassen um check_signature() und supported() ergaenzt.
  • Lade Subklassen mit Module::Load

Unterschiede anzeigen:

SL/XMLInvoice/UBL.pm
=cut
# XML XPath expression for
sub supported {
my @supported = ( "Oasis Universal Business Language (UBL) invoice version 2 (urn:oasis:names:specification:ubl:schema:xsd:Invoice-2)" );
return @supported;
}
sub check_signature {
my ($self, $dom) = @_;
my $rootnode = $dom->documentElement;
foreach my $attr ( $rootnode->attributes ) {
if ( $attr->getData =~ m/urn:oasis:names:specification:ubl:schema:xsd:Invoice-2/ ) {
return 1;
}
}
return 0;
}
# XML XPath expressions for scalar metadata
sub scalar_xpaths {
return {
currency => '//cbc:DocumentCurrencyCode',
......
};
}
# XML XPath expressions for parsing bill items
sub item_xpaths {
return {
'currency' => './cbc:LineExtensionAmount[attribute::currencyID]',

Auch abrufbar als: Unified diff