ob = CREATEOBJECT("new")
IF VARTYPE (ob) = [O]

ob.caption="Форма редактирования"
ob.height= 400 
ob.width= 825 
  ob.SHOW()
    CLEAR CLASS new
ENDIF

ConnectServ=SQLSTRINGCONNECT(GETVARIABLE('SPP_SQLSTRCONNECT'),.T.)
    if WriteTipUst= 1 
 	     sqlexec(ConnectServ,'select * from spravproc','cur_temp')
    endif
thisform.grd1.recordsourcetype= 1 
thisform.grd1.recordsource="cur_temp"
sqldisconnect(ConnectServ)

if  WriteTipUst= 1 
    thisform.grd1.column1.width= 200 
    thisform.grd1.column1.controlsource="cur_temp.proc"
    thisform.grd1.column1.alignment= 3 
    thisform.grd1.column1.header1.caption="Процессор"