Msg - Token Unknown..

25/02/2003

2

Esta msg aparece sempre qdo clico no botão gravar.
Eu não estou usando TIBQuery, mas sim TIBTable. Então pq
a mensagem Token.. SqlError e etc.. Este erro não é só p/ QUERY? Eis a msg.

Project Noah.Exe raised exception class EIBInterBaseError
with message ´Dynamic SQLError
SQL Error code =-104
Token Unknown - line 2 char 19
CB520´. Process Stoped. Use Step or Run to continue.

Eu quero é alterar a tabela de acordo com o filtro abaixo. Não está
dando certo. Segue a rotina abaixo. Neste caso o nome do filtro
(lancha é:1254CB520). Já coloquei o bloco do filtro antes do First
mas continua a mesma coisa. O q faço?

Esse é o código onde dá o erro
procedure TfrmBaixaEquip.GravarClick(Sender: TObject);
begin
Dm.Indice.Last;
Dm.Lancha.Edit;
Dm.LanchaStatus.AsString:=´S´;
Dm.Lancha.Post;
Dm.histsaida.First;
while not (Dm.histsaida.Eof) do begin
Dm.HistSaida.Filtered:=false;
Dm.HistSaida.Filter:=´Lancha = ´+dblookupcombobox1.text;
Dm.HistSaida.Filtered:=true;******* O Erro aparece aqui***********
dm.HistSaida.edit;
dm.HistSaidaFLAG.asstring:=´F´;
Dm.HistSaidaDOLAR.asbcd:=Dm.IndiceVALOR.asbcd;
Dm.HistSaida.Post;
end;
Dm.HistSaida.Close;
Dm.HistSaida.Open;
Dm.Lancha.Close;
Dm.Lancha.Open;
end;


Paulo

Paulo

Responder

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários,
consulte nossa política de privacidade.

Aceitar