From 024d2c2912122d35cc5d5a602e8464db86a16d1a Mon Sep 17 00:00:00 2001 From: Moritz Bunkus Date: Wed, 29 Dec 2010 17:31:51 +0100 Subject: [PATCH] =?utf8?q?Storno=20von=20Debitoren-/Kreditorenrechnungen:?= =?utf8?q?=20acc=5Ftrans=5Fid=20nicht=20doppelt=20einf=C3=BCgen?= MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit --- SL/AP.pm | 2 +- SL/AR.pm | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/SL/AP.pm b/SL/AP.pm index fce222dc0..245d1abb8 100644 --- a/SL/AP.pm +++ b/SL/AP.pm @@ -781,7 +781,7 @@ sub storno { } for my $row (@$rowref) { - delete @$row{qw(itime mtime link)}; + delete @$row{qw(itime mtime link 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; diff --git a/SL/AR.pm b/SL/AR.pm index a2512c8aa..98a30297c 100644 --- a/SL/AR.pm +++ b/SL/AR.pm @@ -690,7 +690,7 @@ sub storno { } for my $row (@$rowref) { - delete @$row{qw(itime mtime link)}; + delete @$row{qw(itime mtime link 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; -- 2.20.1