авторSELECT * DISTINCT FROM obsled o WHERE !EMPTY(o.polis) AND BETWEEN(o.dat_obs,startDate,endDate) AND INLIST(o.pri_zak,0,2) AND o.nom_reg=vnom_reg INTO CURSOR tmpObsled
IF thisform.check1.value=0
SELECT * FROM pacient WHERE ser=tmpobsled.ser AND polis=tmpobsled.polis INTO CURSOR curs1
ELSE
SELECT * FROM pacient WHERE ser=tmpobsled.ser AND polis=tmpobsled.polis AND EMPTY(smocod) INTO CURSOR curs1
ENDIF
GO TOP

thisform.grid1.Refresh
thisform.grid2.RecordSource='tmpObsled'
thisform.grid2.Column1.ControlSource='tmpObsled.n_tal'
thisform.grid2.Column2.ControlSource='tmpObsled.dat_obs'
thisform.grid2.Column3.ControlSource='tmpObsled.nam'
thisform.grid2.Column4.ControlSource='tmpObsled.n_cab'
thisform.grid2.Column5.ControlSource='tmpObsled.n_ch'
thisform.grid2.Column6.ControlSource='tmpObsled.n_min'
thisform.grid2.Column7.ControlSource='tmpObsled.pri_zak'
thisform.Label1.Caption=vnamreg
thisform.grid1.SetFocus()
thisform.grid1.SetAll("DynamicBackColor","IIF(LEN(pacient.smocod)>0,RGB(255,255,255),RGB(255,0,0))","Column")

SELECT tmpObsled
SET FILTER TO ser=Pacient.ser AND polis=Pacient.polis AND BETWEEN(dat_obs,startDate,endDate) AND nom_reg=vnom_reg AND INLIST(pri_zak,0,2)