FUNCTION 214Listing >THESQLDB = "TBL_BL" >THESQLTABLE = "TBL_BOL" >THESERVER = goWCServer.oConfig.oWebProcess.cSQLServer >usr = "sa" >pas = "Th1nk@123" >ConnStr = [driver=SQL Server; server=]+THESERVER+[; database=]+THESQLDB+[; uid=]+usr+[;pwd=]+pas+[; Trusted_Connection=No;] >curHandle = SQLstringCONNECT( connStr ) >cmd = [exec InTransit ?'] >*+ALLTRIM(user.cclientcd)+['] >lr = SQLEXEC( curHandle, cmd, "sq") && sq is the cursor the data is loaded into > >SELECT; > client_zip,; > bol_number,; > ref_num,; > weight,; > pro_number,; > customer_name,; > customer_state,; > customer_zip,; > carrier_name,; > ship_date,; > est_delivery,; > app_date,; > latest_status_description,; > latest_reason_description,; > date_last_updated; > FROM sq; > INTO CURSOR TQuery > SELECT TQuery > SET CENTURY ON > recs=RECCOUNT() > >loSC = CREATEOBJECT("wwShowCursor") >loSC.lCenterTable = .f. >loSC.cHeaderBGColor = "black" &&"#336633" >loSC.lAlternateRows = .T. >loSC.cAlternatingBGColor = "white" &&"#EFEFEF" >loSC.cTableBorder ="3" >loSC.cTableWidth="750" >DIMENSION laHeaders[15] >laHeaders[1] = "Ozp" >laHeaders[2] = "BOL#" >laHeaders[3] = "Ref#" >laHeaders[4] = "Weight" >laHeaders[5] = "Pro#" >laHeaders[6] = "Customer Name" >laHeaders[7] = "Dst" >laHeaders[8] = "Dzp" >laHeaders[9] = "Carrier" >laHeaders[10] = "Ship Date" >laHeaders[11] = "Est_Delivery" >laHeaders[12] = "Appt. Date" >laHeaders[13] = "Latest Status" >laHeaders[14] = "Latest Reason" >laHeaders[15] = "Last Updated" >loSC.BuildFieldListHeader(@laHeaders) >loSC.lSumNumerics = .t. >loSC.ShowCursor() >listingtable=loSC.GetOutput() > >Response.ExpandTemplate(goWCServer.oConfig.oWebProcess.cBTSAllTBLPath+"214List.htm") >ENDFUNC>
#define DISC_NORMAL 0 >>>>>#define DISC_RATE 1 >>>>>#define _MAXLNS 10 >>>>>#define _MAXWLNS 10 >>>>>#define RATE_UNKNOWN 0 >>>>>#define RATE_PAY 1 >>>>>#define RATE_INV 2 >>>>>#define CHANGETHIS this.fp1521() &&this.BGMAudit() &&this.fp1601() >>>>>*#define TESTING 1 >>>>>LPARAMETERS loServer >>>>>LOCAL loProcess >>>>>#include WCONNECT.H >>>>>#DEFINE TIMEOUT 14400 >>>>>#DEFINE TOL_PATH "D:\BTS\Tolerance\" >>>>> >>>>>loProcess=CREATEOBJECT("task",loServer) >>>>>IF VARTYPE(loProcess)#"O" >>>>> WAIT WINDOW NOWAIT "Unable to create Process object..." >>>>> RETURN .f. >>>>>ENDIF >>>>>loProcess.Process >>>>>RETURN >>>>> >>>>>DEFINE CLASS Task as WebProcess>>>>>