From 9aa9c056156234d40aada2164ce7f6c4973368b2 Mon Sep 17 00:00:00 2001 From: Udo Spallek Date: Wed, 17 Jan 2007 17:27:15 +0000 Subject: [PATCH] Solved Bug 503: Weitere Vorkommen von p_discount eingefuegt. Bitte testen! Siehe auch http://lx-office.org/forum/forum_entry.php?id=3478 --- SL/OE.pm | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/SL/OE.pm b/SL/OE.pm index 8af63e6aa..e8127a27d 100644 --- a/SL/OE.pm +++ b/SL/OE.pm @@ -1183,7 +1183,9 @@ sub order_details { while (my $ref = $sth->fetchrow_hashref(NAME_lc)) { if ($form->{groupitems} && $ref->{partsgroup} ne $sameitem) { map { push(@{ $form->{$_} }, "") } - qw(runningnumber ship bin serialnumber number unit bin qty reqdate sellprice listprice netprice discount linetotal nodiscount_linetotal); + qw(runningnumber ship bin serialnumber number unit bin qty + reqdate sellprice listprice netprice discount p_discount + linetotal nodiscount_linetotal); $sameitem = ($ref->{partsgroup}) ? $ref->{partsgroup} : "--"; push(@{ $form->{description} }, $sameitem); } @@ -1194,7 +1196,9 @@ sub order_details { . qq|, $ref->{partnumber}, $ref->{description}|); map { push(@{ $form->{$_} }, "") } - qw(number unit qty runningnumber ship bin serialnumber reqdate sellprice listprice netprice discount linetotal nodiscount_linetotal); + qw(number unit qty runningnumber ship bin serialnumber reqdate + sellprice listprice netprice discount p_discount linetotal + nodiscount_linetotal); } $sth->finish; -- 2.20.1