Revision 705d2fe1
Von Jan Büren vor mehr als 1 Jahr hinzugefügt
| SL/Controller/BankTransaction.pm | ||
|---|---|---|
| 670 | 670 |
} |
| 671 | 671 |
# pay invoice |
| 672 | 672 |
# TODO rewrite this: really booked amount should be a return value of Payment.pm |
| 673 |
# -> quick and dirty done -> really booked amount is the first element of return array |
|
| 673 | 674 |
# also this controller shouldnt care about how to calc skonto. we simply delegate the |
| 674 | 675 |
# payment_type to the helper and get the corresponding bank_transaction values back |
| 675 | 676 |
# hotfix to get the signs right - compare absolute values and later set the signs |
| ... | ... | |
| 703 | 704 |
currency_id => $currency_id, |
| 704 | 705 |
bt_id => $bt_id, |
| 705 | 706 |
transdate => $bank_transaction->valutadate->to_kivitendo); |
| 707 |
# First element is the booked amount for accno bank |
|
| 706 | 708 |
my $booked_amount = shift @acc_ids; |
| 707 |
use Data::Dumper; |
|
| 708 |
$main::lxdebug->message(0, 'hier1:' .Dumper $booked_amount); |
|
| 709 |
$main::lxdebug->message(0, 'hier2:' .Dumper @acc_ids); |
|
| 710 | 709 |
$bank_transaction->invoice_amount($bank_transaction->invoice_amount + $booked_amount * $sign); |
| 711 | 710 |
# ... and record the origin via BankTransactionAccTrans |
| 712 | 711 |
if (scalar(@acc_ids) < 2) {
|
Auch abrufbar als: Unified diff
pay_invoice git als ersten Wert den verbuchten Betrag der Bankbuchung zurück