ADD OBJECT grid1 AS grid WITH ;
		Height =  200 , ;
		Left =  36 , ;
		RecordSource = "select * from plan into cursor cplan", ;
		RecordSourceType =  4 , ;
		Top =  12 , ;
		Width =  456 , ;
		Name = "Grid1"


	ADD OBJECT command1 AS commandbutton WITH ;
		Top =  60 , ;
		Left =  552 , ;
		Height =  48 , ;
		Width =  120 , ;
		Caption = "Добавить", ;
		Name = "Command1"


	PROCEDURE command1.Click
		INSERT INTO plan (ID_DOK,ID_RAS,PLAN) VALUES ( 1 , 1 , 10 )
		selcmd=ThisForm.Grid1.RecordSource
		ThisForm.Grid1.RecordSource=''
			EXECSCRIPT(selcmd)
		ThisForm.Grid1.RecordSource=selcmd

	ENDPROC