X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/8853312b58202112437a0c2ab7ef19a823f2974e..213317d3ebd9073e68ac4d0cc789b94c377f575e:/bin/mozilla/is.pl

diff --git a/bin/mozilla/is.pl b/bin/mozilla/is.pl
index 33a049f17..9c11c3400 100644
--- a/bin/mozilla/is.pl
+++ b/bin/mozilla/is.pl
@@ -1518,6 +1518,10 @@ sub storno {
     $form->error($locale->text('Cannot storno storno invoice!'));
   }
 
+  if (IC->has_storno(\%myconfig, $form)) {
+    $form->error($locale->text("Invoice has already been storno'd!"));
+  }
+
   $form->{storno_id} = $form->{id};
   $form->{storno} = 1;
   $form->{id} = "";