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

diff --combined SL/DO.pm
index e847f5e3387556fbde2a681a68c809e6fb8e5dbd,5f8ab5227caf42dc32a95ba1dc7d25dba354a99a..f2675d3e9752c60ca9300e0a0b72f158798bd7a7
--- 1/SL/DO.pm
--- 2/SL/DO.pm
+++ b/SL/DO.pm
@@@ -41,6 -41,7 +41,7 @@@ use SL::Common
  use SL::CVar;
  use SL::DBUtils;
  use SL::RecordLinks;
+ use SL::IC;
  
  sub transactions {
    $main::lxdebug->enter_sub();
@@@ -108,8 -109,7 +109,8 @@@
      push @values, '%' . $form->{$item} . '%';
    }
  
 -  if (!($form->{open} && $form->{closed})) {
 +  if (($form->{open} || $form->{closed}) &&
 +      ($form->{open} ne $form->{closed})) {
      push @where, ($form->{open} ? "NOT " : "") . "COALESCE(dord.closed, FALSE)";
    }
  
@@@ -777,12 -777,17 +778,17 @@@ sub order_details 
  
    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);
  
+   map { $form->{TEMPLATE_ARRAYS}->{$_} = [] } (@arrays, @tax_arrays);
+ 
    push @arrays, map { "ic_cvar_$_->{name}" } @{ $ic_cvar_configs };
  
    my $sameitem = "";