diff options
| author | einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> | 2007-07-16 02:36:21 +0000 |
|---|---|---|
| committer | einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> | 2007-07-16 02:36:21 +0000 |
| commit | ce32ffc24b04ffb332f62418055df48744277c17 (patch) | |
| tree | b24e463f04a45dbaecfcca8f514a392c1ea82a3e /LedgerSMB/IR.pm | |
| parent | 635c53f75c84a44fb26a7bccb063904a11183ceb (diff) | |
Final changes to credit/debit invoices
git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@1401 4979c152-3d1c-0410-bac9-87ea11338e46
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"} ); |