Fórum Locate acha mas nao aparece #186152

tenho um Banco de Dados (Firebird)
USO DBEXPRESS

Na tabela de produtos tem uns 10000 itens cadastrados

quando mando procurar o codigo de barras que é chave primária e tem um indice o locate da como true, mas nao apresenta os valores

Estou usando o locate num clientDataset no evento onExit

DEVERIA USAR UMA SQLD,

Agradeço a todos antecipadamente


procedure TForm_EntraPro_Cad.Edit4Exit(Sender: TObject);
var

preco : currency;
codigo : string;
nomepro : string;

begin

if dm.CProdutos.Locate(´PDT_CODBAR´,edit4.Text,[]) then
Begin
//codigo := dm.ConProdutosPDT_CODBAR.Value;
preco := dm.ConProdutosPDT_PRCVENDA.AsCurrency;
nomepro := dm.ConProdutos.fieldbyname(´PDT_NOME´).AsString;
// Form_Entrapro_cad.Edit4.Text:=codigo;

Form_Entrapro_Cad.Label10.Caption:=nomepro;
Form_Entrapro_cad.label8.caption:=Currtostr(preco);
end
else
Begin
Application.CreateForm(TformConPro,FormConPro);
FormConPro.ShowModal;
FormConPro.Release;
end;

end;

[i:c16dfe880e]Título em maiúsculas editado. Leia as [url=http://delphiforum.icft.com.br/forum/viewtopic.php?t=6689&sid=add834b4ed94967502cf2381c38e751a][u:c16dfe880e]Regras de Conduta[/u:c16dfe880e][/url]. (marcelo.c – Moderador)[/i:c16dfe880e]