X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/66022cbd0893e066eec8826a15884d2d0457fe4f..c09536f461b4933a1813b2af5e17eb6214f7bf38:/SL/OP.pm diff --git a/SL/OP.pm b/SL/OP.pm index 43be29bf4..808972f1a 100644 --- a/SL/OP.pm +++ b/SL/OP.pm @@ -77,7 +77,7 @@ sub overpayment { $query = qq|INSERT INTO acc_trans (trans_id, chart_id, transdate, amount) | . qq|VALUES (?, (SELECT id FROM chart WHERE accno = ? ), ?, ?)|; - @values = ($new_id, $accno, conv_date($form->{datepaid}), $fxamount * $ml); + @values = ($new_id, $accno, conv_date($form->{datepaid}), $fxamount * $ml); do_query($form, $dbh, $query, @values); # add payment @@ -93,7 +93,7 @@ sub overpayment { $query = qq|INSERT INTO acc_trans (trans_id, chart_id, transdate, amount, cleared, fx_transaction) | . qq|VALUES (?, (SELECT id FROM chart WHERE accno = ?), ?, ?, ?, ?)|; - @values = ($new_id, $paymentaccno, conv_date($form->{datepaid}), + @values = ($new_id, $paymentaccno, conv_date($form->{datepaid}), (($fxamount - $amount) * $ml * -1), 1, 1); do_query($form, $dbh, $query, @values); }