Revision 46a49667
Von Jan Büren vor fast 2 Jahren hinzugefügt
| SL/CP.pm | ||
|---|---|---|
| 136 | 136 |
|
| 137 | 137 |
# if this is a foreign currency transaction get exchangerate |
| 138 | 138 |
$ref->{exchangerate} =
|
| 139 |
$form->get_exchangerate($dbh, $ref->{curr}, $ref->{transdate}, $buysell)
|
|
| 139 |
$form->check_exchangerate($myconfig, $ref->{curr}, $ref->{transdate}, $buysell)
|
|
| 140 | 140 |
if ($form->{currency} ne $form->{defaultcurrency});
|
| 141 | 141 |
push @{ $form->{PR} }, $ref;
|
| 142 | 142 |
} |
| SL/Form.pm | ||
|---|---|---|
| 2606 | 2606 |
|
| 2607 | 2607 |
# get exchangerate for currency |
| 2608 | 2608 |
$self->{exchangerate} =
|
| 2609 |
$self->get_exchangerate($dbh, $self->{currency}, $self->{transdate}, $fld);
|
|
| 2609 |
$self->check_exchangerate($myconfig, $self->{currency}, $self->{transdate}, $fld);
|
|
| 2610 | 2610 |
my $index = 0; |
| 2611 | 2611 |
|
| 2612 | 2612 |
# store amounts in {acc_trans}{$key} for multiple accounts
|
| 2613 | 2613 |
while (my $ref = $sth->fetchrow_hashref("NAME_lc")) {
|
| 2614 | 2614 |
$ref->{exchangerate} =
|
| 2615 |
$self->get_exchangerate($dbh, $self->{currency}, $ref->{transdate}, $fld);
|
|
| 2615 |
$self->check_exchangerate($myconfig, $self->{currency}, $ref->{transdate}, $fld);
|
|
| 2616 | 2616 |
if (!($xkeyref{ $ref->{accno} } =~ /tax/)) {
|
| 2617 | 2617 |
$index++; |
| 2618 | 2618 |
} |
| ... | ... | |
| 2664 | 2664 |
|
| 2665 | 2665 |
# get exchangerate for currency |
| 2666 | 2666 |
$self->{exchangerate} =
|
| 2667 |
$self->get_exchangerate($dbh, $self->{currency}, $self->{transdate}, $fld);
|
|
| 2667 |
$self->check_exchangerate($myconfig, $self->{currency}, $self->{transdate}, $fld);
|
|
| 2668 | 2668 |
|
| 2669 | 2669 |
} |
| 2670 | 2670 |
|
| SL/IR.pm | ||
|---|---|---|
| 1009 | 1009 |
$form->{mtime} = $form->{itime} if !$form->{mtime};
|
| 1010 | 1010 |
$form->{lastmtime} = $form->{mtime};
|
| 1011 | 1011 |
|
| 1012 |
$form->{exchangerate} = $form->get_exchangerate($dbh, $form->{currency}, $form->{invdate}, "sell");
|
|
| 1012 |
$form->{exchangerate} = $form->check_exchangerate($myconfig, $form->{currency}, $form->{invdate}, "sell");
|
|
| 1013 | 1013 |
|
| 1014 | 1014 |
# get shipto |
| 1015 | 1015 |
$query = qq|SELECT * FROM shipto WHERE (trans_id = ?) AND (module = 'AP')|; |
| SL/IS.pm | ||
|---|---|---|
| 2303 | 2303 |
$form->{mtime} = $form->{itime} if !$form->{mtime};
|
| 2304 | 2304 |
$form->{lastmtime} = $form->{mtime};
|
| 2305 | 2305 |
|
| 2306 |
$form->{exchangerate} = $form->get_exchangerate($dbh, $form->{currency}, $form->{invdate}, "buy");
|
|
| 2306 |
$form->{exchangerate} = $form->check_exchangerate($myconfig, $form->{currency}, $form->{invdate}, "buy");
|
|
| 2307 | 2307 |
|
| 2308 | 2308 |
foreach my $vc (qw(customer vendor)) {
|
| 2309 | 2309 |
next if !$form->{"delivery_${vc}_id"};
|
| SL/OE.pm | ||
|---|---|---|
| 1410 | 1410 |
|
| 1411 | 1411 |
} |
| 1412 | 1412 |
|
| 1413 |
$form->{exchangerate} = $form->get_exchangerate($dbh, $form->{currency}, $form->{transdate}, ($form->{vc} eq 'customer') ? "buy" : "sell");
|
|
| 1413 |
$form->{exchangerate} = $form->check_exchangerate($myconfig, $form->{currency}, $form->{transdate}, ($form->{vc} eq 'customer') ? "buy" : "sell");
|
|
| 1414 | 1414 |
|
| 1415 | 1415 |
Common::webdav_folder($form); |
| 1416 | 1416 |
|
Auch abrufbar als: Unified diff
get_exchangerate nach check_exchangerate migriert
Die Funktion ist bis auf die eingehenden Parameter identisch