Revision 60f784c0
Von Moritz Bunkus vor fast 14 Jahren hinzugefügt
| bin/mozilla/sepa.pl | ||
|---|---|---|
| 499 | 499 |
|
| 500 | 500 |
my $form = $main::form; |
| 501 | 501 |
my $locale = $main::locale; |
| 502 |
my $vc = $form->{vc} eq 'customer' ? 'customer' : 'vendor';
|
|
| 502 | 503 |
|
| 503 | 504 |
my @export_ids = map { $_->{id} } grep { $_->{selected} } @{ $form->{exports} || [] };
|
| 504 | 505 |
|
| ... | ... | |
| 508 | 509 |
|
| 509 | 510 |
my @open_export_ids = (); |
| 510 | 511 |
foreach my $id (@export_ids) {
|
| 511 |
my $export = SL::SEPA->retrieve_export('id' => $id);
|
|
| 512 |
my $export = SL::SEPA->retrieve_export('id' => $id, vc => $vc);
|
|
| 512 | 513 |
push @open_export_ids, $id if (!$export->{closed});
|
| 513 | 514 |
} |
| 514 | 515 |
|
| ... | ... | |
| 518 | 519 |
|
| 519 | 520 |
$form->{title} = $locale->text('Close SEPA exports');
|
| 520 | 521 |
$form->header(); |
| 521 |
print $form->parse_html_template('sepa/bank_transfer_mark_as_closed_step1', { 'OPEN_EXPORT_IDS' => \@open_export_ids });
|
|
| 522 |
print $form->parse_html_template('sepa/bank_transfer_mark_as_closed_step1', { 'OPEN_EXPORT_IDS' => \@open_export_ids, vc => $vc });
|
|
| 522 | 523 |
|
| 523 | 524 |
$main::lxdebug->leave_sub(); |
| 524 | 525 |
} |
| 525 | 526 |
|
| 527 |
# TODO |
|
| 526 | 528 |
sub bank_transfer_mark_as_closed_step2 {
|
| 527 | 529 |
$main::lxdebug->enter_sub(); |
| 528 | 530 |
|
Auch abrufbar als: Unified diff
Unterscheidung Bankeinzug/Überweisung beim Abschließen