history_erp Eintrag für Verkaufsrechnung, die storniert wird

[mfinanz.git] / bin / mozilla / is.pl

diff --git a/bin/mozilla/is.pl b/bin/mozilla/is.pl
index c44351d0027f97285dc79d01642b7600a550d1f0..4adc9f7083620e5b905840eb316fe9c6f1303d6d 100644 (file)
--- 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();