Revision d316e88e
Von Moritz Bunkus vor fast 18 Jahren hinzugefügt
| bin/mozilla/oe.pl | ||
|---|---|---|
| 2141 | 2141 |
|
| 2142 | 2142 |
$form->{cp_id} *= 1;
|
| 2143 | 2143 |
|
| 2144 |
for $i (1 .. $form->{rowcount}) {
|
|
| 2145 |
map({ $form->{"${_}_${i}"} = $form->parse_amount(\%myconfig,
|
|
| 2146 |
$form->{"${_}_${i}"})
|
|
| 2147 |
if ($form->{"${_}_${i}"}) }
|
|
| 2148 |
qw(ship qty sellprice listprice basefactor)); |
|
| 2149 |
} |
|
| 2150 |
|
|
| 2144 | 2151 |
if ( $form->{type} =~ /_order/
|
| 2145 | 2152 |
&& $form->{currency} ne $form->{defaultcurrency}) {
|
| 2146 | 2153 |
|
| ... | ... | |
| 2230 | 2237 |
|
| 2231 | 2238 |
$form->{creditremaining} -= ($form->{oldinvtotal} - $form->{ordtotal});
|
| 2232 | 2239 |
|
| 2233 |
for $i (1 .. $form->{rowcount}) {
|
|
| 2234 |
map({ $form->{"${_}_${i}"} = $form->parse_amount(\%myconfig,
|
|
| 2235 |
$form->{"${_}_${i}"})
|
|
| 2236 |
if ($form->{"${_}_${i}"}) }
|
|
| 2237 |
qw(ship qty sellprice listprice basefactor)); |
|
| 2238 |
} |
|
| 2239 |
|
|
| 2240 | 2240 |
&prepare_invoice; |
| 2241 | 2241 |
|
| 2242 | 2242 |
# format amounts |
Auch abrufbar als: Unified diff
create_backorder() erwartet die Zahlen bereits geparst.