Revision f95e112a
Von Jan Büren vor mehr als 2 Jahren hinzugefügt
| SL/CP.pm | ||
|---|---|---|
|
|
||
|
# if this is a foreign currency transaction get exchangerate
|
||
|
$ref->{exchangerate} =
|
||
|
$form->get_exchangerate($dbh, $ref->{curr}, $ref->{transdate}, $buysell)
|
||
|
$form->check_exchangerate($myconfig, $ref->{curr}, $ref->{transdate}, $buysell)
|
||
|
if ($form->{currency} ne $form->{defaultcurrency});
|
||
|
push @{ $form->{PR} }, $ref;
|
||
|
}
|
||
Auch abrufbar als: Unified diff
get_exchangerate nach check_exchangerate migriert
Die Funktion ist bis auf die eingehenden Parameter identisch