Index: LOG.mac.rou
===================================================================
diff -u -r948 -r950
--- LOG.mac.rou	(.../LOG.mac.rou)	(revision 948)
+++ LOG.mac.rou	(.../LOG.mac.rou)	(revision 950)
@@ -70,9 +70,10 @@
  New %TN,%TS,R,RLog,Date
  Set %TN=$P($H,",",2)
  Set Q = $Get(Q,"K")
+ Set DT = $Get(DT,$$EXTDATE^vhDTyp($H,"DKP"))
  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
+ Set RLog="O\1\\\"_DT_D_$J(%TS,5)_D_$get(QU,"SYS")_"\Opening~Cr�ation~Kreation~Creation\\\"_$Get(boot,$zu(110))
  Set Date=$$EXTDATE^vhDTyp(,"DSN")
  Set:$P($O(^DLOG(Q,ObjType,ObjRef,Date_.9999),-1),".")=Date Date=$O(^DLOG(Q,ObjType,ObjRef,Date_.9999),-1)
  Set Date=Date+.0001
@@ -108,7 +109,7 @@
 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 DT = $Get(DT,$$EXTDATE^vhDTyp($H,"DKP")) //JBL weggelaten op 2011-03-23$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