Revision 1a03261e
Von Cem Aydin vor 5 Tagen hinzugefügt
| SL/IS.pm | ||
|---|---|---|
| 628 | 628 |
|
| 629 | 629 |
# set variables for swiss QR bill, if feature enabled |
| 630 | 630 |
# handling errors gracefully (don't die if undef) |
| 631 |
my $create_qrbill_invoices = $::instance_conf->get_create_qrbill_invoices; |
|
| 631 | 632 |
if ($::instance_conf->get_create_qrbill_invoices && $form->{formname} eq 'invoice') {
|
| 632 | 633 |
my ($qr_account, $error) = get_qrbill_account(); |
| 633 |
$form->{qrbill_iban} = $qr_account->{iban};
|
|
| 634 |
|
|
| 635 |
# case 1: QR-Reference number and QR-IBAN |
|
| 636 |
# case 2: without reference number and regular IBAN |
|
| 637 |
if ($create_qrbill_invoices == 1) {
|
|
| 638 |
$form->{qrbill_iban} = $qr_account->{qr_iban};
|
|
| 639 |
} elsif ($create_qrbill_invoices == 2) {
|
|
| 640 |
$form->{qrbill_iban} = $qr_account->{iban};
|
|
| 641 |
} |
|
| 634 | 642 |
|
| 635 | 643 |
my $biller_country = $::instance_conf->get_address_country() || 'CH'; |
| 636 | 644 |
my $biller_countrycode = SL::Helper::ISO3166::map_name_to_alpha_2_code($biller_country); |
Auch abrufbar als: Unified diff
Bankkonto Informationen Spalte für QR-IBAN (Schweiz)
Bisher haben wir für die QR-IBAN eine zusätzliche Zeile bei den
Bankkonten erfasst. Die QR-IBAN wird aber jeweils als zusätzliche IBAN
für ein existierendes Bankkonto vergeben.
Daher sollte diese stattdessen als zusätzliche Spalte erfasst werden.
Dies ermöglicht dann auch das Buchen auf das entsprechende Konto.