CSP page for viewing the TBX log via SQL User vhLib.Macro cache %CSP.Page 1 query cache %String 1 %Status 1 %Boolean " Write ! ; SQL-statement for TBX HTTPLog /* SELECT ID, ClientHost, ( '' || LogTime || '' ) LogTime, Operation Oper, ServiceStatus Status, (SUBSTR(Target, $FIND(Target,'/VHISIE/TBX/'))) Target, Parameters FROM DW_WWW.HTTPLogTBX WHERE (ID > 4000000) AND (LogTime %STARTSWITH '2009-03-26') AND (ClientHost = '?') */ Kill:($G(%request.Data("QUERY",1))="") %request.Data("QUERY") Set name="" For Set name=$O(%request.Data(name)) Quit:(name="") Merge tmpRq(name)=%request.Data(name,1) ; SQL-statement for TBX SysLog of TODAY /* Set sqlTBX="SELECT ID, Actie, WizardMode Mode, WSBonType TYPE, TO_CHAR(WSOrderID) OrdID, WSTotals, KlantNr KLNr, Verwerker VERW, LogTime, Taal, " Set sqlTBX=sqlTBX_$C(13,10)_" DECODE(Domein, '"_$$$DomVHEPN_"','vh', '"_$$$DomHEIN_"','hein', '"_$$$DomOPTIMA_"','optima', '"_$$$DomDUPONT_"','dupont', '"_$$$DomHELMY_"','destil', '"_$$$DomHFLE_"','hafele', '"_$$$DomSFS_"','sfs', Domein) Domein, ClientHost" Set sqlTBX=sqlTBX_$C(13,10)_" FROM DW_WWW.SysLogTBX WHERE LogTime %STARTSWITH '"_$ZD($H,3)_"' " */ ;Set StartFromID=" (ID > 900000) AND" Set StartFromID="" Set sqlTBX="SELECT ID, Actie, WizardMode Mode, WSBonType TYPE, TO_CHAR(WSOrderID) OrdID, WSTotals, KlantNr KLNr, Verwerker VERW, LogTime, Taal, DomeinKort Domein, ClientHost" Set sqlTBX=sqlTBX_$C(13,10)_" FROM DW_WWW.SysLogTBX WHERE"_StartFromID_" LogTime %STARTSWITH '"_$ZD($H,3)_"' " ; SQL-statement for TBX WSOrder via ID Set sqlOrd="SELECT ID, BonType, Commissie, IngaveTijdStip, SubmitTS, ('Off.:' || $LIST($LIST(TransferLog,1),2)) AS TransferLogID, LeverTijd, TotAantal, TotPrijs, NietMeeleveren AS NietMee, ActieCodesList ActieCodes, ShowInHist ShwHist, WebDomain, WebURL, WebQSData, LeverTijdID, ('#imports:' || ($LISTLENGTH(TransferLog)-0) || ' --- ' || TransferLog) AS TransferLog, mID" Set sqlOrd=sqlOrd_$C(13,10)_" FROM WS_TBX.WebOrder WHERE ID=429" Set sqlOrd=sqlOrd_$C(13,10)_"SELECT ID, KLNaam, KLNummer KLNr, KLStraatNrBus Straat, KLPostNr PostNr, KLWoonPlaats Woonplaats, KLTelefoon Tel, KLFax Fax, KLEMail EMail, KLBTWNr BTWNr , KLPrijsKlasse PKlas, KLKorting Korting, Taal" Set sqlOrd=sqlOrd_$C(13,10)_" FROM WS_TBX.WebOrder WHERE ID=429" Set sqlOrd=sqlOrd_$C(13,10)_"SELECT ID, Lijnen_GAMeta GAMeta, Lijnen_Qty Qty, ROUND(Lijnen_KostPrijs,3) KPrijs, ROUND(Lijnen_AKPrijs,3) APrijs, Lijnen_ItemLT LT, Lijnen_ItemCB CB, Lijnen_ItemWD WD, Lijnen_ItemLD LD, Lijnen_ItemDK DK, Lijnen_ItemBX BX, Lijnen_ItemBM BM, Lijnen_ItemSB SB, Lijnen_ItemOPVL OPVL, Lijnen_ItemVPK VPK, Lijnen_ItemSPZK SPZK, Lijnen_ItemASM ASM, Lijnen_ItemBGRP BGRP, Lijnen_ItemFS FS, Lijnen_ItemDWV DWV, Lijnen_ItemOLP OLP, Lijnen_ItemSTDL STDL, Lijnen_ItemFB FB, Lijnen_ItemDS DS, (Lijnen_ItemKL ||'-'|| Lijnen_ItemKB ||'-'|| isnull (Lijnen_ItemRK,' ') ||'-'|| Lijnen_ItemKX) Ld_Bd_Rl_Bx, Lijnen_ItemKV KVul, Lijnen_ActieKorting ActieKorting, Lijnen_ActieItems ActieItems, Lijnen_Exclude Exclude, Lijnen_LijnNr LijnNr , Lijnen_AddPrs AddPrs" Set sqlOrd=sqlOrd_$C(13,10)_" FROM WS_TBX.WebOrder_Lijnen WHERE WebOrder=429" Set sqlOrd=sqlOrd_$C(13,10)_"SELECT OrdHfd.*,OrdLn.* FROM WS_TBX.WebOrder OrdHfd, WS_TBX.WebOrder_Lijnen OrdLn " Set sqlOrd=sqlOrd_$C(13,10)_" WHERE OrdHfd.ID=429 AND OrdLn.WebOrder=429" ; SQL-statement last three IDs Set sqlTOP3="SELECT top 3 ID FROM DW_WWW.SysLogTBX ORDER BY ID Desc" ; Defaulting via QueryString Set ShowOrd=$G(%request.Data("WSORD",1)) If ShowOrd>0 Do . Set ShowOrd=+ShowOrd ; . Set sqlActive=$G(%request.Data("QUERY",1)) . Set blnSQED=$S($L(sqlActive):1, 1:$G(%request.Data("SQED",1),0)) ; boolean Show Query Editor . Set sqlOrd01="SELECT ID, KLNaam, KLNummer KLNr, KLStraatNrBus Straat, KLPostNr PostNr, KLWoonPlaats Woonplaats, KLTelefoon Tel, KLFax Fax, KLEMail EMail, KLBTWNr BTWNr FROM WS_TBX.WebOrder WHERE ID="_ShowOrd . Set sqlOrd02="SELECT ID, BonType, Commissie, IngaveTijdStip, SubmitTS, ('Off.:' || $LIST($LIST(TransferLog,1),2)) AS TransferLogID, ISNULL(LeverTijd, '(ID: ' || LeverTijdID || ')') LeverTijd, TotAantal, TotPrijs, NietMeeleveren AS NietMee, ActieCodesList ActieCodes, ShowInHist ShwHist, WebDomain, WebURL FROM WS_TBX.WebOrder WHERE ID="_ShowOrd . Set sqlOrdLn="SELECT ID, Lijnen_GAMeta GAMeta, Lijnen_Qty Qty, ROUND(Lijnen_KostPrijs,3) KPrijs, ROUND(Lijnen_AKPrijs,3) APrijs, Lijnen_ItemLT LT, Lijnen_ItemCB CB, Lijnen_ItemWD WD, Lijnen_ItemLD LD, Lijnen_ItemDK DK, Lijnen_ItemBX BX, Lijnen_ItemBM BM, Lijnen_ItemSB SB, Lijnen_ItemOPVL OPVL, Lijnen_ItemVPK VPK, Lijnen_ItemSPZK SPZK, Lijnen_ItemASM ASM, Lijnen_ItemBGRP BGRP, Lijnen_ItemFS FS, Lijnen_ItemDWV DWV, Lijnen_ItemOLP OLP, Lijnen_ItemSTDL STDL, Lijnen_ItemFB FB, Lijnen_ItemDS DS, (Lijnen_ItemKL ||'-'|| Lijnen_ItemKB ||'-'|| isnull (Lijnen_ItemRK,' ') ||'-'|| Lijnen_ItemKX) Ld_Bd_Rl_Bx, Lijnen_ItemKV KVul, Lijnen_ActieKorting ActieKorting, Lijnen_ActieItems ActieItems, Lijnen_Exclude Exclude, Lijnen_LijnNr LijnNr FROM WS_TBX.WebOrder_Lijnen WHERE WebOrder="_ShowOrd . Merge tmpAr=tmpRq . Kill tmpAr("SQED") . Set tmpAr("SQED")=('blnSQED) . Set arUrl("ToggleQED")="?"_##class(cspBasis.GAProdTBox).CQueryString(.tmpAr) Else Do . New sqlDFL . Set sqlDFL=$S($G(%request.Data("TBXNOW",1))=1:sqlTBX, 1:sqlTOP3) . Set sqlActive=$G(%request.Data("QUERY",1),sqlDFL) . Set ShowOrd=0 . Set blnSQED=1 ; Check if SQL-statement does not alter the tables data !!! Set lbAvoidSQL=$LB("CREATE TABLE","ALTER TABLE","DROP TABLE","CREATE QUERY","DROP QUERY","INSERT","UPDATE","DELETE") Write !,! If '((blnSQED)) Goto %csp00001 ;{ Write !,$c(9) #define CvtNOBR(%v) "('<NOBR>'||"_%v_"||'</NOBR>') "_%v Write !,$c(9)_"
"_($S(ShowOrd>0:sqlOrd, 1:$$REPLACE^vhRtn1(sqlTBX,"LogTime,",$$$CvtNOBR("LogTime")_",")))_"
",! Write $c(9) Write "
" Write !,..InsertHiddenFields(""),! 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)_"",! Write $c(9,9)_"
",! Write $c(9,9,9,9,9)_"SQL Query:",! Write $c(9,9,9,9,9)_"
" Write "" Write !,$c(9,9,9,9)_"		",! Write $c(9,9,9,9,9)_"WS Order ID:
" Write "" Write !,$c(9,9,9,9,9)_"

",! Write $c(9,9,9,9,9) Write "" Write "Query Editor visible",! Write $c(9,9,9,9,9)_"
",! Write $c(9,9,9,9,9) Write "" Write !,$c(9,9,9,9)_"
",! Write $c(9,9)_" ",! Write $c(9,9) Write "" Write " ",! Write $c(9,9) Write "" Write !,$c(9) Write "
" Write ! Goto %csp00002 ;} %csp00001 ;{ Write !,$c(9) Write "" Write "Show Query Editor" Write "" Write ! %csp00002 ;} Write !,"
",! Write ! If '(($L(sqlActive))) Goto %csp00003 ;{ Write !,$c(9) // Open instance of ResultSet for runtime mode of DISPLAY. Set queryA = ##class(%ResultSet).%New() Set queryA.RuntimeMode=2 Set sqlStatement=$zstrip($tr((sqlActive),$C(9,13,10)," "),"<>W") If $zcvt($extract(sqlStatement,1,6),"U")'="SELECT" { Do ..ShowError($$$ERROR($$$CSPSQLOnlySelect,134)) Quit } // translate tab/cr/nl to spaces Set %sc = queryA.Prepare(sqlStatement,0,"RUNTIME") If (+%sc=0) { Do ..ShowError(%sc) QUIT } Set %sc = queryA.Execute(($G(%request.Data("P1",1),"A"))) If (+%sc=0) { Do ..ShowError(%sc) QUIT } Write !,$c(9) Set qryAColCount=queryA.GetColumnCount() Write !,$c(9)_"",! Write $c(9,9)_""_$c(9,9),! Write $c(9,9,9)_""_$c(9,9,9),! Write $c(9,9,9) Set col=0 %csp00005 If '((col"_$c(9,9,9),! Write $c(9,9,9) Goto %csp00005 %csp00004 ;} Write !,$c(9,9)_""_$c(9,9),! Write $c(9,9) Kill arColSpecial Set blnAddLink=0 Write !,$c(9,9)_"",! Write $c(9,9,9)_"",! Write $c(9,9,9) Set col=0 %csp00007 If '((col"_(ColumnName)_"",! Write $c(9,9,9) Goto %csp00007 %csp00006 ;} Write !,$c(9,9)_"",! Write $c(9,9) Set row=0 %csp00009 If '(queryA.Next()) Goto %csp00008 ;{ Set row=row+1 Write " " Write !,$c(9,9)_"",! Write $c(9,9,9) Set blnAddLink=(queryA.GetDataByName("Actie")?1(1"MAINPAGE",1"WIZARD_CALC")) Write !,$c(9,9,9)_"",! Write $c(9,9,9) Set col=0 %csp00011 If '((col"_tmpVal_"" ; ClientHost Hein : "195.143.6.116" ; ClientHost Optima : "213.244.20.173" Write !,$c(9,9,9)_"",! Write $c(9,9,9) Goto %csp00011 %csp00010 ;} Write !,$c(9,9)_"",! Write $c(9,9) Goto %csp00009 %csp00008 ;} Write !,$c(9)_"
 
"_($S(blnAddLink:">", 1:" "))_""_($S($L(tmpVal):tmpVal,1:" "))_"
",! Write $c(9)_"
",! %csp00003 ;} Write !,! If '((ShowOrd>0)) Goto %csp00012 ;{ Write !,$c(9)_"",! Write $c(9) Write "" Write "WEB ORDER" Write "" Write "",! Write $c(9)_""_$c(9),! Write $c(9) // Open instance of ResultSet for runtime mode of DISPLAY. Set queryOrd01 = ##class(%ResultSet).%New() Set queryOrd01.RuntimeMode=2 Set sqlStatement=$zstrip($tr((sqlOrd01),$C(9,13,10)," "),"<>W") If $zcvt($extract(sqlStatement,1,6),"U")'="SELECT" { Do ..ShowError($$$ERROR($$$CSPSQLOnlySelect,184)) Quit } // translate tab/cr/nl to spaces Set %sc = queryOrd01.Prepare(sqlStatement,0,"RUNTIME") If (+%sc=0) { Do ..ShowError(%sc) QUIT } Set %sc = queryOrd01.Execute() If (+%sc=0) { Do ..ShowError(%sc) QUIT } Write !,$c(9)_"",! Write $c(9,9)_"",! Write $c(9,9,9) Set col=0 %csp00014 If '((col"_(queryOrd01.GetColumnName(col))_"",! Write $c(9,9,9) Goto %csp00014 %csp00013 ;} Write !,$c(9,9)_"",! Write $c(9,9) Set row=0 %csp00016 If '(queryOrd01.Next()) Goto %csp00015 ;{ Set row=row+1 Write !,$c(9,9)_"",! Write $c(9,9,9) Set col=0 %csp00018 If '((col"_($S($L(queryOrd01.GetData(col)):queryOrd01.GetData(col), 1:" "))_"",! Write $c(9,9,9) Goto %csp00018 %csp00017 ;} Write !,$c(9,9)_"",! Write $c(9,9) Goto %csp00016 %csp00015 ;} Write !,$c(9)_"
",! Write $c(9)_"
",! Write $c(9) // Open instance of ResultSet for runtime mode of DISPLAY. Set queryOrd02 = ##class(%ResultSet).%New() Set queryOrd02.RuntimeMode=2 Set sqlStatement=$zstrip($tr((sqlOrd02),$C(9,13,10)," "),"<>W") If $zcvt($extract(sqlStatement,1,6),"U")'="SELECT" { Do ..ShowError($$$ERROR($$$CSPSQLOnlySelect,200)) Quit } // translate tab/cr/nl to spaces Set %sc = queryOrd02.Prepare(sqlStatement,0,"RUNTIME") If (+%sc=0) { Do ..ShowError(%sc) QUIT } Set %sc = queryOrd02.Execute() If (+%sc=0) { Do ..ShowError(%sc) QUIT } Write !,$c(9)_"",! Write $c(9,9)_"",! Write $c(9,9,9) Set col=0 %csp00020 If '((col"_(queryOrd02.GetColumnName(col))_"",! Write $c(9,9,9) Goto %csp00020 %csp00019 ;} Write !,$c(9,9)_"",! Write $c(9,9) Set row=0 %csp00022 If '(queryOrd02.Next()) Goto %csp00021 ;{ Set row=row+1 Write !,$c(9,9)_"",! Write $c(9,9,9) Set col=0 %csp00024 If '((col"_($S($L(queryOrd02.GetData(col)):queryOrd02.GetData(col), 1:" "))_"",! Write $c(9,9,9) Goto %csp00024 %csp00023 ;} Write !,$c(9,9)_"",! Write $c(9,9) Goto %csp00022 %csp00021 ;} Write !,$c(9)_"
",! Write $c(9)_"
",! Write $c(9) // Open instance of ResultSet for runtime mode of DISPLAY. Set queryOrdLn = ##class(%ResultSet).%New() Set queryOrdLn.RuntimeMode=2 Set sqlStatement=$zstrip($tr((sqlOrdLn),$C(9,13,10)," "),"<>W") If $zcvt($extract(sqlStatement,1,6),"U")'="SELECT" { Do ..ShowError($$$ERROR($$$CSPSQLOnlySelect,216)) Quit } // translate tab/cr/nl to spaces Set %sc = queryOrdLn.Prepare(sqlStatement,0,"RUNTIME") If (+%sc=0) { Do ..ShowError(%sc) QUIT } Set %sc = queryOrdLn.Execute() If (+%sc=0) { Do ..ShowError(%sc) QUIT } Write !,$c(9)_"",! Write $c(9,9)_"",! Write $c(9,9,9) Set col=0 %csp00026 If '((col"_(queryOrdLn.GetColumnName(col))_"",! Write $c(9,9,9) Goto %csp00026 %csp00025 ;} Write !,$c(9,9)_"",! Write $c(9,9) Set row=0 %csp00028 If '(queryOrdLn.Next()) Goto %csp00027 ;{ Set row=row+1 Write !,$c(9,9)_"",! Write $c(9,9,9) Set col=0 %csp00030 If '((col"_($S($L(queryOrdLn.GetData(col)):queryOrdLn.GetData(col), 1:" "))_"",! Write $c(9,9,9) Goto %csp00030 %csp00029 ;} Write !,$c(9,9)_"",! Write $c(9,9) Goto %csp00028 %csp00027 ;} Write !,$c(9)_"
",! %csp00012 ;} Write !,!,"" ]]> 1 %Boolean 1 %Boolean " Write ! Set BodyBgColor=##class(TECH.Config.ConfigMgr).Instance().GetString("WebpaginaAchtergrondKleur") Set OnServer = "  ["_$$$NSpace_"]" Write !,$c(9)_"Query VH"_($G(OnServer))_"",! Write $c(9) Write "" Write $c(9),! Write $c(9) Write "" Write !,$c(9) Write "" Write !,"" ]]> 1 %Boolean " Write !,! Do ..OnPageHEAD() Write !,! Do ..OnPageBODY() Write !,"" ]]> 1 %Boolean 1 %Boolean c:\cache\cache2005v021\csp\httplog\queryVH.csp /csp/httplog/queryVH.csp 62272,49586