From a2f07c159111d089b8f5ea139bec46a8624ba4c4 Mon Sep 17 00:00:00 2001
From: Joachim Zach <info@ceos-gmbh.de>
Date: Wed, 3 Nov 2010 12:03:11 +0100
Subject: [PATCH] Wechselkurs wird falsch ausgelesen
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

Es hat sich herausgestellt, dass der Fehler nicht in der Formatierung lag. Das
Procedere ist wie folgt: Bei post_invoice wird geprüft, ob ein
Wechselkurseintrag für das fragliche Datum existiert:

Ja   -> diese Zahl wird genommen.
Nein -> $form->{exchangerate} wird als lokalisierter Eingabestring
        interpretiert und in eine Zahl konvertiert.

Fehlerhaft war die Abfrage: Es wurde $form->{transdate} statt $form->{invdate}
genommen. $form->{transdate} wird vom Aufrufer (in is.pl) aber vor dem Aufruf
nicht gesetzt, weshalb die Abfrage immer den "Nein"-Fall produzierte.
---
 SL/IS.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/SL/IS.pm b/SL/IS.pm
index e5b403675..53de890e7 100644
--- a/SL/IS.pm
+++ b/SL/IS.pm
@@ -561,7 +561,7 @@ sub post_invoice {
   if ($form->{currency} eq $defaultcurrency) {
     $form->{exchangerate} = 1;
   } else {
-    $exchangerate = $form->check_exchangerate($myconfig, $form->{currency}, $form->{transdate}, 'buy');
+    $exchangerate = $form->check_exchangerate($myconfig, $form->{currency}, $form->{invdate}, 'buy');
   }
 
   $form->{exchangerate} =
-- 
2.20.1