projekt kivitendo

    my $new_acc_trans;

    # all three payment type create 1 AR/AP booking (the paid part)

    # without_skonto creates 1 bank booking

    # as long as there is no automatic tax, payments are always booked with

          $new_acc_trans->save;

          push @new_acc_ids, $new_acc_trans->acc_trans_id;

    if ( $params{payment_type} eq 'difference_as_skonto' or $params{payment_type} eq 'with_skonto_pt' ) {

      if ( $params{payment_type} eq 'difference_as_skonto' ) {

          die "difference_as_skonto calculated incorrectly, sum of calculated payments doesn't add up to open amount $total_open_amount, reference_amount = $reference_amount\n" unless _round($reference_amount) == 0;

      }

    my $arap_amount = 0;

      # with_skonto_pt for completely unpaid invoices we just use the value

      # from the invoice

      $arap_amount = $total_open_amount;

    # regardless of payment_type there is always only exactly one arap booking

    # TODO: compare $arap_amount to running total

  # the result is rounded so we can directly compare it with the user input

  my $self = shift;

  my $percent_skonto = $self->percent_skonto || 0;

  return _round($self->amount - ( $self->amount * $percent_skonto) );