Revision db101cc6
Von Cem Aydin vor etwa 2 Jahren hinzugefügt
| bin/mozilla/is.pl | ||
|---|---|---|
| 53 | 53 |
use SL::DB::Invoice; |
| 54 | 54 |
use SL::DB::PaymentTerm; |
| 55 | 55 |
use SL::DB::ValidityToken; |
| 56 |
use SL::Helper::QrBillFunctions qw(get_ref_number_formatted); |
|
| 56 | 57 |
|
| 57 | 58 |
require "bin/mozilla/common.pl"; |
| 58 | 59 |
require "bin/mozilla/io.pl"; |
| ... | ... | |
| 624 | 625 |
$TMPL_VAR{creditwarning} = ($form->{creditlimit} != 0) && ($form->{creditremaining} < 0) && !$form->{update};
|
| 625 | 626 |
$TMPL_VAR{is_credit_remaining_negativ} = $form->{creditremaining} =~ /-/;
|
| 626 | 627 |
|
| 628 |
# qr reference |
|
| 629 |
my $has_qr_reference = $::instance_conf->get_create_qrbill_invoices == 1 && |
|
| 630 |
$form->{formname} eq 'invoice' ? 1 : 0;
|
|
| 631 |
$TMPL_VAR{has_qr_reference} = $has_qr_reference;
|
|
| 632 |
|
|
| 633 |
if ($has_qr_reference && defined $form->{qr_reference}) {
|
|
| 634 |
$TMPL_VAR{qr_reference_formatted} = get_ref_number_formatted($form->{qr_reference});
|
|
| 635 |
} |
|
| 636 |
|
|
| 627 | 637 |
# set option selected |
| 628 | 638 |
foreach my $item (qw(AR)) {
|
| 629 | 639 |
$form->{"select$item"} =~ s/ selected//;
|
Auch abrufbar als: Unified diff
Swiss QR-Bill: QR-Referenz soll in der jeweiligen Rechnung gespeichert werden