.cItem = ALLTRIM(cItem)
 
IF !USED('rl')
   USE config!rl IN 0 ALIAS rl
ENDIF
SELECT rl
 
*---------------------------------------------------------------
*-- Copy rl structure to a temp cursor
*---------------------------------------------------------------

IF !USED('Exchange')
   USE iw_controls!Exchange IN 0 ALIAS Exchange
ENDIF
nSendUsing = Exchange.SendUsing
cServer = ALLTRIM(Exchange.Server)
USE IN SELECT('exchange')
 
SELECT csRFQ_B
GO TOP

IF !USED('Exchange')
   USE iw_controls!Exchange IN 0 ALIAS Exchange
ENDIF 
 
iMsg = CreateObject([CDO.Message])
iConf = CreateObject([CDO.Configuration])
Flds = iConf.Fields
 
Flds.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = Exchange.SendUsing
Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = 'exchange' && ALLTRIM(Exchange.Server)

 
IF !USED('Exchange')
  USE iw_controls!Exchange IN 0 ALIAS Exchange
ENDIF 
nSendUsing = Exchange.SendUsing
cServer = ALLTRIM(Exchange.Server)
USE IN SELECT('exchange')
 
SELECT csRFQ_B
GO TOP

SELECT csRFQ_B
GO TOP
cdoSendUsingPort = 2
oMsg = CREATEOBJECT("CDO.Message")
oConf = CREATEOBJECT("CDO.Configuration")
Flds = oConf.FIELDS
 
Flds.ITEM("http://schemas.microsoft.com/cdo/configuration/sendusing") = cdoSendUsingPort
Flds.ITEM("http://schemas.microsoft.com/cdo/configuration/smtpserver") = cMailServer
Flds.ITEM("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = nsmtpconnectiontimeout

 SELECT * ;
    From config!part_li ;
    Where ALLTRIM(part_no) == ALLTRIM(NVL(cpart_no,'')) AND INLIST(ALLTRIM(type), &ctypes);
    Into Cursor (cResultCursor) ReadWrite
 
 nResult = _Tally
 
 IF nResult > 0
    lretval =.t.
 ELSE 

LPARAMETERS cFile, oLog
 
LOCAL cSourceFile, cDestinationFile, cFileNameDbf, cFileNameXls, cFilePathDbf, cFullNameDbf, cFullNameXls, cOldDefault
LOCAL nImportedFields, nExpectedFields, cField, lFieldsOK, lDataOK, cItems, cParts, nItems, nParts, cImportItem 
LOCAL cDbfFieldName, cExpectedFieldName, cExpectedFieldType, nExpectedFieldSize, nExpectedFieldPrec, lImportTubingOK, lImportTTMLogOK
LOCAL ARRAY aExpectedFields[1], aImportedFields[1], aDbfFields[1], aNumericData[1]
 
cDestinationFile  = 'tubing.dbf'
cDestinationAlias = 'tubing'

CREATE DATABASE dawnoises;
 
CREATE TABLE produse( 
    cod_produs number(10) not null primary key,
    cod_producator number(10) not null,
    denumire varchar(30),
    tip number(3) not null,
    cantitate number(8,2),
    um char(3),
    pret number(8,2)

LPARAMETERS cfile, olog
 
LOCAL citems, cparts, citem, cpart, citemprev, calias, cfilen, cfilennew, nrec, nrecd, nafld, nprevsel, lcsubject, lcbody, lcbodyitems, lcbodyparts
 
ccr= CHR(13)+CHR(10)
 
nprevsel = SELECT()
cfile = LOWER(cfile)
 
sns = ALLTRIM(SYS(2))

SELECT wire_inv
SEEK(cSpool_no)
 
IF !FOUND()
    RETURN .F.
ELSE
    qty_prior = Wire_Inv.Qty
ENDIF
 
IF USED("csEmpNoOut")

** cmdSend.Click()
 
nPrevSel= SELECT()
thisform.mupdatesuppliers()
 
IF USED("csRFQSend")
   USE IN csRFQSend
ENDIF
 
SELECT * FROM csRFQList WHERE sel > 0 INTO CURSOR csRFQSend

...
 
      SELECT csRFQ_B
      SCAN
         Harness = ALLTRIM(csRfq_b.part_no)
         *pulls revision data from Intelex first AND fill IN any others from VFP Document Tables. (DES) 9/26/08
         DO Intelex_Multi_Rev WITH gcRevMemo, gcRevMemo5Col, gcRevMemo6Col, gcPlacardRevMemo
 
         IF USED("csPart_Li") Then
            SELECT csPart_li

* This program looks up all the Rev data from Document and populates a table called REV which is stored in SYS(2023)
* 
* It also populates the prior used Rev Var's in case a program requires them.
*
* Date: 5/28/2008 
* By: Doug Symes
*
LPARAMETERS lcRevMemo AS Character, lcRevMemo5Col AS Character, lcRevMemo6Col AS Character, lcPlacardRevMemo AS Character
 
PUBLIC cSeek, nCount, lIntelex, cSQL, nIntelexMultRevConn

SET EXCLUSIVE OFF
 
crfqno = INPUTBOX("Enter RFQ number.", "cRFQno", "")
 
IF EMPTY(crfqno)
    RETURN
ENDIF  
 
IF USED('csSupplier')
   USE IN csSupplier

 
WITH this
   DO CASE
      CASE .aitemlist[.ncurrentsearchtype,1]= 'Item'
         nResult = thisform.oBizObj.oRl.mGetRlByItem('csRoutingListI',this.txtSearch.VALUE)
         
         
******
******
TRY 

SET Exact ON
SET Exclusive OFF 
SET Multilocks OFF
SET Fixed OFF   
SET Deleted ON
SET Optimize ON
SET Unique OFF
SET Lock OFF
SET EngineBehavior 90