From 44703001ea7d51f4e1eda2db2cc040713661bffc Mon Sep 17 00:00:00 2001 From: "Martin Helmling mh@waldpark.octosoft.eu" Date: Wed, 2 Mar 2016 14:49:57 +0100 Subject: [PATCH] =?utf8?q?4.=20=C3=9Cberarbeitung=20Pr=C3=BCfen=20beim=20S?= =?utf8?q?peichern,=20ob=20Dokument=20ge=C3=A4ndert=20ist(3)?= MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit In der Ruhe liegt die Kraft. Jetzt sind die Zeilen in den storno-Funktionen wieder eingebaut --- SL/AP.pm | 2 ++ SL/AR.pm | 2 ++ 2 files changed, 4 insertions(+) diff --git a/SL/AP.pm b/SL/AP.pm index 08dd54224..bbddd6e8c 100644 --- a/SL/AP.pm +++ b/SL/AP.pm @@ -811,6 +811,8 @@ sub storno { $query = qq|UPDATE ap SET paid = amount + paid, storno = 't' WHERE id = ?|; do_query($form, $dbh, $query, $id); + $form->new_lastmtime('ap') if $id == $form->{id}; + # now copy acc_trans entries $query = qq|SELECT a.*, c.link FROM acc_trans a LEFT JOIN chart c ON a.chart_id = c.id WHERE a.trans_id = ? ORDER BY a.acc_trans_id|; my $rowref = selectall_hashref_query($form, $dbh, $query, $id); diff --git a/SL/AR.pm b/SL/AR.pm index 625812223..405a7f2fc 100644 --- a/SL/AR.pm +++ b/SL/AR.pm @@ -772,6 +772,8 @@ sub storno { $query = qq|UPDATE ar SET paid = amount + paid, storno = 't' WHERE id = ?|; do_query($form, $dbh, $query, $id); + $form->new_lastmtime('ar') if $id == $form->{id}; + # now copy acc_trans entries $query = qq|SELECT a.*, c.link FROM acc_trans a LEFT JOIN chart c ON a.chart_id = c.id WHERE a.trans_id = ? ORDER BY a.acc_trans_id|; my $rowref = selectall_hashref_query($form, $dbh, $query, $id); -- 2.20.1