From: G. Richardson <information@kivitendo-premium.de>
Date: Thu, 7 May 2015 14:57:51 +0000 (+0200)
Subject: Ticket 53 - Bearbeiter von Storno-Beleg falsch
X-Git-Tag: release-3.3.0beta~99
X-Git-Url: http://wagnertech.de/git?a=commitdiff_plain;h=46e64bc4c15099dd4cf524334080acf0a1cd126a;p=kivitendo-erp.git

Ticket 53 - Bearbeiter von Storno-Beleg falsch

Für Dialogbuchen: der Mitarbeiter, der auf den Storno-Knopf gedrückt
hat, erscheint jetzt auch als der Mitarbeiter in der Stornobuchung.
---

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)};