Index: WSimpl/Halux/AAP/DnaCodeService/DnaCodeInVhossKastBepaler.cls.xml
===================================================================
diff -u -r62658 -r62824
--- WSimpl/Halux/AAP/DnaCodeService/DnaCodeInVhossKastBepaler.cls.xml	(.../DnaCodeInVhossKastBepaler.cls.xml)	(revision 62658)
+++ WSimpl/Halux/AAP/DnaCodeService/DnaCodeInVhossKastBepaler.cls.xml	(.../DnaCodeInVhossKastBepaler.cls.xml)	(revision 62824)
@@ -96,9 +96,9 @@
 <Method name="VerwerkDnaCode">
 <FormalSpec>DnaCode:DOM.Halux.AAP.DnaCode,TBXSequentie:%CacheString="",ProductieSequentie:APPS.Halux.common.VHOSSProductieSequentieItem="",Pallet:%String,BatchId:%String</FormalSpec>
 <Private>1</Private>
-<ReturnType>%Boolean</ReturnType>
+<ReturnType>%Integer</ReturnType>
 <Implementation><![CDATA[
-	#dim Resultaat As %Boolean = $$$True
+	#dim Resultaat As %Integer = 1
 	#dim VhossEnZijvlak As %List
 	#dim tempVhossEnZijvlak As %List
 	#dim tempTbxSequentie As %CacheString = ""
@@ -110,7 +110,7 @@
 	
 	#dim tempDnaCode As DOM.Halux.AAP.DnaCode
 	#dim DnaCodeIterator As TECH.Iterator = ..DnaCodeRepository.ZoekViaBatchId(DnaCode.BatchId)
-	While DnaCodeIterator.HasNext() && Resultaat {
+	While DnaCodeIterator.HasNext() && (Resultaat = 1) {
 		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) {
@@ -126,16 +126,19 @@
 			
 			If ##class(TECH.StringUtils).StartsWith(tempDnaCode.PalletCode,"O1") {
 				If (Pallet = tempDnaCode.PalletCode) && ($$$Not(tempInternVhossId = InternVhossId) || $$$Not(tempZijVlak = ZijVlak)) {
-					Set Resultaat = $$$False
+					Set Resultaat = 0
 				}
 				If $$$Not(Pallet = tempDnaCode.PalletCode) && ((tempInternVhossId = InternVhossId) && (tempZijVlak = ZijVlak)) {
-					Set Resultaat = $$$False	
+					Set Resultaat = 1
 				}
 				
-				If Resultaat {
+				If Resultaat=1 {
 					If (tempInternVhossId = InternVhossId) && (tempZijVlak = ZijVlak) {
 						Set Resultaat = (tempDnaCode.PalletCode = Pallet)
 					}
+					If (tempInternVhossId = InternVhossId) && $$$Not(tempZijVlak = ZijVlak) {
+						Set Resultaat = 2
+					}
 				}
 			}
 		}