Index: DCTOE.mac.rou
===================================================================
diff -u -r29059 -r32413
--- DCTOE.mac.rou	(.../DCTOE.mac.rou)	(revision 29059)
+++ DCTOE.mac.rou	(.../DCTOE.mac.rou)	(revision 32413)
@@ -1,4 +1,3 @@
-DCTOE ;AFDRUKKEN TOELEVERINGEN [ 01/17/2002  4:18 PM ]
  #Include BL.Derde.Kennis
  #include BL.Derde.LevSpecifiek
  ;
@@ -327,7 +326,7 @@
  New I,R,KenAnk,Msg,Wrap,Lijn
  Do CACHE($S(LEVNr=$$$LevHalux:L("V","F"),1:L("V","B")))
  Set BCount=0
- For I=$LL(lbKenAnk):-1:1 Do
+ For I=$LL(lbKenAnk):-1:1 Do 
  . Set KenAnk=($LI(lbKenAnk,I))
  . Set KennisObject=##class(Derde.Kennis.Kennis).%OpenId(KenAnk)
  . Quit:'$IsObject(KennisObject)
@@ -340,6 +339,7 @@
  . Do PASTEB(L("V","B"),Lijn=Wrap)
  Quit
  ;
+ 
 ORDREF(KLNr,ORDNr) 
  New R,OrdRef
  Set R=$G(^KOD(KLNr,"F",ORDNr,1)),OrdRef=$P(R,D,3)
@@ -356,17 +356,25 @@
 PRINT(TOENr,Sessie,Init,MetFax,SelPrint) 
  New LEVNr,LevInd,Taal,ToelTyp
  New Toelevering set Toelevering = ##class(DOM.DomeinContext).Instance().GeefToeleveringAPI().GeefToelevering(TOENr)
- New C,PCount,LCount,lbKenAnk,KLNr,varErrStr
+ New C,PCount,LCount,KLNr,varErrStr,lbKenAnk
+ 
  Set SelPrint=$G(SelPrint)
  If 0'[SelPrint Do SELPRINT^DCPRINT(SelPrint) Quit:'$D(Print)
  If '$G(Init) Do INIT
  Set PCount=0,ToelTyp=1,lbKenAnk=""
  Set R=^KTO1(TOENr),LEVNr=$P(R,D)
+ 
  If LEVNr=5005,$D(^BLBeri("Z",TOENr)) Set BLBeri=1
  Set R=^KTO(LEVNr,TOENr,1),ToeMunt=$$MUNT^vhRtn1($P(R,D,18),1)
+ If LEVNr=$$$LevHalux {
+	Set KLNr=$P(R,D,8)
+	Set lbKenAnk=##class(BL.Derde.Kennis.Kennis).GetIDsToPopup(KLNr,.varErrStr,$LB($$$adpGetAll($$$adProductie)),,"PRINT",,,0,2,1,0)
+	///Set lbKenAnk=##class(BL.Derde.Kennis.Kennis).GetIDsToPopup(KLNr,.varErrStr,$LB($$$adWerkbon,$$$adpGetAll($$$adProductie)),,"PRINT",,,0,2,1,0)
+ }
+
  Set LevInd=^KL1(LEVNr),R=^KLE(LevInd,0),Taal=$P(R,D,9) If Taal="" Set Taal="N"
  Do PRINT^LOG("TO",TOENr,$S($G(MetFax):"F",1:"P"))
- Do @$S(LEVNr=$$$LevHalux:"HTITEL",1:"FTITEL"),HEADER,BODY,VOORW:LEVNr'=$$$LevHalux,LFOOTER,PPRINT
+ Do @$S(LEVNr=$$$LevHalux:"HTITEL",1:"FTITEL"),HEADER,BODY  Do:$listlength(lbKenAnk) KENANK^DCTOE(lbKenAnk)  Do VOORW:LEVNr'=$$$LevHalux,LFOOTER,PPRINT
  If LEVNr=$$$LevHalux,$$ToeleveringBevatDetailHalux(TOENr,LEVNr),$$PrintProductieVoorbereiding(Toelevering) Do
  . Set PCount=PCount+1,LCount=0
  . Do DetailHalux(TOENr),LDFOOTER,PPRINT