projects
/
kivitendo-erp.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
cf17820
)
Swiss QR-Bill: QrBill.pm: Füge Variante IBAN ohne Referenz hinzu
author
Steven Schubiger
<stsc@refcnt.org>
Thu, 13 Jan 2022 13:34:44 +0000
(14:34 +0100)
committer
Cem Aydin
<cem.aydin@gmx.ch>
Wed, 19 Jan 2022 22:16:23 +0000
(23:16 +0100)
SL/Helper/QrBill.pm
patch
|
blob
|
history
diff --git
a/SL/Helper/QrBill.pm
b/SL/Helper/QrBill.pm
index
3628056
..
7df8ff0
100644
(file)
--- a/
SL/Helper/QrBill.pm
+++ b/
SL/Helper/QrBill.pm
@@
-93,8
+93,12
@@
sub _init_check {
$check_re->($invoice_recipient_data, 'address_row2', qr{^.{0,70}$});
$check_re->($invoice_recipient_data, 'countrycode', qr{^[A-Z]{2}$});
$check_re->($invoice_recipient_data, 'address_row2', qr{^.{0,70}$});
$check_re->($invoice_recipient_data, 'countrycode', qr{^[A-Z]{2}$});
+ my %ref_nr_regexes = (
+ QRR => qr{^\d{27}$},
+ NON => qr{^$},
+ );
$check_re->($ref_nr_data, 'type', qr{^(?:QRR|SCOR|NON)$});
$check_re->($ref_nr_data, 'type', qr{^(?:QRR|SCOR|NON)$});
- $check_re->($ref_nr_data, 'ref_number',
qr{^\d{27}$
});
+ $check_re->($ref_nr_data, 'ref_number',
$ref_nr_regexes{$ref_nr_data->{type}
});
}
sub generate {
}
sub generate {
@@
-311,7
+315,7
@@
Maximum of 4 characters, alphanumerical. QRR/SCOR/NON.
=item C<ref_number>
=item C<ref_number>
-
27 characters, numerical. QR-Reference
.
+
QR-Reference: 27 characters, numerical; without Reference: empty
.
=back
=back