Index: WSimpl/Halux/AAP/DnaCodeService/DnaCodeInVhossKastBepaler.cls.xml
===================================================================
diff -u -r61755 -r62480
--- WSimpl/Halux/AAP/DnaCodeService/DnaCodeInVhossKastBepaler.cls.xml	(.../DnaCodeInVhossKastBepaler.cls.xml)	(revision 61755)
+++ WSimpl/Halux/AAP/DnaCodeService/DnaCodeInVhossKastBepaler.cls.xml	(.../DnaCodeInVhossKastBepaler.cls.xml)	(revision 62480)
@@ -148,11 +148,18 @@
 <Private>1</Private>
 <ReturnType>%List</ReturnType>
 <Implementation><![CDATA[
-	If $isObject(TBXSequentie) {
-		Quit $lb(TBXSequentie.GetData(2),TBXSequentie.GetData(4))
-	} Else {
-		Quit $lb(ProductieSequentie.VHOSSID,ProductieSequentie.ZijVlakID)
+	#dim Resultaat As %List
+	try {
+		If $isObject(TBXSequentie) {
+			Set Resultaat = $lb(TBXSequentie.GetData(2),TBXSequentie.GetData(4))
+		} Else {
+			Set Resultaat = $lb(ProductieSequentie.VHOSSID,ProductieSequentie.ZijVlakID)
+		}
+	} catch {
+		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Deze DnaCode hoort niet bij een VHOSS"))
 	}
+	Quit Resultaat
 ]]></Implementation>
 </Method>