Index: WSimpl/Halux/AAP/AfdrukService.cls.xml
===================================================================
diff -u -r60920 -r61623
--- WSimpl/Halux/AAP/AfdrukService.cls.xml	(.../AfdrukService.cls.xml)	(revision 60920)
+++ WSimpl/Halux/AAP/AfdrukService.cls.xml	(.../AfdrukService.cls.xml)	(revision 61623)
@@ -118,14 +118,9 @@
 		#dim DnaCode As TECH.Iterator = DnaCodeIterator.Next()
 		Do DnaCodeIterator.Reset()
 		
-		#dim resultaat = ..VerwerkKlantEtiketAfdrukken(DnaCodeIterator)
+		Do ..VerwerkKlantEtiketAfdrukken(DnaCodeIterator)		
 		
-		If (resultaat = "") {
-			Set Response.Header.Status = "200"
-		} Else {
-			Set Response.Header.Status = "422"
-			Set Response.Header.Omschrijving = "resultaat"
-		}
+		Set Response.Header.Status = "200"
 	} Catch {
 		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
 		Set Response.Header.Status = Exception.GeefExceptionCode()
@@ -143,10 +138,7 @@
 
 <Method name="VerwerkKlantEtiketAfdrukken">
 <FormalSpec>DnaCodeIterator:TECH.Iterator</FormalSpec>
-<ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-	#dim ErrorMessage As %String = ""
-
 	#dim KaderdeurDnaCodesLijst = ##class(%ListOfDataTypes).%New()
 	#dim MatDnaCodesLijst = ##class(%ListOfDataTypes).%New()
 	#dim InpakDnaCodesLijst = ##class(%ListOfDataTypes).%New()
@@ -160,8 +152,6 @@
 	
 	#dim IteratorOfDnaCodePerCategorieyIterators As TECH.IteratorOfIterators = ..GeefIteratorVanDnaCodeIterators(KaderdeurDnaCodesLijst,MatDnaCodesLijst,InpakDnaCodesLijst,OnbepaaldDnaCodesLijst,ProductOpMaatDnaCodesLijst,KastDnaCodesLijst,TAORboxDnaCodesLijst,MaatwerkDnaCodesLijst)
 	Do ..StartPrintKlantEtiket(IteratorOfDnaCodePerCategorieyIterators)
-	
-	Quit ErrorMessage
 ]]></Implementation>
 </Method>
 
@@ -175,17 +165,13 @@
 		#dim BestaatBatch As %Boolean = ##class(APPS.Halux.common.impl.BatchService).%New().BestaatBatch(BatchId)
 
 		If ($$$Not(BestaatBatch)) {
-			#dim ErrorMessage As %String = ""
-			Set ErrorMessage = ErrorMessage_" Batch ("_DnaCode.BatchId_")niet gevonden voor Dnacode ("_DnaCode.DnaCode_")"
-			Quit
+			Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Batch ("_DnaCode.BatchId_")niet gevonden voor Dnacode ("_DnaCode.DnaCode_")"))
 		}		
 		
 		#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")
 			Do KaderdeurDnaCodesLijst.Insert(DnaCode)
 		} ElseIf (Batch.GeefCategorie() = ##class(APPS.Halux.common.enu.Categorie).Mat()) {
-			Do ##class(Tools.Wlip).%New(43).String("mat category")
 			Do MatDnaCodesLijst.Insert(DnaCode)
 		} ElseIf (Batch.GeefCategorie() = ##class(APPS.Halux.common.enu.Categorie).Inpak()) {
 			Do InpakDnaCodesLijst.Insert(DnaCode)
@@ -194,13 +180,10 @@
 		} ElseIf (Batch.GeefCategorie() = ##class(APPS.Halux.common.enu.Categorie).ProductOpMaat()) {
 			Do ProductOpMaatDnaCodesLijst.Insert(DnaCode)
 		} ElseIf (Batch.GeefProductieGroep() = ##class(APPS.Halux.common.enu.ProductieGroep).Kast()) {			
-			Do ##class(Tools.Wlip).%New(43).String("kast category")
 			Do KastDnaCodesLijst.Insert(DnaCode)
 		} ElseIf (Batch.GeefCategorie() = ##class(APPS.Halux.common.enu.Categorie).TAORbox()) {
-			Do ##class(Tools.Wlip).%New(43).String("toar category")
 			Do TAORboxDnaCodesLijst.Insert(DnaCode)
 		} Else {
-			Do ##class(Tools.Wlip).%New(43).String("Maatwerk category")
 			Do MaatwerkDnaCodesLijst.Insert(DnaCode)
 		}