From 613c0749a46dd4e5e0dbec1f3f1997c77f55fffb Mon Sep 17 00:00:00 2001 From: Moritz Bunkus Date: Thu, 12 Feb 2009 14:39:41 +0000 Subject: [PATCH] =?utf8?q?Die=20Warengruppe=20beim=20Ausdruck=20der=20Vorl?= =?utf8?q?age=20zur=20Verf=C3=BCgung=20stellen.?= MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit --- SL/IS.pm | 3 ++- SL/OE.pm | 3 ++- 2 files changed, 4 insertions(+), 2 deletions(-) diff --git a/SL/IS.pm b/SL/IS.pm index 62cbf5369..d011a083b 100644 --- a/SL/IS.pm +++ b/SL/IS.pm @@ -143,7 +143,7 @@ sub invoice_details { partnotes serialnumber reqdate sellprice listprice netprice discount p_discount discount_sub nodiscount_sub linetotal nodiscount_linetotal tax_rate projectnumber - price_factor price_factor_name); + price_factor price_factor_name partsgroup); my @tax_arrays = qw(taxbase tax taxdescription taxrate taxnumber); @@ -196,6 +196,7 @@ sub invoice_details { push @{ $form->{invdate} }, $form->{"invdate"}; push @{ $form->{price_factor} }, $price_factor->{formatted_factor}; push @{ $form->{price_factor_name} }, $price_factor->{description}; + push @{ $form->{partsgroup} }, $form->{"partsgroup_$i"}; if ($form->{lizenzen}) { if ($form->{"licensenumber_$i"}) { diff --git a/SL/OE.pm b/SL/OE.pm index f700c357d..b8250123f 100644 --- a/SL/OE.pm +++ b/SL/OE.pm @@ -958,7 +958,7 @@ sub order_details { partnotes serialnumber reqdate sellprice listprice netprice discount p_discount discount_sub nodiscount_sub linetotal nodiscount_linetotal tax_rate projectnumber - price_factor price_factor_name); + price_factor price_factor_name partsgroup); my $sameitem = ""; foreach $item (sort { $a->[1] cmp $b->[1] } @partsgroup) { @@ -1008,6 +1008,7 @@ sub order_details { push @{ $form->{listprice} }, $form->{"listprice_$i"}; push @{ $form->{price_factor} }, $price_factor->{formatted_factor}; push @{ $form->{price_factor_name} }, $price_factor->{description}; + push @{ $form->{partsgroup} }, $form->{"partsgroup_$i"}; my $sellprice = $form->parse_amount($myconfig, $form->{"sellprice_$i"}); my ($dec) = ($sellprice =~ /\.(\d+)/); -- 2.20.1