Passar Filtro fixo ao iniciar um Formulário

[vinizioWOW]

Bom dia pessoal,

Estou tendo dificuldades em passar um filtro fixo para uma tabela de vendas no inicio da execução do formulário. Tenho a necessidade de filtrar somente as vendas, por exemplo, dos últimos 60 dias. Mas tenho que deixar uma opção para o cliente alterar esse filtro caso seja necessário consultar uma venda anterior ao filtro.

Motivo: Cliente tem muitos registros no banco e isso tem ocasionado lentidão, travamento e fechamento do programa do nada.

Agradeço a atenção de todos..

Att: Vinício Rocha

[Gustavo]

Olá,

O filtro pode ser assim:
Exemplo de filtro de registros dos últimos 60 dias

(VENDAS.DATA >= '+#39+datasql(dataatual-60)+#39+')

Para o usuário poder escolher uma outra data a ser filtrata coloque no seu formulário um XdateEdit, e no evento OnChange dele coloque o código exemplo.(mude conforme sua necessidade):

var
Oper, Delimit_E,Delimit_D: String;
mov: TTabela;
juncao:string;

begin
mov:=TabGlobal.DRESERVA_PEDIDO;//tabelaprincipal;
Oper := '=';
Delimit_E := #39+'';
Delimit_D := #39;

mov.Filtro.Clear;

{ tratamento Descrição filtro }
if trim(Xdateedit1.text)='/ /' then
exit;
if not(Xdateedit1.TEXT='') THEN
begin
mov.Filtro.text:='VENDAS.DATA ='+Delimit_E+datasql(xdateedit1.datevalue)+ Delimit_D ;
juncao:=' AND ';
end
else juncao:='';
{ fim tratamento Descrição }

mov.AtualizaSql;
mov.Refresh;
end;

[Romero]

To com o mesmo problema fiz conforme o exemplo e apareceu o seguiinte erro em anexo

Minha Tabela= Dprocesso.Aviso é o campo data com 8 caracteres e gostaria de filtrar pela data atual os registros da tabela.

[Romero]