From 6f81bc1b48784bd89617b99420ae95eefea2ac5b Mon Sep 17 00:00:00 2001 From: Moritz Bunkus Date: Thu, 5 Apr 2007 12:27:41 +0000 Subject: [PATCH] Fehlende Parameter und falsche Spaltennamen. --- SL/AR.pm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/SL/AR.pm b/SL/AR.pm index 02f15f396..875e948f4 100644 --- a/SL/AR.pm +++ b/SL/AR.pm @@ -434,9 +434,9 @@ sub post_payment { $query = qq|INSERT INTO acc_trans (trans_id, chart_id, amount, transdate, project_id, taxkey) | . qq|VALUES (?, (SELECT id FROM chart WHERE accno = ?), ?, ?, ?, | . - qq| (SELECT taxkey_ FROM chart WHERE accno = ?))|; + qq| (SELECT taxkey_id FROM chart WHERE accno = ?))|; @values = (conv_i($form->{id}), $accno_ar, conv_i($amount), - conv_date($form->{"datepaid_$i"}), $project_id); + conv_date($form->{"datepaid_$i"}), $project_id, $accno_ar); do_query($form, $dbh, $query, @values); # record payment @@ -458,7 +458,7 @@ sub post_payment { qq| (SELECT taxkey_id FROM chart WHERE accno = ?))|; @values = (conv_i($form->{id}), $accno, conv_i($form->{"paid_$i"}), conv_date($form->{"datepaid_$i"}), - $form->{"source_$i"}, $form->{"memo_$i"}, $project_id); + $form->{"source_$i"}, $form->{"memo_$i"}, $project_id, $accno); do_query($form, $dbh, $query, @values); # gain/loss -- 2.20.1