From 23ceae1d2fa34369f9a621dbc6e11730ce9fd328 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Jan=20B=C3=BCren?= Date: Thu, 7 May 2020 09:55:11 +0200 Subject: [PATCH] Kreditorenbeleg-Storno: Buchungsdatum richtig setzen Aufgefallen durch den Zeitstempel selftest --- SL/AP.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/SL/AP.pm b/SL/AP.pm index 79b1fa802..060b55a7c 100644 --- a/SL/AP.pm +++ b/SL/AP.pm @@ -893,7 +893,7 @@ sub _storno { $storno_row->{netamount} *= -1; $storno_row->{paid} = $storno_row->{amount}; - delete @$storno_row{qw(itime mtime)}; + delete @$storno_row{qw(itime mtime gldate)}; $query = sprintf 'INSERT INTO ap (%s) VALUES (%s)', join(', ', keys %$storno_row), join(', ', map '?', values %$storno_row); do_query($form, $dbh, $query, (values %$storno_row)); @@ -913,7 +913,7 @@ sub _storno { } for my $row (@$rowref) { - delete @$row{qw(itime mtime link acc_trans_id)}; + delete @$row{qw(itime mtime link acc_trans_id gldate)}; $query = sprintf 'INSERT INTO acc_trans (%s) VALUES (%s)', join(', ', keys %$row), join(', ', map '?', values %$row); $row->{trans_id} = $new_id; $row->{amount} *= -1; -- 2.20.1