X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/2a4f08f528db948afb887977278667db2784c0ee..3578314fb94f63b04ee3bf34e91f1bed898fc434:/SL/AR.pm

diff --git a/SL/AR.pm b/SL/AR.pm
index 5c588f37d..5edd4161a 100644
--- 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);