Revision f95e112a
Von Jan Büren vor mehr als 2 Jahren hinzugefügt
| SL/CP.pm | ||
|---|---|---|
|
|
||
|
# if this is a foreign currency transaction get exchangerate
|
||
|
$ref->{exchangerate} =
|
||
|
$form->get_exchangerate($dbh, $ref->{curr}, $ref->{transdate}, $buysell)
|
||
|
$form->check_exchangerate($myconfig, $ref->{curr}, $ref->{transdate}, $buysell)
|
||
|
if ($form->{currency} ne $form->{defaultcurrency});
|
||
|
push @{ $form->{PR} }, $ref;
|
||
|
}
|
||
| 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);
|
||
|
|
||
|
}
|
||
|
|
||
| SL/IR.pm | ||
|---|---|---|
|
$form->{mtime} = $form->{itime} if !$form->{mtime};
|
||
|
$form->{lastmtime} = $form->{mtime};
|
||
|
|
||
|
$form->{exchangerate} = $form->get_exchangerate($dbh, $form->{currency}, $form->{invdate}, "sell");
|
||
|
$form->{exchangerate} = $form->check_exchangerate($myconfig, $form->{currency}, $form->{invdate}, "sell");
|
||
|
|
||
|
# get shipto
|
||
|
$query = qq|SELECT * FROM shipto WHERE (trans_id = ?) AND (module = 'AP')|;
|
||
| SL/IS.pm | ||
|---|---|---|
|
$form->{mtime} = $form->{itime} if !$form->{mtime};
|
||
|
$form->{lastmtime} = $form->{mtime};
|
||
|
|
||
|
$form->{exchangerate} = $form->get_exchangerate($dbh, $form->{currency}, $form->{invdate}, "buy");
|
||
|
$form->{exchangerate} = $form->check_exchangerate($myconfig, $form->{currency}, $form->{invdate}, "buy");
|
||
|
|
||
|
foreach my $vc (qw(customer vendor)) {
|
||
|
next if !$form->{"delivery_${vc}_id"};
|
||
| SL/OE.pm | ||
|---|---|---|
|
|
||
|
}
|
||
|
|
||
|
$form->{exchangerate} = $form->get_exchangerate($dbh, $form->{currency}, $form->{transdate}, ($form->{vc} eq 'customer') ? "buy" : "sell");
|
||
|
$form->{exchangerate} = $form->check_exchangerate($myconfig, $form->{currency}, $form->{transdate}, ($form->{vc} eq 'customer') ? "buy" : "sell");
|
||
|
|
||
|
Common::webdav_folder($form);
|
||
|
|
||
Auch abrufbar als: Unified diff
get_exchangerate nach check_exchangerate migriert
Die Funktion ist bis auf die eingehenden Parameter identisch