LOCAL lcSql

lcSql='exec serverBDname.dbo.myproc ?param1, ?param2...'
SQLEXEC(gnconnect, lcsql, 'blabla')

INDEX ON pole1 TAG pole1
INDEX ON pole2 TAG pole2
....
В методе Click HEADERa GRIDa, где нужна сортировка:

Local lnRecno

*сортируем по первой колонке

*thisform._grid1.column1.header1.Picture=''  
thisform._grid1.column2.header1.Picture=''
thisform._grid1.column3.header1.Picture=''
...

SELECT blabla
IF RECCOUNT()> 0 

lnRecno = IIF(EOF() OR BOF(), 1 ,RECNO[/color]())
TRY
	IF UPPER(JUSTSTEM(this.Picture))="UP" 
		this.Picture = "down.bmp"
		SET ORDER TO namep DESC
	ELSE
		this.Picture = "up.bmp"	
		SET ORDER TO pole1
	ENDIF
CATCH
FINALLY
ENDTRY

thisform._grid1.refresh

GO lnRecNo
ENDIF 

Недостаток способа - номер записи в Grid не равен Recno()

 2 ).

В методе Click HEADERa GRIDa получаю с сервера отсортированный курсор
В процедуре на сервере в зависимости от параметра выполняется нужная сортировка

LOCAL lcSql, lnSORT

lnSORT =  1 
....
thisform._grid1.recordsource=''
lcSql='exec serverBDname.dbo.myproc ?lnSORT, ?param1, ?param2...'
SQLEXEC(gnconnect, lcsql, 'blabla')
thisform._grid1.recordsource='blabla'
....

Недостаток способа - чаще обращения к серверу