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") ENDFUNCI am using WestWind so if something is unfamiliar to you that's probably why.
#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>>>>