Das vorbelegte Rechnungsdatum bei den Debitoren- und den Kreditorenbuchungen mit...

diff --git a/SL/AP.pm b/SL/AP.pm
index 6925c20..072c665 100644 (file)
--- a/SL/AP.pm
+++ b/SL/AP.pm
@@ -480,8 +480,8 @@ sub get_transdate {
 
   my $query =
     "SELECT COALESCE(" .
-    "  (SELECT transdate FROM gl WHERE id = " .
-    "    (SELECT MAX(id) FROM gl) LIMIT 1), " .
+    "  (SELECT transdate FROM ap WHERE id = " .
+    "    (SELECT MAX(id) FROM ap) LIMIT 1), " .
     "  current_date)";
   ($form->{transdate}) = $dbh->selectrow_array($query);
 

diff --git a/SL/AR.pm b/SL/AR.pm
index 5c588f3..5edd416 100644 (file)
--- a/SL/AR.pm
+++ b/SL/AR.pm
@@ -485,8 +485,8 @@ sub get_transdate {
 
   my $query =
     "SELECT COALESCE(" .
-    "  (SELECT transdate FROM gl WHERE id = " .
-    "    (SELECT MAX(id) FROM gl) LIMIT 1), " .
+    "  (SELECT transdate FROM ar WHERE id = " .
+    "    (SELECT MAX(id) FROM ar) LIMIT 1), " .
     "  current_date)";
   ($form->{transdate}) = $dbh->selectrow_array($query);