Revision 32ee774f
Von Moritz Bunkus vor fast 14 Jahren hinzugefügt
bin/mozilla/sepa.pl | ||
---|---|---|
330 | 330 |
|
331 | 331 |
my $form = $main::form; |
332 | 332 |
my $locale = $main::locale; |
333 |
my $vc = $form->{vc} eq 'customer' ? 'customer' : 'vendor'; |
|
333 | 334 |
|
334 | 335 |
my @items = grep { $_->{selected} } @{ $form->{items} || [] }; |
335 | 336 |
|
... | ... | |
337 | 338 |
$form->show_generic_error($locale->text('You have not selected any item.'), 'back_button' => 1); |
338 | 339 |
} |
339 | 340 |
my @export_ids = uniq map { $_->{sepa_export_id} } @items; |
340 |
my %exports = map { $_ => SL::SEPA->retrieve_export('id' => $_, 'details' => 1) } @export_ids; |
|
341 |
my %exports = map { $_ => SL::SEPA->retrieve_export('id' => $_, 'details' => 1, vc => $vc) } @export_ids;
|
|
341 | 342 |
my @items_to_post = (); |
342 | 343 |
|
343 | 344 |
foreach my $item (@items) { |
... | ... | |
355 | 356 |
$form->show_generic_error($locale->text('You have to specify an execution date for each antry.'), 'back_button' => 1); |
356 | 357 |
} |
357 | 358 |
|
358 |
SL::SEPA->post_payment('items' => \@items_to_post); |
|
359 |
SL::SEPA->post_payment('items' => \@items_to_post, vc => $vc);
|
|
359 | 360 |
|
360 | 361 |
$form->show_generic_information($locale->text('The payments have been posted.')); |
361 | 362 |
|
362 | 363 |
$main::lxdebug->leave_sub(); |
363 | 364 |
} |
364 | 365 |
|
366 |
# TODO |
|
365 | 367 |
sub bank_transfer_payment_list_as_pdf { |
366 | 368 |
$main::lxdebug->enter_sub(); |
367 | 369 |
|
Auch abrufbar als: Unified diff
Unterscheidung Bankeinzug/Überweisung beim Verbuchen von Zahlungen