Revision 40a94352
Von Jan Büren vor fast 2 Jahren hinzugefügt
| bin/mozilla/is.pl | ||
|---|---|---|
| 858 | 858 |
if (!$form->{forex}) { # read exchangerate from input field (not hidden)
|
| 859 | 859 |
$form->{exchangerate} = $form->parse_amount(\%myconfig, $form->{exchangerate}) unless $recursive_call;
|
| 860 | 860 |
} |
| 861 |
$form->{forex} = $form->check_exchangerate(\%myconfig, $form->{currency}, $form->{invdate}, 'buy');
|
|
| 861 |
($form->{forex}, $form->{record_forex}) = $form->check_exchangerate(\%myconfig, $form->{currency},
|
|
| 862 |
$form->{invdate}, 'buy', $form->{id}, 'ar');
|
|
| 862 | 863 |
$form->{exchangerate} = $form->{forex} if $form->{forex};
|
| 863 |
|
|
| 864 | 864 |
for my $i (1 .. $form->{paidaccounts}) {
|
| 865 | 865 |
next unless $form->{"paid_$i"};
|
| 866 | 866 |
map { $form->{"${_}_$i"} = $form->parse_amount(\%myconfig, $form->{"${_}_$i"}) } qw(paid exchangerate);
|
Auch abrufbar als: Unified diff
Wechselkurs beim Laden des Belegs in form_header oder retrieve_invoice holen