projekt kivitendo

      my $clearing_chart = SL::DB::Chart->new(id => $::instance_conf->get_advance_payment_clearing_chart_id)->load;

      die "No Clearing Chart for Advance Payment" unless ref $clearing_chart eq 'SL::DB::Chart';

      foreach my $invoice_for_advance_payment (@$invoices_for_advance_payment) {

        # TODO: helper table acc_trans_advance_payment

        # trans_id for final invoice connects to acc_trans_id here

        # my $booking = SL::DB::AccTrans->new( ...)

        # TODO: If final_invoice change (delete storno) delete all connectin acc_trans entries, if

        # period is not closed

        # $booking->id, $self->id in helper table

        $form->{amount}->{$invoice_for_advance_payment->id}->{$clearing_chart->accno} = -1 * $invoice_for_advance_payment->netamount;

        $form->{memo}  ->{$invoice_for_advance_payment->id}->{$clearing_chart->accno} = 'reverse booking by final invoice';

  # if we delete a final invoice, the reverse bookings for the clearing account in the invoice for advance payment

  # must be deleted as well

  my $invoices_for_advance_payment = $self->_get_invoices_for_advance_payment($form->{convert_from_ar_ids} || $form->{id});

  my @trans_ids_to_consider        = map { $_->id } @$invoices_for_advance_payment;

  if (scalar @trans_ids_to_consider) {

    my $query = sprintf 'DELETE FROM acc_trans WHERE memo LIKE ? AND trans_id IN (%s)', join ', ', ("?") x scalar @trans_ids_to_consider;