cmd = [exec InTransit ?']+ALLTRIM(user.cclientcd)+[']I tried running SQL Profiler, but the code doesn't even actually get to do anything, it gives me the error at the start of the function before it has a chance to start. I've never used Profiler before though so maybe I did something wrong.
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>>>>>>>>