Revision 6b1f644c
Von Moritz Bunkus vor fast 14 Jahren hinzugefügt
| bin/mozilla/sepa.pl | ||
|---|---|---|
| 20 | 20 |
|
| 21 | 21 |
my $form = $main::form; |
| 22 | 22 |
my $locale = $main::locale; |
| 23 |
my $vc = $form->{vc} eq 'customer' ? 'customer' : 'vendor';
|
|
| 23 | 24 |
|
| 24 |
$form->{title} = $locale->text('Prepare bank transfer via SEPA XML');
|
|
| 25 |
$form->{title} = $vc eq 'customer' ? $::locale->text('Prepare bank collection via SEPA XML') : $locale->text('Prepare bank transfer via SEPA XML');
|
|
| 25 | 26 |
|
| 26 | 27 |
my $bank_accounts = SL::BankAccount->list(); |
| 27 | 28 |
|
| ... | ... | |
| 29 | 30 |
$form->error($locale->text('You have not added bank accounts yet.'));
|
| 30 | 31 |
} |
| 31 | 32 |
|
| 32 |
my $invoices = SL::SEPA->retrieve_open_invoices(); |
|
| 33 |
my $invoices = SL::SEPA->retrieve_open_invoices(vc => $vc);
|
|
| 33 | 34 |
|
| 34 | 35 |
if (!scalar @{ $invoices }) {
|
| 35 | 36 |
$form->show_generic_information($locale->text('Either there are no open invoices, or you have already initiated bank transfers ' .
|
| ... | ... | |
| 44 | 45 |
print $form->parse_html_template('sepa/bank_transfer_add',
|
| 45 | 46 |
{ 'INVOICES' => $invoices,
|
| 46 | 47 |
'BANK_ACCOUNTS' => $bank_accounts, |
| 47 |
'bank_account_label' => $bank_account_label_sub, }); |
|
| 48 |
'bank_account_label' => $bank_account_label_sub, |
|
| 49 |
'vc' => $vc, |
|
| 50 |
}); |
|
| 48 | 51 |
|
| 49 | 52 |
$main::lxdebug->leave_sub(); |
| 50 | 53 |
} |
Auch abrufbar als: Unified diff
Unterscheidung Bankeinzug/Überweisung in erster Maske (Auswahl Kunden/Lieferanten)