Index: DOM/PM/impl/DataM/DataMProduct.cls.xml
===================================================================
diff -u -r50461 -r50464
--- DOM/PM/impl/DataM/DataMProduct.cls.xml	(.../DataMProduct.cls.xml)	(revision 50461)
+++ DOM/PM/impl/DataM/DataMProduct.cls.xml	(.../DataMProduct.cls.xml)	(revision 50464)
@@ -140,7 +140,7 @@
 		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 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())
 		}
@@ -1066,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>
@@ -1106,15 +1105,15 @@
 </Method>
 
 <Method name="GeefNode">
-<FormalSpec>NodeIndex:%Integer</FormalSpec>
+<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:%Integer,OudeGegevens:%String,NieuweGegevens:%String</FormalSpec>
+<FormalSpec>ProductNummer:%Integer,Node:%String,OudeGegevens:%String,NieuweGegevens:%String</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
 	#dim ctrPiece As %Integer = 0