From c35e1e2fb21b8cff496188f80eec919367262618 Mon Sep 17 00:00:00 2001 From: Moritz Bunkus Date: Wed, 22 Jul 2009 17:30:34 +0200 Subject: [PATCH] Beim Ausdrucken von Lieferscheinen die Lieferanteninformationen der Artikel aus der Datenbank holen. --- SL/DO.pm | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/SL/DO.pm b/SL/DO.pm index e555dc273..5f8ab5227 100644 --- 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::IC; sub transactions { $main::lxdebug->enter_sub(); @@ -776,12 +777,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 = ""; -- 2.20.1