Revision 02475b7f
Von Sven Schöling vor mehr als 15 Jahren hinzugefügt
| SL/DO.pm | ||
|---|---|---|
| 772 | 772 |
|
| 773 | 773 |
my $price_factor = $price_factors{$form->{"price_factor_id_$i"}} || { 'factor' => 1 };
|
| 774 | 774 |
|
| 775 |
push @{ $form->{runningnumber} }, $position;
|
|
| 776 |
push @{ $form->{number} }, $form->{"partnumber_$i"};
|
|
| 777 |
push @{ $form->{description} }, $form->{"description_$i"};
|
|
| 778 |
push @{ $form->{longdescription} }, $form->{"longdescription_$i"};
|
|
| 779 |
push @{ $form->{qty} }, $form->format_amount($myconfig, $form->{"qty_$i"});
|
|
| 780 |
push @{ $form->{unit} }, $form->{"unit_$i"};
|
|
| 781 |
push @{ $form->{partnotes} }, $form->{"partnotes_$i"};
|
|
| 782 |
push @{ $form->{serialnumber} }, $form->{"serialnumber_$i"};
|
|
| 783 |
push @{ $form->{reqdate} }, $form->{"reqdate_$i"};
|
|
| 784 |
push @{ $form->{projectnumber} }, $projectnumbers{$form->{"project_id_$i"}};
|
|
| 775 |
push @{ $form->{TEMPLATE_ARRAYS}{runningnumber} }, $position;
|
|
| 776 |
push @{ $form->{TEMPLATE_ARRAYS}{number} }, $form->{"partnumber_$i"};
|
|
| 777 |
push @{ $form->{TEMPLATE_ARRAYS}{description} }, $form->{"description_$i"};
|
|
| 778 |
push @{ $form->{TEMPLATE_ARRAYS}{longdescription} }, $form->{"longdescription_$i"};
|
|
| 779 |
push @{ $form->{TEMPLATE_ARRAYS}{qty} }, $form->format_amount($myconfig, $form->{"qty_$i"});
|
|
| 780 |
push @{ $form->{TEMPLATE_ARRAYS}{unit} }, $form->{"unit_$i"};
|
|
| 781 |
push @{ $form->{TEMPLATE_ARRAYS}{partnotes} }, $form->{"partnotes_$i"};
|
|
| 782 |
push @{ $form->{TEMPLATE_ARRAYS}{serialnumber} }, $form->{"serialnumber_$i"};
|
|
| 783 |
push @{ $form->{TEMPLATE_ARRAYS}{reqdate} }, $form->{"reqdate_$i"};
|
|
| 784 |
push @{ $form->{TEMPLATE_ARRAYS}{projectnumber} }, $projectnumbers{$form->{"project_id_$i"}};
|
|
| 785 | 785 |
|
| 786 | 786 |
if ($form->{"assembly_$i"}) {
|
| 787 | 787 |
$sameitem = ""; |
| ... | ... | |
| 819 | 819 |
do_statement($form, $h_bin_wh, $q_bin_wh, conv_i($si->{bin_id}), conv_i($si->{warehouse_id}));
|
| 820 | 820 |
my $bin_wh = $h_bin_wh->fetchrow_hashref(); |
| 821 | 821 |
|
| 822 |
push @{ $form->{si_runningnumber}[$position-1] }, $num_si;
|
|
| 823 |
push @{ $form->{si_number}[$position-1] }, $form->{"partnumber_$i"};
|
|
| 824 |
push @{ $form->{si_description}[$position-1] }, $form->{"description_$i"};
|
|
| 825 |
push @{ $form->{si_warehouse}[$position-1] }, $bin_wh->{warehouse};
|
|
| 826 |
push @{ $form->{si_bin}[$position-1] }, $bin_wh->{bin};
|
|
| 827 |
push @{ $form->{si_chargenumber}[$position-1] }, $si->{chargenumber};
|
|
| 828 |
push @{ $form->{si_qty}[$position-1] }, $form->format_amount($myconfig, $si->{qty} * 1);
|
|
| 829 |
push @{ $form->{si_unit}[$position-1] }, $si->{unit};
|
|
| 822 |
push @{ $form->{TEMPLATE_ARRAYS}{si_runningnumber}[$position-1] }, $num_si;
|
|
| 823 |
push @{ $form->{TEMPLATE_ARRAYS}{si_number}[$position-1] }, $form->{"partnumber_$i"};
|
|
| 824 |
push @{ $form->{TEMPLATE_ARRAYS}{si_description}[$position-1] }, $form->{"description_$i"};
|
|
| 825 |
push @{ $form->{TEMPLATE_ARRAYS}{si_warehouse}[$position-1] }, $bin_wh->{warehouse};
|
|
| 826 |
push @{ $form->{TEMPLATE_ARRAYS}{si_bin}[$position-1] }, $bin_wh->{bin};
|
|
| 827 |
push @{ $form->{TEMPLATE_ARRAYS}{si_chargenumber}[$position-1] }, $si->{chargenumber};
|
|
| 828 |
push @{ $form->{TEMPLATE_ARRAYS}{si_qty}[$position-1] }, $form->format_amount($myconfig, $si->{qty} * 1);
|
|
| 829 |
push @{ $form->{TEMPLATE_ARRAYS}{si_unit}[$position-1] }, $si->{unit};
|
|
| 830 | 830 |
} |
| 831 | 831 |
} |
| 832 | 832 |
} |
Auch abrufbar als: Unified diff
Lieferscheindruckvariablen in den speziellen "TEMPLATE_ARRAYS" namespace ausgelagert.