Como establezco en filtro en un TDbfDataSet

[correo]

Buenas tardes
Quiero establecer un filtro dependiendo de un CheckBox .Lo hago asi
METHOD CheckClick( oSender ) CLASS TFestivos
if ::oCheck:lChecked
::oDbf1:Filter(|year(::oDbf1:FECHA)==year(date())
else
::oDbf1:SetFilter()
endif
RETURN Nil
oCheck es el objeto CheckBox y oDbf1 es el objeto DataSet
NO me funciona .¿Cómo lo hago?
Un saludo. Juan Jose Garcí­a
--

[ignacio]

Juan José,
El método SetFilter() recibe un parametro de tipo cadena. Y en su caso serí­a algo así­:
oDbf:SetFilter( "Year( FECHA ) == Year( Date() )" )
Aunque es preferible por velocidad cambiarlo a:
oDbf:SetFilter( "Year( FECHA ) == " + Str( Year( Date() ), 4 ) )
El equivalente comando con SET FILTER que también puede usar si lo considerá más fácil serí­a:
SET FILTER TO Year( FECHA ) == Year( Date() )
Saludos,
"Juan José Garcí­a" <correo@jjgsoft.biz> escribió en el mensaje news:438f277e$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
Buenas tardes
Quiero establecer un filtro dependiendo de un CheckBox .Lo hago asi
METHOD CheckClick( oSender ) CLASS TFestivos
if ::oCheck:lChecked
::oDbf1:Filter(|year(::oDbf1:FECHA)==year(date())
else
::oDbf1:SetFilter()
endif
RETURN Nil
oCheck es el objeto CheckBox y oDbf1 es el objeto DataSet
NO me funciona .¿Cómo lo hago?
Un saludo. Juan Jose Garcí­a
--