Index: vhUnitTest/WSimpl/Halux/AAP/DnaCodeService/DnaCodeInVhossKastBepaler/MagDnaCodeInVhossKast/Test.cls.xml
===================================================================
diff -u -r61574 -r61578
--- vhUnitTest/WSimpl/Halux/AAP/DnaCodeService/DnaCodeInVhossKastBepaler/MagDnaCodeInVhossKast/Test.cls.xml	(.../Test.cls.xml)	(revision 61574)
+++ vhUnitTest/WSimpl/Halux/AAP/DnaCodeService/DnaCodeInVhossKastBepaler/MagDnaCodeInVhossKast/Test.cls.xml	(.../Test.cls.xml)	(revision 61578)
@@ -102,7 +102,7 @@
 ]]></Content>
 </UDLText>
 
-<Method name="aTest: LBX, eerste scan van nieuwe batch/kast -&gt; ok">
+<Method name="Test: LBX, eerste scan van nieuwe batch/kast -&gt; ok">
 <Implementation><![CDATA[
 	#dim BatchId As %String = "100000"
 	
@@ -116,14 +116,21 @@
 	
 	Set Batch = ##class(APPS.Halux.common.impl.BatchImpl).%New()
 	Set ProductieSequentieItem1 = ##class(APPS.Halux.common.VHOSSProductieSequentieItem).%New()
+	Set ProductieSequentieItem1.SequentieNummer = "1"
 	Set ProductieSequentieItem1.VHOSSID = "1"
 	Set ProductieSequentieItem1.ZijVlakID = "1"
 	Set ProductieSequentieItem2 = ##class(APPS.Halux.common.VHOSSProductieSequentieItem).%New()
+	Set ProductieSequentieItem2.SequentieNummer = "2"
 	Set ProductieSequentieItem2.VHOSSID = "1"
-	Set ProductieSequentieItem1.ZijVlakID = "1"
+	Set ProductieSequentieItem2.ZijVlakID = "1"
+	Set ProductieSequentieItem3 = ##class(APPS.Halux.common.VHOSSProductieSequentieItem).%New()
+	Set ProductieSequentieItem3.SequentieNummer = "3"
+	Set ProductieSequentieItem3.VHOSSID = "1"
+	Set ProductieSequentieItem3.ZijVlakID = "1"
 	Set ProductieSequentie = ##class(APPS.Halux.common.ProductieSequentie).%New(Batch)
 	Do ProductieSequentie.VoegToeSequentieItem(ProductieSequentieItem1)
 	Do ProductieSequentie.VoegToeSequentieItem(ProductieSequentieItem2)
+	Do ProductieSequentie.VoegToeSequentieItem(ProductieSequentieItem3)
 	Do SequentieServiceStub.IndienMethodCall("GeefProductieSequentie", DnaCode.BatchId).DanReturn(ProductieSequentie)
 	
 	Set Bepaler = ##class(WSimpl.Halux.AAP.DnaCodeService.DnaCodeInVhossKastBepaler).%New(SequentieServiceStub)
@@ -139,14 +146,25 @@
 	#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"
-	Set DnaCode.SequentieNummer = "1"
-	Set DnaCode.PalletCode = PalletCode
+	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 = "O100000010"
+	
+	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()
@@ -157,48 +175,79 @@
 	Set ProductieSequentieItem2.SequentieNummer = "2"
 	Set ProductieSequentieItem2.VHOSSID = "1"
 	Set ProductieSequentieItem2.ZijVlakID = "1"
+	Set ProductieSequentieItem3 = ##class(APPS.Halux.common.VHOSSProductieSequentieItem).%New()
+	Set ProductieSequentieItem3.SequentieNummer = "3"
+	Set ProductieSequentieItem3.VHOSSID = "1"
+	Set ProductieSequentieItem3.ZijVlakID = "1"
 	Set ProductieSequentie = ##class(APPS.Halux.common.ProductieSequentie).%New(Batch)
 	Do ProductieSequentie.VoegToeSequentieItem(ProductieSequentieItem1)
 	Do ProductieSequentie.VoegToeSequentieItem(ProductieSequentieItem2)
-	Do SequentieServiceStub.IndienMethodCall("GeefProductieSequentie", DnaCode.BatchId).DanReturn(ProductieSequentie)
+	Do ProductieSequentie.VoegToeSequentieItem(ProductieSequentieItem3)
+	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,PalletCode,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>
 
-<Method name="aTest: LBX, al scan aanwezig met zelfde batch/kast en zelfde palletcode -&gt; niet ok">
+<Method name="Test: LBX, al scan aanwezig met zelfde batch/kast en andere palletcode -&gt; niet 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 = "O100000011"
+	
+	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()
+	Set ProductieSequentieItem1.SequentieNummer = "1"
 	Set ProductieSequentieItem1.VHOSSID = "1"
 	Set ProductieSequentieItem1.ZijVlakID = "1"
 	Set ProductieSequentieItem2 = ##class(APPS.Halux.common.VHOSSProductieSequentieItem).%New()
+	Set ProductieSequentieItem2.SequentieNummer = "2"
 	Set ProductieSequentieItem2.VHOSSID = "1"
-	Set ProductieSequentieItem1.ZijVlakID = "1"
+	Set ProductieSequentieItem2.ZijVlakID = "1"
+	Set ProductieSequentieItem3 = ##class(APPS.Halux.common.VHOSSProductieSequentieItem).%New()
+	Set ProductieSequentieItem3.SequentieNummer = "3"
+	Set ProductieSequentieItem3.VHOSSID = "1"
+	Set ProductieSequentieItem3.ZijVlakID = "1"
 	Set ProductieSequentie = ##class(APPS.Halux.common.ProductieSequentie).%New(Batch)
 	Do ProductieSequentie.VoegToeSequentieItem(ProductieSequentieItem1)
 	Do ProductieSequentie.VoegToeSequentieItem(ProductieSequentieItem2)
-	Do SequentieServiceStub.IndienMethodCall("GeefProductieSequentie", DnaCode.BatchId).DanReturn(ProductieSequentie)
+	Do ProductieSequentie.VoegToeSequentieItem(ProductieSequentieItem3)
+	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)
 	
-	Do $$$AssertTrue(Antwoord)
+	#dim Antwoord As %Boolean = Bepaler.MagDnaCodeInVhossKast(AfTeScannenDnaCode,PalletCode,BatchId)
+	
+	Do $$$AssertFalse(Antwoord)
 ]]></Implementation>
 </Method>
 
Index: vhTest/Mock/WSimpl/Halux/AAP/DnaCodeService/DnaCodeInVhossKastBepaler.cls.xml
===================================================================
diff -u -r61564 -r61578
--- vhTest/Mock/WSimpl/Halux/AAP/DnaCodeService/DnaCodeInVhossKastBepaler.cls.xml	(.../DnaCodeInVhossKastBepaler.cls.xml)	(revision 61564)
+++ vhTest/Mock/WSimpl/Halux/AAP/DnaCodeService/DnaCodeInVhossKastBepaler.cls.xml	(.../DnaCodeInVhossKastBepaler.cls.xml)	(revision 61578)
@@ -9,7 +9,7 @@
 <Inheritance>right</Inheritance>
 
 <Method name="%OnNew">
-<FormalSpec>SequentieService:APPS.Halux.common.SequentieService</FormalSpec>
+<FormalSpec>SequentieService:APPS.Halux.common.SequentieService,DnaCodeRepository:DOM.Halux.AAP.DnaCodeRepository</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[	Quit $$$OK
 ]]></Implementation>
Index: WSimpl/Halux/AAP/DnaCodeService/DnaCodeInVhossKastBepaler.cls.xml
===================================================================
diff -u -r61576 -r61578
--- WSimpl/Halux/AAP/DnaCodeService/DnaCodeInVhossKastBepaler.cls.xml	(.../DnaCodeInVhossKastBepaler.cls.xml)	(revision 61576)
+++ WSimpl/Halux/AAP/DnaCodeService/DnaCodeInVhossKastBepaler.cls.xml	(.../DnaCodeInVhossKastBepaler.cls.xml)	(revision 61578)
@@ -8,14 +8,20 @@
 <Private>1</Private>
 </Property>
 
+<Property name="DnaCodeRepository">
+<Type>DOM.Halux.AAP.DnaCodeRepository</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>SequentieService:APPS.Halux.common.SequentieService</FormalSpec>
+<FormalSpec>SequentieService:APPS.Halux.common.SequentieService,DnaCodeRepository:DOM.Halux.AAP.DnaCodeRepository</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
 	Set ..SequentieService = $$$Inject(SequentieService, ##class(APPS.Halux.common.impl.SequentieService).%New())
+	Set ..DnaCodeRepository = $$$Inject(DnaCodeRepository, ##class(DOM.Halux.AAP.DnaCodeRepository).%New())
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -48,18 +54,18 @@
 </Method>
 
 <Method name="GeefOvereenkomendProductieSequentieItemTBX">
-<FormalSpec>DnaCode:DOM.Halux.AAP.DnaCode,SequentieIterator:TECH.Iterator</FormalSpec>
+<FormalSpec>DnaCode:DOM.Halux.AAP.DnaCode</FormalSpec>
 <Private>1</Private>
 <ReturnType>%CacheString</ReturnType>
 <Implementation><![CDATA[
 	#dim Resultaat As %cachestring
 	#dim TbxSequentie As %CacheString
 	#dim ItemIterator As TECH.Iterator = ..GeefTbxSequentieIterator(DnaCode.BatchId)
 
-	While SequentieIterator.HasNext() {
-		Set TbxSequentie = SequentieIterator.Next()
+	While ItemIterator.HasNext() {
+		Set TbxSequentie = ItemIterator.Next()
 		If DnaCode.SequentieNummer = TbxSequentie.GetData(1) {
-			Set Resultaat = $lb(TbxSequentie.GetData(2),TbxSequentie.GetData(3))
+			Set Resultaat = TbxSequentie
 		}
 	}		
 	 
@@ -88,29 +94,61 @@
 </Method>
 
 <Method name="VerwerkDnaCode">
-<FormalSpec>DnaCode:DOM.Halux.AAP.DnaCode,TBXSequentie:%CacheString,ProductieSequentie:APPS.Halux.common.VHOSSProductieSequentieItem,Pallet:%String,BatchId:%String</FormalSpec>
+<FormalSpec>DnaCode:DOM.Halux.AAP.DnaCode,TBXSequentie:%CacheString="",ProductieSequentie:APPS.Halux.common.VHOSSProductieSequentieItem="",Pallet:%String,BatchId:%String</FormalSpec>
 <Private>1</Private>
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
-	Quit $$$True
-	/*Quit:GuiVhossVolgnummer="" $$$True
+	//loopen over alle DnaCodes in zelfde batch
+	//indien gelijk 
+	#dim Resultaat As %Boolean = $$$True
+	#dim VhossEnZijvlak As %List
+	#dim tempVhossEnZijvlak As %List
+	#dim tempTbxSequentie As %CacheString = ""
+	#dim tempProductieSequentieItem As APPS.Halux.common.VHOSSProductieSequentieItem = ""
 	
-	#dim Resultaat As %Boolean = $$$False
-	//checken of er voor deze interne id al gescande dnacodes bestaan met een ander vhosslocatie ingevuld dan diegene die is ingescand
+	Set VhossEnZijvlak = ..GeefVhossEnZijvlak(TBXSequentie,ProductieSequentie)
+	#dim InternVhossId = $lg(VhossEnZijvlak,1)
+	#dim ZijVlak = $lg(VhossEnZijvlak,2)
 	
+	#dim tempDnaCode As DOM.Halux.AAP.DnaCode
+	#dim DnaCodeIterator As TECH.Iterator = ..DnaCodeRepository.ZoekViaBatchId(DnaCode.BatchId)
+	While DnaCodeIterator.HasNext() {
+		Set tempDnaCode = DnaCodeIterator.Next()
+		//als palletcode is ingevuld: checken of vhoss/zijkant van DnaCode gelijk zijn aan input. Indien zo dan MOET inputpalletcode gelijk zijn aan tempdnacode.palletcode
+		If $$$HasLength(tempDnaCode.PalletCode) {
+			If ##class(TECH.StringUtils).StartsWith(DnaCode.DnaCode,"T") {
+				Set tempTbxSequentie = ..GeefOvereenkomendProductieSequentieItemTBX(tempDnaCode)	
+			} Else {
+				Set tempProductieSequentieItem = ..GeefOvereenkomendProductieSequentieItemNietTBX(DnaCode)
+			}
 	
-	If DnaCode.SequentieNummer = ProductieSequentieNummer {
-		If $$$Not(ProductieVHOSSID = GuiVhossVolgnummer) {
-			Set Resultaat = $$$False
-			//Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("De lade moet in een andere Vhosskast"))
-		} Else {
-			Set Resultaat = $$$True
+			Set tempVhossEnZijvlak = ..GeefVhossEnZijvlak(tempTbxSequentie,tempProductieSequentieItem)
+			#dim tempInternVhossId = $lg(tempVhossEnZijvlak,1)
+			#dim tempZijVlak = $lg(tempVhossEnZijvlak,2)
+			
+			If (tempInternVhossId = InternVhossId) && (tempZijVlak = ZijVlak) {
+				Set Resultaat = (tempDnaCode.PalletCode = Pallet)
+			}
 		}
 	}
-	Quit Resultaat*/
+	
+	Quit Resultaat
 ]]></Implementation>
 </Method>
 
+<Method name="GeefVhossEnZijvlak">
+<FormalSpec>TBXSequentie:%CacheString="",ProductieSequentie:APPS.Halux.common.VHOSSProductieSequentieItem=""</FormalSpec>
+<Private>1</Private>
+<ReturnType>%List</ReturnType>
+<Implementation><![CDATA[
+	If $isObject(TBXSequentie) {
+		Quit $lb(TBXSequentie.GetAt(2),TBXSequentie.GetAt(3))
+	} Else {
+		Quit $lb(ProductieSequentie.VHOSSID,ProductieSequentie.ZijVlakID)
+	}
+]]></Implementation>
+</Method>
+
 <Method name="GeefTbxSequentieIterator">
 <FormalSpec>BatchId:%String</FormalSpec>
 <Private>1</Private>