Revision c9fdd205
Von Jan Büren vor fast 2 Jahren hinzugefügt
| SL/Form.pm | ||
|---|---|---|
| 2570 | 2570 |
do_statement($self, $sth, $query, $self->{id});
|
| 2571 | 2571 |
|
| 2572 | 2572 |
# get exchangerate for currency |
| 2573 |
$self->{exchangerate} =
|
|
| 2574 |
$self->check_exchangerate($myconfig, $self->{currency}, $self->{transdate}, $fld);
|
|
| 2573 |
($self->{exchangerate}, $self->{record_forex}) = $self->check_exchangerate($myconfig, $self->{currency}, $self->{transdate}, $fld,
|
|
| 2574 |
$self->{id}, $arap);
|
|
| 2575 |
|
|
| 2575 | 2576 |
my $index = 0; |
| 2576 | 2577 |
|
| 2577 | 2578 |
# store amounts in {acc_trans}{$key} for multiple accounts
|
| 2578 | 2579 |
while (my $ref = $sth->fetchrow_hashref("NAME_lc")) {
|
| 2580 |
# credit and debit bookings calc fx rate for positions |
|
| 2581 |
# also used as exchangerate_$i for payments |
|
| 2579 | 2582 |
$ref->{exchangerate} =
|
| 2580 | 2583 |
$self->check_exchangerate($myconfig, $self->{currency}, $ref->{transdate}, $fld);
|
| 2581 | 2584 |
if (!($xkeyref{ $ref->{accno} } =~ /tax/)) {
|
Auch abrufbar als: Unified diff
Wechselkurse für Belege oder Zahlungen für ar und ap holen und berechnen