Revision 79c048aa
Von Niclas Zimmermann vor mehr als 11 Jahren hinzugefügt
| SL/IS.pm | ||
|---|---|---|
| 154 | 154 |
partnotes serialnumber reqdate sellprice listprice netprice |
| 155 | 155 |
discount p_discount discount_sub nodiscount_sub |
| 156 | 156 |
linetotal nodiscount_linetotal tax_rate projectnumber projectdescription |
| 157 |
price_factor price_factor_name partsgroup); |
|
| 157 |
price_factor price_factor_name partsgroup weight lineweight);
|
|
| 158 | 158 |
|
| 159 | 159 |
push @arrays, map { "ic_cvar_$_->{name}" } @{ $ic_cvar_configs };
|
| 160 | 160 |
|
| ... | ... | |
| 164 | 164 |
|
| 165 | 165 |
map { $form->{TEMPLATE_ARRAYS}->{$_} = [] } (@arrays, @tax_arrays, @payment_arrays);
|
| 166 | 166 |
|
| 167 |
my $totalweight = 0; |
|
| 167 | 168 |
foreach $item (sort { $a->[1] cmp $b->[1] } @partsgroup) {
|
| 168 | 169 |
$i = $item->[0]; |
| 169 | 170 |
|
| ... | ... | |
| 280 | 281 |
push(@{ $form->{TEMPLATE_ARRAYS}->{projectnumber} }, $projectnumbers{$form->{"project_id_$i"}});
|
| 281 | 282 |
push(@{ $form->{TEMPLATE_ARRAYS}->{projectdescription} }, $projectdescriptions{$form->{"project_id_$i"}});
|
| 282 | 283 |
|
| 284 |
my $lineweight = $form->{"qty_$i"} * $form->{"weight_$i"};
|
|
| 285 |
$totalweight += $lineweight; |
|
| 286 |
push @{ $form->{TEMPLATE_ARRAYS}->{weight} }, $form->format_amount($myconfig, $form->{"weight_$i"}, 3);
|
|
| 287 |
push @{ $form->{TEMPLATE_ARRAYS}->{weight_nofmt} }, $form->{"weight_$i"};
|
|
| 288 |
push @{ $form->{TEMPLATE_ARRAYS}->{lineweight} }, $form->format_amount($myconfig, $lineweight, 3);
|
|
| 289 |
push @{ $form->{TEMPLATE_ARRAYS}->{lineweight_nofmt} }, $lineweight;
|
|
| 290 |
|
|
| 283 | 291 |
@taxaccounts = split(/ /, $form->{"taxaccounts_$i"});
|
| 284 | 292 |
$taxrate = 0; |
| 285 | 293 |
$taxdiff = 0; |
| ... | ... | |
| 366 | 374 |
} |
| 367 | 375 |
} |
| 368 | 376 |
|
| 377 |
$form->{totalweight} = $form->format_amount($myconfig, $totalweight, 3);
|
|
| 378 |
$form->{totalweight_nofmt} = $totalweight;
|
|
| 379 |
|
|
| 369 | 380 |
foreach my $item (sort keys %taxaccounts) {
|
| 370 | 381 |
$tax += $taxamount = $form->round_amount($taxaccounts{$item}, 2);
|
| 371 | 382 |
|
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.