Revision 13aed1fc
Von Steven Schubiger vor fast 3 Jahren hinzugefügt
| SL/Helper/QrBill.pm | ||
|---|---|---|
| 93 | 93 |
$check_re->($invoice_recipient_data, 'address_row2', qr{^.{0,70}$});
|
| 94 | 94 |
$check_re->($invoice_recipient_data, 'countrycode', qr{^[A-Z]{2}$});
|
| 95 | 95 |
|
| 96 |
my %ref_nr_regexes = ( |
|
| 97 |
QRR => qr{^\d{27}$},
|
|
| 98 |
NON => qr{^$},
|
|
| 99 |
); |
|
| 96 | 100 |
$check_re->($ref_nr_data, 'type', qr{^(?:QRR|SCOR|NON)$});
|
| 97 |
$check_re->($ref_nr_data, 'ref_number', qr{^\d{27}$});
|
|
| 101 |
$check_re->($ref_nr_data, 'ref_number', $ref_nr_regexes{$ref_nr_data->{type}});
|
|
| 98 | 102 |
} |
| 99 | 103 |
|
| 100 | 104 |
sub generate {
|
| ... | ... | |
| 311 | 315 |
|
| 312 | 316 |
=item C<ref_number> |
| 313 | 317 |
|
| 314 |
27 characters, numerical. QR-Reference.
|
|
| 318 |
QR-Reference: 27 characters, numerical; without Reference: empty.
|
|
| 315 | 319 |
|
| 316 | 320 |
=back |
| 317 | 321 |
|
Auch abrufbar als: Unified diff
Swiss QR-Bill: QrBill.pm: Füge Variante IBAN ohne Referenz hinzu