Revision 47b0ef6f
Von Cem Aydin vor fast 2 Jahren hinzugefügt
| SL/IS.pm | ||
|---|---|---|
| 1521 | 1521 |
$qr_reference = undef; |
| 1522 | 1522 |
} |
| 1523 | 1523 |
} |
| 1524 |
|
|
| 1525 |
# add invoice number to unstructured message if feature enabled in client config |
|
| 1526 |
my $qr_unstructured_message = $form->{"qr_unstructured_message"};
|
|
| 1527 |
if ($::instance_conf->get_qrbill_copy_invnumber && $form->{formname} eq 'invoice') {
|
|
| 1528 |
my $invnumber = $form->{"invnumber"};
|
|
| 1529 |
if ($qr_unstructured_message eq '') {
|
|
| 1530 |
$qr_unstructured_message = $invnumber; |
|
| 1531 |
} elsif (rindex($qr_unstructured_message, $invnumber) == -1) {
|
|
| 1532 |
$qr_unstructured_message .= '; ' . $invnumber; |
|
| 1533 |
} |
|
| 1534 |
} |
|
| 1524 | 1535 |
|
| 1525 | 1536 |
# save AR record |
| 1526 | 1537 |
#erweiterung fuer lieferscheinnummer (donumber) 12.02.09 jb |
| ... | ... | |
| 1553 | 1564 |
conv_i($form->{"globalproject_id"}), conv_i($form->{"delivery_customer_id"}),
|
| 1554 | 1565 |
$form->{transaction_description}, conv_i($form->{"delivery_vendor_id"}),
|
| 1555 | 1566 |
$form->{"donumber"}, $form->{"invnumber_for_credit_note"}, $form->{direct_debit} ? 't' : 'f', $form->{qrbill_without_amount} ? 't' : 'f',
|
| 1556 |
$qr_reference, $form->{"qr_unstructured_message"}, conv_i($form->{delivery_term_id}),
|
|
| 1567 |
$qr_reference, $qr_unstructured_message, conv_i($form->{delivery_term_id}),
|
|
| 1557 | 1568 |
conv_i($form->{"id"}));
|
| 1558 | 1569 |
do_query($form, $dbh, $query, @values); |
| 1559 | 1570 |
|
Auch abrufbar als: Unified diff
Swiss QR-Bill: Optionales Feature Rechnungsnummer automatisch in unstrukturierte Mitteilung kopieren
Wenn bereits eine Mitteilung vorhanden ist, wird die Rechnungsnummer an diese angehängt.