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