Index: vhUnitTest/DOM/VKP/dto/VerkoopPrijsUitzondering/Test.cls.xml
===================================================================
diff -u -r45364 -r45368
--- vhUnitTest/DOM/VKP/dto/VerkoopPrijsUitzondering/Test.cls.xml	(.../Test.cls.xml)	(revision 45364)
+++ vhUnitTest/DOM/VKP/dto/VerkoopPrijsUitzondering/Test.cls.xml	(.../Test.cls.xml)	(revision 45368)
@@ -8,11 +8,6 @@
 <Private>1</Private>
 </Property>
 
-<Property name="VerkoopPrijsUitzondering">
-<Type>DOM.VKP.dto.VerkoopPrijsUitzondering</Type>
-<Private>1</Private>
-</Property>
-
 <Method name="OnBeforeOneTest">
 <FormalSpec>aTestName:%String</FormalSpec>
 <Implementation><![CDATA[
@@ -31,106 +26,122 @@
 
 <Method name="Test: De node bestaat niet">
 <Implementation><![CDATA[
-	Set ..VerkoopPrijsUitzondering = ##class(DOM.VKP.dto.VerkoopPrijsUitzondering).%New()
-	Set ..VerkoopPrijsUitzondering.KlantId = "K||999"
-	Set ..OpgezetteSubscript = ..VerkoopPrijsUitzondering.ToSubscript()
+	Set VerkoopPrijsUitzondering = ##class(DOM.VKP.dto.VerkoopPrijsUitzondering).%New()
+	Set VerkoopPrijsUitzondering.KlantId = "K||999"
+	Set ..OpgezetteSubscript = VerkoopPrijsUitzondering.ToSubscript()
 	
 	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Subscript '"_..OpgezetteSubscript_"' 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(..OpgezetteSubscript)
+	#dim Uitzondering As DOM.VKP.dto.VerkoopPrijsUitzondering = ##class(DOM.VKP.dto.VerkoopPrijsUitzondering).FromNode(..OpgezetteSubscript)
 ]]></Implementation>
 </Method>
 
 <Method name="Test: De 2e node zet het klantnummer">
 <Implementation><![CDATA[
-	Set ..VerkoopPrijsUitzondering = ##class(DOM.VKP.dto.VerkoopPrijsUitzondering).%New()
-	Set ..VerkoopPrijsUitzondering.KlantId = "K||999"
-	Set ..OpgezetteSubscript = ..VerkoopPrijsUitzondering.ToSubscript()
+	Set VerkoopPrijsUitzondering = ##class(DOM.VKP.dto.VerkoopPrijsUitzondering).%New()
+	Set VerkoopPrijsUitzondering.KlantId = "K||999"
+	Set ..OpgezetteSubscript = VerkoopPrijsUitzondering.ToSubscript()
 	
-	Set @("^KLPUTZ("_..OpgezetteSubscript_")") = "20\0\\178177\\\64649\64663\64531;THB\\\\\\\"
+	Set @("^KLPUTZ("_..OpgezetteSubscript_")") = "0\0\\\\\\\64531;THB\\\\\\\"
 	
-	#dim VerkoopPrijsUitzondering As DOM.VKP.dto.VerkoopPrijsUitzondering = ##class(DOM.VKP.dto.VerkoopPrijsUitzondering).FromNode(..OpgezetteSubscript)
+	#dim Uitzondering As DOM.VKP.dto.VerkoopPrijsUitzondering = ##class(DOM.VKP.dto.VerkoopPrijsUitzondering).FromNode(..OpgezetteSubscript)
 	
-	Do $$$AssertEquals(VerkoopPrijsUitzondering.KlantId,"K||999")
+	Do $$$AssertEquals(Uitzondering.KlantId,"K||999")
 ]]></Implementation>
 </Method>
 
 <Method name="Test: De 3e node zet de hoofdgroep">
 <Implementation><![CDATA[
-	Set ..VerkoopPrijsUitzondering = ##class(DOM.VKP.dto.VerkoopPrijsUitzondering).%New()
-	Set ..VerkoopPrijsUitzondering.KlantId = "K||999"
-	Set ..VerkoopPrijsUitzondering.HoofdGroep = "01CH"
-	Set ..OpgezetteSubscript = ..VerkoopPrijsUitzondering.ToSubscript()
+	Set VerkoopPrijsUitzondering = ##class(DOM.VKP.dto.VerkoopPrijsUitzondering).%New()
+	Set VerkoopPrijsUitzondering.KlantId = "K||999"
+	Set VerkoopPrijsUitzondering.HoofdGroep = "01CH"
+	Set ..OpgezetteSubscript = VerkoopPrijsUitzondering.ToSubscript()
 	
-	Set @("^KLPUTZ("_..OpgezetteSubscript_")") = "20\0\\178177\\\64649\64663\64531;THB\\\\\\\"
+	Set @("^KLPUTZ("_..OpgezetteSubscript_")") = "0\0\\\\\\\64531;THB\\\\\\\"
 	
-	#dim VerkoopPrijsUitzondering As DOM.VKP.dto.VerkoopPrijsUitzondering = ##class(DOM.VKP.dto.VerkoopPrijsUitzondering).FromNode(..OpgezetteSubscript)
+	#dim Uitzondering As DOM.VKP.dto.VerkoopPrijsUitzondering = ##class(DOM.VKP.dto.VerkoopPrijsUitzondering).FromNode(..OpgezetteSubscript)
 	
-	Do $$$AssertEquals(VerkoopPrijsUitzondering.HoofdGroep,"01CH")
+	Do $$$AssertEquals(Uitzondering.HoofdGroep,"01CH")
 ]]></Implementation>
 </Method>
 
 <Method name="Test: De 4e node zet de groep">
 <Implementation><![CDATA[
-	Set ..VerkoopPrijsUitzondering = ##class(DOM.VKP.dto.VerkoopPrijsUitzondering).%New()
-	Set ..VerkoopPrijsUitzondering.KlantId = "K||999"
-	Set ..VerkoopPrijsUitzondering.Groep = "01CH02NOR"
-	Set ..OpgezetteSubscript = ..VerkoopPrijsUitzondering.ToSubscript()
+	Set VerkoopPrijsUitzondering = ##class(DOM.VKP.dto.VerkoopPrijsUitzondering).%New()
+	Set VerkoopPrijsUitzondering.KlantId = "K||999"
+	Set VerkoopPrijsUitzondering.Groep = "01CH02NOR"
+	Set ..OpgezetteSubscript = VerkoopPrijsUitzondering.ToSubscript()
 	
-	Set @("^KLPUTZ("_..OpgezetteSubscript_")") = "20\0\\178177\\\64649\64663\64531;THB\\\\\\\"
+	Set @("^KLPUTZ("_..OpgezetteSubscript_")") = "0\0\\\\\\\64531;THB\\\\\\\"
 	
-	#dim VerkoopPrijsUitzondering As DOM.VKP.dto.VerkoopPrijsUitzondering = ##class(DOM.VKP.dto.VerkoopPrijsUitzondering).FromNode(..OpgezetteSubscript)
+	#dim Uitzondering As DOM.VKP.dto.VerkoopPrijsUitzondering = ##class(DOM.VKP.dto.VerkoopPrijsUitzondering).FromNode(..OpgezetteSubscript)
 	
-	Do $$$AssertEquals(VerkoopPrijsUitzondering.Groep,"01CH02NOR")
+	Do $$$AssertEquals(Uitzondering.Groep,"01CH02NOR")
 ]]></Implementation>
 </Method>
 
 <Method name="Test: De 5e node zet de subgroep">
 <Implementation><![CDATA[
-	Set ..VerkoopPrijsUitzondering = ##class(DOM.VKP.dto.VerkoopPrijsUitzondering).%New()
-	Set ..VerkoopPrijsUitzondering.KlantId = "K||999"
-	Set ..VerkoopPrijsUitzondering.SubGroep = "01CH02NOR02TOP/BL"
-	Set ..OpgezetteSubscript = ..VerkoopPrijsUitzondering.ToSubscript()
+	Set VerkoopPrijsUitzondering = ##class(DOM.VKP.dto.VerkoopPrijsUitzondering).%New()
+	Set VerkoopPrijsUitzondering.KlantId = "K||999"
+	Set VerkoopPrijsUitzondering.SubGroep = "01CH02NOR02TOP/BL"
+	Set ..OpgezetteSubscript = VerkoopPrijsUitzondering.ToSubscript()
 	
-	Set @("^KLPUTZ("_..OpgezetteSubscript_")") = "20\0\\178177\\\64649\64663\64531;THB\\\\\\\"
+	Set @("^KLPUTZ("_..OpgezetteSubscript_")") = "0\0\\\\\\\64531;THB\\\\\\\"
 	
-	#dim VerkoopPrijsUitzondering As DOM.VKP.dto.VerkoopPrijsUitzondering = ##class(DOM.VKP.dto.VerkoopPrijsUitzondering).FromNode(..OpgezetteSubscript)
+	#dim Uitzondering As DOM.VKP.dto.VerkoopPrijsUitzondering = ##class(DOM.VKP.dto.VerkoopPrijsUitzondering).FromNode(..OpgezetteSubscript)
 	
-	Do $$$AssertEquals(VerkoopPrijsUitzondering.SubGroep,"01CH02NOR02TOP/BL")
+	Do $$$AssertEquals(Uitzondering.SubGroep,"01CH02NOR02TOP/BL")
 ]]></Implementation>
 </Method>
 
 <Method name="Test: De 6e node zet het productnummer">
 <Implementation><![CDATA[
-	Set ..VerkoopPrijsUitzondering = ##class(DOM.VKP.dto.VerkoopPrijsUitzondering).%New()
-	Set ..VerkoopPrijsUitzondering.KlantId = "K||999"
-	Set ..VerkoopPrijsUitzondering.PRNr = "49698"
-	Set ..OpgezetteSubscript = ..VerkoopPrijsUitzondering.ToSubscript()
+	Set VerkoopPrijsUitzondering = ##class(DOM.VKP.dto.VerkoopPrijsUitzondering).%New()
+	Set VerkoopPrijsUitzondering.KlantId = "K||999"
+	Set VerkoopPrijsUitzondering.PRNr = "49698"
+	Set ..OpgezetteSubscript = VerkoopPrijsUitzondering.ToSubscript()
 	
-	Set @("^KLPUTZ("_..OpgezetteSubscript_")") = "20\0\\178177\\\64649\64663\64531;THB\\\\\\\"
+	Set @("^KLPUTZ("_..OpgezetteSubscript_")") = "0\0\\\\\\\64531;THB\\\\\\\"
 	
-	#dim VerkoopPrijsUitzondering As DOM.VKP.dto.VerkoopPrijsUitzondering = ##class(DOM.VKP.dto.VerkoopPrijsUitzondering).FromNode(..OpgezetteSubscript)
+	#dim Uitzondering As DOM.VKP.dto.VerkoopPrijsUitzondering = ##class(DOM.VKP.dto.VerkoopPrijsUitzondering).FromNode(..OpgezetteSubscript)
 	
-	Do $$$AssertEquals(VerkoopPrijsUitzondering.PRNr,"49698")
+	Do $$$AssertEquals(Uitzondering.PRNr,"49698")
 ]]></Implementation>
 </Method>
 
 <Method name="Test: De 7e node zet het volgnr">
 <Implementation><![CDATA[
-	Set ..VerkoopPrijsUitzondering = ##class(DOM.VKP.dto.VerkoopPrijsUitzondering).%New()
-	Set ..VerkoopPrijsUitzondering.KlantId = "K||999"
-	Set ..VerkoopPrijsUitzondering.VolgNr = "1"
-	Set ..OpgezetteSubscript = ..VerkoopPrijsUitzondering.ToSubscript()
+	Set VerkoopPrijsUitzondering = ##class(DOM.VKP.dto.VerkoopPrijsUitzondering).%New()
+	Set VerkoopPrijsUitzondering.KlantId = "K||999"
+	Set VerkoopPrijsUitzondering.VolgNr = "1"
+	Set ..OpgezetteSubscript = VerkoopPrijsUitzondering.ToSubscript()
 	
-	Set @("^KLPUTZ("_..OpgezetteSubscript_")") = "20\0\\178177\\\64649\64663\64531;THB\\\\\\\"
+	Set @("^KLPUTZ("_..OpgezetteSubscript_")") = "0\0\\\\\\\64531;THB\\\\\\\"
 	
-	#dim VerkoopPrijsUitzondering As DOM.VKP.dto.VerkoopPrijsUitzondering = ##class(DOM.VKP.dto.VerkoopPrijsUitzondering).FromNode(..OpgezetteSubscript)
+	#dim Uitzondering As DOM.VKP.dto.VerkoopPrijsUitzondering = ##class(DOM.VKP.dto.VerkoopPrijsUitzondering).FromNode(..OpgezetteSubscript)
 	
-	Do $$$AssertEquals(VerkoopPrijsUitzondering.VolgNr,"1")
+	Do $$$AssertEquals(Uitzondering.VolgNr,"1")
 ]]></Implementation>
 </Method>
 
+<Method name="Test: Piece 1 is korting1">
+<Implementation><![CDATA[
+	Set VerkoopPrijsUitzondering = ##class(DOM.VKP.dto.VerkoopPrijsUitzondering).%New()
+	Set VerkoopPrijsUitzondering.KlantId = "K||999"
+	Set VerkoopPrijsUitzondering.Korting1 = "25"
+	#dim OpgezetteDataString As %String = VerkoopPrijsUitzondering.ToDataString()
+	Set ..OpgezetteSubscript = VerkoopPrijsUitzondering.ToSubscript()
+	
+	Set @("^KLPUTZ("_..OpgezetteSubscript_")") = OpgezetteDataString
+	
+	#dim Uitzondering As DOM.VKP.dto.VerkoopPrijsUitzondering = ##class(DOM.VKP.dto.VerkoopPrijsUitzondering).FromNode(..OpgezetteSubscript)
+	
+	Do $$$AssertEquals(Uitzondering.Korting1,"25")
+]]></Implementation>
+</Method>
+
 <Method name="KuisDataOp">
 <Private>1</Private>
 <Implementation><![CDATA[
Index: DOM/VKP/dto/VerkoopPrijsUitzondering.cls.xml
===================================================================
diff -u -r45364 -r45368
--- DOM/VKP/dto/VerkoopPrijsUitzondering.cls.xml	(.../VerkoopPrijsUitzondering.cls.xml)	(revision 45364)
+++ DOM/VKP/dto/VerkoopPrijsUitzondering.cls.xml	(.../VerkoopPrijsUitzondering.cls.xml)	(revision 45368)
@@ -39,11 +39,11 @@
 <Type>%String</Type>
 </Property>
 
-<Property name="MinimumLeveringsTermijn">
+<Property name="PRNr">
 <Type>%String</Type>
 </Property>
 
-<Property name="PRNr">
+<Property name="ReferentieProduct">
 <Type>%String</Type>
 </Property>
 
@@ -55,12 +55,16 @@
 <Type>%String</Type>
 </Property>
 
+<Property name="Wijziging">
+<Type>%String</Type>
+</Property>
+
 <Method name="FromNode">
 <ClassMethod>1</ClassMethod>
 <FormalSpec>Subscript:%String</FormalSpec>
 <ReturnType>DOM.VKP.dto.VerkoopPrijsUitzondering</ReturnType>
 <Implementation><![CDATA[
-	If $$$Not($Data(@("^KLPUTZ("_Subscript_")"))){
+	If $$$Not($Data(@("^KLPUTZ("_Subscript_")")) = 1){
 		Set Exceptie = ##class(TECH.Exceptions.InvalidInputException).%New("Subscript '"_Subscript_"' bestaat niet.")
 		Do ##class(TECH.ExceptionHandler).Throw(Exceptie)
 	}
@@ -73,12 +77,28 @@
 	Set VerkoopPrijsUitzondering.SubGroep = $Extract($Piece(Subscript,",",5),2,*-2)
 	Set VerkoopPrijsUitzondering.VolgNr = $Piece(Subscript,",",7)
 	
+	#dim DataString As %String = @("^KLPUTZ("_Subscript_")")
+	
+	Set VerkoopPrijsUitzondering.Korting1 = $Piece(DataString,"\",1)
+	
 	Quit VerkoopPrijsUitzondering
 ]]></Implementation>
 </Method>
 
 <Method name="ToDataString">
 <ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim DataString As %String
+	Set $Piece(DataString,"\",1) = $$$If(..Korting1 = "", 0, ..Korting1)
+	Set $Piece(DataString,"\",2) = $$$If(..Korting2 = "", 0, ..Korting2)
+	Set $Piece(DataString,"\",4) = $$$If(..ReferentieProduct = "", 0, ..ReferentieProduct)
+	Set $Piece(DataString,"\",5) = $$$If(..MinimumAantal = "", 0, ..MinimumAantal)
+	Set $Piece(DataString,"\",7) = $$$If(..GeldigTot = "", 0, ..GeldigTot)
+	Set $Piece(DataString,"\",8) = $$$If(..GeldigTot = "", 0, ..GeldigTot)
+	Set $Piece(DataString,"\",9) = $$$If(..Wijziging = "", 0, ..Wijziging)
+	
+	Quit DataString
+]]></Implementation>
 </Method>
 
 <Method name="ToSubscript">