|
Tampoco me ha funcionado el filtro.
Finalmente he tenido que implementarlo con el método FilterRecord:
procedure TBD.BAJAFilterRecord(DataSet: TDataSet; var Accept: Boolean);
begin
if bd.BAJAFechaInicio.Value <= fechaF then
if (bd.BAJAFechaFin.Value > fechaI) OR (bd.BAJAFechaFin.Value=0) then
accept:=true
else
accept:=false
else
accept:=false;
end;
|