projekt kivitendo

  my $myconfig = \%main::myconfig;

  my $form     = $main::form;

  my $dbh      = $params{dbh} || $form->get_standard_dbh($myconfig);

                             FROM sepa_export_items sei

                             WHERE sei.id = ?| ],

                             FROM acc_trans at

                             LEFT JOIN chart c ON (at.chart_id = c.id)

                             WHERE (trans_id = ?)

                             LIMIT 1| ],

    'add_acc_trans'  => [ qq|INSERT INTO acc_trans (trans_id, chart_id, amount, transdate, gldate,       source, memo)

                             VALUES                (?,        ?,        ?,      ?,         current_date, ?,      '')| ],

                             SET paid = paid + ?

                             WHERE id = ?| ],

    next if (!$orig_item);

    # Update the invoice to reflect the new paid amount.

    # Update the item to reflect that it has been posted.

    do_statement($form, @{ $handles{finish_item} }, $item->{execution_date}, $item_id);

  my $form   = $main::form;

  my $locale = $main::locale;

  my @items  = grep { $_->{selected} } @{ $form->{items} || [] };

    $form->show_generic_error($locale->text('You have not selected any item.'), 'back_button' => 1);

  }

  my @export_ids    = uniq map { $_->{sepa_export_id} } @items;

  my @items_to_post = ();

  foreach my $item (@items) {

    $form->show_generic_error($locale->text('You have to specify an execution date for each antry.'), 'back_button' => 1);

  }

  $form->show_generic_information($locale->text('The payments have been posted.'));

  $main::lxdebug->leave_sub();

}

sub bank_transfer_payment_list_as_pdf {

  $main::lxdebug->enter_sub();