Index: DOM/AKP/impl/DataM/DataMToelevering.cls.xml
===================================================================
diff -u -r37839 -r44690
--- DOM/AKP/impl/DataM/DataMToelevering.cls.xml	(.../DataMToelevering.cls.xml)	(revision 37839)
+++ DOM/AKP/impl/DataM/DataMToelevering.cls.xml	(.../DataMToelevering.cls.xml)	(revision 44690)
@@ -96,6 +96,7 @@
 		#dim ProductLijn As DOM.AKP.ProductToeleveringLijn = itProductLijn.Next()
 		do ProductLijn.ZetLeverdag(##class(TECH.DateTime).TimestampToDate(Tijdstip))
 	}
+	Do ..%SetModified(1)
 ]]></Implementation>
 </Method>
 
@@ -107,7 +108,9 @@
 
 <Method name="ZetAanmaakDatum">
 <FormalSpec>Datum:%Date</FormalSpec>
-<Implementation><![CDATA[	Do ..HoofdingData.ZetPiece(2,##class(TECH.DateTime).GeefDatumInPuntNotatie(Datum))
+<Implementation><![CDATA[
+	Do ..HoofdingData.ZetPiece(2,##class(TECH.DateTime).GeefDatumInPuntNotatie(Datum))
+	Do ..%SetModified(1)
 ]]></Implementation>
 </Method>
 
@@ -134,7 +137,9 @@
 
 <Method name="ZetBestelBevestigingNr">
 <FormalSpec>Nr:%String</FormalSpec>
-<Implementation><![CDATA[	do ..HoofdingData.ZetPiece(10,Nr)
+<Implementation><![CDATA[
+	do ..HoofdingData.ZetPiece(10,Nr)
+	Do ..%SetModified(1)
 ]]></Implementation>
 </Method>
 
@@ -182,7 +187,9 @@
 
 <Method name="ZetOrderID">
 <FormalSpec>OrderID:%String</FormalSpec>
-<Implementation><![CDATA[	Do ..HoofdingData.ZetPiece(7,OrderID)
+<Implementation><![CDATA[
+	Do ..HoofdingData.ZetPiece(7,OrderID)
+	Do ..%SetModified(1)
 ]]></Implementation>
 </Method>
 
@@ -207,6 +214,7 @@
 <Implementation><![CDATA[
 	#dim KlantNr As %String = ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI().GeefKlantNummerVoorPartijID(KlantID)
 	Do ..HoofdingData.ZetPiece(8,KlantNr)
+	Do ..%SetModified(1)
 ]]></Implementation>
 </Method>
 
@@ -218,7 +226,9 @@
 
 <Method name="ZetReferentie">
 <FormalSpec>Referentie:%String</FormalSpec>
-<Implementation><![CDATA[	Do ..HoofdingData.ZetPiece(3,Referentie)
+<Implementation><![CDATA[
+	Do ..HoofdingData.ZetPiece(3,Referentie)
+	Do ..%SetModified(1)
 ]]></Implementation>
 </Method>
 
@@ -230,7 +240,9 @@
 
 <Method name="ZetMunt">
 <FormalSpec>Munt:DOM.enu.Munt</FormalSpec>
-<Implementation><![CDATA[	Do ..HoofdingData.ZetPiece(18,Munt)
+<Implementation><![CDATA[
+	Do ..HoofdingData.ZetPiece(18,Munt)
+	Do ..%SetModified(1)
 ]]></Implementation>
 </Method>
 
@@ -330,7 +342,7 @@
 	Set ..VolgendLijnNr = ..VolgendLijnNr + 1
 	Do ToeleveringLijn.ZetID(90+(..VolgNrVoorUniekLijnNr*10))
 	Set ..VolgNrVoorUniekLijnNr = ..VolgNrVoorUniekLijnNr + 1
-	
+	Do ..%SetModified(1)
 	Quit ToeleveringLijn
 ]]></Implementation>
 </Method>