Revision a1358f12
Von Sven Schöling vor etwa 14 Jahren hinzugefügt
| bin/mozilla/do.pl | ||
|---|---|---|
|
map { $form->{"${_}_$form->{rowcount}"} = $ref->{$_} } keys %{ $ref };
|
||
|
map { $form->{"${_}_$form->{rowcount}"} = $form->format_amount(\%myconfig, $ref->{$_}) } qw(qty sellprice lastcost);
|
||
|
|
||
|
if ($vc_discount){ # falls wir einen Lieferanten/Kundenrabatt haben
|
||
|
if ($vc_discount){ # falls wir einen Lieferanten/Kundenrabatt haben
|
||
|
# und keinen anderen discount wert an $i ...
|
||
|
$form->{"discount_$form->{rowcount}"} ||= $vc_discount; # ... nehmen wir diesen Rabatt
|
||
|
}
|
||
| ... | ... | |
|
foreach my $request (@{ DO->unpack_stock_information('packed' => $form->{"stock_out_$i"}) }) {
|
||
|
$request->{parts_id} = $form->{"id_$i"};
|
||
|
$request->{base_qty} = $request->{qty} * $units->{$request->{unit}}->{factor} / $base_unit_factor;
|
||
|
$request->{project_id} = $form->{"project_id_$i"} ? $form->{"project_id_$i"} : $form->{globalproject_id};
|
||
|
$request->{project_id} = $form->{"project_id_$i"} ? $form->{"project_id_$i"} : $form->{globalproject_id};
|
||
|
|
||
|
my $map_key = join '--', ($form->{"id_$i"}, @{$request}{qw(warehouse_id bin_id chargenumber bestbefore)});
|
||
|
|
||
Auch abrufbar als: Unified diff
Fixt eure Editoren!