Das mehrmalige Stornieren von Kundenrechnungen definitiv verhindern.

diff --git a/SL/IC.pm b/SL/IC.pm
index 5e5cf52a66abe3d5dba1aed7fa2ffe4fc86e679c..d692b6a7588ac3a787e17770e057cb2abd9cf7ae 100644 (file)
--- a/SL/IC.pm
+++ b/SL/IC.pm
@@ -1887,4 +1887,24 @@ sub retrieve_accounts {
 
   $main::lxdebug->leave_sub();
 }
 
   $main::lxdebug->leave_sub();
 }

+
+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 ar 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/is.pl b/bin/mozilla/is.pl
index 33a049f171131b2bbe53d9bd7be3a6313534bbbb..9c11c3400b653f42f6f18e364f48a8b266e4af6f 100644 (file)
--- a/bin/mozilla/is.pl
+++ b/bin/mozilla/is.pl
@@ -1518,6 +1518,10 @@ sub storno {
     $form->error($locale->text('Cannot storno storno invoice!'));
   }
 
     $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} = "";
   $form->{storno_id} = $form->{id};
   $form->{storno} = 1;
   $form->{id} = "";

diff --git a/locale/de/all b/locale/de/all
index 5c5c5b7d47130a7756b3a25d343d5fcaaf47fb90..43b9edce52cb75108d2e343e635dd9d16ad2ffaf 100644 (file)
--- a/locale/de/all
+++ b/locale/de/all
@@ -567,6 +567,7 @@ gestartet',
   '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.',

   'Invoices'                    => 'Rechnungen',
   'Is this a summary account to record' => 'Buchungskonto in',
   'It is possible to do this automatically for some Buchungsgruppen, but not for all.' => 'Es ist möglich, dies für einige, aber nicht für alle Buchungsgruppen automatisch zu erledigen.',
   'Invoices'                    => 'Rechnungen',
   'Is this a summary account to record' => 'Buchungskonto in',
   'It is possible to do this automatically for some Buchungsgruppen, but not for all.' => 'Es ist möglich, dies für einige, aber nicht für alle Buchungsgruppen automatisch zu erledigen.',

diff --git a/locale/de/is b/locale/de/is
index 29f52b386543dbefde858a83212601d771319854..9ac1a9aead64a0dfb7896d8623969a39e474bcc6 100644 (file)
--- a/locale/de/is
+++ b/locale/de/is
@@ -97,6 +97,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',