Index: LOG.mac.rou
===================================================================
diff -u -r37516 -r50461
--- LOG.mac.rou	(.../LOG.mac.rou)	(revision 37516)
+++ LOG.mac.rou	(.../LOG.mac.rou)	(revision 50461)
@@ -94,7 +94,7 @@
  Set Q = $Get(Q,"K")
  If ObjType="KL" Set RLog=$$RLogKL(ObjRef,BIndex,OldValue,NewValue,RubrName,AppendNm) ; Klanten
  If ObjType="PR" Do
- . Do ##class(BL.Legacy.ProductEvents).SetEventInformation(PRNr,BIndex,OldValue,NewValue)
+ . Do ##class(BL.Legacy.ProductEvents).SetEventInformation(ObjRef,BIndex,OldValue,NewValue)
  . If "IJ"[$E(BIndex),$E(BIndex,2,4)<100 Set $E(BIndex)=$E(BIndex)_1
  . Set RLog=$$RLogPR(ObjRef,BIndex,OldValue,NewValue,RubrName,AppendNm) ; Producten
  If ObjType="BLProd" Set RLog=$$RLogBLProd(ObjRef,BIndex,OldValue,NewValue,RubrName,AppendNm) ; Blum producten
Index: DOM/PM/impl/DataM/DataMProduct.cls.xml
===================================================================
diff -u -r49343 -r50461
--- DOM/PM/impl/DataM/DataMProduct.cls.xml	(.../DataMProduct.cls.xml)	(revision 49343)
+++ DOM/PM/impl/DataM/DataMProduct.cls.xml	(.../DataMProduct.cls.xml)	(revision 50461)
@@ -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,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")
@@ -1100,6 +1104,38 @@
 	Do:Messages.Count() ##class(TECH.Exceptions.InvalidInputException).Throw(##class(TECH.ListUtils).ListToPieces(Messages,$$$CRLF))
 ]]></Implementation>
 </Method>
+
+<Method name="GeefNode">
+<FormalSpec>NodeIndex:%Integer</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:%Integer,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>