Revision 2d1975a8
Von Jan Büren vor etwa 2 Jahren hinzugefügt
| bin/mozilla/is.pl | ||
|---|---|---|
| 852 | 852 |
if (!$form->{forex}) { # read exchangerate from input field (not hidden)
|
| 853 | 853 |
$form->{exchangerate} = $form->parse_amount(\%myconfig, $form->{exchangerate}) unless $recursive_call;
|
| 854 | 854 |
} |
| 855 |
$form->{forex} = $form->check_exchangerate(\%myconfig, $form->{currency}, $form->{invdate}, 'buy');
|
|
| 855 |
($form->{forex}, $form->{record_forex}) = $form->check_exchangerate(\%myconfig, $form->{currency},
|
|
| 856 |
$form->{invdate}, 'buy', $form->{id}, 'ar');
|
|
| 856 | 857 |
$form->{exchangerate} = $form->{forex} if $form->{forex};
|
| 857 |
|
|
| 858 | 858 |
for my $i (1 .. $form->{paidaccounts}) {
|
| 859 | 859 |
next unless $form->{"paid_$i"};
|
| 860 | 860 |
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