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