diff options
author | einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> | 2006-12-05 03:02:39 +0000 |
---|---|---|
committer | einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> | 2006-12-05 03:02:39 +0000 |
commit | 129b3c2b70412e7fe99065f7edc9fafd39d2f2b5 (patch) | |
tree | 4915af12d74ecbc7ff1502ae178cd0746fac1cc3 /LedgerSMB/CP.pm | |
parent | 0d597c59f2fd55cde905f2c233fe3d0b8c29c3b8 (diff) |
Fixing all bug-1607680-like problems
git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@716 4979c152-3d1c-0410-bac9-87ea11338e46
Diffstat (limited to 'LedgerSMB/CP.pm')
-rwxr-xr-x | LedgerSMB/CP.pm | 24 |
1 files changed, 11 insertions, 13 deletions
diff --git a/LedgerSMB/CP.pm b/LedgerSMB/CP.pm index 33d47bcf..279aab95 100755 --- a/LedgerSMB/CP.pm +++ b/LedgerSMB/CP.pm @@ -417,12 +417,10 @@ sub post_payment { INSERT INTO acc_trans (trans_id, chart_id, transdate, amount) - VALUES (?, ?, - ?, - ? * ?)|; + VALUES (?, ?, ?, ?)|; $sth = $dbh->prepare($query); $sth->execute($form->{"id_$i"}, $id, - $form->{date_paid}, $amount, $ml) + $form->{date_paid}, $amount * $ml) || $form->dberror($query, 'CP.pm', 427); # add payment @@ -433,11 +431,11 @@ sub post_payment { VALUES (?, (SELECT id FROM chart WHERE accno = ?), - ?, ? * ? * -1, ?, ?)|; + ?, ?, ?, ?)|; $sth = $dbh->prepare($query); $sth->execute( $form->{"id_$i"}, $paymentaccno, - $form->{datepaid}, $form->{"paid_$i"}, $ml, + $form->{datepaid}, $form->{"paid_$i"} * $ml *-1, $form->{source}, $form->{memo}) || $form->dberror( $query, 'CP.pm', 444); @@ -458,12 +456,11 @@ sub post_payment { VALUES (?, (SELECT id FROM chart WHERE accno = ?), - ?, ? * ? * -1, '0', '1', - ?)|; + ?, ?, '0', '1', ?)|; $sth = $dbh->prepare($query); $sth->execute( $form->{"id_$i"}, $paymentaccno, - $form->{datepaid}, $amount, $ml, + $form->{datepaid}, $amount * $ml * -1, $form->{source}) || $form->dberror( $query, 'CP.pm', 470); @@ -693,12 +690,12 @@ sub post_payments { INSERT INTO acc_trans (trans_id, chart_id, transdate, amount) - VALUES (?, ?, ?, ? * ?)|; + VALUES (?, ?, ?, ?)|; $sth = $dbh->prepare($query); $sth->execute( $form->{"id_$i"}, $id, $form->{datepaid}, - $amount, $ml) + $amount * $ml) || $form->dberror($query, 'CP.pm', 701); @@ -715,12 +712,13 @@ sub post_payments { INSERT INTO acc_trans (trans_id, chart_id, transdate, amount, source, memo) - VALUES (?, ?, ?, ? * ? * -1, ?, ?)|; + VALUES (?, ?, ?, ?, ?, ?)|; $sth = $dbh->prepare($query); $sth->execute( $form->{"id_$i"}, $accno_id, $form->{datepaid}, - $paid, $ml, $form->{source}, $form->{memo}) + $paid * $ml * -1, $form->{source}, + $form->{memo}) || $form->dberror($query, 'CP.pm', 723); |