User cache %CSP.Page 1 code Src:%String cache " quit Src ]]> 1 code direction:%String,SameOrder:%String cache Set cst=RS.Execute(%session.Data("BONNr",1)) if '$$$ISOK(cst) &js Set PreviousID = "" Set NewID = "" For Quit:('RS.Next()) Do quit:NewID'="" . if RS.Data("ID")]$Get(%session.Data("LogID",1)) Set NewID = RS.Data("ID") . if $Get(%session.Data("LogID",1))]RS.Data("ID") Set PreviousID = RS.Data("ID") // zo onthouden we de hoogste van de ID's die voor de huidige ID komen . //Set %session.Data("pdx",RS.Data("ID"),"ID",1)=RS.Data("ID") . //Set %session.Data("pdx",RS.Data("ID"),"LogID",1)=$Get(%request.Data("LogID",1)) . //Set %session.Data("pdx",RS.Data("ID"),"LogID2",1)=$Get(%session.Data("LogID",1)) . //Set %session.Data("pdx",RS.Data("ID"),"New",1)=NewID . //Set %session.Data("pdx",RS.Data("ID"),"Follows",1)=RS.Data("ID")]$Get(%session.Data("LogID",1))_(RS.Data("ID") > $Get(%session.Data("LogID",1))) . Set %session.Data("pdx",1) = SameOrder if direction = "Previous" Set NewID = PreviousID if NewID = "" do . Set msg = "Er zijn geen "_$S(direction="Next":"volgende",1:"vorige")_" loglijnen voor deze Bon" . &js else do . Set l = "PDPPSLogViewerDetail.csp?LogID="_NewID . &js } else { //Set NewID = $Order($Get(%session.Data("LogID",1)) } ]]> 1 code %Status 1 code %Boolean " Write !,(..HyperEventBody()) Write !,$c(9) Write "
" Write !,..InsertHiddenFields("PDPPSLogViewer.csp"),! Write !,$c(9,9)_"",! Write $c(9,9,9)_"",! Write $c(9,9,9,9)_"",! Write $c(9,9,9,9)_"",! Write $c(9,9,9,9)_"",! Write $c(9,9,9,9)_"",! Write !,$c(9,9)_"
" Write "" Write "" Write "" Write "" Write "> "" onClick="_($case(%session.BrokerImplementation,1:"cspRunServerMethod",2:"cspHttpServerMethod",:"cspSelectServerMethod"))_"('"_(..Encrypt($listbuild("csp.pdppslogviewerdetail.MoveToLogLine:csp.pdppslogviewerdetail"))_$select(%session.UseSessionCookie'=2:"&CSPCHD="_%session.CSPSessionCookie,1:""))_"',""Next"",document.Log.SameOrder.checked)>" Write "Zelfde Order" Write "" Write "
",! Write $c(9,9) kill LogID If ($Data(%request.Data("LogID",1))) { Write $Get(%request.Data("LogID",1)) set LogID = $Get(%request.Data("LogID",1)) Set %session.Data("LogID",1)=LogID Set LogLine = ##class(DS.PPS.Logging).%OpenId(LogID) //Set %response.TraceDump=1 } Write !,$c(9,9) If '($Data(LogID)) Goto %csp00001 ;{ 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,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,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,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,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,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,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,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,9,9)_"",! Write $c(9,9,9,9,9)_"",! Write $c(9,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,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,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)_"
Application"_(LogLine.Application)_"
Datum"_($ZDate(LogLine.Datum,4,,4))_"
Tijd"_($ZTIME(LogLine.Tijd,1))_"
Niveau"_(LogLine.Niveau)_"
Actie"_(LogLine.Actie)_"
Detail"_(LogLine.Detail)_"
Ref"_(LogLine.Ref)_" 
SessionKey"_(LogLine.SessionKey)_" 
Groep"_(LogLine.Groep)_" 
GroepID"_(LogLine.GroepID)_" 
Object"_(..CRLF2BR(LogLine.Object))_" 
ProgLabel"_(LogLine.ProgLabel)_" 
",! Write $c(9,9) %csp00001 ;} Write !,$c(9) Write "
" Write !,$c(9) Write !,!,$c(9) Write !,"" ]]> 1 code %Boolean 1 code %Boolean " Write !,!,"" Write !,""_$c(9)_"Cache Server Page ",! Write !,(..HyperEventHead()) Write !,"" ]]> 1 code %Boolean " Write ! Do ..OnPageHEAD() Write !,! Do ..OnPageBODY() Write !,"" ]]> c:\cachesys\csp\vhintra\PDPPSLogViewerDetail.csp /vhintra/PDPPSLogViewerDetail.csp 60982,48450