Index: APPS/Halux/common/ProductieSequentie.cls.xml
===================================================================
diff -u -r62515 -r62548
--- APPS/Halux/common/ProductieSequentie.cls.xml	(.../ProductieSequentie.cls.xml)	(revision 62515)
+++ APPS/Halux/common/ProductieSequentie.cls.xml	(.../ProductieSequentie.cls.xml)	(revision 62548)
@@ -180,15 +180,13 @@
 	#dim ItemIterator As TECH.Iterator = ..GeefItemIterator()
 	While ItemIterator.HasNext() {
 		#dim Item As APPS.Halux.common.VHOSSProductieSequentieItem = ItemIterator.Next()
-		//Do ##class(Tools.Wlip).%New(127).ObjToXML(Item)
 		If Item.SequentieNummer = SequentieNummer {
 			Set Resultaat = Item
 		}
 	}
 	If (Resultaat.SequentieNummer = "") {
 		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.DataNotFoundException).%New("Geen ProductieSequentieItem voor nummer '"_SequentieNummer_"' en batch '"_..BatchID_"'"))
 	}
-	Do ##class(Tools.Wlip).%New(127).String(Resultaat.%ClassName(1))
 	Quit Resultaat
 ]]></Implementation>
 </Method>
Index: WSimpl/Halux/AAP/DnaCodeService.cls.xml
===================================================================
diff -u -r62547 -r62548
--- WSimpl/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 62547)
+++ WSimpl/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 62548)
@@ -771,60 +771,39 @@
 		While DnaCodeViaBatchIterator.HasNext() {
 			Set DnaCodeTemp = DnaCodeViaBatchIterator.Next()
 			#dim ProductieItem As APPS.Halux.common.VHOSSProductieSequentieItem = ProductieSequentie.GeefVHOSSProductieSequentieItemViaSequentieNummer(DnaCodeTemp.SequentieNummer)
-			Do ##class(Tools.Wlip).%New(127).String("seqnr = "_DnaCodeTemp.SequentieNummer)
 			If $$$HasLength(DnaCodeTemp.ScanTijdstip) {
-				Do ##class(Tools.Wlip).%New(127).String("100")
 				Do AantallenGescandPerVhoss.Verhoog(DnaCodeTemp.PalletCode)
 				Do AantallenPerVhoss.Verhoog(DnaCodeTemp.PalletCode)
-				//Do VhossMapper.Insert(##class(TECH.KeyValuePair).%New(ProductieItem.VHOSSID, DnaCodeTemp.PalletCode))
 			} Else {
 			  	If ##class(TECH.StringUtils).StartsWith(DnaCodeTemp.DnaCode,"T") {
 			  	} Else {
-				  	//Do ##class(Tools.Wlip).%New(127).ObjToXML(ProductieItem)
-				  	//zoeken naar reeds bestaand echt palletnummer dat bij deze interne vhossid hoort. Indien gevonden, daarbij verhogen
-				  	
 				  	Do AantallenPerVhoss.Verhoog(..ProbeerEchteVhossIdTeBepalenNietTBX(RondAfVhossBatchRequest.BatchId,DnaCodeTemp.SequentieNummer,ProductieItem.VHOSSID, ProductieSequentie))
 			  	}
 			}
 			
 		}
-		Do ##class(Tools.Wlip).%New(127).String(VhossMapper.ToString())
 		
 		#dim FrequentieItemIterator As TECH.ListIterator = AantallenPerVhoss.GeefItemIterator()
 		While FrequentieItemIterator.HasNext(){
-			Do ##class(Tools.Wlip).%New(127).String("in while")
 			#dim Aantal As %Double = FrequentieItemIterator.Next()
 			Set VhossKastMetAantallen = ##class(WS.Halux.AAP.RondAfVhossBatch.VhossKastenMetAantallen).%New()
-			Do ##class(Tools.Wlip).%New(127).String(FrequentieItemIterator.Key())
 			If +FrequentieItemIterator.Key() = FrequentieItemIterator.Key() {
-				//If VhossMapper.FindByKey(ProductieItem.VHOSSID) {
-					//Set VhossKastMetAantallen.Vhosskast = VhossMapper.FindByKey(ProductieItem.VHOSSID).Value
-				//} Else {
-					Set VhossKastMetAantallen.Vhosskast = "Vhoss "_FrequentieItemIterator.Key()
-				//}
-				Do ##class(Tools.Wlip).%New(127).String("a"_VhossKastMetAantallen.Vhosskast)
+				Set VhossKastMetAantallen.Vhosskast = "Vhoss "_FrequentieItemIterator.Key()
 			} Else {
 				Set VhossKastMetAantallen.Vhosskast = FrequentieItemIterator.Key()
-				Do ##class(Tools.Wlip).%New(127).String("b"_VhossKastMetAantallen.Vhosskast)
 			}
 			Set VhossKastMetAantallen.AantalLades = Aantal
 			Set VhossKastMetAantallen.AantalLadesGescand = AantallenGescandPerVhoss.GeefFrequentieVanItem(VhossKastMetAantallen.Vhosskast)
-			Do ##class(Tools.Wlip).%New(127).String("aantallen = "_VhossKastMetAantallen.AantalLades_"/"_VhossKastMetAantallen.AantalLadesGescand)
 			If $$$Not(VhossKastMetAantallen.AantalLades = VhossKastMetAantallen.AantalLadesGescand) {
 				Do Response.VhossKastenMetAantallen.Insert(VhossKastMetAantallen)
 			}
 		}
 		
-		Do ##class(Tools.Wlip).%New(127).String(AantallenPerVhoss.ToString())
-		Do ##class(Tools.Wlip).%New(127).String(AantallenGescandPerVhoss.ToString())
-		
 		#dim PalletIterator As TECH.Iterator = AantallenPerVhoss.GeefItemIterator()
 		While PalletIterator.HasNext() {
-			Do ##class(Tools.Wlip).%New(127).String("in while")
 			Do PalletIterator.Next()
 			#dim Pallet As %String = PalletIterator.Key()
 			If ##class(TECH.StringUtils).StartsWith(Pallet, "O1") {
-				Do ##class(Tools.Wlip).%New(127).String("in if "_RondAfVhossBatchRequest.BatchId_"/"_Pallet)
 				Do ..DnaCodesKlaarmakenVoorBuffer(..DnaCodeRepository.ZoekViaPalletCodeEnRecent(Pallet), ##class(DOM.Halux.AAP.enu.DnaCodeStatus).InBuffer(), , Pallet, RondAfVhossBatchRequest.Header.Initialen)
 			}
 		}
@@ -833,7 +812,6 @@
 		
 	} Catch {
 		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
-		Do ##class(Tools.Wlip).%New(127).String(Exception.ToString())
 		Set Response.Header.Status = Exception.GeefExceptionCode()
 		Set Response.Header.Omschrijving = Exception.GeefOmschrijving()
 	}
@@ -846,7 +824,6 @@
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-	Do ##class(Tools.Wlip).%New(127).String("ProbeerEchteVhossIdTeBepalen "_BatchId_"/"_SequentieNummer_"/"_InternVhossId)
 	#dim Resultaat As %String = ""
 	
 	#dim ItemsIterator As TECH.Iterator = ProductieSequentie.GeefItemIterator()
@@ -861,7 +838,6 @@
 			}
 		}
 	}
-	Do ##class(Tools.Wlip).%New(127).String("result = "_Resultaat)
 	If Resultaat = "" {
 		Set Resultaat = InternVhossId
 	}