Revision a2f07c15
Von Joachim Zach vor fast 14 Jahren hinzugefügt
| SL/IS.pm | ||
|---|---|---|
| 561 | 561 |
if ($form->{currency} eq $defaultcurrency) {
|
| 562 | 562 |
$form->{exchangerate} = 1;
|
| 563 | 563 |
} else {
|
| 564 |
$exchangerate = $form->check_exchangerate($myconfig, $form->{currency}, $form->{transdate}, 'buy');
|
|
| 564 |
$exchangerate = $form->check_exchangerate($myconfig, $form->{currency}, $form->{invdate}, 'buy');
|
|
| 565 | 565 |
} |
| 566 | 566 |
|
| 567 | 567 |
$form->{exchangerate} =
|
Auch abrufbar als: Unified diff
Wechselkurs wird falsch ausgelesen
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.>{exchangerate} wird als lokalisierter EingabestringNein -> $form
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.