Query VH dialog"_($G(OnServer))

CSP page for building SQL statements for TBX log User vhLib.Macro cache %CSP.Page 1 code Expr,NewCond,Operator cache %String 1 code %Status 1 code %Boolean " Write ! /* SELECT ID, ClientHost, ( '' || LogTime || '' ) LogTime, Operation Oper, ServiceStatus Status, (SUBSTR(Target, $FIND(Target,'/VHISIE/TBX/'))) Target, Parameters FROM DW_WWW.HTTPLogTBX WHERE ClientHost IN (SELECT DISTINCT(ClientHost) FROM DW_WWW.SysLogTBX WHERE KlantNr=6279 AND LogTime %STARTSWITH '2005-09-29 10:') AND (LogTime %STARTSWITH '2005-09-29 10:') AND (NOT ClientHost %STARTSWITH '192.168.1.') SELECT ID, Actie, WizardMode Mode, WSBonType TYPE, TO_CHAR(WSOrderID) OrdID, WSTotals, KlantNr KLNr, Verwerker VERW, LogTime, Taal, DomeinKort Domein, ClientHost, CspSessionID FROM DW_WWW.SysLogTBX WHERE ClientHost IN (SELECT DISTINCT(ClientHost) FROM DW_WWW.SysLogTBX WHERE KlantNr=3451 AND LogTime %STARTSWITH '2005-09-0') AND (LogTime %STARTSWITH '2005-09-0') AND (NOT ClientHost %STARTSWITH '192.168.1.') ORDER BY ID SELECT ID, Actie, WizardMode Mode, WSBonType TYPE, TO_CHAR(WSOrderID) OrdID, WSTotals, KlantNr KLNr, Verwerker VERW, LogTime, Taal, DomeinKort Domein, ClientHost, CspSessionID FROM DW_WWW.SysLogTBX WHERE CspSessionID in (SELECT DISTINCT(CspSessionID) FROM DW_WWW.SysLogTBX WHERE KlantNr=3451 AND LogTime %STARTSWITH '2005-09-0') AND (LogTime %STARTSWITH '2005-09-0') AND (NOT ClientHost %STARTSWITH '192.168.1.') ORDER BY ID SELECT ID, Actie, WizardMode Mode, WSBonType TYPE, TO_CHAR(WSOrderID) OrdID, KlantNr KLNr, LogTime, ClientHost FROM DW_WWW.SysLogTBX WHERE (LogTime %StartsWith '2005-09-2') AND ClientHost in ( SELECT DISTINCT(ClientHost) FROM DW_WWW.SysLogTBX WHERE (KlantNr=3578) ) SELECT ID, Actie, WizardMode Mode, WSBonType TYPE, TO_CHAR(WSOrderID) OrdID, KlantNr KLNr, LogTime, ClientHost FROM DW_WWW.SysLogTBX WHERE ClientHost in ( SELECT DISTINCT(ClientHost) FROM DW_WWW.SysLogTBX WHERE (KlantNr=3578) AND (LogTime %StartsWith '2005-09-2') ) SELECT KLNummer KLNr,KLNaam, IngaveTijdStip, SubmitTS Verzonden, (1000000+ID) EDInr, Commissie KlantRef, LeverTijd, TotAantal, TotPrijs, BonType FROM WS_TBX.WebOrder WHERE ID in ( SELECT distinct(WSOrderID) FROM DW_WWW.SysLogTBX WHERE (WSOrderID>0) AND (LogTime %StartsWith '2005-11-') AND (KlantNr=2865) ) SELECT (1000000+WebOrder) EDInr, Lijnen_Qty AANTAL, ROUND(Lijnen_KostPrijs,3) KPrijs, 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_ItemFB FB, Lijnen_ItemDS DS, (Lijnen_ItemKL ||'-'|| Lijnen_ItemKB ||'-'|| Lijnen_ItemRK ||'-'|| Lijnen_ItemKX) Ld_Bd_Rl_Bx, Lijnen_LijnNr LijnNr FROM WS_TBX.WebOrder_Lijnen WHERE WebOrder in ( SELECT distinct(WSOrderID) FROM DW_WWW.SysLogTBX WHERE (WSOrderID>0) AND (LogTime %StartsWith '2005-11-') AND (KlantNr=2865) ) */ ; SQL-statement for TBX HTTPLog #define SelectDFL "ID, Actie, WizardMode Mode, WSBonType TYPE, TO_CHAR(WSOrderID) OrdID, WSTotals, KlantNr KLNr, Verwerker VERW, LogTime, Taal, DomeinKort Domein, ClientHost" Set txtSELECT=$G(%request.Data("txtSELECT",1),$$$SelectDFL) Set txtFROM=$G(%request.Data("txtFROM",1),"DW_WWW.SysLogTBX") Set txtLogTime=$G(%request.Data("txtLogTime",1),$ZD($H,3)) Set optLogTime=$G(%request.Data("optLogTime",1),"StartW") Set blnLTEquals=(optLogTime="Equals") Set blnLTStartW=(optLogTime="StartW") Set txtKLNr=$G(%request.Data("txtKLNr",1),"") Set txtOrdID=$G(%request.Data("txtOrdID",1),"") Set txtIPHost=$G(%request.Data("txtIPHost",1),"") Set optIPHost=$G(%request.Data("optIPHost",1),"Equals") Set blnIPEquals=(optIPHost="Equals") Set blnIPStartW=(optIPHost="StartW") Set txtSesID=$G(%request.Data("txtSesID",1),"") #define wLogTime $S($L(txtLogTime):"LogTime"_$S(blnLTStartW:" %StartsWith ",1:"=")_"'"_txtLogTime_"'",1:"") #define wKLNr $S($L(txtKLNr):"KlantNr"_"="_txtKLNr,1:"") #define wOrdID $S($L(txtOrdID):"WSOrderID"_"="_txtOrdID,1:"") #define wIPHost $S($L(txtIPHost):"ClientHost"_$S(blnIPStartW:" %StartsWith ",1:"=")_"'"_txtIPHost_"'",1:"") #define wSesID $S($L(txtSesID):"CspSessionID"_"='"_txtSesID_"'",1:"") Set blnSubmit=$G(%request.Data("btnSubmit",1))="Build" If blnSubmit Do . Set txtWHERE="" . Set txtWHERE=..AppendCondition(txtWHERE,$$$Trim($$$wLogTime),"AND") . Set txtWHERE=..AppendCondition(txtWHERE,$$$Trim($$$wKLNr),"AND") . Set txtWHERE=..AppendCondition(txtWHERE,$$$Trim($$$wOrdID),"AND") . Set txtWHERE=..AppendCondition(txtWHERE,$$$Trim($$$wIPHost),"AND") . Set txtWHERE=..AppendCondition(txtWHERE,$$$Trim($$$wSesID),"AND") . Set txtSQL="SELECT "_txtSELECT_$$$CRLF_" FROM "_txtFROM_" "_" WHERE "_txtWHERE Write !,!,$c(9) Write "

" Write !,..InsertHiddenFields("DLGqueryVH.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)_"",! 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,9)_"",! Write $c(9,9,9,9)_"",! Write $c(9,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,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,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,9)_"",! Write $c(9,9,9,9)_"",! Write $c(9,9,9,9)_"",! Write $c(9,9,9,9)_"",! Write $c(9,9,9)_""_$c(9,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,9)_"",! Write $c(9,9,9,9)_"",! Write $c(9,9,9)_"",! Write $c(9,9)_"

",! Write $c(9,9,9,9,9)_"SELECT",! Write $c(9,9,9,9)_"	",! Write $c(9,9,9,9,9) Write "" Write !,$c(9,9,9,9)_"
",! Write $c(9,9,9,9,9)_"FROM",! Write $c(9,9,9,9)_"	",! Write $c(9,9,9,9,9) Write "" Write !,$c(9,9,9,9)_"
WHERE
",! Write $c(9,9,9,9,9)_"LogTime",! Write $c(9,9,9,9)_"	",! Write $c(9,9,9,9,9) Write "" Write !,$c(9,9,9,9)_"	",! Write $c(9,9,9,9,9) Write "" Write " ""="" ",! Write $c(9,9,9,9,9) Write "" Write " ""%StartsWith""",! Write $c(9,9,9,9)_"
KlantNr	" Write "" Write "
WSOrderID	" Write "" Write "
",! Write $c(9,9,9,9,9)_"ClientHost (IP)",! Write $c(9,9,9,9)_"	",! Write $c(9,9,9,9,9) Write "" Write !,$c(9,9,9,9)_"	",! Write $c(9,9,9,9,9) Write "" Write " ""="" ",! Write $c(9,9,9,9,9) Write "" Write " ""%StartsWith""",! Write $c(9,9,9,9)_"
CspSessionID	" Write "" Write "
",! Write $c(9,9,9,9,9) Write "" Write !,$c(9,9,9,9)_"

",! Write $c(9) Write "

" Write !,"

",! Write ! If '((blnSubmit)) Goto %csp00001 ;{ Write !,$c(9)_"
",! Write $c(9) Write "" Write "
",! Write $c(9) Write "" Write !,$c(9)_"

",! Goto %csp00002 ;} %csp00001 ;{ Write ! %csp00002 ;} Write !,!,"" ]]> 1 code %Boolean 1 code %Boolean " Write ! Set BodyBgColor=##class(TECH.Config.ConfigMgr).Instance().GetString("WebpaginaAchtergrondKleur") Set OnServer = " ["_$$$NSpace_"]" Write !,$c(9)_"Query VH dialog"_($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 !,"" ]]> c:\cachesys\csp\httplog\DLGqueryVH.csp /csp/httplog/DLGqueryVH.csp 62105,37414