Index: DOM/PM/impl/DataM/DataMProduct.cls.xml
===================================================================
diff -u -r50706 -r50710
--- DOM/PM/impl/DataM/DataMProduct.cls.xml	(.../DataMProduct.cls.xml)	(revision 50706)
+++ DOM/PM/impl/DataM/DataMProduct.cls.xml	(.../DataMProduct.cls.xml)	(revision 50710)
@@ -1135,7 +1135,11 @@
 <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,,)
+<ProcedureBlock>0</ProcedureBlock>
+<Implementation><![CDATA[
+	New B
+	Set B(1) = ^KPR(ProductNummer,$Order(^KPR(ProductNummer,"J")))
+	Do DLOGMOD^LOG("PR",ProductNummer,BIndex,OudGegeven,NieuwGegeven,,)
 ]]></Implementation>
 </Method>
 </Class>