diff options
Diffstat (limited to 'LedgerSMB/IR.pm')
| -rw-r--r-- | LedgerSMB/IR.pm | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/LedgerSMB/IR.pm b/LedgerSMB/IR.pm index 3c44df45..e2de66a3 100644 --- a/LedgerSMB/IR.pm +++ b/LedgerSMB/IR.pm @@ -467,6 +467,7 @@ sub post_invoice { for $i ( 1 .. $form->{paidaccounts} ) { $form->{"paid_$i"} = $form->parse_amount( $myconfig, $form->{"paid_$i"} ); + $form->{"paid_$i"} *= -1 if $form->{reverse}; $form->{paid} += $form->{"paid_$i"}; $form->{datepaid} = $form->{"datepaid_$i"} if ( $form->{"datepaid_$i"} ); |