Index: DOM/PM/impl/DataM/DataMProduct.cls.xml
===================================================================
diff -u -r49343 -r50464
--- DOM/PM/impl/DataM/DataMProduct.cls.xml	(.../DataMProduct.cls.xml)	(revision 49343)
+++ DOM/PM/impl/DataM/DataMProduct.cls.xml	(.../DataMProduct.cls.xml)	(revision 50464)
@@ -129,19 +129,23 @@
 <Method name="Save">
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
-	do ##class(vhLib.OldSchool).InitVars()
+	Do ##class(vhLib.OldSchool).InitVars()
 	Do ..Valideer()
 	
-	#dim IsGewijzigdProduct As %Boolean = 0
+	#dim IsGewijzigdProduct, IsGewijzigdeNode As %Boolean = 0
+	#Dim RecalcProduktNodig as %Boolean = ..DataJ.IsGewijzigd() // check voor gewijzigde leverancier ? -> subscript van de j-node wijzigt dan.
 	
 	#dim NodeIndex As %String
 	For NodeIndex = 0,1,2,3,4,5,15,"I1","J","G" {
-		Set:IsGewijzigdProduct=0 IsGewijzigdProduct = $method($property($this,"Data"_NodeIndex),"IsGewijzigd")
+		Set IsGewijzigdeNode = $method($property($this,"Data"_NodeIndex),"IsGewijzigd")
+		Set:IsGewijzigdProduct=0 IsGewijzigdProduct = IsGewijzigdeNode
+		If ((IsGewijzigdeNode) && ($$$Not(..IsNieuwProduct))) {
+			#dim OrigineleGegevens As %String = ^KPR(..ProductNummer,$Select(NodeIndex="J":"J"_$Piece(..GeefLeverancierID(),"||",2),1:NodeIndex))
+			#dim Node As TECH.Persistentie.GlobalNode = ..GeefNode(NodeIndex)
+			Do ..LogWijzigingen(..ProductNummer, NodeIndex, OrigineleGegevens, Node.GeefDelimitedString())
+		}
 	}
-	/* check voor gewijzigde leverancier ? -> subscript van de j-node wijzigt dan. */
 	
-	#Dim RecalcProduktNodig as %Boolean = ..DataJ.IsGewijzigd()
-	
 	If IsGewijzigdProduct {
 		For NodeIndex = 0,1,2,3,4,5,15,"I1","J","G" {
 			Do $method($property($this,"Data"_NodeIndex),"Save")
@@ -1062,7 +1066,6 @@
 		#dim JIndex As %String = "J"_..LeverancierNr
 		If $Length(JIndex)<2 Set JIndex = $Order(^KPR(..ProductNummer,"J"))		
 		Set:($Length(JIndex)>1) r%DataJ = ..PersistentMgr.GeefNode("^KPR",..ProductNummer,JIndex)
-		Do:($Length(JIndex)<2) ##class(Tools.Wlip).%New(207).String("J node : leverancier "_ ..LeverancierNr _" niet gekend")
 	}
 	Quit r%DataJ
 ]]></Implementation>
@@ -1100,6 +1103,38 @@
 	Do:Messages.Count() ##class(TECH.Exceptions.InvalidInputException).Throw(##class(TECH.ListUtils).ListToPieces(Messages,$$$CRLF))
 ]]></Implementation>
 </Method>
+
+<Method name="GeefNode">
+<FormalSpec>NodeIndex:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>TECH.Persistentie.GlobalNode</ReturnType>
+<Implementation><![CDATA[	Quit $PROPERTY($this,"Data"_NodeIndex)
+]]></Implementation>
+</Method>
+
+<Method name="LogWijzigingen">
+<FormalSpec>ProductNummer:%Integer,Node:%String,OudeGegevens:%String,NieuweGegevens:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim ctrPiece As %Integer = 0
+	For ctrPiece = 1 : 1 : $Length(OudeGegevens,"\") {
+		#dim OudGegeven As %String = $Piece(OudeGegevens,"\",ctrPiece)
+		#dim NieuwGegeven As %String = $Piece(NieuweGegevens,"\",ctrPiece)
+		If $$$Not(OudGegeven = NieuwGegeven) 
+		{	
+			#dim BIndex As %String = $$GeefBIndex^vhLib.DataM(Node,ctrPiece)
+			Do ..LogWijziging(ProductNummer, BIndex , OudGegeven , NieuwGegeven)
+		}
+	}
+]]></Implementation>
+</Method>
+
+<Method name="LogWijziging">
+<FormalSpec>ProductNummer:%Integer,BIndex:%Integer,OudGegeven:%String,NieuwGegeven:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[	Do DLOGMOD^LOG("PR",ProductNummer,BIndex,OudGegeven,NieuwGegeven,,)
+]]></Implementation>
+</Method>
 </Class>