text to cmd textmerge noshow *!* select top (200) bol_number, pro_number, client_city, client_state, client_zip, *!* customer_city, customer_state, customer_zip, ship_date *!* FROM <<TheSQLTable>> *!* WHERE bol_Number = ?m.fdBlNo *!* endtextSomehow I need to get the WHERE bol_Number = ?m.fdBlNo working for the SP code below, but didn't figure it out.
FUNCTION r214input fdBlNo = ALLTRIM(UPPER(Request.Form("blno"))) fdBN = Request.Form("BN") fdPK = Request.Form("PK") mEr = "" lcTable="" m.protbl = "" m.rplen = 0 DO CASE CASE ! EMPTY(fdBN) SQLWhere = "BN=" + ALLTRIM(fdBN) IF ! EMPTY(fdPK) SQLWhere = SQLWhere + " AND PK=" + ALLTRIM(fdPK) ENDIF OTHERWISE lcTable = "Not Found" Response.Expandtemplate(goWCServer.oConfig.oTask.cHtmPath+"r214input.htm") RETURN ENDCASE lcTable="TBL Master File<br>" THESQLDB = "TBL_BL" THESQLTABLE = "TBL_BOL" THESERVER = goWCServer.oConfig.oTask.cSQLServer usr = "" pas = "" ConnStr = [driver=SQL Server; server=]+THESERVER+[; database=]+THESQLDB+[; uid=]+usr+[;pwd=]+pas+[; Trusted_Connection=No;] curHandle = SQLstringCONNECT( connStr ) *!* cmd = [exec InTransit ?']+ALLTRIM(user.cclientcd)+['] text to cmd textmerge noshow exec InTransitRN endtext lr = SQLEXEC( curHandle, cmd, "sq") && sq is the cursor the data is loaded into IF SQLEXEC( curHandle, cmd, "sq") = -1 messagebox(message()) ENDIF SELECT; client_zip,; bol_number,; ref_num,; weight,; pro_number,; customer_name,; customer_state,; customer_zip,; carrier_name,; ship_date,; est_delivery,; appt_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() lctable=loSC.GetOutput() Response.ExpandTemplate(goWCServer.oConfig.oTask.cBTSHTMPath+"r214Input.htm") ENDFUNCThere is my updated function.
exec InTransitRN ?m.fdBlNo
>>exec lnTransitRN