From: Udo Spallek <info@wissensvermittlung.com>
Date: Wed, 17 Jan 2007 17:27:15 +0000 (+0000)
Subject: Solved Bug 503: Weitere Vorkommen von p_discount eingefuegt. Bitte testen!
X-Git-Tag: release-2.4.1~1^2~27
X-Git-Url: http://wagnertech.de/git?a=commitdiff_plain;h=9aa9c056156234d40aada2164ce7f6c4973368b2;p=kivitendo-erp.git

Solved Bug 503: Weitere Vorkommen von p_discount eingefuegt. Bitte testen!
Siehe auch
http://lx-office.org/forum/forum_entry.php?id=3478
---

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;