Index: vhUnitTest/DOM/VKP/dto/VerkoopPrijsUitzondering/Test.cls.xml
===================================================================
diff -u -r45313 -r45319
--- vhUnitTest/DOM/VKP/dto/VerkoopPrijsUitzondering/Test.cls.xml	(.../Test.cls.xml)	(revision 45313)
+++ vhUnitTest/DOM/VKP/dto/VerkoopPrijsUitzondering/Test.cls.xml	(.../Test.cls.xml)	(revision 45319)
@@ -5,11 +5,16 @@
 
 <Method name="Test: De node bestaat niet">
 <Implementation><![CDATA[
-	#dim GlobelRef As %String = "^KLPUTZ(""N"",20486,""01CH "",0,0,0,1)"
+	#dim TypePrijs As %String = """N"""
+	#dim KlantNummer As %String = """999"""
+	#dim HoofdGroep As %String = """01CH """
 	
-	#dim VerkoopPrijsUitzondering As DOM.VKP.dto.VerkoopPrijsUitzondering = ##class(DOM.VKP.dto.VerkoopPrijsUitzondering).FromNode(GlobelRef)
+	#dim Subscript As %String = "("_TypePrijs_","_KlantNummer_","_HoofdGroep_",0,0,0,1)"
 	
-	Do $$$AssertEquals(VerkoopPrijsUitzondering,"")
+	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Subscript '"_Subscript_"' bestaat niet.")
+	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New(..E.InvalidInputException,Substrings))
+	
+	#dim VerkoopPrijsUitzondering As DOM.VKP.dto.VerkoopPrijsUitzondering = ##class(DOM.VKP.dto.VerkoopPrijsUitzondering).FromNode(Subscript)
 ]]></Implementation>
 </Method>
 </Class>
Index: DOM/VKP/dto/VerkoopPrijsUitzondering.cls.xml
===================================================================
diff -u -r45313 -r45319
--- DOM/VKP/dto/VerkoopPrijsUitzondering.cls.xml	(.../VerkoopPrijsUitzondering.cls.xml)	(revision 45313)
+++ DOM/VKP/dto/VerkoopPrijsUitzondering.cls.xml	(.../VerkoopPrijsUitzondering.cls.xml)	(revision 45319)
@@ -53,9 +53,14 @@
 
 <Method name="FromNode">
 <ClassMethod>1</ClassMethod>
-<FormalSpec>GlobalRef:%String</FormalSpec>
+<FormalSpec>Subscript:%String</FormalSpec>
 <ReturnType>DOM.VKP.dto.VerkoopPrijsUitzondering</ReturnType>
-<Implementation><![CDATA[	Quit ""
+<Implementation><![CDATA[
+	If $$$Not($Data(@("^KLPUTZ"_Subscript_""))){
+		Set Exceptie = ##class(TECH.Exceptions.InvalidInputException).%New("Subscript '"_Subscript_"' bestaat niet.")
+		Do ##class(TECH.ExceptionHandler).Throw(Exceptie)
+	}
+	Quit ""
 ]]></Implementation>
 </Method>
 </Class>