X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/dc7f3c9afe98b033d29c645cd9d9ced238663fbc..0c27df9b59417fcef923f18f6c33d6190dd94fa9:/SL/GL.pm

diff --git a/SL/GL.pm b/SL/GL.pm
index 1b4a59e8c..3d65eac46 100644
--- a/SL/GL.pm
+++ b/SL/GL.pm
@@ -555,6 +555,11 @@ sub transaction {
   $query = qq|SELECT closedto, revtrans FROM defaults|;
   ($form->{closedto}, $form->{revtrans}) = selectrow_query($form, $dbh, $query);
 
+  $query = qq|SELECT id, gldate
+              FROM gl
+              WHERE id = (SELECT max(id) FROM gl)|;
+  ($form->{previous_id}, $form->{previous_gldate}) = selectrow_query($form, $dbh, $query);
+
   if ($form->{id}) {
     $query =
       qq|SELECT g.reference, g.description, g.notes, g.transdate, g.storno, g.storno_id,