
Exemplo:
NO calculo coloquei : (Dprocessos.Nprocesso= :XEdit1)
No dialogo do relatório coloquei:
Nprocesso: Xedit1 == pq é um campo texto
// coloquei esse codigo no botão onclick
{utilize o "var" para declarar variáveis}
begin
{codificação...}
FormGridPesquisa := TFormGridPesquisa.Create(Application);
Try
FormGridPesquisa.Atalho := VK_F8;
FormGridPesquisa.Campo := TabGlobal.Dprocessos.Nprocesso;
FormGridPesquisa.Avulso := True;
if FormGridPesquisa.ShowModal = mrOk then
XEdit1.Value := FormGridPesquisa.Resultado;
Finally
FormGridPesquisa.Free;
end;
end;
// coloquei esse codigo no botão onexit
{utilize o "var" para declarar variáveis}
begin
{codificação...}
if ActiveControl = BtnCancelar then
exit;
if not Ptabela(TabGlobal.Dprocessos,['Nprocesso'],[XEdit1.Value]) then
begin
MessageDlg('Processo não encontrado !', mtWarning, [mbOk], 0);
XEdit1.SelectAll;
XEdit1.SetFocus;
end;
end;
*********************** quando vou executar dá erro... Acho q pq não é chave estrangeira, é apenas um campo texto na tabela.
Preciso de ajuda nessa consulta , como faço isso.. Ajudem ai
