User cache 0 %CSP.Page 1 code %Status 1 code %Boolean " 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)_"",! Write $c(9,9)_"

Bon Nr:

" Write "" Write "

" Write "" Write "

",! Write $c(9,9) kill BONNr If ($Data(%request.Data("BONNr",1))) { Write $Get(%request.Data("BONNr",1)) set BONNr = $Get(%request.Data("BONNr",1)) Set %session.Data("BONNr",1)=BONNr } //set BONNr = "366909" Set %session.Data("BONNr",1)=BONNr write "** hardcoded **", ! Write !,$c(9,9) If '($Data(BONNr)) Goto %csp00001 ;{ Write !," "_$c(9,9)_"",! Write " "_$c(9,9)_"",! Write " "_$c(9,9,9)_"",! Write " "_$c(9,9,9)_"",! Write " "_$c(9,9,9)_"",! Write " "_$c(9,9,9)_"",! Write " "_$c(9,9,9)_"",! Write " "_$c(9,9,9)_"",! Write " "_$c(9,9,9)_"",! Write " "_$c(9,9)_"",! Write $c(9,9,9) // Open instance of ResultSet for runtime mode of DISPLAY. Set qry = ##class(%ResultSet).%New("DS.PPS.Logging"_":"_"GetLogByRef") Set qry.RuntimeMode=2 Set %sc = qry.Execute((BONNr)) If (+%sc=0) { Do ..ShowError(%sc) QUIT } Write !,$c(9,9,9) %csp00003 If '(qry.Next()) Goto %csp00002 ;{ 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,9)_"",! Write $c(9,9,9,9,9)_"",! Write $c(9,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) Goto %csp00003 %csp00002 ;} Write !,$c(9,9,9)_"

Datum	Uur	E	Actie	Detail	Ref	SessionKey
"_(qry.Data("Datum"))_"	"_(qry.Data("Tijd"))_"	"_(qry.Data("Niveau"))_"	" Write "" Write (qry.Data("Actie")) Write "" Write "	"_(qry.Data("Detail"))_"	"_(qry.Data("Ref"))_"	"_($Get(qry.Data("SessionKey")))_"

",! Write $c(9,9) %csp00001 ;} Write !,$c(9) Write "

" Write !,"" ]]> 1 code %Boolean 1 code %Boolean " Write !,!,"" Write !,"",! Write !,"" ]]> 1 code %Boolean " Write ! Do ..OnPageHEAD() Write !,! Do ..OnPageBODY() Write !,"" ]]> 1 code %Boolean 1 code %Boolean c:\cachesys\csp\vhintra\PDPPSLogViewer.csp /vhintra/PDPPSLogViewer.csp 60982,48440