Merge branch 'master' of ssh://lx-office/~/lx-office-erp

[mfinanz.git] / SL / DO.pm

diff --git a/SL/DO.pm b/SL/DO.pm
index e847f5e3387556fbde2a681a68c809e6fb8e5dbd..f2675d3e9752c60ca9300e0a0b72f158798bd7a7 100644 (file)
--- a/SL/DO.pm
+++ b/SL/DO.pm
@@ -41,6 +41,7 @@ use SL::Common;
 use SL::CVar;
 use SL::DBUtils;
 use SL::RecordLinks;
 use SL::CVar;
 use SL::DBUtils;
 use SL::RecordLinks;

+use SL::IC;

 
 sub transactions {
   $main::lxdebug->enter_sub();
 
 sub transactions {
   $main::lxdebug->enter_sub();


@@ -777,12 +778,17 @@ sub order_details {
 
   my $ic_cvar_configs = CVar->get_configs(module => 'IC');
 
 
   my $ic_cvar_configs = CVar->get_configs(module => 'IC');
 

+  $form->{TEMPLATE_ARRAYS} = { };
+  IC->prepare_parts_for_printing();
+

   my @arrays =
     qw(runningnumber number description longdescription qty unit
        partnotes serialnumber reqdate projectnumber
        si_runningnumber si_number si_description
        si_warehouse si_bin si_chargenumber si_qty si_unit);
 
   my @arrays =
     qw(runningnumber number description longdescription qty unit
        partnotes serialnumber reqdate projectnumber
        si_runningnumber si_number si_description
        si_warehouse si_bin si_chargenumber si_qty si_unit);
 

+  map { $form->{TEMPLATE_ARRAYS}->{$_} = [] } (@arrays, @tax_arrays);
+

   push @arrays, map { "ic_cvar_$_->{name}" } @{ $ic_cvar_configs };
 
   my $sameitem = "";
   push @arrays, map { "ic_cvar_$_->{name}" } @{ $ic_cvar_configs };
 
   my $sameitem = "";