From ed76c91e9b0870269fd66b3b6d13dbeb68c9c153 Mon Sep 17 00:00:00 2001 From: "G. Richardson" Date: Tue, 3 Feb 2015 08:32:25 +0100 Subject: [PATCH] =?utf8?q?history=5Ferp=20Eintrag=20f=C3=BCr=20Verkaufsrec?= =?utf8?q?hnung,=20die=20storniert=20wird?= MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit --- bin/mozilla/is.pl | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/bin/mozilla/is.pl b/bin/mozilla/is.pl index c44351d00..4adc9f708 100644 --- a/bin/mozilla/is.pl +++ b/bin/mozilla/is.pl @@ -861,6 +861,11 @@ sub storno { $form->error($locale->text('Cannot storno invoice for a closed period!')); } + # save the history of invoice being stornoed + $form->{snumbers} = qq|invnumber_| . $form->{invnumber}; + $form->{addition} = "STORNO"; + $form->save_history; + map({ my $key = $_; delete($form->{$key}) unless (grep({ $key eq $_ } qw(id login password type))); } keys(%{ $form })); invoice_links(); -- 2.20.1