SET TEXTMERGE ON &&для TEXT ... ENDTEXT
*!*пример подключения
_nCH=SQLConnect(thisform.container1.combo1.Value,thisform.textbox_color1.Value,thisform.textbox_color2.Value)
IF m._nCH<=0
	MESSAGEBOX('Подключение не удалось')
        return
endif 
*!*пример закачки данных на сервер из курсора c_tmp
SELECT c_tmp
GO TOP IN 'c_tmp'
DO WHILE !EOF('c_tmp')
	lcSql=''
	lcSqlTmp=''
	FOR m.i=0 TO 150
		lcNcrd=ALLTRIM(c_tmp.ncrd)
		lcSum=cast(c_tmp.taksa as varchar(20))
		TEXT TO lcSqlTmp NOSHOW PRETEXT 15
			INSERT INTO comission (operDate,ncrd,endDate,operCod,sum,nomschet) VALUES 
			 ('<<lcOperDate>>','<<lcNcrd>>','<<lcEndDate>>', <<thisform.idOper>>,'<<lcSum>>','<<thisform.Schet>>' ) ;  
		ENDTEXT
		lcSql=lcSql + lcsqlTmp
		SKIP 1 IN  'c_tmp'
		IF EOF('c_tmp')
			EXIT 
		ENDIF 		
	ENDFOR 
	IF SQLEXEC(_nCH,lcSql)<=0 
		AERROR(a_er)
		SQLCANCEL(_nCH)
		MESSAGEBOX('Ошибка №'+CAST(a_er(1) as varchar(6))+CHR(13)+a_er(2), 16)
		RETURN .F.
	ENDIF
ENDDO