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 = "sa" >pas = "Th1nk@123" >ConnStr = [driver=SQL Server; server=]+THESERVER+[; database=]+THESQLDB+[; uid=]+usr+[;pwd=]+pas+[; Trusted_Connection=No;] >curHandle = SQLstringCONNECT( connStr ) > > > >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,; > [<a href="javascript:back('BNRN~X~]+fdBN+[~]+fdPK+[') "target="_self"> ]+TRIM(fdBlNo)+[</a> ] as 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() > >loSC = CREATEOBJECT("wwShowCursor") >loSC.lCenterTable = .f. >loSC.cHeaderBGColor = "black" &&"#336633" >loSC.lAlternateRows = .T. > loSC.cAlternatingBGColor = "white" &&"#EFEFEF" >loSC.cTableBorder ="3" >loSC.cTableWidth="1000" >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() > > >*******TABLE TWO (TO BE POPPED UP AFTER CLICKING LINK)********* > > >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 cmd2 textmerge noshow >exec InTransitRNStatus >endtext >lr = SQLEXEC( curHandle, cmd2, "sq2") && sq is the cursor the data is loaded into > >IF SQLEXEC( curHandle, cmd2, "sq2") = -1 >messagebox(message()) >ENDIF > >SELECT; > date_added,; > status_date,; > status_time,; > status_city,; > status_state,; > equipment_id; > FROM sq2; > WHERE bol = ?m.fdBlNo; > INTO CURSOR TQuery2 > SELECT TQuery2 > 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[6] >laHeaders[1] = "Date Added" >laHeaders[2] = "Status date" >laHeaders[3] = "Status time" >laHeaders[4] = "City" >laHeaders[5] = "State" >laHeaders[6] = "Equipment ID" >loSC.BuildFieldListHeader(@laHeaders) >loSC.lSumNumerics = .t. >loSC.ShowCursor() >protbl=loSC.GetOutput() > > >Response.ExpandTemplate(goWCServer.oConfig.oTask.cBTSHTMPath+"r214Input.htm") >ENDFUNC