Projekt

Allgemein

Profil

« Zurück | Weiter » 

Revision 32ee774f

Von Moritz Bunkus vor fast 14 Jahren hinzugefügt

  • ID 32ee774ff3674951d5e2402750c1a3053ad63afa
  • Vorgänger 60f784c0
  • Nachfolger 3ef69a72

Unterscheidung Bankeinzug/Überweisung beim Verbuchen von Zahlungen

Unterschiede anzeigen:

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