Passar filtro fixo para Gridpesquisa

[vinizioWOW]

Estou montando um relatório de caixa e no clique de um XNumEdit coloquei o seguinte código:

begin
FormGridPesquisa := TFormGridPesquisa.Create(Application);
Try
FormGridPesquisa.Atalho := VK_F8;
FormGridPesquisa.Campo := TabGlobal.Dcaixa.CLI_CODIGO;
FormGridPesquisa.Avulso := True;
if FormGridPesquisa.ShowModal = mrOk then
XNumEdit1.Value := FormGridPesquisa.Resultado;
Finally
FormGridPesquisa.Free;
end;
end;

Tem como passar um filtro fixo para esse esse formulário GridPesquisa sem ser pelas definições de chave estrangeira na Tabela?

[Flexnet]

Olá Vinicius, aproveitando o seu tópico, uma dúvida, eu não estou nem conseguindo chamar este gridpesquisa, quando tento abrir da um erro de "Access Violation....." acredito que seja de locação de memoria, formulario ja criado algos assim, vc sabe dizer o que poderia ser ?

[vinizioWOW]

Olhando com mais atenção percebi que existe uma variável pública no formulário chamada Filtro_fixo.
Então é só alimentar ela com o filtro desejado:

FormGridPesquisa := TFormGridPesquisa.Create(Application);
Try
FormGridPesquisa.Atalho := VK_F8;
FormGridPesquisa.Campo := TabGlobal.Dreceber.CLI_CODIGO;
FormGridPesquisa.Filtro_Fixo := MeuFiltro;
FormGridPesquisa.Avulso := True;
if FormGridPesquisa.ShowModal = mrOk then
XNumEdit1.Value := FormGridPesquisa.Resultado;
Finally
FormGridPesquisa.Free;
end;

[vinizioWOW]