Index: DOM/VKP/dto/VerkoopPrijsUitzondering.cls.xml
===================================================================
diff -u -r45371 -r45372
--- DOM/VKP/dto/VerkoopPrijsUitzondering.cls.xml	(.../VerkoopPrijsUitzondering.cls.xml)	(revision 45371)
+++ DOM/VKP/dto/VerkoopPrijsUitzondering.cls.xml	(.../VerkoopPrijsUitzondering.cls.xml)	(revision 45372)
@@ -82,6 +82,7 @@
 	Set VerkoopPrijsUitzondering.Korting2 = $Piece(DataString,"\",2)
 	Set VerkoopPrijsUitzondering.ReferentieProduct = $Piece(DataString,"\",4)
 	Set VerkoopPrijsUitzondering.MinimumAantal = $Piece(DataString,"\",5)
+	Set VerkoopPrijsUitzondering.GeldigVan = $Piece(DataString,"\",7)
 	
 	Quit VerkoopPrijsUitzondering
 ]]></Implementation>
@@ -93,11 +94,11 @@
 	#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)
+	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)
 	
 	Quit DataString
 ]]></Implementation>
Index: vhUnitTest/DOM/VKP/dto/VerkoopPrijsUitzondering/Test.cls.xml
===================================================================
diff -u -r45371 -r45372
--- vhUnitTest/DOM/VKP/dto/VerkoopPrijsUitzondering/Test.cls.xml	(.../Test.cls.xml)	(revision 45371)
+++ vhUnitTest/DOM/VKP/dto/VerkoopPrijsUitzondering/Test.cls.xml	(.../Test.cls.xml)	(revision 45372)
@@ -174,7 +174,7 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Piece 5 is het minimumaantal">
+<Method name="Test: Piece 5 is het minimum aantal">
 <Implementation><![CDATA[
 	Set VerkoopPrijsUitzondering = ##class(DOM.VKP.dto.VerkoopPrijsUitzondering).%New()
 	Set VerkoopPrijsUitzondering.KlantId = "K||999"
@@ -190,6 +190,22 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test: Piece 7 is de datum geldig van">
+<Implementation><![CDATA[
+	Set VerkoopPrijsUitzondering = ##class(DOM.VKP.dto.VerkoopPrijsUitzondering).%New()
+	Set VerkoopPrijsUitzondering.KlantId = "K||999"
+	Set VerkoopPrijsUitzondering.GeldigVan = $H+1
+	#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,$H+1)
+]]></Implementation>
+</Method>
+
 <Method name="KuisDataOp">
 <Private>1</Private>
 <Implementation><![CDATA[