Revision 7ad94275
Von Moritz Bunkus vor etwa 14 Jahren hinzugefügt
| SL/SEPA.pm | ||
|---|---|---|
| 22 | 22 |
my $query = |
| 23 | 23 |
qq| |
| 24 | 24 |
SELECT ${arap}.id, ${arap}.invnumber, ${arap}.${vc}_id, ${arap}.amount AS invoice_amount, ${arap}.invoice,
|
| 25 |
vc.name AS vcname, ${arap}.duedate as duedate,
|
|
| 25 |
vc.name AS vcname, vc.language_id, ${arap}.duedate as duedate,
|
|
| 26 | 26 |
|
| 27 | 27 |
COALESCE(vc.iban, '') <> '' AND COALESCE(vc.bic, '') <> '' AS vc_bank_info_ok, |
| 28 | 28 |
|
| bin/mozilla/sepa.pl | ||
|---|---|---|
| 8 | 8 |
use SL::Chart; |
| 9 | 9 |
use SL::CT; |
| 10 | 10 |
use SL::Form; |
| 11 |
use SL::GenericTranslations; |
|
| 11 | 12 |
use SL::ReportGenerator; |
| 12 | 13 |
use SL::SEPA; |
| 13 | 14 |
use SL::SEPA::XML; |
| ... | ... | |
| 41 | 42 |
|
| 42 | 43 |
my $bank_account_label_sub = sub { $locale->text('Account number #1, bank code #2, #3', $_[0]->{account_number}, $_[0]->{bank_code}, $_[0]->{bank}) };
|
| 43 | 44 |
|
| 45 |
my $translation_list = GenericTranslations->list(translation_type => 'sepa_remittance_info_pfx'); |
|
| 46 |
my %translations = map { ( ($_->{language_id} || 'default') => $_->{translation} ) } @{ $translation_list };
|
|
| 47 |
|
|
| 48 |
foreach my $invoice (@{ $invoices }) {
|
|
| 49 |
my $prefix = $translations{ $invoice->{language_id} } || $translations{default} || $::locale->text('Invoice');
|
|
| 50 |
$prefix .= ' ' unless $prefix =~ m/ $/; |
|
| 51 |
$invoice->{reference_prefix} = $prefix;
|
|
| 52 |
} |
|
| 53 |
|
|
| 44 | 54 |
$form->header(); |
| 45 | 55 |
print $form->parse_html_template('sepa/bank_transfer_add',
|
| 46 | 56 |
{ 'INVOICES' => $invoices,
|
| templates/webpages/sepa/bank_transfer_add.html | ||
|---|---|---|
| 73 | 73 |
<td align="right">[% LxERP.format_amount(invoice.invoice_amount, -2) %]</td> |
| 74 | 74 |
<td align="right">[% LxERP.format_amount(invoice.open_amount, -2) %]</td> |
| 75 | 75 |
<td align="right">[% invoice.duedate %]</td> |
| 76 |
<td><input name="bank_transfers[].reference" value="[% HTML.escape(invoice.invnumber) %]"></td> |
|
| 76 |
<td><input name="bank_transfers[].reference" value="[% HTML.escape(invoice.reference_prefix _ invoice.invnumber) %]"></td>
|
|
| 77 | 77 |
<td align="right"> |
| 78 | 78 |
<input name="bank_transfers[].amount" value="[% LxERP.format_amount(invoice.invoice_amount, -2) %]" style="text-align: right"> |
| 79 | 79 |
</td> |
Auch abrufbar als: Unified diff
Bei SEPA-Überweisungen Verwendungszweke mit "Rechnung" (übersetzt) präfixen