Index: APPS/Halux/AAP/DnaCodeService.cls.xml
===================================================================
diff -u -r61682 -r61692
--- APPS/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 61682)
+++ APPS/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 61692)
@@ -221,9 +221,9 @@
 	If ##class(TECH.Context.RuntimeContext).Instance().GeefApplicatie() = "IntegratieTest" {
 		Quit "TestDnaCode"
 	}
+	
 	#dim Result As %String = ""
 	#dim DnaCodeIterator As TECH.Iterator
-	Do ##class(Tools.Wlip).%New(127).String("Herafdruk = "_Herafdruk_"/"_BatchId_"/"_SequentieNummer)
 	If Herafdruk {
 		Set DnaCodeIterator = ..DnaCodeRepository.ZoekViaBatchIdEnSequentienummer(BatchId, SequentieNummer)
 	} Else {
@@ -234,8 +234,6 @@
 	While DnaCodeIterator.HasNext() {
 		Set DnaCode = DnaCodeIterator.Next()
 		If ..MagDnaCodeBijgewerktWorden(DnaCode, ProductID, Herafdruk) {
-			Do ##class(Tools.Wlip).%New(127).String("seq nummer = "_SequentieNummer)
-			Do ##class(Tools.Wlip).%New(127).Stack()
 			Set DnaCode.SequentieNummer = SequentieNummer
 			Set DnaCode.AfdrukTijdstip = ..DateTimeApi.CurrentHorolog()
 			Do ..DnaCodeRepository.Bewaar(DnaCode)
Index: WSimpl/Halux/AAP/AfdrukService.cls.xml
===================================================================
diff -u -r61685 -r61692
--- WSimpl/Halux/AAP/AfdrukService.cls.xml	(.../AfdrukService.cls.xml)	(revision 61685)
+++ WSimpl/Halux/AAP/AfdrukService.cls.xml	(.../AfdrukService.cls.xml)	(revision 61692)
@@ -191,7 +191,6 @@
 	While DnaCodeIterator.HasNext() {
 		#dim DnaCode As DOM.Halux.AAP.DnaCode = DnaCodeIterator.Next()		
 		#dim Batch As APPS.Halux.common.Batch = ..GeefBatchVoorDnaCode(DnaCode)
-		Do ##class(Tools.Wlip).%New(127).String(Batch.GeefCategorie())
 		If (Batch.GeefCategorie() = ##class(APPS.Halux.common.enu.Categorie).Kaderdeur()) {
 			Do KaderdeurDnaCodesLijst.Insert(DnaCode)
 		} ElseIf (Batch.GeefCategorie() = ##class(APPS.Halux.common.enu.Categorie).Mat()) {
@@ -205,7 +204,6 @@
 		} ElseIf (Batch.GeefProductieGroep() = ##class(APPS.Halux.common.enu.ProductieGroep).Kast()) {			
 			Do KastDnaCodesLijst.Insert(DnaCode)
 		} ElseIf (Batch.GeefCategorie() = ##class(APPS.Halux.common.enu.Categorie).TAORbox()) {
-			Do ##class(Tools.Wlip).%New(127).String("inserting")
 			Do TAORboxDnaCodesLijst.Insert(DnaCode)
 		} Else {
 			Do MaatwerkDnaCodesLijst.Insert(DnaCode)
@@ -251,41 +249,32 @@
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-	Do ##class(Tools.Wlip).%New(127).String("StartPrintKlantEtiket 100")
 	#dim Printer As APPS.Halux.PPS.AansturingActie.common.KlantEtiket.Printer = ""
 	
 	While IteratorVanDnaCodesIterators.HasNext() {
-	Do ##class(Tools.Wlip).%New(127).String("StartPrintKlantEtiket 200")
 		#dim DnaCodeIterator As TECH.Iterator = IteratorVanDnaCodesIterators.Next()
 		
 		If (DnaCodeIterator.HasNext()){
-	Do ##class(Tools.Wlip).%New(127).String("StartPrintKlantEtiket 300")
 			//Do DnaCodeIterator.Reset()			
 			#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)	
 			
-			If $$$Not(Batch.GeefCategorie() = ##class(APPS.Halux.common.enu.Categorie).TAORbox()) {		
-	Do ##class(Tools.Wlip).%New(127).String("StartPrintKlantEtiket 400")	
+			If $$$Not(Batch.GeefCategorie() = ##class(APPS.Halux.common.enu.Categorie).TAORbox()) {	
 				Set Printer = ..PrinterFactory.GeefKlantEtiketPrinter(Batch)
 				Do Printer.PrintKlantEtiket(,,DnaCodeIterator)
 			} Else {
-	Do ##class(Tools.Wlip).%New(127).String("StartPrintKlantEtiket 500")
 				Set LabelPrinter = ##class(BL.Sys.LabelPrinter).%New()
 				Set BatchService = ##class(APPS.Halux.Planning.impl.BatchService).%New()
 				Set ToeleveringService = ##class(DOM.AKP.impl.ToeleveringService).%New()
 				Set AssemblageKarRepository = ##class(APPS.Halux.PPS.TAORProductie.impl.AssemblageKarRepository).%New()
 				Set Verwerker = ##class(APPS.Halux.PPS.Activiteit.impl.TAOR.LijstVerwerkers.KlantEtiketten).%New(LabelPrinter, AssemblageKarRepository, BatchService, ToeleveringService)
 				
-	Do ##class(Tools.Wlip).%New(127).String("StartPrintKlantEtiket 600")
 				Set ActiviteitParameters = ##class(APPS.Halux.PPS.Activiteit.ActiviteitParameters).%New()
 				Set ActiviteitParameters.Printer = "18"
 				
-	Do ##class(Tools.Wlip).%New(127).String("StartPrintKlantEtiket 700")
 				#dim Lijst As APPS.Halux.PPS.dto.UitvoeringInfoLijst = ..MaakKlantEtiketUitvoeringInfoVanDnaCodeIterator(DnaCodeIterator)
-	Do ##class(Tools.Wlip).%New(127).String("StartPrintKlantEtiket 800")
 				Do Verwerker.VerwerkUitvoeringInfoLijst(Lijst,ActiviteitParameters)
-	Do ##class(Tools.Wlip).%New(127).String("StartPrintKlantEtiket 900")
 			}
 		} Else {
 			//Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Geen records in Iterator"))
@@ -299,49 +288,34 @@
 <Private>1</Private>
 <ReturnType>APPS.Halux.PPS.dto.UitvoeringInfoLijst</ReturnType>
 <Implementation><![CDATA[
-	Do ##class(Tools.Wlip).%New(127).String("100")
 	Do DnaCodeIterator.Reset()
 	Set Lijst = ##class(APPS.Halux.PPS.dto.UitvoeringInfoLijst).%New()
 	While DnaCodeIterator.HasNext(){
 		#dim DnaCode As DOM.Halux.AAP.DnaCode = DnaCodeIterator.Next()
 		#dim BatchId As %Integer = DnaCode.BatchId
-		Do ##class(Tools.Wlip).%New(127).String(BatchId)
 		Set Batch = ##class(APPS.Halux.common.impl.BatchService).%New().GeefBatch(BatchId)
 		
 		Set ProductieSequentie = ##class(APPS.Halux.common.impl.SequentieService).%New().GeefProductieSequentie(DnaCode.BatchId)
 		#dim ProductieSequentieItemsIterator As TECH.Iterator = ProductieSequentie.GeefItemIterator()
 		#dim ProductieSequentieItem As APPS.Halux.common.ProductieSequentieItem
 		While ProductieSequentieItemsIterator.HasNext() {
-		Do ##class(Tools.Wlip).%New(127).String("200")
 			Set ProductieSequentieItem = ProductieSequentieItemsIterator.Next()
-		Do ##class(Tools.Wlip).%New(127).String(ProductieSequentieItem.SequentieNummer _"/"_DnaCode.SequentieNummer)
 			If (ProductieSequentieItem.SequentieNummer = DnaCode.SequentieNummer) {
 				Quit	
 			}
 		}
-		Do ##class(Tools.Wlip).%New(127).String("400")
 		
 		Set WerklijstItemMakerInput = ##class(APPS.Halux.PPS.Activiteit.impl.common.WerklijstItemMakerInput).%New(##class(APPS.Halux.PPS.Activiteit.impl.TAOR.Verpakking).%New(),ProductieSequentieItem)
 	    
-		Do ##class(Tools.Wlip).%New(127).String("410")
 	    Set KlantEtiketInput = ##class(APPS.Halux.PPS.Activiteit.impl.TAOR.Verpakking.KlantEtiketInput).%New()
 	    Set KlantEtiketInput.VoorkeurPrinter = "HALUX"
 	    Set KlantEtiketInput.AantalInDoos = 1
 	    Set KlantEtiketInput.Herafdruk = $$$True
 	    
-		Do ##class(Tools.Wlip).%New(127).String("420")
 		Set WerklijstItemMaker = ##class(APPS.Halux.PPS.Activiteit.impl.TAOR.Verpakking.KlantEtiketWerklijstItemMaker).%New(KlantEtiketInput)
-		Do ##class(Tools.Wlip).%New(127).String("430")
 		#dim ProductieSequentieWerklijstItem As APPS.Halux.PPS.Activiteit.dto.ProductieSequentieWerklijstItem = WerklijstItemMaker.MaakWerklijstItem(WerklijstItemMakerInput)
-		Do ##class(Tools.Wlip).%New(127).String("440")
-		#dim KlantEtiketUitvoeringInfo1 As APPS.Halux.PPS.Activiteit.impl.TAOR.dto.KlantEtiketUitvoeringInfo = ProductieSequentieWerklijstItem.UitvoeringInfo //  UitvoeringInfoInvuller.GeefUitvoeringInfo(WerklijstItemMakerInput)
+		#dim KlantEtiketUitvoeringInfo1 As APPS.Halux.PPS.Activiteit.impl.TAOR.dto.KlantEtiketUitvoeringInfo = ProductieSequentieWerklijstItem.UitvoeringInfo
 		Set KlantEtiketUitvoeringInfo1.HerafdrukEtiket = $$$True
-		
-		Do ##class(Tools.Wlip).%New(127).String(KlantEtiketUitvoeringInfo1)
-		
-		Do ##class(Tools.Wlip).%New(127).ObjToXML(KlantEtiketUitvoeringInfo1)
-		
-		Do ##class(Tools.Wlip).%New(127).String("600")
 		Do Lijst.Insert(KlantEtiketUitvoeringInfo1)
 	}
 	Quit Lijst
Index: APPS/Halux/PPS/Activiteit/impl/TAOR/Verpakking/KlantEtiketDataProductAanvuller.cls.xml
===================================================================
diff -u -r61681 -r61692
--- APPS/Halux/PPS/Activiteit/impl/TAOR/Verpakking/KlantEtiketDataProductAanvuller.cls.xml	(.../KlantEtiketDataProductAanvuller.cls.xml)	(revision 61681)
+++ APPS/Halux/PPS/Activiteit/impl/TAOR/Verpakking/KlantEtiketDataProductAanvuller.cls.xml	(.../KlantEtiketDataProductAanvuller.cls.xml)	(revision 61692)
@@ -115,8 +115,7 @@
 	Set UitvoeringInfo.KlantEtiketData.DossierCode = Product.GeefDossierCode()
 	Set UitvoeringInfo.KlantEtiketData.DossierTitel = ..Vertaler.GeefVertaling("Dossier")
 	Set UitvoeringInfo.KlantEtiketData.Dossier = UitvoeringInfo.ToeleveringID
-	Do ##class(Tools.Wlip).%New(127).ObjToXML(UitvoeringInfo)
-	If ..KlantEtiketInput.DnaCodeOnderdrukken = $$$True {
+	If ..KlantEtiketInput.DnaCodeOnderdrukken {
 		Set UitvoeringInfo.KlantEtiketData.DnaCode = ""
 	} Else {
 		Set UitvoeringInfo.KlantEtiketData.DnaCode = ..DnaCodeService.GeefVolgendeAfTeDrukkenDnaCode(UitvoeringInfo.ToeleveringID, UitvoeringInfo.ProductID, UitvoeringInfo.SequentieNummer, ..KlantEtiketInput.Herafdruk, UitvoeringInfo.BatchID)