Galera preciso fazer uma pesquisa em uma tabela, e não sei usar a consulta do xmaker, para buscar um nome na tabela, para retornar para o relatório. Eu sei fazer usando campos como chave estrangeira, mas um campo texto como por exemplo campo alfanumerico, eu não sei.. se fizer igual ao da chave estrangeira dá erro sempre.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