Index: PVMerge.mac.rou =================================================================== diff -u -r734 -r2415 --- PVMerge.mac.rou (.../PVMerge.mac.rou) (revision 734) +++ PVMerge.mac.rou (.../PVMerge.mac.rou) (revision 2415) @@ -1,6 +1,6 @@ PVMerge Set NameSpace="JRNL-ADMIN1" - + PROD For GlobRef="KPSG","KPSG1","KPGR","KPGR1","KPHG","KPHG1","KLAS" Do Merge(GlobRef,NameSpace) For GlobRef="KPL","KPH","KPR1","KPR2","KPR3" Do Merge(GlobRef,NameSpace) @@ -10,15 +10,15 @@ DIV ; Prijsvergelijk Do Merge("KPHPR",NameSpace) Quit - + Merge(GlobRef,NameSpace) Set T=$P($H,",",2) Write GlobRef h 1 Kill @("^"_GlobRef) Merge @("^"_GlobRef)=@("^|NameSpace|"_GlobRef) Write " : ",$P($H,",",2)-T,! Quit - + MergeKPR(NamesSpace) Set T=$P($H,",",2) Write "KPR" h 1 @@ -41,7 +41,7 @@ set Dag= $O(^|$$$DeJrnlNameSpace|cLOG("ADMIN1","CTK0","AUTO",43,"CACHE01",""),-1) Set Tijd= $O(^|$$$DeJrnlNameSpace|cLOG("ADMIN1","CTK0","AUTO",43,"CACHE01",Dag,""),-1) - + Set Sec=Dag*3600+Tijd Set Nu=$P($H,",",1)*3600+$P($H,",",2) Write Sec," ", Nu