X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=SL%2FGL.pm;h=ef04d9ad61fa6b5b0b008ba677c1b08d92e04ece;hb=514a1280cfcc9ab8be7567d1ad3bda47f9f22b32;hp=1b4a59e8cbcba6a3d3b7d997b380ffadcd48d393;hpb=dc7f3c9afe98b033d29c645cd9d9ced238663fbc;p=kivitendo-erp.git

diff --git a/SL/GL.pm b/SL/GL.pm
index 1b4a59e8c..ef04d9ad6 100644
--- a/SL/GL.pm
+++ b/SL/GL.pm
@@ -277,7 +277,7 @@ sub all_transactions {
                           (SELECT id FROM chart c2 WHERE c2.category = ?))|;
     $apwhere .=
       qq| AND ap.id in (SELECT trans_id FROM acc_trans ac2 WHERE ac2.chart_id IN
-                          (SELECT id FROM chart c2 WHERE c2.category = ?))"|;
+                          (SELECT id FROM chart c2 WHERE c2.category = ?))|;
     push(@glvalues, $form->{category});
     push(@arvalues, $form->{category});
     push(@apvalues, $form->{category});
@@ -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,