Index: vhUnitTest/WSimpl/Halux/AAP/DnaCodeService/RondAfVhossBatch/Test.cls.xml
===================================================================
diff -u -r62606 -r62611
--- vhUnitTest/WSimpl/Halux/AAP/DnaCodeService/RondAfVhossBatch/Test.cls.xml	(.../Test.cls.xml)	(revision 62606)
+++ vhUnitTest/WSimpl/Halux/AAP/DnaCodeService/RondAfVhossBatch/Test.cls.xml	(.../Test.cls.xml)	(revision 62611)
@@ -3,7 +3,7 @@
 <Class name="vhUnitTest.WSimpl.Halux.AAP.DnaCodeService.RondAfVhossBatch.Test">
 <Super>vhUnitTest.TestCase</Super>
 
-<Method name="Test: Standaardgedrag: batch met 1 vhoss en alles in buffer -&gt; resultaat leeg">
+<Method name="Test: LBX Standaardgedrag: batch met 1 vhoss en alles in buffer -&gt; resultaat leeg">
 <Implementation><![CDATA[
 	Set Request = ##class(WS.Halux.AAP.RondAfVhossBatchRequest).%New()
 	Set Request.BatchId = "123456"
@@ -43,7 +43,7 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Standaardgedrag: batch met 1 vhoss en niet alles in buffer -&gt; resultaat gevuld">
+<Method name="Test: LBX batch met 1 vhoss en niet alles in buffer -&gt; resultaat gevuld">
 <Implementation><![CDATA[
 	Set Request = ##class(WS.Halux.AAP.RondAfVhossBatchRequest).%New()
 	Set Request.BatchId = "123456"
@@ -75,8 +75,11 @@
 	Do SequentieService.IndienMethodCall("HeeftProductieSequentie",Request.BatchId).DanReturn($$$True)
 	Do SequentieService.IndienMethodCall("GeefProductieSequentie",Request.BatchId).DanReturn(ProductieSequentie)
 	
-	Set DnaCodeService = ##class(WSimpl.Halux.AAP.DnaCodeService).%New(DnaCodeRepositoryMock,,,,,,,,,SequentieService)
+	Set RondAfVhossKastHelper = ##class(vhTest.Mock.WSimpl.Halux.AAP.DnaCodeService.RondAfVhossKastHelper).%New()
+	Do RondAfVhossKastHelper.IndienMethodCall("ProbeerEchteVhossIdTeBepalenNietTBX",Request.BatchId,1,ProductieSequentie).DanReturn("O100000042")
 	
+	Set DnaCodeService = ##class(WSimpl.Halux.AAP.DnaCodeService).%New(DnaCodeRepositoryMock,,,,,,,,,SequentieService,RondAfVhossKastHelper)
+	
 	#dim Antwoord As WS.Halux.AAP.RondAfVhossBatchResponse = DnaCodeService.RondAfVhossBatch(Request)
 	
 	Do $$$AssertEquals(Antwoord.VhossKastenMetAantallen.Count(),1)
@@ -87,7 +90,7 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Standaardgedrag: batch met 3 vhossen: een volledig gescand, een deels en een nog helemaal niet">
+<Method name="Test: LBX batch met 3 vhossen: een volledig gescand, een deels en een nog helemaal niet">
 <Implementation><![CDATA[
 	Set Request = ##class(WS.Halux.AAP.RondAfVhossBatchRequest).%New()
 	Set Request.BatchId = "123456"
@@ -126,8 +129,13 @@
 	Set SequentieService = ##class(vhTest.Mock.APPS.Halux.common.impl.SequentieService).%New()
 	Do SequentieService.IndienMethodCall("HeeftProductieSequentie",Request.BatchId).DanReturn($$$True)
 	Do SequentieService.IndienMethodCall("GeefProductieSequentie",Request.BatchId).DanReturn(ProductieSequentie)
+
+	Set RondAfVhossKastHelper = ##class(vhTest.Mock.WSimpl.Halux.AAP.DnaCodeService.RondAfVhossKastHelper).%New()
+	Do RondAfVhossKastHelper.IndienMethodCall("ProbeerEchteVhossIdTeBepalenNietTBX",Request.BatchId,1,ProductieSequentie).DanReturn("O100000042")
+	Do RondAfVhossKastHelper.IndienMethodCall("ProbeerEchteVhossIdTeBepalenNietTBX",Request.BatchId,2,ProductieSequentie).DanReturn("O100000043")
+	Do RondAfVhossKastHelper.IndienMethodCall("ProbeerEchteVhossIdTeBepalenNietTBX",Request.BatchId,3,ProductieSequentie).DanReturn("3")
 	
-	Set DnaCodeService = ##class(WSimpl.Halux.AAP.DnaCodeService).%New(DnaCodeRepositoryMock,,,,,,,,,SequentieService)
+	Set DnaCodeService = ##class(WSimpl.Halux.AAP.DnaCodeService).%New(DnaCodeRepositoryMock,,,,,,,,,SequentieService,RondAfVhossKastHelper)
 	
 	#dim Antwoord As WS.Halux.AAP.RondAfVhossBatchResponse = DnaCodeService.RondAfVhossBatch(Request)