Index: vhTest/Mock/DOM/VKP/Order.cls.xml
===================================================================
diff -u -r44060 -r44075
--- vhTest/Mock/DOM/VKP/Order.cls.xml	(.../Order.cls.xml)	(revision 44060)
+++ vhTest/Mock/DOM/VKP/Order.cls.xml	(.../Order.cls.xml)	(revision 44075)
@@ -432,6 +432,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="ZetProductieTijdstip">
+<FormalSpec>value:TECH.Horolog</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("ZetProductieTijdstip",value)
+]]></Implementation>
+</Method>
+
 <Method name="ZetStatus">
 <FormalSpec>value:DOM.VKP.enu.OrderStatus</FormalSpec>
 <Implementation><![CDATA[	do ..VerwerkMethodCall("ZetStatus",value)
Index: DOM/VKP/Order.cls.xml
===================================================================
diff -u -r44060 -r44075
--- DOM/VKP/Order.cls.xml	(.../Order.cls.xml)	(revision 44060)
+++ DOM/VKP/Order.cls.xml	(.../Order.cls.xml)	(revision 44075)
@@ -291,6 +291,11 @@
 <ReturnType>%TimeStamp</ReturnType>
 </Method>
 
+<Method name="ZetProductieTijdstip">
+<Abstract>1</Abstract>
+<FormalSpec>value:TECH.Horolog</FormalSpec>
+</Method>
+
 <Method name="HeeftCommercieleKorting">
 <Abstract>1</Abstract>
 <ReturnType>%Boolean</ReturnType>
Index: DOM/VKP/impl/DataM/DataMOrder.cls.xml
===================================================================
diff -u -r44060 -r44075
--- DOM/VKP/impl/DataM/DataMOrder.cls.xml	(.../DataMOrder.cls.xml)	(revision 44060)
+++ DOM/VKP/impl/DataM/DataMOrder.cls.xml	(.../DataMOrder.cls.xml)	(revision 44075)
@@ -194,17 +194,23 @@
 ]]></Implementation>
 </Method>
 
+<Method name="ZetOrderType">
+<FormalSpec>OrderType:DOM.VKP.enu.OrderType</FormalSpec>
+<Implementation><![CDATA[
+	Do ..HoofdingData.ZetPiece(25, OrderType)
+	Do ..%SetModified(1)
+]]></Implementation>
+</Method>
+
 <Method name="GeefProductieTijdstip">
 <ReturnType>%TimeStamp</ReturnType>
 <Implementation><![CDATA[	quit ##class(TECH.DateTime).HorologToTimeStamp(..HoofdingData.GeefPiece(36))
 ]]></Implementation>
 </Method>
 
-<Method name="ZetOrderType">
-<FormalSpec>OrderType:DOM.VKP.enu.OrderType</FormalSpec>
-<Implementation><![CDATA[
-	Do ..HoofdingData.ZetPiece(25, OrderType)
-	Do ..%SetModified(1)
+<Method name="ZetProductieTijdstip">
+<FormalSpec>value:TECH.Horolog</FormalSpec>
+<Implementation><![CDATA[	Do ..HoofdingData.ZetPiece(36,value)
 ]]></Implementation>
 </Method>