Beim Ausdruck wurde der Rabattbetrag nicht anständig auf ein Array gepackt, weil...

diff --git a/SL/IS.pm b/SL/IS.pm
index bf52d52..e7a9178 100644 (file)
--- a/SL/IS.pm
+++ b/SL/IS.pm
@@ -130,6 +130,8 @@ sub invoice_details {
   my $subtotal_header = 0;
   my $subposition = 0;
 
+  $form->{discount} = [];
+
   my @arrays =
     qw(runningnumber number description longdescription qty ship unit bin
        deliverydate_oe ordnumber_oe transdate_oe licensenumber validuntil

diff --git a/SL/OE.pm b/SL/OE.pm
index 10b52e5..3c10dd3 100644 (file)
--- a/SL/OE.pm
+++ b/SL/OE.pm
@@ -945,6 +945,8 @@ sub order_details {
 
   $form->{"globalprojectnumber"} = $projectnumbers{$form->{"globalproject_id"}};
 
+  $form->{discount} = [];
+
   my @arrays =
     qw(runningnumber number description longdescription qty ship unit bin
        partnotes serialnumber reqdate sellprice listprice netprice