| 31 |
31 |
|
| 32 |
32 |
my $bank_id = $_[0];
|
| 33 |
33 |
my $customer_number = $_[1];
|
| 34 |
|
my $order_number = $_[2] // "0";
|
| 35 |
|
my $invoice_number = $_[3] // "0";
|
|
34 |
my $invoice_number = $_[2] // "0";
|
| 36 |
35 |
|
| 37 |
36 |
# check values (analog to checks in makro)
|
| 38 |
37 |
# - bank_id
|
| ... | ... | |
| 52 |
51 |
# fill with zeros
|
| 53 |
52 |
$customer_number = sprintf "%06d", $customer_number;
|
| 54 |
53 |
|
| 55 |
|
# - order_number
|
| 56 |
|
# input: prefix (letters) + up to 7 digits, may be zero
|
| 57 |
|
# output: prefix removed, 7 digits, filled with leading zeros
|
| 58 |
|
$order_number = remove_letters_prefix($order_number);
|
| 59 |
|
if (!check_digits_and_max_length($order_number, 7)) {
|
| 60 |
|
return undef, $::locale->text('Order number invalid. Must be less then or equal to 7 digits after prefix.');
|
| 61 |
|
}
|
| 62 |
|
# fill with zeros
|
| 63 |
|
$order_number = sprintf "%07d", $order_number;
|
| 64 |
|
|
| 65 |
54 |
# - invoice_number
|
| 66 |
|
# input: prefix (letters) + up to 7 digits, may be zero
|
| 67 |
|
# output: prefix removed, 7 digits, filled with leading zeros
|
|
55 |
# input: prefix (letters) + up to 14 digits, may be zero
|
|
56 |
# output: prefix removed, 14 digits, filled with leading zeros
|
| 68 |
57 |
$invoice_number = remove_letters_prefix($invoice_number);
|
| 69 |
|
if (!check_digits_and_max_length($invoice_number, 7)) {
|
| 70 |
|
return undef, $::locale->text('Invoice number invalid. Must be less then or equal to 7 digits after prefix.');
|
|
58 |
if (!check_digits_and_max_length($invoice_number, 14)) {
|
|
59 |
return undef, $::locale->text('Invoice number invalid. Must be less then or equal to 14 digits after prefix.');
|
| 71 |
60 |
}
|
| 72 |
61 |
# fill with zeros
|
| 73 |
|
$invoice_number = sprintf "%07d", $invoice_number;
|
|
62 |
$invoice_number = sprintf "%014d", $invoice_number;
|
| 74 |
63 |
|
| 75 |
64 |
# assemble ref. number
|
| 76 |
|
my $ref_number = $bank_id . $customer_number . $order_number . $invoice_number;
|
|
65 |
my $ref_number = $bank_id . $customer_number . $invoice_number;
|
| 77 |
66 |
|
| 78 |
67 |
# calculate check digit
|
| 79 |
68 |
my $ref_number_cpl = $ref_number . calculate_check_digit($ref_number);
|
| ... | ... | |
| 187 |
176 |
my ($ref_number, $error) = assemble_ref_number(
|
| 188 |
177 |
$qr_account->{'bank_account_id'},
|
| 189 |
178 |
$form->{'customernumber'},
|
| 190 |
|
$form->{'ordnumber'},
|
| 191 |
179 |
$form->{'invnumber'},
|
| 192 |
180 |
);
|
| 193 |
181 |
|
| ... | ... | |
| 233 |
221 |
|
| 234 |
222 |
Kivitendo customer number. Prefix (letters) and up to 6 digits.
|
| 235 |
223 |
|
| 236 |
|
=item C<order_number>
|
| 237 |
|
|
| 238 |
|
Kivitendo order number. Prefix (letters) and up to 7 digits, may be zero.
|
| 239 |
|
|
| 240 |
224 |
=item C<invoice_number>
|
| 241 |
225 |
|
| 242 |
|
Kivitendo invoice number. Prefix (letters) and up to 7 digits, may be zero.
|
|
226 |
Kivitendo invoice number. Prefix (letters) and up to 14 digits, may be zero.
|
| 243 |
227 |
|
| 244 |
228 |
=back
|
| 245 |
229 |
|
Swiss QR-Bill: QR-Referenz ohne Auftragsnummer erzeugen, dafür Rechnungsnummer 14-stellig