Revision 6a7a7415
Von Tamino Steinert vor etwa 1 Monat hinzugefügt
| SL/DB/Helper/ZUGFeRD.pm | ||
|---|---|---|
| 168 | 168 |
# </ram:PostalTradeAddress> |
| 169 | 169 |
} |
| 170 | 170 |
|
| 171 |
sub _buyer_communication {
|
|
| 172 |
my (%params) = @_; |
|
| 173 |
my $customer = $params{customer};
|
|
| 174 |
|
|
| 175 |
my $buyer_electronic_address = first {$_} (
|
|
| 176 |
$customer->invoice_mail, |
|
| 177 |
$customer->email, |
|
| 178 |
); |
|
| 179 |
if ($buyer_electronic_address) {
|
|
| 180 |
$params{xml}->startTag("ram:URIUniversalCommunication");
|
|
| 181 |
$params{xml}->dataElement("ram:URIID", _u8($buyer_electronic_address), schemeID => 'EM');
|
|
| 182 |
$params{xml}->endTag;
|
|
| 183 |
} elsif ($customer->gln) {
|
|
| 184 |
$params{xml}->startTag("ram:URIUniversalCommunication");
|
|
| 185 |
$params{xml}->dataElement("ram:URIID", _u8($customer->gln), schemeID => '0088');
|
|
| 186 |
$params{xml}->endTag;
|
|
| 187 |
} |
|
| 188 |
} |
|
| 189 |
|
|
| 171 | 190 |
sub _tax_rate_and_code {
|
| 172 | 191 |
my ($taxzone, $tax) = @_; |
| 173 | 192 |
|
| ... | ... | |
| 563 | 582 |
|
| 564 | 583 |
_buyer_contact_information($self, %params, contact => $self->contact) if ($self->cp_id); |
| 565 | 584 |
_customer_postal_trade_address(%params, customer => $self->customer); |
| 585 |
_buyer_communication(%params, customer => $self->customer); |
|
| 566 | 586 |
_specified_tax_registration($self->customer->ustid, %params) if $self->customer->ustid; |
| 567 | 587 |
|
| 568 | 588 |
$params{xml}->endTag;
|
Auch abrufbar als: Unified diff
ZUGFeRD: elektronische Adresse des Käufers