Index: WSimpl/Halux/AAP/AfdrukService.cls.xml
===================================================================
diff -u -r60732 -r60735
--- WSimpl/Halux/AAP/AfdrukService.cls.xml	(.../AfdrukService.cls.xml)	(revision 60732)
+++ WSimpl/Halux/AAP/AfdrukService.cls.xml	(.../AfdrukService.cls.xml)	(revision 60735)
@@ -115,26 +115,19 @@
 <FormalSpec>KlantEtiketAfdrukkenRequest:WS.Halux.AAP.KlantEtiketAfdrukkenRequest</FormalSpec>
 <ReturnType>WS.Halux.AAP.KlantEtiketAfdrukkenResponse</ReturnType>
 <Implementation><![CDATA[
-	Do ##class(Tools.Wlip).%New(43).String("IN KlantEtiketAfdrukken")
 	Try {
-		Do ##class(Tools.Wlip).%New(43).String("IN KlantEtiketAfdrukken")
 		Set Response = ##class(WS.Halux.AAP.KlantEtiketAfdrukkenResponse).%New()
 		
 		If KlantEtiketAfdrukkenRequest.DnaCodes.Count() = 0 {
 			Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Geen DnaCodes aangeleverd om af te drukken"))
 		}
 		
-		Do ##class(Tools.Wlip).%New(43).String("IN KlantEtiketAfdrukken: voor iteratoer")
-		
 		#dim DnaCodeIterator As TECH.Iterator = ..EtiketAfdrukkenHelper.MaakDnaCodeIteratorVanDnaCodeStringLijst(KlantEtiketAfdrukkenRequest.DnaCodes)
 		#dim DnaCode As TECH.Iterator = DnaCodeIterator.Next()
 		Do DnaCodeIterator.Reset()
 		
-		Do ##class(Tools.Wlip).%New(43).String("TeGebruikenPrinter")
-		
-		//#dim TeGebruikenPrinter = ..EtiketAfdrukkenHelper.MapProductieLijnOpPrinter(..EtiketAfdrukkenHelper.GeefWerkpost(DnaCode))
-			
-		
+				
+		//#dim TeGebruikenPrinter = ..EtiketAfdrukkenHelper.MapProductieLijnOpPrinter(..EtiketAfdrukkenHelper.GeefWerkpost(DnaCode))		
 		//If TeGebruikenPrinter = "" {
 		//	Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.GeneralErrorException).%New("Geen printer gevonden voor DnaCode '"_DnaCode.DnaCode_"'"))
 		//}
@@ -172,9 +165,6 @@
 	// !!!!!!!!!!!!!!!!!!! ---  TODO   ------  !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!  
 	// !!!!!!!!!! Refactoren en checken of alle dna codes in dezelfde batch zitten want per batch moet er een apart bestand zijn.
 	// !!!!!!!!!! Wlips weg doen
-	// deze grote methode opsplitsen, met facotry patter n werken?
-	// !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
-	Do ##class(Tools.Wlip).%New(43).String("VoerUitKlantEtiketAfdrukken")
 	
 	#dim ErrorMessage As %String = ""
 
@@ -187,8 +177,6 @@
 	#dim TAORboxDnaCodesLijst = ##class(%ListOfDataTypes).%New()
 	#dim MaatwerkDnaCodesLijst = ##class(%ListOfDataTypes).%New()
 	
-	Do ##class(Tools.Wlip).%New(43).String("VoerUitKlantEtiketAfdrukken 2")
-	
 	Do ..GeefDnaCodeLijstenPerCategorie(DnaCodeIterator, KaderdeurDnaCodesLijst,MatDnaCodesLijst,InpakDnaCodesLijst,OnbepaaldDnaCodesLijst,ProductOpMaatDnaCodesLijst,KastDnaCodesLijst,TAORboxDnaCodesLijst,MaatwerkDnaCodesLijst)
 	
 	#dim IteratorOfDnaCodePerCategorieyIterators As TECH.IteratorOfIterators = ..GeefIteratorVanDnaCodeIterators(KaderdeurDnaCodesLijst,MatDnaCodesLijst,InpakDnaCodesLijst,OnbepaaldDnaCodesLijst,ProductOpMaatDnaCodesLijst,KastDnaCodesLijst,TAORboxDnaCodesLijst,MaatwerkDnaCodesLijst)
@@ -201,21 +189,17 @@
 <Method name="GeefDnaCodeLijstenPerCategorie">
 <FormalSpec>DnaCodeIterator:TECH.Iterator,KaderdeurDnaCodesLijst:%ListOfDataTypes,MatDnaCodesLijst:%ListOfDataTypes,InpakDnaCodesLijst:%ListOfDataTypes,OnbepaaldDnaCodesLijst:%ListOfDataTypes,ProductOpMaatDnaCodesLijst:%ListOfDataTypes,KastDnaCodesLijst:%ListOfDataTypes,TAORboxDnaCodesLijst:%ListOfDataTypes,MaatwerkDnaCodesLijst:%ListOfDataTypes</FormalSpec>
 <Implementation><![CDATA[
-	Do ##class(Tools.Wlip).%New(43).String("GeefDnaCodeLijstenPerCategorie")
 	Do DnaCodeIterator.Reset()
 	While DnaCodeIterator.HasNext() {
 		#dim DnaCode As DOM.Halux.AAP.DnaCode = DnaCodeIterator.Next()
 		#dim BatchId As %Integer = DnaCode.BatchId
-		Do ##class(Tools.Wlip).%New(43).String("GeefDnaCodeLijstenPerCategorie 2")
 		#dim BestaatBatch As %Boolean = ##class(APPS.Halux.common.impl.BatchService).%New().BestaatBatch(BatchId)
-		Do ##class(Tools.Wlip).%New(43).String("GeefDnaCodeLijstenPerCategorie 4")
+
 		If ($$$Not(BestaatBatch)) {
-			Do ##class(Tools.Wlip).%New(43).String("GeefDnaCodeLijstenPerCategorie GEEN BATCH")
 			#dim ErrorMessage As %String = ""
 			Set ErrorMessage = ErrorMessage_" Batch ("_DnaCode.BatchId_")niet gevonden voor Dnacode ("_DnaCode.DnaCode_")"
 			Quit
 		}		
-		Do ##class(Tools.Wlip).%New(43).String("GeefDnaCodeLijstenPerCategorie na batch check")
 		
 		#dim Batch As APPS.Halux.common.Batch = ##class(APPS.Halux.common.impl.BatchService).%New().GeefBatch(BatchId)
 		If (Batch.GeefCategorie() = ##class(APPS.Halux.common.enu.Categorie).Kaderdeur()) {
@@ -249,7 +233,6 @@
 <FormalSpec>KaderdeurDnaCodesLijst:%ListOfDataTypes,MatDnaCodesLijst:%ListOfDataTypes,InpakDnaCodesLijst:%ListOfDataTypes,OnbepaaldDnaCodesLijst:%ListOfDataTypes,ProductOpMaatDnaCodesLijst:%ListOfDataTypes,KastDnaCodesLijst:%ListOfDataTypes,TAORboxDnaCodesLijst:%ListOfDataTypes,MaatwerkDnaCodesLijst:%ListOfDataTypes</FormalSpec>
 <ReturnType>TECH.Iterator</ReturnType>
 <Implementation><![CDATA[
-	Do ##class(Tools.Wlip).%New(43).String("GeefIteratorOfIteratorsVoorDnaCodeLijsten")
 	#dim KaderdeurDnaCodesIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(KaderdeurDnaCodesLijst)
 	#dim MatDnaCodesIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(MatDnaCodesLijst)
 	#dim InpakDnaCodesIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(InpakDnaCodesLijst)
@@ -272,7 +255,6 @@
 	#dim IteratorVanDnaCodesIterators As TECH.Iterator = ##class(TECH.ListIterator).%New(DnaCodesIteratorLijsten)
 	
 	Quit IteratorVanDnaCodesIterators
-	Do ##class(Tools.Wlip).%New(43).String("Voor IteratorVanDnaCodesIterators")
 ]]></Implementation>
 </Method>
 
@@ -284,212 +266,24 @@
 	#dim Printer As APPS.Halux.PPS.AansturingActie.common.KlantEtiket.Printer = ""
 	
 	While IteratorVanDnaCodesIterators.HasNext() {
-		Do ##class(Tools.Wlip).%New(43).String("IteratorVanDnaCodesIterators")
 		#dim DnaCodeIterator As TECH.Iterator = IteratorVanDnaCodesIterators.Next()
 		
 		If (DnaCodeIterator.HasNext()){
-	
-			Do ##class(Tools.Wlip).%New(43).String("In DnaCodeIterator")
-			Do DnaCodeIterator.Reset()
-			
-			//#dim Batch As APPS.Halux.common.Batch = ""
-			While DnaCodeIterator.HasNext() {
-				Do ##class(Tools.Wlip).%New(43).String("PrintKlantEtiket in DnaCodeIterator")
+			Do DnaCodeIterator.Reset()			
+			While DnaCodeIterator.HasNext() {				
 				#dim DnaCode As DOM.Halux.AAP.DnaCode = DnaCodeIterator.Next()
 				#dim BatchId As %Integer = DnaCode.BatchId
-				Set Batch = ##class(APPS.Halux.common.impl.BatchService).%New().GeefBatch(BatchId)
-				Do ##class(Tools.Wlip).%New(43).String("BatchId "_BatchId)										
-							
+				Set Batch = ##class(APPS.Halux.common.impl.BatchService).%New().GeefBatch(BatchId)	
 			}
 			
-			Do ##class(Tools.Wlip).%New(43).String("VOOR GeefKlantEtiketPrinter")
 			Set Printer = PrinterFactory.GeefKlantEtiketPrinter(Batch)
-			Do ##class(Tools.Wlip).%New(43).String("Na GeefKlantEtiketPrinter")
 			Do Printer.PrintKlantEtiket(,,DnaCodeIterator)
-			Do ##class(Tools.Wlip).%New(43).String("Do Printer.PrintKlantEtiket")
 		} Else {
 			Do ##class(Tools.Wlip).%New(43).String("Geen records in Iterator")
 		}
 	}
 ]]></Implementation>
 </Method>
-
-<Method name="OLDGeefIteratorOfIteratorsVoorDnaCodeLijsten">
-<FormalSpec>KaderdeurDnaCodesLijst:%ListOfDataTypes,MatDnaCodesLijst:%ListOfDataTypes,InpakDnaCodesLijst:%ListOfDataTypes,OnbepaaldDnaCodesLijst:%ListOfDataTypes,ProductOpMaatDnaCodesLijst:%ListOfDataTypes,KastDnaCodesLijst:%ListOfDataTypes,TAORboxDnaCodesLijst:%ListOfDataTypes,MaatwerkDnaCodesLijst:%ListOfDataTypes</FormalSpec>
-<ReturnType>TECH.IteratorOfIterators</ReturnType>
-<Implementation><![CDATA[
-	Do ##class(Tools.Wlip).%New(43).String("GeefIteratorOfIteratorsVoorDnaCodeLijsten")
-	#dim KaderdeurDnaCodesIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(KaderdeurDnaCodesLijst)
-	#dim MatDnaCodesIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(MatDnaCodesLijst)
-	#dim InpakDnaCodesIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(InpakDnaCodesLijst)
-	#dim OnbepaaldDnaCodesIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(OnbepaaldDnaCodesLijst)
-	#dim ProductOpMaatDnaCodesIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(ProductOpMaatDnaCodesLijst)
-	#dim KastIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(KastDnaCodesLijst)
-	#dim TaorIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(TAORboxDnaCodesLijst)
-	#dim MaatwerkDnaCodesIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(MaatwerkDnaCodesLijst)
-
-	Set IteratorOfDnaCodePerCategorieyIterators = ##class(TECH.IteratorOfIterators).%New()
-	Do IteratorOfDnaCodePerCategorieyIterators.SetIterators(KaderdeurDnaCodesIterator,MatDnaCodesIterator,InpakDnaCodesIterator,OnbepaaldDnaCodesIterator,ProductOpMaatDnaCodesIterator,KastIterator,TaorIterator,MaatwerkDnaCodesIterator)
-	//Quit IteratorOfDnaCodePerCategorieyIterators
-	
-	
-	#dim DnaCodesIteratorLijsten = ##class(%ListOfDataTypes).%New()
-	Do DnaCodesIteratorLijsten.Insert(KaderdeurDnaCodesIterator)
-	Do DnaCodesIteratorLijsten.Insert(MatDnaCodesIterator)
-	Do DnaCodesIteratorLijsten.Insert(InpakDnaCodesIterator)
-	Do DnaCodesIteratorLijsten.Insert(OnbepaaldDnaCodesIterator)
-	Do DnaCodesIteratorLijsten.Insert(ProductOpMaatDnaCodesIterator)
-	Do DnaCodesIteratorLijsten.Insert(KastIterator)
-	Do DnaCodesIteratorLijsten.Insert(TaorIterator)
-	Do DnaCodesIteratorLijsten.Insert(MaatwerkDnaCodesIterator)
-	
-	#dim IteratorVanDnaCodesIterators As TECH.Iterator = ##class(TECH.ListIterator).%New(DnaCodesIteratorLijsten)
-	
-	Do ##class(Tools.Wlip).%New(43).String("Voor IteratorVanDnaCodesIterators")
-	While IteratorVanDnaCodesIterators.HasNext() {
-		Do ##class(Tools.Wlip).%New(43).String("IteratorVanDnaCodesIterators")
-		#dim DnaCodeIterator As TECH.Iterator = IteratorVanDnaCodesIterators.Next()
-		
-		If (DnaCodeIterator = ""){
-			Do ##class(Tools.Wlip).%New(43).String("Lege DnaCodeIterator")
-		} Else {
-			Do ##class(Tools.Wlip).%New(43).String("In DnaCodeIterator")
-			Do DnaCodeIterator.Reset()
-			
-			//#dim Batch As APPS.Halux.common.Batch = ""
-			While DnaCodeIterator.HasNext() {
-				Do ##class(Tools.Wlip).%New(43).String("PrintKlantEtiket in DnaCodeIterator")
-				#dim DnaCode As DOM.Halux.AAP.DnaCode = DnaCodeIterator.Next()
-				#dim BatchId As %Integer = DnaCode.BatchId
-				Set Batch = ##class(APPS.Halux.common.impl.BatchService).%New().GeefBatch(BatchId)
-				Do ##class(Tools.Wlip).%New(43).String("BatchId "_BatchId)										
-							
-			}
-			
-			//Set Printer = PrinterFactory.GeefKlantEtiketPrinter(Batch)
-				//Do Printer.PrintKlantEtiket(,,, DnaCodeIterator)
-		}
-	}
-	
-	Quit IteratorOfDnaCodePerCategorieyIterators
-]]></Implementation>
-</Method>
-
-<Method name="OLDPrintKlantEtiket">
-<FormalSpec>IteratorOfDnaCodePerCategorieyIterators:TECH.IteratorOfIterators</FormalSpec>
-<ReturnType>%String</ReturnType>
-<Implementation><![CDATA[
-	Do ##class(Tools.Wlip).%New(43).String("PrintKlantEtiket")
-	Set PrinterFactory = ##class(APPS.Halux.PPS.impl.AansturingActie.common.KlantEtiket.PrinterFactory).%New()
-	#dim Printer As APPS.Halux.PPS.AansturingActie.common.KlantEtiket.Printer = ""
-	
-	While IteratorOfDnaCodePerCategorieyIterators.HasNext() {
-		Do ##class(Tools.Wlip).%New(43).ObjToText(IteratorOfDnaCodePerCategorieyIterators)
-		Do ##class(Tools.Wlip).%New(43).String("PrintKlantEtiket in IteratorOfDnaCodePerCategorieyIterators")
-		#dim DnaCodeIterator As TECH.Iterator = IteratorOfDnaCodePerCategorieyIterators.Next()
-		
-		If (DnaCodeIterator = ""){
-			Do ##class(Tools.Wlip).%New(43).String("Lege DnaCodeIterator")
-		} Else {
-			Do ##class(Tools.Wlip).%New(43).String("In DnaCodeIterator")
-			Do ##class(Tools.Wlip).%New(43).ObjToText(DnaCodeIterator)
-			Do DnaCodeIterator.Reset()
-			While DnaCodeIterator.HasNext() {
-				Do ##class(Tools.Wlip).%New(43).String("PrintKlantEtiket in DnaCodeIterator")
-				#dim DnaCode As DOM.Halux.AAP.DnaCode = DnaCodeIterator.Next()
-				#dim BatchId As %Integer = DnaCode.BatchId
-				#dim Batch As APPS.Halux.common.Batch = ##class(APPS.Halux.common.impl.BatchService).%New().GeefBatch(BatchId)
-						
-				Set Printer = PrinterFactory.GeefKlantEtiketPrinter(Batch)
-				Do Printer.PrintKlantEtiket(,,, DnaCodeIterator)			
-			}
-		}		
-	}
-		
-	
-	
-	
-	;Set Iterator = ##class(TECH.IteratorOfIterators).%New()
-	;Do Iterator.SetIterators(..GeefBodemIterator(), ..GeefFrontIterator(), ..GeefRugIterator(), ..GeefZijkantIterator())
-	// iterator van iteratoren van alle lijsten
-	// IteratorOfIterators
-	// gaat factory op roepen en print klant etiket uitvoeren
-	// PrintKlantEtiketVanDnaCodes --> PrintKlantEtiketMetDnaCodes
-	// PrintKlantEtiket dus gebruiken bij de printer nog de dnacode gaan toevoegen
-	// de factory kan gebruikt worden dan ook
-	// eerst NBO horen dan Pieter
-	
-	
-	Set PrinterFactory = ##class(APPS.Halux.PPS.impl.AansturingActie.common.KlantEtiket.PrinterFactory).%New()
-	#dim Printer1 As APPS.Halux.PPS.AansturingActie.common.KlantEtiket.Printer = ""
-	Set Printer = PrinterFactory.GeefKlantEtiketPrinter(Batch)
-	
-	Do ##class(Tools.Wlip).%New(43).String("Start over iterators te gaan")
-	
-	
-	If (KaderdeurDnaCodesLijst.Count() > 0) {
-		#dim KaderdeurDnaCodesIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(KaderdeurDnaCodesLijst)
-		
-		//Set Printer = ##class(APPS.Halux.PPS.impl.AansturingActie.common.KlantEtiket.KAD.Printer).%New()
-		Do Printer.PrintKlantEtiket(,, KaderdeurDnaCodesLijst, KaderdeurDnaCodesIterator)		
-		Set Printer = PrinterFactory.GeefKlantEtiketPrinter(Batch)
-	}
-	
-	If (MatDnaCodesLijst.Count() > 0) {
-		#dim MatDnaCodesIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(MatDnaCodesLijst)
-		
-		;Set Printer = ##class(APPS.Halux.PPS.impl.AansturingActie.common.KlantEtiket.Mat.Printer).%New()
-		Set Printer = PrinterFactory.GeefKlantEtiketPrinter(Batch)
-		Do Printer.PrintKlantEtiket(,, MatDnaCodesLijst, MatDnaCodesIterator)		
-	}
-	
-	If (InpakDnaCodesLijst.Count() > 0) {
-		#dim InpakDnaCodesIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(InpakDnaCodesLijst)
-		
-		;Set Printer = ##class(APPS.Halux.PPS.impl.AansturingActie.common.KlantEtiket.Inpak.Printer).%New()
-		Set Printer = PrinterFactory.GeefKlantEtiketPrinter(Batch)
-		Do Printer.PrintKlantEtiket(,, InpakDnaCodesLijst,InpakDnaCodesIterator)
-	}
-	
-	If (OnbepaaldDnaCodesLijst.Count() > 0) {
-		#dim OnbepaaldDnaCodesIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(OnbepaaldDnaCodesLijst)
-		
-		;Set Printer = ##class(APPS.Halux.PPS.impl.AansturingActie.common.KlantEtiket.Onbepaald.Printer).%New()
-		Set Printer = PrinterFactory.GeefKlantEtiketPrinter(Batch)
-		Do Printer.PrintKlantEtiket(,, OnbepaaldDnaCodesLijst, OnbepaaldDnaCodesIterator)
-	}
-	
-	If (ProductOpMaatDnaCodesLijst.Count() > 0) {
-		#dim ProductOpMaatDnaCodesIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(ProductOpMaatDnaCodesLijst)
-		
-		;Set Printer = ##class(APPS.Halux.PPS.impl.AansturingActie.common.KlantEtiket.ProductOpMaat.Printer).%New()
-		Set Printer = PrinterFactory.GeefKlantEtiketPrinter(Batch)
-		Do Printer.PrintKlantEtiket(,, ProductOpMaatDnaCodesLijst, ProductOpMaatDnaCodesIterator)
-	}
-	
-	If (KastDnaCodesLijst.Count() > 0) {
-		#dim KastIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(KastDnaCodesLijst)
-		;Set Printer = ##class(APPS.Halux.PPS.impl.AansturingActie.common.KlantEtiket.MaatwerkInVHOSS.EtiketPrinter).%New()
-		Set Printer = PrinterFactory.GeefKlantEtiketPrinter(Batch)
-		Do Printer.PrintKlantEtiket(,, KastDnaCodesLijst, KastIterator)
-	}
-	
-	If (TAORboxDnaCodesLijst.Count() > 0) {
-		#dim TaorIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(TAORboxDnaCodesLijst)
-		;Set Printer = ##class(APPS.Halux.PPS.impl.AansturingActie.Taorbox.KlantEtiket.Geen.EtiketPrinter).%New()
-		Set Printer = PrinterFactory.GeefKlantEtiketPrinter(Batch)
-		Do Printer.PrintKlantEtiket(,, TAORboxDnaCodesLijst, TAORboxDnaCodesLijst)	
-	}
-	
-	If (MaatwerkDnaCodesLijst.Count() > 0) {
-		#dim MaatwerkDnaCodesIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(MaatwerkDnaCodesLijst)
-		;set test = MaatwerkDnaCodesIterator.HasNext()
-		;Set Printer = ##class(APPS.Halux.PPS.impl.AansturingActie.common.KlantEtiket.ProductOpMaat.Printer).%New()
-		Set Printer = PrinterFactory.GeefKlantEtiketPrinter(Batch)
-		Do Printer.PrintKlantEtiket(,, MaatwerkDnaCodesLijst, MaatwerkDnaCodesIterator)
-	}
-]]></Implementation>
-</Method>
 </Class>