SELECT kkk4
ggg=RECNO()

DO FORM redakt 

*************************************
* формирование и вывод списка работ *
*************************************
SELECT t009
LOCATE FOR t009.id=m.idn
m.agr=t009.agroup
m.sgr=t009.subgroup

SELECT kkk1.id, kkk1.detailname, kkk1.workname from kkk1 ;
WHERE kkk1.agroup=m.agr AND kkk1.subgroup=m.sgr ; 
ORDER BY detailname, workname ;
INTO cursor kkk2

SELECT rt2002.* FROM rt2002, kkk2 ;
WHERE rt2002.workid=kkk2.id AND rt2002.modelid=m.rtmid ;
INTO CURSOR kkk3 && строки с выбранными работами

SELECT kkk2.id, kkk2.workname, kkk3.timevalue from kkk2, kkk3 ;
WHERE kkk2.id=kkk3.workid ; 
ORDER BY workname ;
INTO cursor kkk4

GO ggg

thisform.grid1.RecordSource="kkk4"
thisform.grid1.ColumnCount= 2 
thisform.grid1.Column1.header1.Caption="Работа"
thisform.grid1.Column2.header1.Caption="Время"
thisform.grid1.Column1.Alignment =  0 
thisform.grid1.Column1.ControlSource ="kkk4.workname"
thisform.grid1.Column2.ControlSource ="kkk4.timevalue"
thisform.grid1.Column1.Width = INT(thisform.grid1.Width/ 6 )* 5 
thisform.grid1.Column2.Width = thisform.grid1.Width-thisform.grid1.Column1.Width

IF nKeyCode= 13   then
thisform.command3.SetFocus
thisform.command3.Click
ENDIF