From 46e64bc4c15099dd4cf524334080acf0a1cd126a Mon Sep 17 00:00:00 2001 From: "G. Richardson" Date: Thu, 7 May 2015 16:57:51 +0200 Subject: [PATCH] Ticket 53 - Bearbeiter von Storno-Beleg falsch MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit Für Dialogbuchen: der Mitarbeiter, der auf den Storno-Knopf gedrückt hat, erscheint jetzt auch als der Mitarbeiter in der Stornobuchung. --- SL/GL.pm | 12 ++++++++---- 1 file changed, 8 insertions(+), 4 deletions(-) diff --git a/SL/GL.pm b/SL/GL.pm index f3b547b83..01417aac9 100644 --- a/SL/GL.pm +++ b/SL/GL.pm @@ -722,10 +722,14 @@ sub storno { $query = qq|SELECT * FROM gl WHERE id = ?|; $storno_row = selectfirst_hashref_query($form, $dbh, $query, $id); - $storno_row->{id} = $new_id; - $storno_row->{storno_id} = $id; - $storno_row->{storno} = 't'; - $storno_row->{reference} = 'Storno-' . $storno_row->{reference}; + $storno_row->{id} = $new_id; + $storno_row->{storno_id} = $id; + $storno_row->{storno} = 't'; + $storno_row->{reference} = 'Storno-' . $storno_row->{reference}; + + $query = qq|SELECT id FROM employee WHERE login = ?|; + my ($employee_id) = selectrow_query($form, $dbh, $query, $::myconfig{login}); + $storno_row->{employee_id} = $employee_id; delete @$storno_row{qw(itime mtime gldate)}; -- 2.20.1