Nachkommastellen in Erzeugniskomponenten » erzeugnis.patch
| bin/mozilla/io.pl 2015-02-24 16:11:02.000000000 +0100 | ||
|---|---|---|
|
my $id = delete($form->{select_item_id}) || croak 'Missing item selection ID';
|
||
|
my $i = $form->{ $mode eq 'IC' ? 'assembly_rows' : 'rowcount' };
|
||
|
for my $j (1 .. $i-1) {$form->{"qty_$j"}= $form->parse_amount(\%myconfig, $form->{"qty_$j"});}
|
||
|
|
||
|
$form->{"id_${i}"} = $id;
|
||
|
if ($mode eq 'IS') {
|
||
| ... | ... | |
|
$::form->{"sellprice_$i"} *= 1 - $::form->{tradediscount};
|
||
|
}
|
||
|
}
|
||
|
$form->{"qty_$i"}= $form->parse_amount(\%myconfig, $form->{"qty_$i"});
|
||
|
map { $form->{$_} = $form->parse_amount(\%myconfig, $form->{$_}) }
|
||
|
qw(sellprice listprice weight);
|
||
|
qw(sellprice listprice weight qty);
|
||
|
$form->{weight} += ($form->{"weight_$i"} * $form->{"qty_$i"});
|
||
| ... | ... | |
|
push @a, {};
|
||
|
my $j = $#a;
|
||
|
$form->{"qty_$i"} = $form->parse_amount(\%myconfig, $form->{"qty_$i"});
|
||
|
$form->{"qty_$i"} = $form->parse_amount(\%myconfig, $form->{"qty_$i"});
|
||
|
map { $a[$j]->{$_} = $form->{"${_}_$i"} } @flds;
|
||