Index: vhUnitTest/WSimpl/Halux/AAP/DnaCodeService/DnaCodeInVhossKastBepaler/MagDnaCodeInVhossKast/Test.cls.xml
===================================================================
diff -u -r61578 -r61579
--- vhUnitTest/WSimpl/Halux/AAP/DnaCodeService/DnaCodeInVhossKastBepaler/MagDnaCodeInVhossKast/Test.cls.xml	(.../Test.cls.xml)	(revision 61578)
+++ vhUnitTest/WSimpl/Halux/AAP/DnaCodeService/DnaCodeInVhossKastBepaler/MagDnaCodeInVhossKast/Test.cls.xml	(.../Test.cls.xml)	(revision 61579)
@@ -105,14 +105,27 @@
 <Method name="Test: LBX, eerste scan van nieuwe batch/kast -&gt; ok">
 <Implementation><![CDATA[
 	#dim BatchId As %String = "100000"
+	#dim PalletCode As %String = "O100000010"
 	
-	Set DnaCode = ##class(DOM.Halux.AAP.DnaCode).%New()
-	Set DnaCode.DnaCode = "LAAAAA0"
-	Set DnaCode.BatchId = "100000"
-	#dim Pallet As %String = "O100000010"
+	Set AfTeScannenDnaCode = ##class(DOM.Halux.AAP.DnaCode).%New()
+	Set AfTeScannenDnaCode.DnaCode = "LAAAAA0"
+	Set AfTeScannenDnaCode.BatchId = "100000"
+	Set AfTeScannenDnaCode.SequentieNummer = "3"
 	
+	Set DnaCodeAlAanwezig1 = ##class(DOM.Halux.AAP.DnaCode).%New()
+	Set DnaCodeAlAanwezig1.DnaCode = "LAAAAA1"
+	Set DnaCodeAlAanwezig1.BatchId = "100000"
+	Set DnaCodeAlAanwezig1.SequentieNummer = "1"
+	Set DnaCodeAlAanwezig1.PalletCode = ""
+	
+	Set DnaCodeAlAanwezig2 = ##class(DOM.Halux.AAP.DnaCode).%New()
+	Set DnaCodeAlAanwezig2.DnaCode = "LAAAAA2"
+	Set DnaCodeAlAanwezig2.BatchId = "100000"
+	Set DnaCodeAlAanwezig2.SequentieNummer = "2"
+	Set DnaCodeAlAanwezig2.PalletCode = ""
+	
 	Set SequentieServiceStub = ##class(vhTest.Mock.APPS.Halux.common.SequentieService).%New()
-	Do SequentieServiceStub.IndienMethodCall("HeeftProductieSequentie", DnaCode.BatchId).DanReturn($$$True)
+	Do SequentieServiceStub.IndienMethodCall("HeeftProductieSequentie", AfTeScannenDnaCode.BatchId).DanReturn($$$True)
 	
 	Set Batch = ##class(APPS.Halux.common.impl.BatchImpl).%New()
 	Set ProductieSequentieItem1 = ##class(APPS.Halux.common.VHOSSProductieSequentieItem).%New()
@@ -131,12 +144,15 @@
 	Do ProductieSequentie.VoegToeSequentieItem(ProductieSequentieItem1)
 	Do ProductieSequentie.VoegToeSequentieItem(ProductieSequentieItem2)
 	Do ProductieSequentie.VoegToeSequentieItem(ProductieSequentieItem3)
-	Do SequentieServiceStub.IndienMethodCall("GeefProductieSequentie", DnaCode.BatchId).DanReturn(ProductieSequentie)
+	Do SequentieServiceStub.IndienMethodCall("GeefProductieSequentie", AfTeScannenDnaCode.BatchId).DanReturn(ProductieSequentie)
 	
-	Set Bepaler = ##class(WSimpl.Halux.AAP.DnaCodeService.DnaCodeInVhossKastBepaler).%New(SequentieServiceStub)
+	Set DnaCodeRepositoryStub = ##class(vhTest.Mock.DOM.Halux.AAP.DnaCodeRepository).%New()
+	Do DnaCodeRepositoryStub.IndienMethodCall("ZoekViaBatchId",AfTeScannenDnaCode.BatchId).DanReturn(##class(TECH.ListUtils).CreateIteratorOfObjects(DnaCodeAlAanwezig1,DnaCodeAlAanwezig2))
 	
-	#dim Antwoord As %Boolean = Bepaler.MagDnaCodeInVhossKast(DnaCode,Pallet,BatchId)
+	Set Bepaler = ##class(WSimpl.Halux.AAP.DnaCodeService.DnaCodeInVhossKastBepaler).%New(SequentieServiceStub, DnaCodeRepositoryStub)
 	
+	#dim Antwoord As %Boolean = Bepaler.MagDnaCodeInVhossKast(AfTeScannenDnaCode,PalletCode,BatchId)
+	
 	Do $$$AssertTrue(Antwoord)
 ]]></Implementation>
 </Method>
Index: WSimpl/Halux/AAP/DnaCodeService/DnaCodeInVhossKastBepaler.cls.xml
===================================================================
diff -u -r61578 -r61579
--- WSimpl/Halux/AAP/DnaCodeService/DnaCodeInVhossKastBepaler.cls.xml	(.../DnaCodeInVhossKastBepaler.cls.xml)	(revision 61578)
+++ WSimpl/Halux/AAP/DnaCodeService/DnaCodeInVhossKastBepaler.cls.xml	(.../DnaCodeInVhossKastBepaler.cls.xml)	(revision 61579)
@@ -98,8 +98,6 @@
 <Private>1</Private>
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
-	//loopen over alle DnaCodes in zelfde batch
-	//indien gelijk 
 	#dim Resultaat As %Boolean = $$$True
 	#dim VhossEnZijvlak As %List
 	#dim tempVhossEnZijvlak As %List