From 55ef0ec59cae4f044c79a1e675899dc1d6c90d5b Mon Sep 17 00:00:00 2001
From: Moritz Bunkus <m.bunkus@linet-services.de>
Date: Mon, 24 Nov 2008 13:18:24 +0000
Subject: [PATCH] =?utf8?q?Beim=20Buchen=20von=20Zahlungseing=C3=A4ngen=20z?=
 =?utf8?q?u=20Debitorenrechnungen=20das=20Feld=20"bezahlt"=20bei=20der=20R?=
 =?utf8?q?echnung=20aktualisieren.?=
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

---
 SL/AR.pm | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/SL/AR.pm b/SL/AR.pm
index 0a8987979..c7965f8d5 100644
--- a/SL/AR.pm
+++ b/SL/AR.pm
@@ -195,6 +195,10 @@ sub post_transaction {
                  VALUES (?, (SELECT id FROM chart WHERE accno = ?), ?, ?, (SELECT taxkey_id FROM chart WHERE accno = ?))|;
     @values = (conv_i($form->{id}), $form->{AR_amounts}{receivables}, conv_i($form->{receivables}), conv_date($form->{transdate}), $form->{AR_amounts}{receivables});
     do_query($form, $dbh, $query, @values);
+
+  } else {
+    # Record paid amount.
+    do_query($form, $dbh, qq|UPDATE ar SET paid = ? WHERE id = ?|, $form->{paid}, conv_i($form->{id}));
   }
 
   # add paid transactions
-- 
2.20.1