IF  0  > sql_exec('{call count.dbo.mn_planfin}', 'plan')
        =messagebox  ("Во время выполнения SQL запроса произошла ошибка!",  0  +  16  +  0 , _SCREEN.CAPTION)	
		RETURN	
	ELSE
		loadgrid(.grid1, 'plan')
  	ENDIF
*  	SET STEP ON
  	*******Это право делает грид редактируемым****
  		.grid1.Readonly= !mnr.d51.p1
*!*			.grid1.a_add=!mnr.d51.p2
*!*	  		.grid1.a_del=!mnr.d51.p2
*!*	  		.grid1.a_edit=!mnr.d51.p2
  	**********************************************
  	
 		CURSORSETPROP('tables', 'planfin', 'plan')
		CURSORSETPROP('KeyFieldList', 'planfin_id', 'plan')
		CURSORSETPROP('UpdatableFieldList', 'planfin_id, LPU, SKIND, SREDSUM, SUMMA, PERIOD_N, PERIOD_K', 'plan')
		CURSORSETPROP('UpdateNameList', 'planfin_id planfin.planfin_id, LPU planfin.LPU, SKIND planfin.SKIND, SREDSUM planfin.SREDSUM, SUMMA planfin.SUMMA, PERIOD_N planfin.PERIOD_N, PERIOD_K planfin.PERIOD_K', 'plan')
		CURSORSETPROP('SendUpdates', .T., 'plan')
		CURSORSETPROP('buffering',  3 , 'plan')
		CURSORSETPROP('UpdateType',  1 , 'plan')
		CURSORSETPROP('WhereType',  3 , 'plan')

 WITH gr
      .VISIBLE = .F.
      .RECORDSOURCE = ''
*!*	стираем колонки
      DO WHILE .COLUMNCOUNT >  0 
        .DELETECOLUMN
      ENDDO
      .COLUMNCOUNT = clmcnt
      .RECORDSOURCE = rcds
      .READONLY = .T.

      FOR i =  1  TO clmcnt
        so = AT(';', grstr, i) +  1   && стартовая позиция порядкового номера столбца
        sw = AT(',', grstr,  3  * i -  2 ) +  1  && стартовая позиция ширина столбца
        sf = AT(',', grstr,  3  * i -  1 ) +  1  && стартовая позиция имя_поля
        sc = AT(',', grstr,  3  * i) +  1   && стартовая позиция заголовок столбца
        ord = VAL(ALLT(SUBSTR(grstr, so, sw - so -  1 )))
        wid = VAL(ALLT(SUBSTR(grstr, sw, sf - sw -  1 )))
        field_name = SUBSTR(grstr, sf, sc - sf -  1 )
        cap = SUBSTR(grstr, sc, IIF(i = clmcnt,  100 , AT(';', grstr, i +  1 ) - sc))
        .COLUMNS(i).REMOVEOBJECT('Text1')
        .COLUMNS(i).ADDOBJECT('Text1', 'Stext')
        .COLUMNS(i).COLUMNORDER = ord
        .COLUMNS(i).WIDTH = wid
        .COLUMNS(i).CONTROLSOURCE = IIF('.' $ field_name, field_name, rcds + '.' + field_name)
        .COLUMNS(i).CONTROLS( 1 ).CAPTION = cap
      ENDFOR

      .VISIBLE = .T.
      .REFRESH

    ENDWITH
    RETU .T.

lparameters tcRecordSource
This.RecordSource = tcRecordSource
if !empty(tcRecordSource)
	* определяем, привязан ли грид к источнику данных - курсорадаптеру
	local loCad
	try
		loCad = getcursoradapter(tcRecordSource)
	catch
	endtry
	if vartype(loCad)="O"
		* да, есть курсорадаптер,
		* у курсорадаптера есть настройки внешнего вида и др.различных св-в колонок
		this.setColumnsHeadersProperties(loCad)
	endif
endif