Index: vhUnitTest/WSimpl/Halux/AAP/DnaCodeService/DnaCodeInVhossKastBepaler/MagDnaCodeInVhossKast/Test.cls.xml
===================================================================
diff -u -r61579 -r61587
--- vhUnitTest/WSimpl/Halux/AAP/DnaCodeService/DnaCodeInVhossKastBepaler/MagDnaCodeInVhossKast/Test.cls.xml	(.../Test.cls.xml)	(revision 61579)
+++ vhUnitTest/WSimpl/Halux/AAP/DnaCodeService/DnaCodeInVhossKastBepaler/MagDnaCodeInVhossKast/Test.cls.xml	(.../Test.cls.xml)	(revision 61587)
@@ -76,7 +76,7 @@
 
 <UDLText name="T">
 <Content><![CDATA[
-//          --> checken of "huidige vhosskast" al in gebruik is voor andere dnacodes in de batch. Indien zo -> foutmelding
+//          --> checken of "palletcode" al in gebruik is voor andere dnacodes in de batch. Indien zo -> foutmelding
 
 ]]></Content>
 </UDLText>
@@ -267,6 +267,61 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test: LBX, meegegeven palletcode is al in gebruik binnen batch, maar op andere interne vhoss/zijkant -&gt; niet 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 $$$AssertFalse(Antwoord)
+]]></Implementation>
+</Method>
+
 <UDLText name="T">
 <Content><![CDATA[
 // 
Index: WSimpl/Halux/AAP/DnaCodeService/DnaCodeInVhossKastBepaler.cls.xml
===================================================================
diff -u -r61579 -r61587
--- WSimpl/Halux/AAP/DnaCodeService/DnaCodeInVhossKastBepaler.cls.xml	(.../DnaCodeInVhossKastBepaler.cls.xml)	(revision 61579)
+++ WSimpl/Halux/AAP/DnaCodeService/DnaCodeInVhossKastBepaler.cls.xml	(.../DnaCodeInVhossKastBepaler.cls.xml)	(revision 61587)
@@ -117,16 +117,22 @@
 			If ##class(TECH.StringUtils).StartsWith(DnaCode.DnaCode,"T") {
 				Set tempTbxSequentie = ..GeefOvereenkomendProductieSequentieItemTBX(tempDnaCode)	
 			} Else {
-				Set tempProductieSequentieItem = ..GeefOvereenkomendProductieSequentieItemNietTBX(DnaCode)
+				Set tempProductieSequentieItem = ..GeefOvereenkomendProductieSequentieItemNietTBX(tempDnaCode)
 			}
 	
 			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)
+			If (Pallet = tempDnaCode.PalletCode) && ($$$Not(tempInternVhossId = InternVhossId) || $$$Not(tempZijVlak = ZijVlak)) {
+				Set Resultaat = $$$False
 			}
+			
+			If Resultaat {
+				If (tempInternVhossId = InternVhossId) && (tempZijVlak = ZijVlak) {
+					Set Resultaat = (tempDnaCode.PalletCode = Pallet)
+				}
+			}
 		}
 	}