Index: vhUnitTest/WSimpl/Halux/AAP/DnaCodeService/DnaCodeInVhossKastBepaler/MagDnaCodeInVhossKast/Test.cls.xml
===================================================================
diff -u -r61590 -r62498
--- vhUnitTest/WSimpl/Halux/AAP/DnaCodeService/DnaCodeInVhossKastBepaler/MagDnaCodeInVhossKast/Test.cls.xml	(.../Test.cls.xml)	(revision 61590)
+++ vhUnitTest/WSimpl/Halux/AAP/DnaCodeService/DnaCodeInVhossKastBepaler/MagDnaCodeInVhossKast/Test.cls.xml	(.../Test.cls.xml)	(revision 62498)
@@ -267,7 +267,7 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: LBX, meegegeven palletcode is al in gebruik binnen batch, maar op andere interne vhoss/zijkant -&gt; niet ok">
+<Method name="Test: LBX, meegegeven palletcode is al in gebruik binnen batch, maar op andere interne vhoss -&gt; niet ok">
 <Implementation><![CDATA[
 	#dim BatchId As %String = "100000"
 	#dim PalletCode As %String = "O100000010"
@@ -303,7 +303,7 @@
 	Set ProductieSequentieItem2.ZijVlakID = "1"
 	Set ProductieSequentieItem3 = ##class(APPS.Halux.common.VHOSSProductieSequentieItem).%New()
 	Set ProductieSequentieItem3.SequentieNummer = "3"
-	Set ProductieSequentieItem3.VHOSSID = "1"
+	Set ProductieSequentieItem3.VHOSSID = "2"
 	Set ProductieSequentieItem3.ZijVlakID = "0"
 	Set ProductieSequentie = ##class(APPS.Halux.common.ProductieSequentie).%New(Batch)
 	Do ProductieSequentie.VoegToeSequentieItem(ProductieSequentieItem1)
@@ -321,6 +321,61 @@
 	Do $$$AssertFalse(Antwoord)
 ]]></Implementation>
 </Method>
+
+<Method name="Test: LBX, meegegeven palletcode is al in gebruik binnen batch, maar op zelfde interne vhoss en andere zijkant -&gt; wel ok">
+<Implementation><![CDATA[
+	#dim BatchId As %String = "100000"
+	#dim PalletCode 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 = "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", 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 ProductieSequentieItem2.ZijVlakID = "1"
+	Set ProductieSequentieItem3 = ##class(APPS.Halux.common.VHOSSProductieSequentieItem).%New()
+	Set ProductieSequentieItem3.SequentieNummer = "3"
+	Set ProductieSequentieItem3.VHOSSID = "1"
+	Set ProductieSequentieItem3.ZijVlakID = "0"
+	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", AfTeScannenDnaCode.BatchId).DanReturn(ProductieSequentie)
+	
+	Set DnaCodeRepositoryStub = ##class(vhTest.Mock.DOM.Halux.AAP.DnaCodeRepository).%New()
+	Do DnaCodeRepositoryStub.IndienMethodCall("ZoekViaBatchId",AfTeScannenDnaCode.BatchId).DanReturn(##class(TECH.ListUtils).CreateIteratorOfObjects(DnaCodeAlAanwezig1,DnaCodeAlAanwezig2))
+	
+	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>
 </Class>
 
 
Index: WSimpl/Halux/AAP/DnaCodeService/DnaCodeInVhossKastBepaler.cls.xml
===================================================================
diff -u -r62480 -r62498
--- WSimpl/Halux/AAP/DnaCodeService/DnaCodeInVhossKastBepaler.cls.xml	(.../DnaCodeInVhossKastBepaler.cls.xml)	(revision 62480)
+++ WSimpl/Halux/AAP/DnaCodeService/DnaCodeInVhossKastBepaler.cls.xml	(.../DnaCodeInVhossKastBepaler.cls.xml)	(revision 62498)
@@ -124,15 +124,15 @@
 			#dim tempInternVhossId = $lg(tempVhossEnZijvlak,1)
 			#dim tempZijVlak = $lg(tempVhossEnZijvlak,2)
 			
-			If (Pallet = tempDnaCode.PalletCode) && ($$$Not(tempInternVhossId = InternVhossId) || $$$Not(tempZijVlak = ZijVlak)) {
+			If (Pallet = tempDnaCode.PalletCode) && ($$$Not(tempInternVhossId = InternVhossId) ) {
 				Set Resultaat = $$$False
 			}
-			If $$$Not(Pallet = tempDnaCode.PalletCode) && ((tempInternVhossId = InternVhossId) && (tempZijVlak = ZijVlak)) {
+			If $$$Not(Pallet = tempDnaCode.PalletCode) && ((tempInternVhossId = InternVhossId) ) {
 				Set Resultaat = $$$False	
 			}
 			
 			If Resultaat {
-				If (tempInternVhossId = InternVhossId) && (tempZijVlak = ZijVlak) {
+				If (tempInternVhossId = InternVhossId)  {
 					Set Resultaat = (tempDnaCode.PalletCode = Pallet)
 				}
 			}