Revision 27e9e34d
Von Moritz Bunkus vor mehr als 4 Jahren hinzugefügt
| SL/DB/Helper/ZUGFeRD.pm | ||
|---|---|---|
| 368 | 368 |
# </rsm:ExchangedDocument> |
| 369 | 369 |
} |
| 370 | 370 |
|
| 371 |
sub _specified_tax_registration {
|
|
| 372 |
my ($ustid_nr, %params) = @_; |
|
| 373 |
|
|
| 374 |
return unless $ustid_nr; |
|
| 375 |
|
|
| 376 |
$ustid_nr = "DE$ustid_nr" unless $ustid_nr =~ m{^[A-Z]{2}};
|
|
| 377 |
|
|
| 378 |
# <ram:SpecifiedTaxRegistration> |
|
| 379 |
$params{xml}->startTag("ram:SpecifiedTaxRegistration");
|
|
| 380 |
$params{xml}->dataElement("ram:ID", _u8($ustid_nr), "schemeID" => "VA");
|
|
| 381 |
$params{xml}->endTag;
|
|
| 382 |
# </ram:SpecifiedTaxRegistration> |
|
| 383 |
} |
|
| 384 |
|
|
| 371 | 385 |
sub _seller_trade_party {
|
| 372 | 386 |
my ($self, %params) = @_; |
| 373 | 387 |
|
| ... | ... | |
| 414 | 428 |
# </ram:PostalTradeAddress> |
| 415 | 429 |
} |
| 416 | 430 |
|
| 417 |
my $ustid_nr = $::instance_conf->get_co_ustid; |
|
| 418 |
$ustid_nr = "DE$ustid_nr" unless $ustid_nr =~ m{^[A-Z]{2}};
|
|
| 419 |
# <ram:SpecifiedTaxRegistration> |
|
| 420 |
$params{xml}->startTag("ram:SpecifiedTaxRegistration");
|
|
| 421 |
$params{xml}->dataElement("ram:ID", _u8($ustid_nr), "schemeID" => "VA");
|
|
| 422 |
$params{xml}->endTag;
|
|
| 423 |
# </ram:SpecifiedTaxRegistration> |
|
| 431 |
_specified_tax_registration($::instance_conf->get_co_ustid, %params); |
|
| 424 | 432 |
|
| 425 | 433 |
$params{xml}->endTag;
|
| 426 | 434 |
# </ram:SellerTradeParty> |
| ... | ... | |
| 435 | 443 |
$params{xml}->dataElement("ram:Name", _u8($self->customer->name));
|
| 436 | 444 |
|
| 437 | 445 |
_customer_postal_trade_address(%params, customer => $self->customer); |
| 446 |
_specified_tax_registration($self->customer->ustid, %params); |
|
| 438 | 447 |
|
| 439 | 448 |
$params{xml}->endTag;
|
| 440 | 449 |
# </ram:BuyerTradeParty> |
Auch abrufbar als: Unified diff
ZUGFeRD: UStID des Kunden angeben, sofern bekannt