Revision 82fa9647
Von Moritz Bunkus vor etwa 5 Jahren hinzugefügt
| SL/DB/Helper/ZUGFeRD.pm | ||
|---|---|---|
|
use SL::Helper::ISO3166;
|
||
|
use SL::Helper::ISO4217;
|
||
|
use SL::Helper::UNECERecommendation20;
|
||
|
use SL::VATIDNr;
|
||
|
|
||
|
use Carp;
|
||
|
use Encode qw(encode);
|
||
| ... | ... | |
|
sub _specified_tax_registration {
|
||
|
my ($ustid_nr, %params) = @_;
|
||
|
|
||
|
return unless $ustid_nr;
|
||
|
|
||
|
$ustid_nr = "DE$ustid_nr" unless $ustid_nr =~ m{^[A-Z]{2}};
|
||
|
|
||
|
# <ram:SpecifiedTaxRegistration>
|
||
|
$params{xml}->startTag("ram:SpecifiedTaxRegistration");
|
||
|
$params{xml}->dataElement("ram:ID", _u8($ustid_nr), schemeID => "VA");
|
||
|
$params{xml}->dataElement("ram:ID", _u8(SL::VATIDNr->normalize($ustid_nr)), schemeID => "VA");
|
||
|
$params{xml}->endTag;
|
||
|
# </ram:SpecifiedTaxRegistration>
|
||
|
}
|
||
| ... | ... | |
|
SL::X::ZUGFeRDValidation->throw(message => $prefix . $::locale->text('The VAT registration number is missing in the client configuration.'));
|
||
|
}
|
||
|
|
||
|
if (!SL::VATIDNr->validate($::instance_conf->get_co_ustid)) {
|
||
|
SL::X::ZUGFeRDValidation->throw(message => $prefix . $::locale->text("The VAT ID number in the client configuration is invalid."));
|
||
|
}
|
||
|
|
||
|
if (!$::instance_conf->get_company || any { my $get = "get_address_$_"; !$::instance_conf->$get } qw(street1 zipcode city)) {
|
||
|
SL::X::ZUGFeRDValidation->throw(message => $prefix . $::locale->text('The company\'s address information is incomplete in the client configuration.'));
|
||
|
}
|
||
| locale/de/all | ||
|---|---|---|
|
'The SQL query does not contain any parameter that need to be configured.' => 'Die SQL-Abfrage enthält keine Parameter, die angegeben werden müssten.',
|
||
|
'The URL is missing.' => 'URL fehlt',
|
||
|
'The VAT ID number \'#1\' is invalid.' => 'Die UStID-Nummer »#1« ist ungültig.',
|
||
|
'The VAT ID number in the client configuration is invalid.' => 'Die UStID-Nummer in der Mandantenkonfiguraiton ist ungültig.',
|
||
|
'The VAT registration number is missing in the client configuration.' => 'Die Umsatzsteuer-ID-Nummer fehlt in der Mandantenkonfiguration.',
|
||
|
'The WebDAV feature has been used.' => 'Das WebDAV-Feature wurde benutzt.',
|
||
|
'The XMP metadata does not declare the ZUGFeRD data.' => 'Die XMP-Metadaten enthalten keine ZUGFeRD-Deklaration.',
|
||
Auch abrufbar als: Unified diff
ZUGFeRD: UStID-Nummern validieren und normalisiert ausgeben