Revision db101cc6
Von Cem Aydin vor etwa 2 Jahren hinzugefügt
| SL/Template/OpenDocument.pm | ||
|---|---|---|
| 13 | 13 |
|
| 14 | 14 |
use SL::DB::BankAccount; |
| 15 | 15 |
use SL::Helper::QrBill; |
| 16 |
use SL::Helper::QrBillFunctions qw(get_qrbill_account assemble_ref_number
|
|
| 17 |
get_ref_number_formatted get_iban_formatted get_amount_formatted);
|
|
| 16 |
use SL::Helper::QrBillFunctions qw(get_qrbill_account get_ref_number_formatted
|
|
| 17 |
get_iban_formatted get_amount_formatted); |
|
| 18 | 18 |
use SL::Helper::ISO3166; |
| 19 | 19 |
|
| 20 | 20 |
use Cwd; |
| ... | ... | |
| 538 | 538 |
|
| 539 | 539 |
my %ref_nr_data; |
| 540 | 540 |
if ($::instance_conf->get_create_qrbill_invoices == 1) {
|
| 541 |
# generate ref.-no. with check digit |
|
| 542 |
my ($ref_number, $error) = assemble_ref_number( |
|
| 543 |
$qr_account->{'bank_account_id'},
|
|
| 544 |
$form->{'customernumber'},
|
|
| 545 |
$form->{'ordnumber'},
|
|
| 546 |
$form->{'invnumber'},
|
|
| 547 |
); |
|
| 548 |
if (!$ref_number) {
|
|
| 549 |
$::form->error($error); |
|
| 550 |
} |
|
| 551 | 541 |
%ref_nr_data = ( |
| 552 | 542 |
'type' => 'QRR', |
| 553 |
'ref_number' => $ref_number,
|
|
| 543 |
'ref_number' => $form->{'qr_reference'},
|
|
| 554 | 544 |
); |
| 555 | 545 |
# get ref. number/iban formatted with spaces and set into form for template |
| 556 | 546 |
# processing |
| 557 |
$form->{'ref_number'} = $ref_number;
|
|
| 558 |
$form->{'ref_number_formatted'} = get_ref_number_formatted($ref_number);
|
|
| 547 |
$form->{'ref_number'} = $form->{'qr_reference'};
|
|
| 548 |
$form->{'ref_number_formatted'} = get_ref_number_formatted($form->{'qr_reference'});
|
|
| 559 | 549 |
} elsif ($::instance_conf->get_create_qrbill_invoices == 2) {
|
| 560 | 550 |
%ref_nr_data = ( |
| 561 | 551 |
'type' => 'NON', |
Auch abrufbar als: Unified diff
Swiss QR-Bill: QR-Referenz soll in der jeweiligen Rechnung gespeichert werden