Revision 79c048aa
Von Niclas Zimmermann vor mehr als 11 Jahren hinzugefügt
| SL/OE.pm | ||
|---|---|---|
| 1120 | 1120 |
partnotes serialnumber reqdate sellprice listprice netprice |
| 1121 | 1121 |
discount p_discount discount_sub nodiscount_sub |
| 1122 | 1122 |
linetotal nodiscount_linetotal tax_rate projectnumber projectdescription |
| 1123 |
price_factor price_factor_name partsgroup); |
|
| 1123 |
price_factor price_factor_name partsgroup weight lineweight);
|
|
| 1124 | 1124 |
|
| 1125 | 1125 |
push @arrays, map { "ic_cvar_$_->{name}" } @{ $ic_cvar_configs };
|
| 1126 | 1126 |
|
| ... | ... | |
| 1128 | 1128 |
|
| 1129 | 1129 |
map { $form->{TEMPLATE_ARRAYS}->{$_} = [] } (@arrays, @tax_arrays);
|
| 1130 | 1130 |
|
| 1131 |
my $totalweight = 0; |
|
| 1131 | 1132 |
my $sameitem = ""; |
| 1132 | 1133 |
foreach $item (sort { $a->[1] cmp $b->[1] } @partsgroup) {
|
| 1133 | 1134 |
$i = $item->[0]; |
| ... | ... | |
| 1242 | 1243 |
push(@{ $form->{TEMPLATE_ARRAYS}->{projectnumber} }, $projectnumbers{$form->{"project_id_$i"}});
|
| 1243 | 1244 |
push(@{ $form->{TEMPLATE_ARRAYS}->{projectdescription} }, $projectdescriptions{$form->{"project_id_$i"}});
|
| 1244 | 1245 |
|
| 1246 |
my $lineweight = $form->{"qty_$i"} * $form->{"weight_$i"};
|
|
| 1247 |
$totalweight += $lineweight; |
|
| 1248 |
push @{ $form->{TEMPLATE_ARRAYS}->{weight} }, $form->format_amount($myconfig, $form->{"weight_$i"}, 3);
|
|
| 1249 |
push @{ $form->{TEMPLATE_ARRAYS}->{weight_nofmt} }, $form->{"weight_$i"};
|
|
| 1250 |
push @{ $form->{TEMPLATE_ARRAYS}->{lineweight} }, $form->format_amount($myconfig, $lineweight, 3);
|
|
| 1251 |
push @{ $form->{TEMPLATE_ARRAYS}->{lineweight_nofmt} }, $lineweight;
|
|
| 1252 |
|
|
| 1245 | 1253 |
my ($taxamount, $taxbase); |
| 1246 | 1254 |
my $taxrate = 0; |
| 1247 | 1255 |
|
| ... | ... | |
| 1308 | 1316 |
} |
| 1309 | 1317 |
} |
| 1310 | 1318 |
|
| 1319 |
$form->{totalweight} = $form->format_amount($myconfig, $totalweight, 3);
|
|
| 1320 |
$form->{totalweight_nofmt} = $totalweight;
|
|
| 1321 |
|
|
| 1311 | 1322 |
my $tax = 0; |
| 1312 | 1323 |
foreach $item (sort keys %taxaccounts) {
|
| 1313 | 1324 |
$tax += $taxamount = $form->round_amount($taxaccounts{$item}, 2);
|
Auch abrufbar als: Unified diff
Gewicht in Druckvorlagen verfügbar machen
Nachdem das Gewicht auf allen Masken (Auftrag, Lieferschein, Rechnung)
angezeigt wird, steht es nun auch in den Druckvorlagen zur Verfügung.