*имеется список операций 
SELE 0
CREATE CURSOR SP_OPER (KOP C(2),IOP C(50))
INSERT INTO sp_oper VALUES ("0 ","Все")
INSERT INTO SP_OPER (KOP,IOP) VALUES ('31','Поступление от внешних поставщиков                ')
INSERT INTO SP_OPER (KOP,IOP) VALUES ('33','Поступление от подразделений                      ')
INSERT INTO SP_OPER (KOP,IOP) VALUES ('36','Списание излишков (структ. подр-ие)               ')
INSERT INTO SP_OPER (KOP,IOP) VALUES ('37','Требование накладная со склада на склад           ')
INSERT INTO SP_OPER (KOP,IOP) VALUES ('51','Отпуск структ.подразд-ию                          ')
INSERT INTO SP_OPER (KOP,IOP) VALUES ('54','Продажа на сторону                                ')
INSERT INTO SP_OPER (KOP,IOP) VALUES ('55','Отпуск мат.отв. лицу                              ')
INSERT INTO SP_OPER (KOP,IOP) VALUES ('56','Отпуск со склада на склад                         ')
INSERT INTO SP_OPER (KOP,IOP) VALUES ('57','Списание убыли                                    ')
INSERT INTO SP_OPER (KOP,IOP) VALUES ('58','Списание убыли (структ.подр-ие)                   ')
INSERT INTO SP_OPER (KOP,IOP) VALUES ('82','Отпуск материалов по лимиткам                     ')
 
 
*С помощью LISTBOX делается выбор множества  операций и этот список помещаем в переменную SPIS

SELECT SP_OPER
spis='('
SCAN
	nCnt=RECNO()
	IF This.parent.List1.Selected(nCnt)
		spis=spis+IIF(spis=='(','',',')+kop
	endif	
endscan
spis=spis+')'
IF AT(CHRTRAN(spis,'()',''),'0 ')>0
	SELECT SP_OPER
	spis='('
	SCAN FOR kop # '0 '
		spis=spis+IIF(spis=='(','',',')+kop
	endscan
spis=spis+')'
ENDIF

*ДЕЛАЕМ ОБРАЩЕНИЕ К БД ORACLE
lnConn=SQLSTRINGCONNECT('DRIVER={ORACLE ODBC DRIVER};SERVER=ORA9I;UID=LIDA;PWD=LIDA;DBQ=ORA9I;DBA=W;APA=T;FEN=T;QTO=T;FRC=10;FDL=10;LOB=T;RST=T;FRL=F;MTS=F;CSR=F;PFC=10;TLO=O;')
IF m.lnConn <= 0 && NO Success.
	WAIT WINDOW "КРАХ SQLCONNECT" 
	RETURN
ENDIF	

TEXT  TO lcSQLSelectString ADDITIVE TEXTMERGE NOSHOW  
SELECT  *  FROM LIDA.SNA_DOC WHERE COPE IN <<SPIS>>  AND DDOC BETWEEN (?DATNT) AND (?DATKT) AND (sna_doc.cope <> 0)
ENDTEXT
lnReturn = SQLEXEC(lnConn, lcSQLSelectString, "CDOKS")
= SQLDISCONNECT(lnConn)
IF lnReturn <= 0
	WAIT WINDOW "КРАХ SQLEXEC" 
ENDIF	

* В СЛУЧАЕ БД VFP МОЖНО ТАК
=EXECSCRIPT(lcSQLSelectString)