CSP page to display the Ugly Picking Logging User vhLib.Macro, %Const, %AppsArrayCnts, UglyPickingCNTs cache %CSP.Page 1 code Date,Job cache " #Define reBlack "" #Define reGreen "" #Define reRed "" #Define reBold "" #Define reNoBold "" #Define reItalic "" #Define reNoItalic "" Quit:($G(Date)="")||($G(Job)="") New LogLine,LastTime,ErrCnt,MsgCnt,UICnt,TimePrefix,FCS,VolgNr New IsBold,LastColor,LineColor Set FCS=##class(%FileCharacterStream).%New() Set LastTime=0 Set (ErrCnt,MsgCnt,UICnt)=0 Set IsBold=0 Set LastColor=$$$clBlack Do FCS.Write(""_$$$reNewLine) Set VolgNr="" For Set VolgNr=$O($$$GlobUPLog(Date,Job,VolgNr)) Quit:(VolgNr="") Do . Set LogLine=$$$GlobUPLog(Date,Job,VolgNr) . If LastTime=$LI(LogLine,1) Do .. Set TimePrefix=" " . Else Do .. Set LastTime=$LI(LogLine,1) .. Set TimePrefix=$ZT(LastTime) . Set LineColor=$LI(LogLine,3) . If LineColor=$$$clNone Do .. If IsBold Do ... Do FCS.Write($$$reNoBold) ... Set IsBold=0 .. Do:(LastColor'=$$$clBlack) FCS.Write($$$reBlack) . Else Do .. If LineColor=$$$clRed Do ... Set ErrCnt=ErrCnt+1 ... Do:(LastColor'=LineColor) FCS.Write($$$reRed) .. Else If LineColor=$$$clGreen Do ... Set MsgCnt=MsgCnt+1 ... Do:(LastColor'=LineColor) FCS.Write($$$reGreen) .. Else If LineColor=$$$clNavy Do ... Set UICnt=UICnt+1 ... Do:(LastColor'=LineColor) FCS.Write($$$reNavy) .. If 'IsBold Do ... Do FCS.Write($$$reBold) ... Set IsBold=1 . Set LastColor=LineColor . Do FCS.Write(TimePrefix_" "_$LI(LogLine,2)_$$$reNewLine) Do FCS.Write("") Set sc=FCS.OutputToDevice() Write !,! Write "Job "_Job_": "_MsgCnt_" message(s), "_UICnt_" interface action(s), "_ErrCnt_" error(s)." Quit ]]> 1 code arLogDates,ActDate cache 1 code arLogJobs,Date cache 0 Do . . . Set StartTime=$LI($$$GlobUPLog(Date,Job,1),1) . . . Set LogUser="" . . . Set iLn="" . . . For Set iLn=$O($$$GlobUPLog(Date,Job,iLn)) Quit:(iLn="")||(iLn>12) Set LogUser=$P($LG($$$GlobUPLog(Date,Job,iLn),2),"UserId:",2) Quit:($L(LogUser)) . . Set arLogJobs(Date,$Increment(arLogJobs(Date)))=Job . . Set arLogJobs(Date,arLogJobs(Date),"D",1)=Job ; $ZT(LastTime,2)_" - "_$J(Job,4)_" (#"_$J(LogCnt,5)_")" . . Set arLogJobs(Date,arLogJobs(Date),"D",2)=$ZT(StartTime,2)_" - "_$ZT(LastTime,2) . . Set:($L(LogUser)) arLogJobs(Date,arLogJobs(Date),"D",3)=LogUser . . Set arLogJobs(Date,arLogJobs(Date),"D",4)="("_LogCnt_")" ]]> 1 code %Status 1 code %Boolean " Write !,$c(9)_"

"_($$$UCase($G(CspPageTitle, ..%ClassName(0)))_$G(OnServer))_"

",! Write $c(9) Write "
" Write !,$c(9,9)_"

Historiek: " Write "" Write "Overzicht per job" Write "" Write "

",! Write $c(9,9) Write "
" Write !,$c(9,9,9)_"

" Write "" Write "Overzicht alle jobs:" Write "" Write " " Write "" Write ("click here to expand/collapse") Write "" Write "

",! Write $c(9,9,9) Write "" Write !,$c(9,9,9)_"",! Write $c(9,9,9,9)_"",! Write $c(9,9,9,9,9)_"",! Write $c(9,9,9,9,9)_"",! Write $c(9,9,9,9)_"",! Write $c(9,9,9)_"
",! Write $c(9,9,9,9,9,9)_"Datum: " Write "" Write !,$c(9,9,9,9,9)_"",! Write $c(9,9,9,9,9,9)_"",! Write $c(9,9,9,9,9,9,9)_"",! Write $c(9,9,9,9,9,9,9,9)_"",! Write $c(9,9,9,9,9,9,9,9)_"",! Write $c(9,9,9,9,9,9,9,9)_"",! Write $c(9,9,9,9,9,9,9,9)_"",! Write $c(9,9,9,9,9,9,9)_"",! Write $c(9,9,9,9,9,9) Set iJob=0 %csp00004 If '(iJob<$G(arLogJobs(ActDate))) Goto %csp00003 ;{ Set iJob=iJob+1 Write !,$c(9,9,9,9,9,9,9)_"",! Write $c(9,9,9,9,9,9,9,9) If '(($G(arLogJobs(ActDate,iJob))=$G(ActJob))) Goto %csp00005 ;{ Write !,$c(9,9,9,9,9,9,9,9)_"",! Write $c(9,9,9,9,9,9,9,9) Goto %csp00006 ;} %csp00005 ;{ Write !,$c(9,9,9,9,9,9,9,9)_"",! Write $c(9,9,9,9,9,9,9,9) %csp00006 ;} Write !,$c(9,9,9,9,9,9,9,9)_"",! Write $c(9,9,9,9,9,9,9,9)_"",! Write $c(9,9,9,9,9,9,9,9)_"",! Write $c(9,9,9,9,9,9,9)_"",! Write $c(9,9,9,9,9,9) Goto %csp00004 %csp00003 ;} Write !,$c(9,9,9,9,9,9)_"
JobTimeUser ??# Ln
"_($G(arLogJobs(ActDate,iJob,"D",1)))_"" Write "" Write ($G(arLogJobs(ActDate,iJob,"D",1))) Write "" Write ""_($G(arLogJobs(ActDate,iJob,"D",2)))_""_($G(arLogJobs(ActDate,iJob,"D",3)," "))_""_($G(arLogJobs(ActDate,iJob,"D",4)))_"
",! Write $c(9,9,9,9,9)_"
",! Write $c(9,9) Write "
" Write !,$c(9) Write "
" Write !,$c(9)_"
",! Write $c(9),! Write $c(9) Write "
" Write !,$c(9,9)_"

Log voor job "_($G(ActJob)_":"_$S((+$G(ActJob))&&(+$G(ActDate)):" (on "_$ZD($G(ActDate),2)_")",1:""))_"

",! Write $c(9,9) Write "
" Write !,$c(9,9,9)_"
",!
 Write $c(9,9,9)
 Do ..BuildLogInfo($G(ActDate),$G(ActJob))
 Write !,$c(9,9,9)_"
",! Write $c(9,9) Write "
" Write !,$c(9) Write "
" Write !,!,!,!,$c(9) Write "
" Write !,$c(9,9)_" ",! Write $c(9) Write "
" Write !,"" ]]> 1 code %Boolean 1 code %Boolean " Write ! Set BodyBgColor=##class(TECH.Config.ConfigMgr).Instance().GetString("WebpaginaAchtergrondKleur") Set OnServer = "  ["_$$$NSpace_"]" Write !,$c(9)_""_($G(CspPageTitle, ..%ClassName(0))_$G(OnServer))_"",! Write $c(9) Write "" Write !,$c(9) Write "" Write !,$c(9) Write "" Write !,"" ]]> 1 code %Boolean " Write !,! Do ..OnPageHEAD() Write !,! Do ..OnPageBODY() Write !,"" ]]> 1 code cache %Boolean c:\cachesys\csp\admin1\UglyPickLogging.csp /csp/admin1/UglyPickLogging.csp 62105,37088