Nachkommastellen in Erzeugniskomponenten » erzeugnis.patch
| bin/mozilla/io.pl 2015-02-24 16:11:02.000000000 +0100 | ||
|---|---|---|
| 540 | 540 |
my $id = delete($form->{select_item_id}) || croak 'Missing item selection ID';
|
| 541 | 541 |
my $i = $form->{ $mode eq 'IC' ? 'assembly_rows' : 'rowcount' };
|
| 542 | 542 | |
| 543 |
for my $j (1 .. $i-1) {$form->{"qty_$j"}= $form->parse_amount(\%myconfig, $form->{"qty_$j"});}
|
|
| 544 |
|
|
| 543 | 545 |
$form->{"id_${i}"} = $id;
|
| 544 | 546 | |
| 545 | 547 |
if ($mode eq 'IS') {
|
| ... | ... | |
| 594 | 596 |
$::form->{"sellprice_$i"} *= 1 - $::form->{tradediscount};
|
| 595 | 597 |
} |
| 596 | 598 |
} |
| 597 | ||
| 599 |
$form->{"qty_$i"}= $form->parse_amount(\%myconfig, $form->{"qty_$i"});
|
|
| 598 | 600 |
map { $form->{$_} = $form->parse_amount(\%myconfig, $form->{$_}) }
|
| 599 |
qw(sellprice listprice weight); |
|
| 601 |
qw(sellprice listprice weight qty);
|
|
| 600 | 602 | |
| 601 | 603 |
$form->{weight} += ($form->{"weight_$i"} * $form->{"qty_$i"});
|
| 602 | 604 | |
| ... | ... | |
| 694 | 696 |
push @a, {};
|
| 695 | 697 |
my $j = $#a; |
| 696 | 698 | |
| 697 |
$form->{"qty_$i"} = $form->parse_amount(\%myconfig, $form->{"qty_$i"});
|
|
| 699 |
$form->{"qty_$i"} = $form->parse_amount(\%myconfig, $form->{"qty_$i"});
|
|
| 698 | 700 | |
| 699 | 701 |
map { $a[$j]->{$_} = $form->{"${_}_$i"} } @flds;
|
| 700 | 702 | |