X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=SL%2FGL.pm;h=01b71dbdad6a991429db6cc34fd9e3798cabb8cd;hb=5547891f42ef3b13d477eba65bb0537ece1d703c;hp=320be1e7ec4a2dea79b1e970cbe679681cc26960;hpb=76c486e3bf157e844b0cf11828d55dae2cb7e439;p=kivitendo-erp.git diff --git a/SL/GL.pm b/SL/GL.pm index 320be1e7e..01b71dbda 100644 --- a/SL/GL.pm +++ b/SL/GL.pm @@ -707,7 +707,7 @@ sub storno { my $rowref = selectall_hashref_query($form, $dbh, $query, $id); for my $row (@$rowref) { - delete @$row{qw(itime mtime)}; + delete @$row{qw(itime mtime acc_trans_id)}; $query = sprintf 'INSERT INTO acc_trans (%s) VALUES (%s)', join(', ', keys %$row), join(', ', map '?', values %$row); $row->{trans_id} = $new_id; $row->{amount} *= -1;