Revision f95e112a
Von Jan Büren vor mehr als 2 Jahren hinzugefügt
| SL/Form.pm | ||
|---|---|---|
|
|
||
|
# get exchangerate for currency
|
||
|
$self->{exchangerate} =
|
||
|
$self->get_exchangerate($dbh, $self->{currency}, $self->{transdate}, $fld);
|
||
|
$self->check_exchangerate($myconfig, $self->{currency}, $self->{transdate}, $fld);
|
||
|
my $index = 0;
|
||
|
|
||
|
# store amounts in {acc_trans}{$key} for multiple accounts
|
||
|
while (my $ref = $sth->fetchrow_hashref("NAME_lc")) {
|
||
|
$ref->{exchangerate} =
|
||
|
$self->get_exchangerate($dbh, $self->{currency}, $ref->{transdate}, $fld);
|
||
|
$self->check_exchangerate($myconfig, $self->{currency}, $ref->{transdate}, $fld);
|
||
|
if (!($xkeyref{ $ref->{accno} } =~ /tax/)) {
|
||
|
$index++;
|
||
|
}
|
||
| ... | ... | |
|
|
||
|
# get exchangerate for currency
|
||
|
$self->{exchangerate} =
|
||
|
$self->get_exchangerate($dbh, $self->{currency}, $self->{transdate}, $fld);
|
||
|
$self->check_exchangerate($myconfig, $self->{currency}, $self->{transdate}, $fld);
|
||
|
|
||
|
}
|
||
|
|
||
Auch abrufbar als: Unified diff
get_exchangerate nach check_exchangerate migriert
Die Funktion ist bis auf die eingehenden Parameter identisch