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