From edc3ebb407771b5538e6938a417605ccc90e3aa1 Mon Sep 17 00:00:00 2001
From: Bernd Blessmann <bibi@online.de>
Date: Wed, 31 Aug 2011 10:25:16 +0200
Subject: [PATCH] gldate bei Zahlungen bei Kreditorenbuchungen auf current_date
 setzen

---
 SL/AP.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/SL/AP.pm b/SL/AP.pm
index 79a93fe3a..7b0bc12b7 100644
--- a/SL/AP.pm
+++ b/SL/AP.pm
@@ -288,7 +288,7 @@ sub post_transaction {
       $form->{payables} = $amount;
 
       # add payment
-      my $gldate = (conv_date($form->{"gldate_$i"}))? conv_date($form->{"gldate_$i"}) : conv_date($form->{"gldate"});
+      my $gldate = (conv_date($form->{"gldate_$i"}))? conv_date($form->{"gldate_$i"}) : conv_date($form->current_date($myconfig));
       $query =
         qq|INSERT INTO acc_trans (trans_id, chart_id, amount, transdate, gldate, source, memo, project_id, taxkey) | .
         qq|VALUES (?, (SELECT id FROM chart WHERE accno = ?), ?, ?, ?, ?, ?, ?, | .
-- 
2.20.1