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>>>>>>