Index: LOG.mac.rou
===================================================================
diff -u -r734 -r948
--- LOG.mac.rou	(.../LOG.mac.rou)	(revision 734)
+++ LOG.mac.rou	(.../LOG.mac.rou)	(revision 948)
@@ -69,6 +69,7 @@
 DLOGNEW(ObjType,ObjRef) 
  New %TN,%TS,R,RLog,Date
  Set %TN=$P($H,",",2)
+ Set Q = $Get(Q,"K")
  If $ZV'["MSM" Set %TS=$ZT(%TN,2)
  Else  Do ^%TO
  Set RLog="O\1\\\"_DT_D_$J(%TS,5)_D_QU_"\Opening~Cr�ation~Kreation~Creation\\\"_boot
@@ -89,6 +90,7 @@
  New %TN,%TS,K,R,RLog,Date
  Set BIndex=$G(BIndex),OldValue=$G(OldValue),NewValue=$G(NewValue),RubrName=$G(RubrName),AppendNm=$G(AppendNm)
  Set RLog=""
+ Set Q = $Get(Q,"K")
  If ObjType="KL" Set RLog=$$RLogKL(ObjRef,BIndex,OldValue,NewValue,RubrName,AppendNm) ; Klanten
  If ObjType="PR" Do
  . If "IJ"[$E(BIndex),$E(BIndex,2,4)<100 Set $E(BIndex)=$E(BIndex)_1
@@ -105,6 +107,8 @@
  ; Opmaken van het logrecord voor klanten
 RLogKL(KLNr,BIndex,OldValue,NewValue,RubrName,AppendNm) 
  New %TN,%TS,K,R,RLog,U3,PR,Node,Piece,RubrNr,Rubriek,EindRNr,Date,NBIndex
+ Set D = $Get(D,"\")
+ Set DT = $Get(DT,$zdate($h,4))
  Set RLog="",PR=KLNr,Node=$$UPTRIMA^vhRtn1(BIndex),NBIndex=$$TRIMN^vhRtn1(BIndex),Piece=NBIndex#100
  If Node="" Set Node=BIndex\100-1,RubrNr=99,EindRNr=999
  Else  Set RubrNr=1100+(Node="J"*100),Node=$O(^KKL(KLNr,Node)),EindRNr=RubrNr+99
@@ -120,11 +124,11 @@
  .Set RubrName=RubrName_$G(AppendNm),%TN=$P($H,",",2)
  .If $ZV'["MSM" Set %TS=$ZT(%TN,2)
  .Else  Do ^%TO
- .Set RLog="W\"_BIndex_D_OldValue_D_NewValue_D_DT_D_$J(%TS,5)_D_QU_D_RubrName
+ .Set RLog="W\"_BIndex_D_OldValue_D_NewValue_D_DT_D_$J(%TS,5)_D_$get(QU,"SYS")_D_RubrName
  .Set U3=$$U3KL(KLNr,BIndex,OldValue),RLog=RLog_D_U3
  .Set U3=$$U3KL(KLNr,BIndex,NewValue)
- .Quit:U3=$P(RLog,D,9)
- .Set RLog=RLog_D_U3_D_boot
+ .Quit:U3=$P(RLog,D,9) 
+ .Set RLog=RLog_D_U3_D_$Get(boot)
  Quit RLog
  
  ; Opmaken van het logrecord voor producten