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; WHERE bol_Number = ?m.fdBlNo; INTO CURSOR TQuery SELECT TQuery SET CENTURY ON recs=RECCOUNT()That seems to allow me to search for a record number.
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 >>*!* endtext>>
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") >>ENDFUNC >>>>
exec InTransitRN ?m.fdBlNo
>>>>exec lnTransitRN