Index: DOM/PM/Maatwerk/Syncs/DotNet/MaatwerkCalculator/impl/Halffabs.cls.xml
===================================================================
diff -u -r62715 -r62742
--- DOM/PM/Maatwerk/Syncs/DotNet/MaatwerkCalculator/impl/Halffabs.cls.xml	(.../Halffabs.cls.xml)	(revision 62715)
+++ DOM/PM/Maatwerk/Syncs/DotNet/MaatwerkCalculator/impl/Halffabs.cls.xml	(.../Halffabs.cls.xml)	(revision 62742)
@@ -81,8 +81,8 @@
 	Set Klasse = ##class(%Dictionary.CompiledClass).%OpenId(Klassenaam)
 	
 	// Eerste ronde: properties van de basisklasse
-	#dim IntoStuk As %String = "INSERT INTO " _ ..GeefBasistabelNaam() _ " (ProductID,MyDiscriminator,Versie"
-	#dim ValuesStuk As %String = "VALUES ('" _ Halffab.ProductID _ "','" _ TypeCode _ "_" _ Rolstukje _ "'," _ 1
+	#dim IntoStuk As %String = "INSERT INTO " _ ..GeefBasistabelNaam() _ " (ProductID,MyDiscriminator,Versie,LaatstAangepast"
+	#dim ValuesStuk As %String = "VALUES ('" _ Halffab.ProductID _ "','" _ TypeCode _ "_" _ Rolstukje _ "'," _ 1 _ ",'" _ ..GeefHuidigeTimeStamp()_"'"
 	Set PropertiesIterator = ##class(TECH.ListIterator).%New(Klasse.Properties)
 	while (PropertiesIterator.HasNext()) {
 		#dim Property As %Dictionary.CompiledProperty = PropertiesIterator.Next()
@@ -184,6 +184,13 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefHuidigeTimeStamp">
+<Private>1</Private>
+<ReturnType>%TimeStamp</ReturnType>
+<Implementation><![CDATA[	Quit ..DateTimeAPI.HorologToTimeStamp(..DateTimeAPI.CurrentHorolog())
+]]></Implementation>
+</Method>
+
 <Method name="VoeruitSql">
 <FormalSpec>Statement:%String</FormalSpec>
 <ReturnType>%ResultSet</ReturnType>