Revision 11e8489d
Von Cem Aydin vor fast 3 Jahren hinzugefügt
| SL/Template/OpenDocument.pm | ||
|---|---|---|
| 670 | 670 |
'countrycode' => $customer_countrycode, |
| 671 | 671 |
); |
| 672 | 672 |
|
| 673 |
# generate ref.-no. with check digit |
|
| 674 |
my $ref_number = assemble_ref_number( |
|
| 675 |
$qr_account->{'bank_account_id'},
|
|
| 676 |
$form->{'customernumber'},
|
|
| 677 |
$form->{'ordnumber'},
|
|
| 678 |
$form->{'invnumber'},
|
|
| 679 |
); |
|
| 680 |
|
|
| 681 | 673 |
my %ref_nr_data; |
| 682 | 674 |
if ($::instance_conf->get_create_qrbill_invoices == 1) {
|
| 675 |
# generate ref.-no. with check digit |
|
| 676 |
my $ref_number = assemble_ref_number( |
|
| 677 |
$qr_account->{'bank_account_id'},
|
|
| 678 |
$form->{'customernumber'},
|
|
| 679 |
$form->{'ordnumber'},
|
|
| 680 |
$form->{'invnumber'},
|
|
| 681 |
); |
|
| 683 | 682 |
%ref_nr_data = ( |
| 684 | 683 |
'type' => 'QRR', |
| 685 | 684 |
'ref_number' => $ref_number, |
| 686 | 685 |
); |
| 686 |
# get ref. number/iban formatted with spaces and set into form for template |
|
| 687 |
# processing |
|
| 688 |
$form->{'ref_number'} = $ref_number;
|
|
| 689 |
$form->{'ref_number_formatted'} = get_ref_number_formatted($ref_number);
|
|
| 687 | 690 |
} elsif ($::instance_conf->get_create_qrbill_invoices == 2) {
|
| 688 | 691 |
%ref_nr_data = ( |
| 689 | 692 |
'type' => 'NON', |
| ... | ... | |
| 696 | 699 |
# set into form for template processing |
| 697 | 700 |
$form->{'biller_information'} = \%biller_information;
|
| 698 | 701 |
$form->{'biller_data'} = \%biller_data;
|
| 699 |
$form->{'ref_number'} = $ref_number;
|
|
| 700 |
|
|
| 701 |
# get ref. number/iban formatted with spaces |
|
| 702 |
$form->{'ref_number_formatted'} = get_ref_number_formatted($ref_number);
|
|
| 703 | 702 |
$form->{'iban_formatted'} = get_iban_formatted($qr_account->{'iban'});
|
| 704 | 703 |
|
| 705 | 704 |
# format amount for template |
Auch abrufbar als: Unified diff
Swiss QR-Bill: Fix: Referenznummer nur bei gewählter Variante erzeugen