Revision fb37acdc
Von Moritz Bunkus vor mehr als 17 Jahren hinzugefügt
| bin/mozilla/ap.pl | ||
|---|---|---|
| 213 | 213 |
($form->current_date(\%myconfig) eq $form->{gldate}) ? 1 : 0;
|
| 214 | 214 |
$readonly = ($form->{radier}) ? "" : $readonly;
|
| 215 | 215 |
|
| 216 |
$form->{exchangerate} = $exchangerate
|
|
| 217 |
if ( |
|
| 218 |
$form->{forex} = (
|
|
| 219 |
$exchangerate = |
|
| 220 |
$form->check_exchangerate( |
|
| 221 |
\%myconfig, $form->{currency}, $form->{transdate}, 'sell'
|
|
| 222 |
))); |
|
| 223 |
|
|
| 224 |
|
|
| 216 | 225 |
# format amounts |
| 217 | 226 |
$form->{exchangerate} =
|
| 218 | 227 |
$form->format_amount(\%myconfig, $form->{exchangerate});
|
| 219 |
|
|
| 228 |
if ($form->{exchangerate} == 0) {
|
|
| 229 |
$form->{exchangerate} = "";
|
|
| 230 |
} |
|
| 220 | 231 |
$form->{creditlimit} =
|
| 221 | 232 |
$form->format_amount(\%myconfig, $form->{creditlimit}, 0, "0");
|
| 222 | 233 |
$form->{creditremaining} =
|
| ... | ... | |
| 647 | 658 |
} |
| 648 | 659 |
$form->{"exchangerate_$i"} =
|
| 649 | 660 |
$form->format_amount(\%myconfig, $form->{"exchangerate_$i"});
|
| 661 |
if ($form->{"exchangerate_$i"} == 0) {
|
|
| 662 |
$form->{"exchangerate_$i"} = "";
|
|
| 663 |
} |
|
| 650 | 664 |
|
| 651 | 665 |
$exchangerate = qq| |; |
| 652 | 666 |
if ($form->{currency} ne $form->{defaultcurrency}) {
|
Auch abrufbar als: Unified diff
Probleme mit mehreren Währungen und Wechselkursen behoben.