Index: csp/queryvh.cls.xml =================================================================== diff -u -r1074 -r1573 --- csp/queryvh.cls.xml (.../queryvh.cls.xml) (revision 1074) +++ csp/queryvh.cls.xml (.../queryvh.cls.xml) (revision 1573) @@ -10,31 +10,20 @@ 1 -code query cache %String 1 -code %Status 1 -code %Boolean " @@ -77,11 +64,8 @@ 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)_"' " */ - #If $$$NSpace="HADEV" - Set StartFromID=" (ID > 900000) AND" - #Else + ;Set StartFromID=" (ID > 900000) AND" Set StartFromID="" - #EndIf 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 @@ -172,7 +156,7 @@ 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,136)) + Do ..ShowError($$$ERROR($$$CSPSQLOnlySelect,134)) Quit } // translate tab/cr/nl to spaces @@ -265,7 +249,7 @@ 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,186)) + Do ..ShowError($$$ERROR($$$CSPSQLOnlySelect,184)) Quit } // translate tab/cr/nl to spaces @@ -315,7 +299,7 @@ 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,202)) + Do ..ShowError($$$ERROR($$$CSPSQLOnlySelect,200)) Quit } // translate tab/cr/nl to spaces @@ -365,7 +349,7 @@ 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,218)) + Do ..ShowError($$$ERROR($$$CSPSQLOnlySelect,216)) Quit } // translate tab/cr/nl to spaces @@ -415,7 +399,6 @@ 1 -code %Boolean 1 -code %Boolean " @@ -478,7 +460,6 @@ 1 -code %Boolean " @@ -492,7 +473,6 @@ 1 -code %Boolean 1 -code %Boolean -c:\cachesys\csp\httplog\queryVH.csp +c:\cache\cache2005v021\csp\httplog\queryVH.csp /csp/httplog/queryVH.csp -62105,37324 +62272,49586