Definitiv verhindern, dass Einkaufsrechnungen doppelt storniert werden können.

diff --git a/SL/IR.pm b/SL/IR.pm
index 3bad7ce05849613628a721f2d79dbf7d5f6e818d..dc582efb56c9282e88c0db962c90d43a24df0f80 100644 (file)
--- a/SL/IR.pm
+++ b/SL/IR.pm
@@ -1423,4 +1423,23 @@ sub post_payment {
   return $rc;
 }
 
   return $rc;
 }
 

+sub has_storno {
+  $main::lxdebug->enter_sub();
+
+  my ($self, $myconfig, $form) = @_;
+
+  $main::lxdebug->leave_sub() and return 0 unless ($form->{id});
+
+  my $dbh = $form->dbconnect($myconfig);
+
+  my $query = qq|SELECT storno FROM ap WHERE id = ?|;
+  my ($result) = selectrow_query($form, $dbh, $query, $form->{id});
+
+  $dbh->disconnect();
+
+  $main::lxdebug->leave_sub();
+
+  return $result;
+}
+

 1;
 1;

diff --git a/bin/mozilla/ir.pl b/bin/mozilla/ir.pl
index 63325ca02df39eed53dcd619497cba4205f771ac..e088def44288c74aa448bd4b70290043b49b3c8f 100644 (file)
--- a/bin/mozilla/ir.pl
+++ b/bin/mozilla/ir.pl
@@ -972,6 +972,10 @@ sub storno {
     $form->error($locale->text('Cannot storno storno invoice!'));
   }
 
     $form->error($locale->text('Cannot storno storno invoice!'));
   }
 

+  if (IR->has_storno(\%myconfig, $form)) {
+    $form->error($locale->text("Invoice has already been storno'd!"));
+  }
+

   $form->{storno_id} = $form->{id};
   $form->{storno} = 1;
   $form->{id} = "";
   $form->{storno_id} = $form->{id};
   $form->{storno} = 1;
   $form->{id} = "";

diff --git a/locale/de/ir b/locale/de/ir
index 02181d1c6eac91ad43445ce43fe2580e93004d5c..e9e8ca800a61d392ada9b112c4299a319df31c77 100644 (file)
--- a/locale/de/ir
+++ b/locale/de/ir
@@ -81,6 +81,7 @@ $self->{texts} = {
   'Invoice Number'              => 'Rechnungsnummer',
   'Invoice Number missing!'     => 'Rechnungsnummer fehlt!',
   'Invoice deleted!'            => 'Rechnung gelöscht!',
   'Invoice Number'              => 'Rechnungsnummer',
   'Invoice Number missing!'     => 'Rechnungsnummer fehlt!',
   'Invoice deleted!'            => 'Rechnung gelöscht!',

+  'Invoice has already been storno\'d!' => 'Diese Rechnung wurde bereits storniert.',

   'Item not on file!'           => 'Dieser Artikel ist nicht in der Datenbank!',
   'Jan'                         => 'Jan',
   'January'                     => 'Januar',
   'Item not on file!'           => 'Dieser Artikel ist nicht in der Datenbank!',
   'Jan'                         => 'Jan',
   'January'                     => 'Januar',