Revision d53c99a4
Von Tamino Steinert vor etwa 1 Jahr hinzugefügt
| SL/Controller/ZUGFeRD.pm | ||
|---|---|---|
| 150 | 150 |
my %metadata = %{$parser->metadata};
|
| 151 | 151 |
my @items = @{$parser->items};
|
| 152 | 152 |
|
| 153 |
my $notes = t8("ZUGFeRD Import. Type: #1", $metadata{'type'});
|
|
| 153 |
my $intnotes = t8("ZUGFeRD Import. Type: #1", $metadata{'type'});
|
|
| 154 | 154 |
my $iban = $metadata{'iban'};
|
| 155 | 155 |
my $invnumber = $metadata{'invnumber'};
|
| 156 | 156 |
|
| ... | ... | |
| 171 | 171 |
# Check IBAN specified on bill matches the one we've got in |
| 172 | 172 |
# the database for this vendor. |
| 173 | 173 |
if ($iban) {
|
| 174 |
$notes .= "\nIBAN: "; |
|
| 175 |
$notes .= $iban ne $vendor->iban ? |
|
| 174 |
$intnotes .= "\nIBAN: ";
|
|
| 175 |
$intnotes .= $iban ne $vendor->iban ?
|
|
| 176 | 176 |
t8("Record IBAN #1 doesn't match vendor IBAN #2", $iban, $vendor->iban)
|
| 177 | 177 |
: $iban |
| 178 | 178 |
} |
| ... | ... | |
| 265 | 265 |
transdate => $metadata{'transdate'},
|
| 266 | 266 |
duedate => $metadata{'duedate'},
|
| 267 | 267 |
no_payment_bookings => 0, |
| 268 |
notes => $notes,
|
|
| 268 |
intnotes => $intnotes,
|
|
| 269 | 269 |
taxincluded => 0, |
| 270 | 270 |
direct_debit => $metadata{'direct_debit'},
|
| 271 | 271 |
currency => $currency->name, |
| ... | ... | |
| 342 | 342 |
|
| 343 | 343 |
If the invoice has a IBAN also, it will be be compared to the |
| 344 | 344 |
IBAN saved for the vendor (if any). If they don't match a |
| 345 |
warning will be writte in ap.notes. Furthermore the ZUGFeRD |
|
| 346 |
type code will be written to ap.notes. No callback |
|
| 345 |
warning will be writte in ap.intnotes. Furthermore the ZUGFeRD
|
|
| 346 |
type code will be written to ap.intnotes. No callback
|
|
| 347 | 347 |
implemented. |
| 348 | 348 |
|
| 349 | 349 |
=back |
Auch abrufbar als: Unified diff
ZUGFeRD: nutze interne Bemerkungen für Zusatzinformationen