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

diff --git a/SL/IS.pm b/SL/IS.pm
index bf52d5223d26217c80d92cfd74b5d04f55b15c3e..e7a9178c5f11e52b4c14e575b64c063e34632a2b 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 10b52e5c9f6e7a4f48c5eea273b621dcfac5a607..3c10dd38ee7a6b987d313d7467e7c91d125fe9f9 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