Revision a53233e5
Von Sven Schöling vor mehr als 16 Jahren hinzugefügt
| bin/mozilla/ap.pl | ||
|---|---|---|
| 223 | 223 |
} |
| 224 | 224 |
$readonly = ($form->{id}) ? "readonly" : "";
|
| 225 | 225 |
|
| 226 |
$form->{radier} =
|
|
| 227 |
($form->current_date(\%myconfig) eq $form->{gldate}) ? 1 : 0;
|
|
| 228 |
$readonly = ($form->{radier}) ? "" : $readonly;
|
|
| 226 |
$form->{radier} = ($form->current_date(\%myconfig) eq $form->{gldate}) ? 1 : 0;
|
|
| 227 |
$readonly = ($form->{radier}) ? "" : $readonly;
|
|
| 229 | 228 |
|
| 230 |
$form->{exchangerate} = $exchangerate
|
|
| 231 |
if ( |
|
| 232 |
$form->{forex} = (
|
|
| 233 |
$exchangerate = |
|
| 234 |
$form->check_exchangerate( |
|
| 235 |
\%myconfig, $form->{currency}, $form->{transdate}, 'sell'
|
|
| 236 |
))); |
|
| 229 |
$form->{forex} = $form->check_exchangerate( \%myconfig, $form->{currency}, $form->{transdate}, 'sell');
|
|
| 230 |
$form->{exchangerate} = $form->{forex} if $form->{forex};
|
|
| 237 | 231 |
|
| 238 | 232 |
|
| 239 | 233 |
# format amounts |
| ... | ... | |
| 898 | 892 |
|
| 899 | 893 |
map { $form->{invtotal} += $form->{"amount_$_"} } (1 .. $form->{rowcount});
|
| 900 | 894 |
|
| 901 |
$form->{exchangerate} = $exchangerate
|
|
| 902 |
if ( |
|
| 903 |
$form->{forex} = (
|
|
| 904 |
$exchangerate = |
|
| 905 |
$form->check_exchangerate( |
|
| 906 |
\%myconfig, $form->{currency}, $form->{transdate}, 'sell'
|
|
| 907 |
))); |
|
| 895 |
$form->{forex} = $form->check_exchangerate( \%myconfig, $form->{currency}, $form->{transdate}, 'sell');
|
|
| 896 |
$form->{exchangerate} = $form->{forex} if $form->{forex};
|
|
| 908 | 897 |
|
| 909 | 898 |
$form->{invdate} = $form->{transdate};
|
| 910 | 899 |
$save_AP = $form->{AP};
|
| ... | ... | |
| 925 | 914 |
|
| 926 | 915 |
$totalpaid += $form->{"paid_$i"};
|
| 927 | 916 |
|
| 928 |
$form->{"exchangerate_$i"} = $exchangerate
|
|
| 929 |
if ( |
|
| 930 |
$form->{"forex_$i"} = (
|
|
| 931 |
$exchangerate = |
|
| 932 |
$form->check_exchangerate( |
|
| 933 |
\%myconfig, $form->{currency}, $form->{"datepaid_$i"}, 'sell'
|
|
| 934 |
))); |
|
| 917 |
$form->{"forex_$i"} = $form->check_exchangerate( \%myconfig, $form->{currency}, $form->{"datepaid_$i"}, 'sell');
|
|
| 918 |
$form->{"exchangerate_$i"} = $form->{"forex_$i"} if $form->{"forex_$i"};
|
|
| 935 | 919 |
} |
| 936 | 920 |
} |
| 937 | 921 |
|
Auch abrufbar als: Unified diff
Wechselkurse.
Zum einen den unsaeglichen Algorithmus zum setzen von exchangerate und forex im ganzen Porgramm geaendert.
Dann einen Bug mit der Angzeige der Wechselkurseingabe in oe.pl gefixt.
Ausserdem Bug 666 gefixt.