Index: DCTOE.mac.rou
===================================================================
diff -u -r32413 -r32444
--- DCTOE.mac.rou	(.../DCTOE.mac.rou)	(revision 32413)
+++ DCTOE.mac.rou	(.../DCTOE.mac.rou)	(revision 32444)
@@ -1,3 +1,4 @@
+DCTOE ;AFDRUKKEN TOELEVERINGEN [ 01/17/2002  4:18 PM ]
  #Include BL.Derde.Kennis
  #include BL.Derde.LevSpecifiek
  ;
@@ -340,6 +341,11 @@
  Quit
  ;
  
+KENNISANKERS(lbKenAnk)
+	Do:$listlength(lbKenAnk) KENANK^DCTOE(lbKenAnk)
+ Quit
+ ; 
+ 
 ORDREF(KLNr,ORDNr) 
  New R,OrdRef
  Set R=$G(^KOD(KLNr,"F",ORDNr,1)),OrdRef=$P(R,D,3)
@@ -369,12 +375,11 @@
  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  Do:$listlength(lbKenAnk) KENANK^DCTOE(lbKenAnk)  Do VOORW:LEVNr'=$$$LevHalux,LFOOTER,PPRINT
+ Do @$S(LEVNr=$$$LevHalux:"HTITEL",1:"FTITEL"),HEADER,BODY,KENNISANKERS(lbKenAnk),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