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