Revision 57fae76e
Von Moritz Bunkus vor fast 18 Jahren hinzugefügt
| bin/mozilla/io.pl | ||
|---|---|---|
| 1171 | 1171 |
\%myconfig, $form->{currency}, $form->{transdate}, $buysell
|
| 1172 | 1172 |
))); |
| 1173 | 1173 |
|
| 1174 |
for $i (1 .. $form->{rowcount}) {
|
|
| 1175 |
map({ $form->{"${_}_${i}"} = $form->parse_amount(\%myconfig,
|
|
| 1176 |
$form->{"${_}_${i}"})
|
|
| 1177 |
if ($form->{"${_}_${i}"}) }
|
|
| 1178 |
qw(ship qty sellprice listprice basefactor)); |
|
| 1179 |
} |
|
| 1180 |
|
|
| 1174 | 1181 |
&prepare_order; |
| 1175 | 1182 |
&display_form; |
| 1176 | 1183 |
|
| ... | ... | |
| 1224 | 1231 |
\%myconfig, $form->{currency}, $form->{transdate}, $buysell
|
| 1225 | 1232 |
))); |
| 1226 | 1233 |
|
| 1234 |
for $i (1 .. $form->{rowcount}) {
|
|
| 1235 |
map({ $form->{"${_}_${i}"} = $form->parse_amount(\%myconfig,
|
|
| 1236 |
$form->{"${_}_${i}"})
|
|
| 1237 |
if ($form->{"${_}_${i}"}) }
|
|
| 1238 |
qw(ship qty sellprice listprice basefactor)); |
|
| 1239 |
} |
|
| 1240 |
|
|
| 1227 | 1241 |
&prepare_order; |
| 1228 | 1242 |
&display_form; |
| 1229 | 1243 |
|
Auch abrufbar als: Unified diff
Umwandeln in Angebot und Auftrag: prepare_order erwartet, dass die Zahlen bereits geparst sind.