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

diff --git a/SL/AP.pm b/SL/AP.pm
index 6925c20d13ff4e8c855822019fa7459ee38ed39f..072c66529e20f428d01363d374dc4f57b16053e6 100644 (file)
--- a/SL/AP.pm
+++ b/SL/AP.pm
@@ -480,8 +480,8 @@ sub get_transdate {
 
   my $query =
     "SELECT COALESCE(" .
 
   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);
 
     "  current_date)";
   ($form->{transdate}) = $dbh->selectrow_array($query);
 

diff --git a/SL/AR.pm b/SL/AR.pm
index 5c588f37db8e4e93cb811bcad20cb6a3f5e8b79c..5edd4161a2e6f7a3cc4a591f7671d8c871ec9919 100644 (file)
--- a/SL/AR.pm
+++ b/SL/AR.pm
@@ -485,8 +485,8 @@ sub get_transdate {
 
   my $query =
     "SELECT COALESCE(" .
 
   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);
 
     "  current_date)";
   ($form->{transdate}) = $dbh->selectrow_array($query);