Revision a986adb2
Von Jan Büren vor etwa 2 Jahren hinzugefügt
| SL/Form.pm | ||
|---|---|---|
| 2599 | 2599 |
|
| 2600 | 2600 |
# get exchangerate for currency |
| 2601 | 2601 |
$self->{exchangerate} =
|
| 2602 |
$self->get_exchangerate($dbh, $self->{currency}, $self->{transdate}, $fld);
|
|
| 2602 |
$self->check_exchangerate($myconfig, $self->{currency}, $self->{transdate}, $fld);
|
|
| 2603 | 2603 |
my $index = 0; |
| 2604 | 2604 |
|
| 2605 | 2605 |
# store amounts in {acc_trans}{$key} for multiple accounts
|
| 2606 | 2606 |
while (my $ref = $sth->fetchrow_hashref("NAME_lc")) {
|
| 2607 | 2607 |
$ref->{exchangerate} =
|
| 2608 |
$self->get_exchangerate($dbh, $self->{currency}, $ref->{transdate}, $fld);
|
|
| 2608 |
$self->check_exchangerate($myconfig, $self->{currency}, $ref->{transdate}, $fld);
|
|
| 2609 | 2609 |
if (!($xkeyref{ $ref->{accno} } =~ /tax/)) {
|
| 2610 | 2610 |
$index++; |
| 2611 | 2611 |
} |
| ... | ... | |
| 2657 | 2657 |
|
| 2658 | 2658 |
# get exchangerate for currency |
| 2659 | 2659 |
$self->{exchangerate} =
|
| 2660 |
$self->get_exchangerate($dbh, $self->{currency}, $self->{transdate}, $fld);
|
|
| 2660 |
$self->check_exchangerate($myconfig, $self->{currency}, $self->{transdate}, $fld);
|
|
| 2661 | 2661 |
|
| 2662 | 2662 |
} |
| 2663 | 2663 |
|
Auch abrufbar als: Unified diff
get_exchangerate nach check_exchangerate migriert
Die Funktion ist bis auf die eingehenden Parameter identisch