build_std_url() etwas aufgebohrt, sodass das auszuführende Script verändert werden...

[mfinanz.git] / SL / GL.pm

diff --git a/SL/GL.pm b/SL/GL.pm
index 1b4a59e8cbcba6a3d3b7d997b380ffadcd48d393..3d65eac46cda0d2a410af523242db54b28f911fa 100644 (file)
--- 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,