Fórum erro ao usar locate !!!!!!!!!!!!!!!!!! #154552
13/04/2003
0
Tenho a seguinte instrução rodando em um formulário :
#
If RGpesquisaServico.ItemIndex = 0 then
begin
If DMtables.IBQservicos.Locate(´CodigoServico´,EDTpesquisaServico.Text,[loCaseInsensitive,loPartialKey]) then
begin
EDTpesquisaServico.Text := ´´;
EDTpesquisaServico.SetFocus;
end
else
begin
ShowMessage(EDTpesquisaServico.Text + ´ NÃO CADASTRADO !´);
EDTpesquisaServico.Text := ´´;
EDTpesquisaServico.SetFocus;
end;
Porem ao copiar para outro formulário o mesmo apresenta a seguinte
linha de ERRO:
[Error] gerenciaServicos.pas(155): Undeclared identifier: ´loCaseInsensitive´
Gostaria de instruções para corrigilo, estou usando INTERBASE, sem indice
para o CÓDIGO e DESCRIÇÃO.
Marcelo Andrade
Favor postar o título em minúsculas
Zoom
#
If RGpesquisaServico.ItemIndex = 0 then
begin
If DMtables.IBQservicos.Locate(´CodigoServico´,EDTpesquisaServico.Text,[loCaseInsensitive,loPartialKey]) then
begin
EDTpesquisaServico.Text := ´´;
EDTpesquisaServico.SetFocus;
end
else
begin
ShowMessage(EDTpesquisaServico.Text + ´ NÃO CADASTRADO !´);
EDTpesquisaServico.Text := ´´;
EDTpesquisaServico.SetFocus;
end;
Porem ao copiar para outro formulário o mesmo apresenta a seguinte
linha de ERRO:
[Error] gerenciaServicos.pas(155): Undeclared identifier: ´loCaseInsensitive´
Gostaria de instruções para corrigilo, estou usando INTERBASE, sem indice
para o CÓDIGO e DESCRIÇÃO.
Marcelo Andrade
Favor postar o título em minúsculas
Zoom
Marceloandrade
Curtir tópico
+ 0
Responder
Posts
13/04/2003
Joilson_gouveia
Verifique se não estaria faltando a [b:52d79cebd5]Unit DB [/b:52d79cebd5]na cláusula Uses desse formulário...
Responder
Gostei + 0
13/04/2003
Dj.ribeiro
acrescenta db na uses
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)