Index: vhUnitTest/DOM/VKP/dto/VerkoopPrijsUitzondering/Test.cls.xml
===================================================================
diff -u -r45319 -r45320
--- vhUnitTest/DOM/VKP/dto/VerkoopPrijsUitzondering/Test.cls.xml	(.../Test.cls.xml)	(revision 45319)
+++ vhUnitTest/DOM/VKP/dto/VerkoopPrijsUitzondering/Test.cls.xml	(.../Test.cls.xml)	(revision 45320)
@@ -3,6 +3,11 @@
 <Class name="vhUnitTest.DOM.VKP.dto.VerkoopPrijsUitzondering.Test">
 <Super>vhUnitTest.TestCase</Super>
 
+<Property name="OpgezetteSubscript">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="Test: De node bestaat niet">
 <Implementation><![CDATA[
 	#dim TypePrijs As %String = """N"""
@@ -17,6 +22,36 @@
 	#dim VerkoopPrijsUitzondering As DOM.VKP.dto.VerkoopPrijsUitzondering = ##class(DOM.VKP.dto.VerkoopPrijsUitzondering).FromNode(Subscript)
 ]]></Implementation>
 </Method>
+
+<Method name="Test: De node bestaat wel">
+<Implementation><![CDATA[
+	Do ..ZetDataOp()
+	
+	#dim Subscript As %String = ..OpgezetteSubscript
+	
+	#dim VerkoopPrijsUitzondering As DOM.VKP.dto.VerkoopPrijsUitzondering = ##class(DOM.VKP.dto.VerkoopPrijsUitzondering).FromNode(Subscript)
+	
+	Do $$$AssertEquals($ClassName(VerkoopPrijsUitzondering),"DOM.VKP.dto.VerkoopPrijsUitzondering")
+	
+	Do ..KuisDataOp()
+]]></Implementation>
+</Method>
+
+<Method name="ZetDataOp">
+<Private>1</Private>
+<Implementation><![CDATA[
+	Do ..KuisDataOp()
+	
+	Set ^KLPUTZ("N",20486,"01CH ",0,0,0,1) = "20\0\\178177\\\64649\64663\64531;THB\\\\\\\"
+	Set ..OpgezetteSubscript = "(""N"",20486,""01CH "",0,0,0,1)"
+]]></Implementation>
+</Method>
+
+<Method name="KuisDataOp">
+<Private>1</Private>
+<Implementation><![CDATA[	Kill ^KLPUTZ("N",20486,"01CH ",0,0,0,1)
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: DOM/VKP/dto/VerkoopPrijsUitzondering.cls.xml
===================================================================
diff -u -r45319 -r45320
--- DOM/VKP/dto/VerkoopPrijsUitzondering.cls.xml	(.../VerkoopPrijsUitzondering.cls.xml)	(revision 45319)
+++ DOM/VKP/dto/VerkoopPrijsUitzondering.cls.xml	(.../VerkoopPrijsUitzondering.cls.xml)	(revision 45320)
@@ -60,7 +60,10 @@
 		Set Exceptie = ##class(TECH.Exceptions.InvalidInputException).%New("Subscript '"_Subscript_"' bestaat niet.")
 		Do ##class(TECH.ExceptionHandler).Throw(Exceptie)
 	}
-	Quit ""
+	
+	Set VerkoopPrijsUitzondering = ##class(DOM.VKP.dto.VerkoopPrijsUitzondering).%New()
+	
+	Quit VerkoopPrijsUitzondering
 ]]></Implementation>
 </Method>
 </Class>