Index: vhUnitTest/WSimpl/Halux/AAP/DnaCodeService/DnaCodeInVhossKastBepaler/MagDnaCodeInVhossKast/Test.cls.xml
===================================================================
diff -u -r62647 -r62658
--- vhUnitTest/WSimpl/Halux/AAP/DnaCodeService/DnaCodeInVhossKastBepaler/MagDnaCodeInVhossKast/Test.cls.xml	(.../Test.cls.xml)	(revision 62647)
+++ vhUnitTest/WSimpl/Halux/AAP/DnaCodeService/DnaCodeInVhossKastBepaler/MagDnaCodeInVhossKast/Test.cls.xml	(.../Test.cls.xml)	(revision 62658)
@@ -322,6 +322,61 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test: LBX, een niet-O1 palletcode mag werking niet tegenhouden">
+<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 = "TBX123456"
+	
+	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 = "2"
+	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>
+
 <Method name="Test: LBX, meegegeven palletcode is al in gebruik binnen batch, maar op zelfde interne vhoss en andere zijkant -&gt; niet ok">
 <Implementation><![CDATA[
 	#dim BatchId As %String = "100000"
Index: WSimpl/Halux/AAP/DnaCodeService/DnaCodeInVhossKastBepaler.cls.xml
===================================================================
diff -u -r62647 -r62658
--- WSimpl/Halux/AAP/DnaCodeService/DnaCodeInVhossKastBepaler.cls.xml	(.../DnaCodeInVhossKastBepaler.cls.xml)	(revision 62647)
+++ WSimpl/Halux/AAP/DnaCodeService/DnaCodeInVhossKastBepaler.cls.xml	(.../DnaCodeInVhossKastBepaler.cls.xml)	(revision 62658)
@@ -124,17 +124,19 @@
 			#dim tempInternVhossId = $lg(tempVhossEnZijvlak,1)
 			#dim tempZijVlak = $lg(tempVhossEnZijvlak,2)
 			
-			If (Pallet = tempDnaCode.PalletCode) && ($$$Not(tempInternVhossId = InternVhossId) || $$$Not(tempZijVlak = ZijVlak)) {
-				Set Resultaat = $$$False
-			}
-			If $$$Not(Pallet = tempDnaCode.PalletCode) && ((tempInternVhossId = InternVhossId) && (tempZijVlak = ZijVlak)) {
-				Set Resultaat = $$$False	
-			}
-			
-			If Resultaat {
-				If (tempInternVhossId = InternVhossId) && (tempZijVlak = ZijVlak) {
-					Set Resultaat = (tempDnaCode.PalletCode = Pallet)
+			If ##class(TECH.StringUtils).StartsWith(tempDnaCode.PalletCode,"O1") {
+				If (Pallet = tempDnaCode.PalletCode) && ($$$Not(tempInternVhossId = InternVhossId) || $$$Not(tempZijVlak = ZijVlak)) {
+					Set Resultaat = $$$False
 				}
+				If $$$Not(Pallet = tempDnaCode.PalletCode) && ((tempInternVhossId = InternVhossId) && (tempZijVlak = ZijVlak)) {
+					Set Resultaat = $$$False	
+				}
+				
+				If Resultaat {
+					If (tempInternVhossId = InternVhossId) && (tempZijVlak = ZijVlak) {
+						Set Resultaat = (tempDnaCode.PalletCode = Pallet)
+					}
+				}
 			}
 		}
 	}