Revision a986adb2
Von Jan Büren vor etwa 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 | ||
---|---|---|
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 |
|
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 | ||
---|---|---|
2291 | 2291 |
$form->{mtime} = $form->{itime} if !$form->{mtime}; |
2292 | 2292 |
$form->{lastmtime} = $form->{mtime}; |
2293 | 2293 |
|
2294 |
$form->{exchangerate} = $form->get_exchangerate($dbh, $form->{currency}, $form->{invdate}, "buy");
|
|
2294 |
$form->{exchangerate} = $form->check_exchangerate($myconfig, $form->{currency}, $form->{invdate}, "buy");
|
|
2295 | 2295 |
|
2296 | 2296 |
foreach my $vc (qw(customer vendor)) { |
2297 | 2297 |
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