Index: WSimpl/Halux/AAP/DnaCodeService/DnaCodeInVhossKastBepaler.cls.xml
===================================================================
diff -u -r61750 -r61755
--- WSimpl/Halux/AAP/DnaCodeService/DnaCodeInVhossKastBepaler.cls.xml	(.../DnaCodeInVhossKastBepaler.cls.xml)	(revision 61750)
+++ WSimpl/Halux/AAP/DnaCodeService/DnaCodeInVhossKastBepaler.cls.xml	(.../DnaCodeInVhossKastBepaler.cls.xml)	(revision 61755)
@@ -127,6 +127,9 @@
 			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) {
@@ -146,7 +149,7 @@
 <ReturnType>%List</ReturnType>
 <Implementation><![CDATA[
 	If $isObject(TBXSequentie) {
-		Quit $lb(TBXSequentie.GetData(2),TBXSequentie.GetData(3))
+		Quit $lb(TBXSequentie.GetData(2),TBXSequentie.GetData(4))
 	} Else {
 		Quit $lb(ProductieSequentie.VHOSSID,ProductieSequentie.ZijVlakID)
 	}