Revision 0f33c880
Von Moritz Bunkus vor mehr als 16 Jahren hinzugefügt
| bin/mozilla/do.pl | ||
|---|---|---|
| 905 | 905 |
my $stock_info = []; |
| 906 | 906 |
|
| 907 | 907 |
foreach my $i (1..$form->{rowcount}) {
|
| 908 |
$form->{"qty_$i"} = $form->parse_amount(\%myconfig, $form->{"qty_$i"});
|
|
| 908 | 909 |
push @{ $stock_info }, { map { $_ => $form->{"${_}_${i}"} } qw(warehouse_id bin_id chargenumber qty unit) };
|
| 909 | 910 |
} |
| 910 |
$main::lxdebug->dump(0, "si", $stock_info); |
|
| 911 | 911 |
|
| 912 | 912 |
display_stock_in_form($stock_info); |
| 913 | 913 |
|
Auch abrufbar als: Unified diff
Bei Eingangslieferscheinen wurden Nachkommastellen beim Lagereingang abgeschnitten. Debugcode entfernt.