IF VARTYPE (ob) = [O]
	ob.closable=.t.                              
	ob.caption="Caption"
	ob.height= 335 
	ob.width= 700 
	ob.left= 265 
	ob.top= 165 
	  ob.SHOW()
	    CLEAR CLASS new
ENDIF

DEFINE CLASS new AS _issform 

ADD OBJECT cmb1 AS combobox with;
 top= 84 ,;
 left= 324 ,;
 width= 157 ,;
 height= 25 ,;
 tabindex= 3    

ADD OBJECT ed1 AS textbox with;                                           
 format='d',;
 top= 120 ,;
 left= 324 ,;
 width= 157 ,;
 height= 25 ,;
 tabindex= 4 

procedure init                                                                
ConnectServ=SQLSTRINGCONNECT(GETVARIABLE('SPP_SQLSTRCONNECT'),.T.)
sqlexec(ConnectServ,'select tzaprav.id, tzaprav.unzap, tzaprav.zakazdate, tzaprav.senddate, tzaprav.zapravdate, tzaprav.vozvrdate, tzaprav.firma from tzaprav where id=3','temp')
sqldisconnect(ConnectServ)

thisform.cmb1.value= 2 
thisform.ed1.value=zapravdate
endproc
		
ENDDEFINE

define
...

procedure cmb1.gotfocus
ConnectServ=SQLSTRINGCONNECT(GETVARIABLE('SPP_SQLSTRCONNECT'),.T.)
sqlexec(ConnectServ,'select tzaprav.id, tzaprav.unzap, tzaprav.zakazdate, tzaprav.senddate, tzaprav.zapravdate, tzaprav.vozvrdate, tzaprav.firma from tzaprav where id=3','temp')
sqldisconnect(ConnectServ)

thisform.cmb1.value= 2 
endproc
....
enddefine