Index: Prod/Kenmerk/DataDefinitie.cls.xml
===================================================================
diff -u -r41240 -r54602
--- Prod/Kenmerk/DataDefinitie.cls.xml	(.../DataDefinitie.cls.xml)	(revision 41240)
+++ Prod/Kenmerk/DataDefinitie.cls.xml	(.../DataDefinitie.cls.xml)	(revision 54602)
@@ -52,6 +52,20 @@
 <Type>Sys.cTimeStamp</Type>
 </Property>
 
+<Property name="WijzigDatum">
+<Type>%Date</Type>
+<Calculated>1</Calculated>
+<SqlComputeCode> Set {*}=##class(Prod.Kenmerk.DataDefinitie).GeefCalculatedWijzigDatum({WijzigTijdstip})</SqlComputeCode>
+<SqlComputed>1</SqlComputed>
+</Property>
+
+<Property name="WijzigTijd">
+<Type>%Time</Type>
+<Calculated>1</Calculated>
+<SqlComputeCode> Set {*}=##class(Prod.Kenmerk.DataDefinitie).GeefCalculatedWijzigTijd({WijzigTijdstip})</SqlComputeCode>
+<SqlComputed>1</SqlComputed>
+</Property>
+
 <Property name="IsEventRaiser">
 <Description>
 Indien geen event voor creatie/wijziging/verwijderen gewenst is kan deze vlag worden afgezet.
@@ -1027,6 +1041,30 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefCalculatedWijzigDatum">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>WijzigTijdstip:Sys.cTimeStamp</FormalSpec>
+<ReturnType>%Date</ReturnType>
+<Implementation><![CDATA[
+	#dim Datumstring As %String = $Piece(WijzigTijdstip," ",1)
+	#dim WijzigDatum As %Date = $$INTDATE^vhLib.DataTypes(Datumstring)
+	Quit WijzigDatum
+]]></Implementation>
+</Method>
+
+<Method name="GeefCalculatedWijzigTijd">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>WijzigTijdstip:Sys.cTimeStamp</FormalSpec>
+<ReturnType>%Time</ReturnType>
+<Implementation><![CDATA[
+	Quit:(WijzigTijdstip="") 0
+	#dim Tijdstring As %String = $Piece(WijzigTijdstip," ",2)
+	Quit:(Tijdstring'?2N1":"2N0.1(1":"2N)) 0
+	#dim WijzigTijd As %Time = $ZTimeH(Tijdstring,1)
+	Quit WijzigTijd
+]]></Implementation>
+</Method>
+
 <Storage name="Default">
 <Type>%Library.CacheStorage</Type>
 <DataLocation>^Prod.Ken.DataDefinitieD</DataLocation>
Index: Prod/Kenmerk/impl/DataDefinitieRepository.cls.xml
===================================================================
diff -u -r29059 -r54602
--- Prod/Kenmerk/impl/DataDefinitieRepository.cls.xml	(.../DataDefinitieRepository.cls.xml)	(revision 29059)
+++ Prod/Kenmerk/impl/DataDefinitieRepository.cls.xml	(.../DataDefinitieRepository.cls.xml)	(revision 54602)
@@ -26,6 +26,19 @@
 	quit IDs
 ]]></Implementation>
 </Method>
+
+<Method name="GeefGewijzigdeDataDefinitiesVolgensKenmerkGroepEnWijzigDatum">
+<FormalSpec>KenmerkGroepStartsWith:%String="",Datum:%Date=""</FormalSpec>
+<ReturnType>TECH.ResultSet</ReturnType>
+<Implementation><![CDATA[
+	Set:(KenmerkGroepStartsWith = "") KenmerkGroepStartsWith = "TAOR_"
+	Set:(Datum = "") Datum = $$$CurrentDate
+	
+	#dim Query As TECH.String = "SELECT ID, WijzigDatum, WijzigTijd FROM Prod_Kenmerk.DataDefinitie WHERE KenmerkGroep %StartsWith ? AND WijzigDatum = ?"
+	#dim lbParams As %List = $ListBuild(KenmerkGroepStartsWith, Datum)
+	Quit ..QueryAPI.GetDynamicResultSet(Query, lbParams)
+]]></Implementation>
+</Method>
 </Class>