Index: DOM/VKP/dto/VerkoopPrijsUitzondering.cls.xml
===================================================================
diff -u -r45381 -r45387
--- DOM/VKP/dto/VerkoopPrijsUitzondering.cls.xml	(.../VerkoopPrijsUitzondering.cls.xml)	(revision 45381)
+++ DOM/VKP/dto/VerkoopPrijsUitzondering.cls.xml	(.../VerkoopPrijsUitzondering.cls.xml)	(revision 45387)
@@ -55,10 +55,14 @@
 <Type>%String</Type>
 </Property>
 
-<Property name="Wijziging">
+<Property name="GewijzigdDoor">
 <Type>%String</Type>
 </Property>
 
+<Property name="GewijzigdOp">
+<Type>%Date</Type>
+</Property>
+
 <Method name="FromNode">
 <ClassMethod>1</ClassMethod>
 <FormalSpec>Subscript:%String</FormalSpec>
@@ -84,7 +88,8 @@
 	Set VerkoopPrijsUitzondering.MinimumAantal = $Piece(DataString,"\",5)
 	Set VerkoopPrijsUitzondering.GeldigVan = $Piece(DataString,"\",7)
 	Set VerkoopPrijsUitzondering.GeldigTot = $Piece(DataString,"\",8)
-	Set VerkoopPrijsUitzondering.Wijziging = $Piece(DataString,"\",9)
+	Set VerkoopPrijsUitzondering.GewijzigdDoor = $Piece($Piece(DataString,"\",9),";",2)
+	Set VerkoopPrijsUitzondering.GewijzigdOp = $Piece($Piece(DataString,"\",9),";",1)
 	
 	Quit VerkoopPrijsUitzondering
 ]]></Implementation>
@@ -96,11 +101,14 @@
 	#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 = "", "", ..ReferentieProduct)
-	Set $Piece(DataString,"\",5) = $$$If(..MinimumAantal = "", "", ..MinimumAantal)
-	Set $Piece(DataString,"\",7) = $$$If(..GeldigVan = "", "", ..GeldigVan)
-	Set $Piece(DataString,"\",8) = $$$If(..GeldigTot = "", "", ..GeldigTot)
-	Set $Piece(DataString,"\",9) = $$$If(..Wijziging = "", "", ..Wijziging)
+	Set $Piece(DataString,"\",4) = ..ReferentieProduct
+	Set $Piece(DataString,"\",5) = ..MinimumAantal
+	Set $Piece(DataString,"\",7) = ..GeldigVan
+	Set $Piece(DataString,"\",8) = ..GeldigTot
+	#dim GewijzigdSubString As %String = ""
+	Set $Piece(GewijzigdSubString,";",1) = ..GewijzigdOp
+	Set $Piece(GewijzigdSubString,";",2) = ..GewijzigdDoor
+	Set $Piece(DataString,"\",9) = GewijzigdSubString
 	
 	Quit DataString
 ]]></Implementation>
Index: vhUnitTest/DOM/VKP/dto/VerkoopPrijsUitzondering/Test.cls.xml
===================================================================
diff -u -r45380 -r45387
--- vhUnitTest/DOM/VKP/dto/VerkoopPrijsUitzondering/Test.cls.xml	(.../Test.cls.xml)	(revision 45380)
+++ vhUnitTest/DOM/VKP/dto/VerkoopPrijsUitzondering/Test.cls.xml	(.../Test.cls.xml)	(revision 45387)
@@ -194,50 +194,84 @@
 <Implementation><![CDATA[
 	Set VerkoopPrijsUitzondering = ##class(DOM.VKP.dto.VerkoopPrijsUitzondering).%New()
 	Set VerkoopPrijsUitzondering.KlantId = "K||999"
-	Set VerkoopPrijsUitzondering.GeldigVan = $HOROLOG+1
+	Set VerkoopPrijsUitzondering.GeldigVan = $$$CurrentDate
 	#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.GeldigVan,$HOROLOG+1)
+	Do $$$AssertEquals(Uitzondering.GeldigVan,$$$CurrentDate)
 ]]></Implementation>
 </Method>
 
 <Method name="Test: Piece 8 is de datum geldig tot">
 <Implementation><![CDATA[
 	Set VerkoopPrijsUitzondering = ##class(DOM.VKP.dto.VerkoopPrijsUitzondering).%New()
 	Set VerkoopPrijsUitzondering.KlantId = "K||999"
-	Set VerkoopPrijsUitzondering.GeldigTot = $HOROLOG+1
+	Set VerkoopPrijsUitzondering.GeldigTot = $$$CurrentDate
 	#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.GeldigTot,$HOROLOG+1)
+	Do $$$AssertEquals(Uitzondering.GeldigTot,$$$CurrentDate)
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Piece 9 is creatie of wijziging bestaande uit de datum waarop en de gebruiker gescheiden door puntkomma">
+<Method name="Test: Piece 9 deel na puntkomma is creatie of gewijzigd door">
 <Implementation><![CDATA[
 	Set VerkoopPrijsUitzondering = ##class(DOM.VKP.dto.VerkoopPrijsUitzondering).%New()
 	Set VerkoopPrijsUitzondering.KlantId = "K||999"
-	Set VerkoopPrijsUitzondering.Wijziging = +$HOROLOG_";THB"
+	Set VerkoopPrijsUitzondering.GewijzigdDoor = "THB"
 	#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.Wijziging,+$HOROLOG_";THB")
+	Do $$$AssertEquals(Uitzondering.GewijzigdDoor,"THB")
 ]]></Implementation>
 </Method>
 
+<Method name="Test: Piece 9 deel voor puntkomma is datum creatie of gewijzigd">
+<Implementation><![CDATA[
+	Set VerkoopPrijsUitzondering = ##class(DOM.VKP.dto.VerkoopPrijsUitzondering).%New()
+	Set VerkoopPrijsUitzondering.KlantId = "K||999"
+	Set VerkoopPrijsUitzondering.GewijzigdOp = $$$CurrentDate
+	#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.GewijzigdOp,$$$CurrentDate)
+]]></Implementation>
+</Method>
+
+<Method name="Test: Beide delen van piece 9 zijn ingevuld">
+<Implementation><![CDATA[
+	Set VerkoopPrijsUitzondering = ##class(DOM.VKP.dto.VerkoopPrijsUitzondering).%New()
+	Set VerkoopPrijsUitzondering.KlantId = "K||999"
+	Set VerkoopPrijsUitzondering.GewijzigdDoor = "THB"
+	Set VerkoopPrijsUitzondering.GewijzigdOp = $$$CurrentDate
+	#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.GewijzigdDoor,"THB")
+	Do $$$AssertEquals(Uitzondering.GewijzigdOp,$$$CurrentDate)
+]]></Implementation>
+</Method>
+
 <Method name="KuisDataOp">
 <Private>1</Private>
 <Implementation><![CDATA[