projekt kivitendo

    $main::lxdebug->message(0, 'amount for payment:' . $amount_for_payment);

    # check exchangerate and if fx_loss calculate new booking_amount for this invoice

    #if ($fx_rate > 0)  {

    #  die "Exchangerate without currency"                     unless $currency_id;

    #  die "Invoice currency differs from user input currency" unless $currency_id == $invoice->currency->id;

      # open_amount is open_amount for default currency

      # TODO

      # use helper to calc everything (even)

      # 2 if fx_loss, we probably need a higher amount to pay the original amount of the ap invoice

      # no, just calc new open_amount and check if user wants a fee booking

    #  my $open_amount_fx = $invoice->open_amount_fx($fx_rate);

    #  $amount_for_payment = $fx_book ? $not_assigned_amount : $invoice->open_amount_fx($fx_rate);

    #  die $open_amount_fx;

    #  if ($invoice->get_exchangerate < $fx_rate) {

        # set whole bank_transaction amount -> pay_invoice will try to calculate losses and bank fees

    #    my $not_assigned_amount = abs($bank_transaction->not_assigned_amount);

    #    $amount_for_payment = $not_assigned_amount;

    #    $amount_for_payment *= -1 if $invoice->amount < 0;

    #  } elsif ($invoice->get_exchangerate >= $fx_rate) {

        # if fx_gain do nothing, because gain

        # bla bla

        # TODO copy paste

    #    my $not_assigned_amount = abs($bank_transaction->not_assigned_amount);

    #    $amount_for_payment = $not_assigned_amount;

    #    $amount_for_payment *= -1 if $invoice->amount < 0;

    #  } else {

    #    die "Invalid exchange rate state for record:" . $invoice->get_exchangerate . " " . $fx_rate;

    #  }

    #}

    #$main::lxdebug->message(0, 'amount for payment2:' . $amount_for_payment);

    $main::lxdebug->message(0, 'a' . $bank_amount->{return_bank_amount});

    $main::lxdebug->message(0, 'b' . $amount_for_booking);