From: Moritz Bunkus <m.bunkus@linet-services.de>
Date: Thu, 5 Apr 2007 12:27:41 +0000 (+0000)
Subject: Fehlende Parameter und falsche Spaltennamen.
X-Git-Tag: release-2.4.3^2~512
X-Git-Url: http://wagnertech.de/git?a=commitdiff_plain;h=6f81bc1b48784bd89617b99420ae95eefea2ac5b;p=kivitendo-erp.git

Fehlende Parameter und falsche Spaltennamen.
---

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