Revision dd47071f
Von Jan Büren vor mehr als 2 Jahren hinzugefügt
| SL/Dev/Payment.pm | ||
|---|---|---|
|
my $record = delete $params{record};
|
||
|
die "bank_transactions can only be created for invoices" unless ref($record) eq 'SL::DB::Invoice' or ref($record) eq 'SL::DB::PurchaseInvoice';
|
||
|
|
||
|
my $multiplier = $record->is_sales ? 1 : -1;
|
||
|
my $multiplier = $record->invoice_type =~ m/^purchase_invoice$|^ap_transaction$|^credit_note$/ ? -1
|
||
|
: $record->invoice_type =~ m/invoice|ar_transaction|^purchase_credit_note$/ ? 1
|
||
|
: die "invalid state";
|
||
|
my $amount = (delete $params{amount} || $record->amount) * $multiplier;
|
||
|
|
||
|
my $bank_chart;
|
||
Auch abrufbar als: Unified diff
Vorzeichen für create_bank_transaction logisch richtiger setzen
Entsprechend müssen bei den Testfällen absolute Werte übergeben werden.