Index: WSimpl/Halux/AAP/DnaCodeService/RondAfVhossKastHelper.cls.xml
===================================================================
diff -u -r62607 -r62608
--- WSimpl/Halux/AAP/DnaCodeService/RondAfVhossKastHelper.cls.xml	(.../RondAfVhossKastHelper.cls.xml)	(revision 62607)
+++ WSimpl/Halux/AAP/DnaCodeService/RondAfVhossKastHelper.cls.xml	(.../RondAfVhossKastHelper.cls.xml)	(revision 62608)
@@ -1,7 +1,7 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="WSimpl.Halux.AAP.DnaCodeService.RondAfVhossKastHelper">
-<Super>TECH.RegisteredObject</Super>
+<Super>TECH.Mockable</Super>
 
 <Property name="DnaCodeRepository">
 <Type>DOM.Halux.AAP.DnaCodeRepository</Type>
@@ -49,16 +49,22 @@
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
 	#dim Resultaat As %String = ""
+	Do ##class(Tools.Wlip).%New(127).String("b 100")
 	
 	#dim ItemsIterator As TECH.Iterator = ProductieSequentie.GeefItemIterator()
 	
 	While ItemsIterator.HasNext() {
+	Do ##class(Tools.Wlip).%New(127).String("b 200")
 		#dim ProductieItem As APPS.Halux.common.VHOSSProductieSequentieItem = ItemsIterator.Next()
 		If ProductieItem.VHOSSID = InternVhossId {
+	Do ##class(Tools.Wlip).%New(127).String("b 300")
 			#dim DnaCodeIterator As TECH.Iterator = ..DnaCodeRepository.ZoekViaBatchIdEnSequentienummer(BatchId, ProductieItem.SequentieNummer)
 			If DnaCodeIterator.HasNext() {
+	Do ##class(Tools.Wlip).%New(127).String("b 400")
 				#dim DnaCode As DOM.Halux.AAP.DnaCode = DnaCodeIterator.Next()
+	Do ##class(Tools.Wlip).%New(127).String("b 400 "_DnaCode.PalletCode_"/")
 				If ##class(TECH.StringUtils).StartsWith(DnaCode.PalletCode,"O1") {
+					Do ##class(Tools.Wlip).%New(127).String("b 1000")
 					Set Resultaat = DnaCode.PalletCode
 				}
 			}
@@ -67,6 +73,7 @@
 	If Resultaat = "" {
 		Set Resultaat = InternVhossId
 	}
+	Do ##class(Tools.Wlip).%New(127).String("b resultaat = "_Resultaat)
 	Quit Resultaat
 ]]></Implementation>
 </Method>
Index: vhTest/Fake/WSimpl/Halux/AAP/DnaCodeService/RondAfVhossKastHelper.cls.xml
===================================================================
diff -u
--- vhTest/Fake/WSimpl/Halux/AAP/DnaCodeService/RondAfVhossKastHelper.cls.xml	(revision 0)
+++ vhTest/Fake/WSimpl/Halux/AAP/DnaCodeService/RondAfVhossKastHelper.cls.xml	(revision 62608)
@@ -0,0 +1,40 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Fake.WSimpl.Halux.AAP.DnaCodeService.RondAfVhossKastHelper">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden, nieuwe methodes worden automatisch bijgevoegd, bestaande blijven zoals ze zijn.
+Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>WSimpl.Halux.AAP.DnaCodeService.RondAfVhossKastHelper</Super>
+
+<Method name="GeefTbxSequentieIterator">
+<FormalSpec>BatchId:%String,SequentieNummer:%String</FormalSpec>
+<ReturnType>TECH.Iterator</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+
+<Method name="GeefTbxVhossKastenIterator">
+<FormalSpec>BatchId:%String</FormalSpec>
+<ReturnType>TECH.Iterator</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+
+<Method name="ProbeerEchteVhossIdTeBepalenNietTBX">
+<FormalSpec>BatchId:%String,InternVhossId:%String,ProductieSequentie:APPS.Halux.common.ProductieSequentie</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+
+<Method name="ProbeerEchteVhossIdTeBepalenTBX">
+<FormalSpec>TbxSequentieIterator:TECH.Iterator,VhossMapper:TECH.KeyValue.UniqueList</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhTest/Mock/WSimpl/Halux/AAP/DnaCodeService/RondAfVhossKastHelper.cls.xml
===================================================================
diff -u
--- vhTest/Mock/WSimpl/Halux/AAP/DnaCodeService/RondAfVhossKastHelper.cls.xml	(revision 0)
+++ vhTest/Mock/WSimpl/Halux/AAP/DnaCodeService/RondAfVhossKastHelper.cls.xml	(revision 62608)
@@ -0,0 +1,48 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Mock.WSimpl.Halux.AAP.DnaCodeService.RondAfVhossKastHelper">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden - lokale aanpassingen zijn niet nodig.
+Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>WSimpl.Halux.AAP.DnaCodeService.RondAfVhossKastHelper,Tools.Mock.MockClassBase</Super>
+<Inheritance>right</Inheritance>
+
+<Method name="%OnNew">
+<FormalSpec>DnaCodeRepository:DOM.Halux.AAP.DnaCodeRepository=""</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GeefTbxSequentieIterator">
+<FormalSpec>BatchId:%String,SequentieNummer:%String</FormalSpec>
+<ReturnType>TECH.Iterator</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefTbxSequentieIterator",BatchId,SequentieNummer)
+]]></Implementation>
+</Method>
+
+<Method name="GeefTbxVhossKastenIterator">
+<FormalSpec>BatchId:%String</FormalSpec>
+<ReturnType>TECH.Iterator</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefTbxVhossKastenIterator",BatchId)
+]]></Implementation>
+</Method>
+
+<Method name="ProbeerEchteVhossIdTeBepalenNietTBX">
+<FormalSpec>BatchId:%String,InternVhossId:%String,ProductieSequentie:APPS.Halux.common.ProductieSequentie</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("ProbeerEchteVhossIdTeBepalenNietTBX",BatchId,InternVhossId,ProductieSequentie)
+]]></Implementation>
+</Method>
+
+<Method name="ProbeerEchteVhossIdTeBepalenTBX">
+<FormalSpec>TbxSequentieIterator:TECH.Iterator,VhossMapper:TECH.KeyValue.UniqueList</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("ProbeerEchteVhossIdTeBepalenTBX",TbxSequentieIterator,VhossMapper)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>