Erro ao consultar no relatório!!! (RESOLVIDO!!!)
Enviado: Outubro 8th, 2011, 8:39 pm
Coloquei o código certinho no XNumEdit 1 e quando vai consultar da o seguinte erro... Segue a imagem
{utilize o "var" para declarar variáveis}
begin
{codificação...}
FormGridPesquisa := TFormGridPesquisa.Create(Application);
Try
FormGridPesquisa.Atalho := VK_F8;
FormGridPesquisa.Campo := TabGlobal.DPACIENTE.CODIGO;
FormGridPesquisa.Avulso := True;
if FormGridPesquisa.ShowModal = mrOk then
XNumEdit1.Value := FormGridPesquisa.Resultado;
Finally
FormGridPesquisa.Free;
end;
end;
Meu Bom Jesus da Capelinha ! Onde estou errando...
{utilize o "var" para declarar variáveis}
begin
{codificação...}
FormGridPesquisa := TFormGridPesquisa.Create(Application);
Try
FormGridPesquisa.Atalho := VK_F8;
FormGridPesquisa.Campo := TabGlobal.DPACIENTE.CODIGO;
FormGridPesquisa.Avulso := True;
if FormGridPesquisa.ShowModal = mrOk then
XNumEdit1.Value := FormGridPesquisa.Resultado;
Finally
FormGridPesquisa.Free;
end;
end;
Meu Bom Jesus da Capelinha ! Onde estou errando...