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" 
	THISFORM.RELEASE
ENDIF	
*Справочник складов
TEXT TO lcSQLSelectString TEXTMERGE NOSHOW  
	select kspo KOD_OTD,ispo NAM from lida.nsi_spo WHERE tspo= 3   ORDER BY KSPO
ENDTEXT
lnReturn = SQLEXEC(lnConn, lcSQLSelectString, "OTD")
IF lnReturn <=  0 
	WAIT WINDOW "КРАХ SQLEXEC" 
	THISFORM.RELEASE
ENDIF	
= SQLDISCONNECT(lnConn)	 

	ADD OBJECT skl1 AS skl WITH ;
		RowSource = ['SELECT DIST PADC("ВСЕ СКЛАДЫ",LEN(otd.nam)) AS NAM,kod_otd-KOD_OTD AS KOD_OTD,PADL(0,10)  AS ID_AGN FROM OTD UNION ALL SELECT otd.nam,kod_otd,PADL(kod_otd,10) FROM OTD  ORDER BY 2 INTO CURSOR SKL'], ;
		Height =  24 , ;
		Left =  56 , ;
		Style =  2 , ;
		TabIndex =  2 , ;
		Top =  3 , ;
		Width =  232 , ;
		Name = "Skl1"