From 379aa61a9855bd34637fd438cb2e2f2247129b68 Mon Sep 17 00:00:00 2001
From: Moritz Bunkus <m.bunkus@linet-services.de>
Date: Mon, 5 Mar 2007 16:15:53 +0000
Subject: [PATCH] =?utf8?q?Einkaufsrechnungen:=20Vor=20dem=20Stornieren=20d?=
 =?utf8?q?ie=20Daten=20aus=20der=20Datenbank=20holen=20und=20nicht=20die?=
 =?utf8?q?=20aktuellen=20Formulardaten=20f=C3=BCr=20das=20Storno=20benutze?=
 =?utf8?q?n.?=
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

---
 SL/IR.pm          | 2 ++
 bin/mozilla/ir.pl | 4 ++++
 2 files changed, 6 insertions(+)

diff --git a/SL/IR.pm b/SL/IR.pm
index dc582efb5..553e7828f 100644
--- a/SL/IR.pm
+++ b/SL/IR.pm
@@ -100,6 +100,8 @@ sub post_invoice {
     ? $exchangerate
     : $form->parse_amount($myconfig, $form->{exchangerate});
 
+  $form->{exchangerate} = 1 unless ($form->{exchangerate} * 1);
+
   for my $i (1 .. $form->{rowcount}) {
     $form->{"qty_$i"} = $form->parse_amount($myconfig, $form->{"qty_$i"});
     
diff --git a/bin/mozilla/ir.pl b/bin/mozilla/ir.pl
index e088def44..f5fd32f58 100644
--- a/bin/mozilla/ir.pl
+++ b/bin/mozilla/ir.pl
@@ -976,6 +976,10 @@ sub storno {
     $form->error($locale->text("Invoice has already been storno'd!"));
   }
 
+  invoice_links();
+  prepare_invoice();
+  relink_accounts();
+
   $form->{storno_id} = $form->{id};
   $form->{storno} = 1;
   $form->{id} = "";
-- 
2.20.1