Index: WSimpl/Halux/AAP/AfdrukService.cls.xml
===================================================================
diff -u -r60704 -r60731
--- WSimpl/Halux/AAP/AfdrukService.cls.xml	(.../AfdrukService.cls.xml)	(revision 60704)
+++ WSimpl/Halux/AAP/AfdrukService.cls.xml	(.../AfdrukService.cls.xml)	(revision 60731)
@@ -140,12 +140,13 @@
 		//}
 		
 		// TODO iplementatie
-		#dim resultaat = ..VoerUitKlantEtiketAfdrukken(DnaCodeIterator)
+		#dim resultaat = ..VerwerkKlantEtiketAfdrukken(DnaCodeIterator)
 		
 		If (resultaat = "") {
 			Set Response.Header.Status = "200"
 		} Else {
-			Set Response.Header.Status = "100"
+			Set Response.Header.Status = "422"
+			Set Response.Header.Omschrijving = "resultaat"
 		}
 		
 		
@@ -164,7 +165,7 @@
 <ReturnType>%Boolean</ReturnType>
 </Method>
 
-<Method name="VoerUitKlantEtiketAfdrukken">
+<Method name="VerwerkKlantEtiketAfdrukken">
 <FormalSpec>DnaCodeIterator:TECH.Iterator</FormalSpec>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
@@ -173,6 +174,7 @@
 	// !!!!!!!!!! Wlips weg doen
 	// deze grote methode opsplitsen, met facotry patter n werken?
 	// !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+	Do ##class(Tools.Wlip).%New(43).String("VoerUitKlantEtiketAfdrukken")
 	
 	#dim ErrorMessage As %String = ""
 
@@ -185,19 +187,36 @@
 	#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)
+	Do ..PrintKlantEtiket(IteratorOfDnaCodePerCategorieyIterators)
+	
+	Quit ErrorMessage
+]]></Implementation>
+</Method>
+
+<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")
 		
-		//TECH.FrequentieTabel  - 
-		// Values instekeen 
-		
 		#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()) {
 			Do ##class(Tools.Wlip).%New(43).String("kaderdeur category")
@@ -223,8 +242,171 @@
 		} 	
 		
 	}
+]]></Implementation>
+</Method>
+
+<Method name="GeefIteratorVanDnaCodeIterators">
+<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)
+	#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)
+		
+	#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)
 	
-	Set Iterator = ##class(TECH.IteratorOfIterators).%New()
+	#dim IteratorVanDnaCodesIterators As TECH.Iterator = ##class(TECH.ListIterator).%New(DnaCodesIteratorLijsten)
+	
+	Quit IteratorVanDnaCodesIterators
+	Do ##class(Tools.Wlip).%New(43).String("Voor IteratorVanDnaCodesIterators")
+]]></Implementation>
+</Method>
+
+<Method name="PrintKlantEtiket">
+<FormalSpec>IteratorVanDnaCodesIterators:TECH.Iterator</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	Set PrinterFactory = ##class(APPS.Halux.PPS.impl.AansturingActie.common.KlantEtiket.PrinterFactory).%New()
+	#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")
+				#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)
+		} 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
@@ -236,15 +418,17 @@
 	
 	
 	Set PrinterFactory = ##class(APPS.Halux.PPS.impl.AansturingActie.common.KlantEtiket.PrinterFactory).%New()
-	#dim Printer As APPS.Halux.PPS.AansturingActie.common.KlantEtiket.Printer = ""
+	#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)		
+		Do Printer.PrintKlantEtiket(,, KaderdeurDnaCodesLijst, KaderdeurDnaCodesIterator)		
 		Set Printer = PrinterFactory.GeefKlantEtiketPrinter(Batch)
 	}
 	
@@ -253,54 +437,54 @@
 		
 		;Set Printer = ##class(APPS.Halux.PPS.impl.AansturingActie.common.KlantEtiket.Mat.Printer).%New()
 		Set Printer = PrinterFactory.GeefKlantEtiketPrinter(Batch)
-		Do Printer.PrintKlantEtiket(,, MatDnaCodesLijst)		
+		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)
+		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)
+		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)
+		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)
+		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)	
+		Do Printer.PrintKlantEtiket(,, TAORboxDnaCodesLijst, TAORboxDnaCodesLijst)	
 	}
 	
 	If (MaatwerkDnaCodesLijst.Count() > 0) {
 		#dim MaatwerkDnaCodesIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(MaatwerkDnaCodesLijst)
-		set test = MaatwerkDnaCodesIterator.HasNext()
+		;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)
+		Do Printer.PrintKlantEtiket(,, MaatwerkDnaCodesLijst, MaatwerkDnaCodesIterator)
 	}
-
-	Quit ErrorMessage
 ]]></Implementation>
 </Method>
 </Class>