From: Moritz Bunkus <m.bunkus@linet-services.de>
Date: Mon, 7 May 2007 08:18:41 +0000 (+0000)
Subject: Beim Stornieren von Einkaufs- und Verkaufsrechnungen dürfen die bisherigen Zahlungsau... 
X-Git-Tag: release-2.4.3^2~371
X-Git-Url: http://wagnertech.de/git?a=commitdiff_plain;h=3740b5032e01a83f12912887e66d0824c47aebcc;p=kivitendo-erp.git

Beim Stornieren von Einkaufs- und Verkaufsrechnungen dürfen die bisherigen Zahlungsaus- und -eingänge nicht auch in der neuen Stornorechnung verzeichnet werden. Zusätzlich dafür gesorgt, dass beim Stornieren von Verkaufsrechnungen nicht noch einmal die Maske erscheint, bevor storniert wird, wenn die Rechnung nur eine Position umfasst.
---

diff --git a/bin/mozilla/ir.pl b/bin/mozilla/ir.pl
index 39b4b88a1..9dd0076c5 100644
--- a/bin/mozilla/ir.pl
+++ b/bin/mozilla/ir.pl
@@ -1017,6 +1017,10 @@ sub storno {
   invoice_links();
   prepare_invoice();
   relink_accounts();
+
+  # Payments must not be recorded for the new storno invoice.
+  $form->{paidaccounts} = 0;
+  map { my $key = $_; delete $form->{$key} if grep { $key =~ /^$_/ } qw(datepaid_ source_ memo_ paid_ exchangerate_ AR_paid_) } keys %{ $form };
   
   # saving the history
   if(!exists $form->{addition} && $form->{id} ne "") {
diff --git a/bin/mozilla/is.pl b/bin/mozilla/is.pl
index e94bb386e..7eb339804 100644
--- a/bin/mozilla/is.pl
+++ b/bin/mozilla/is.pl
@@ -1522,21 +1522,25 @@ sub storno {
   }
 
   map({ my $key = $_; delete($form->{$key})
-          unless (grep({ $key eq $_ } qw(login password id type))); }
+          unless (grep({ $key eq $_ } qw(login password id stylesheet type))); }
       keys(%{ $form }));
 
-  &invoice_links;
-  &prepare_invoice;
+  invoice_links();
+  prepare_invoice();
   relink_accounts();
 
+  # Payments must not be recorded for the new storno invoice.
+  $form->{paidaccounts} = 0;
+  map { my $key = $_; delete $form->{$key} if grep { $key =~ /^$_/ } qw(datepaid_ source_ memo_ paid_ exchangerate_ AR_paid_) } keys %{ $form };
+
   $form->{storno_id} = $form->{id};
   $form->{storno} = 1;
   $form->{id} = "";
   $form->{invnumber} = "Storno zu " . $form->{invnumber};
+  $form->{rowcount}++;
 
-  &post();
+  post();
   $lxdebug->leave_sub();
-
 }
 
 sub preview {