(Resolvido) Comando SQL ... o que há de errado?

[Fernando da Cunha Generoso]

procedure TFrmPrincipal.EdPlacaMovExit(Sender: TObject);

begin

SQLEntrada.Close;

SQLEntrada.SQL.Clear;

SQLEntrada.SQL.Add('select C.COD, C.NOME, C.EMPRESA, C.TIPO, P.COD, P.PLACA from CLIENTE C, PLACA P where C.COD = P.COD and P.PLACA = :pPlaca');

SQLEntrada.ParamByName('pPlaca').AsString := EdPlacaMov.Text;

SQLEntrada.Open;

if SQLEntrada.FieldByName('C.TIPO').AsString = 'A' then

begin

ChkTipoClienteMov.Checked[1];

end;

end;

// Está dando erro "Field not found C.TIPO", porém, o campo existe.

[Jhonas]

qual é o banco de dados que esta usando ?

[Fernando da Cunha Generoso]

O BD é Firebird. Mas acredito que seja um bug do Lazarus (FreePascal).

[Jhonas]

utilize o Ems QuickDesk

com ele voce podera testar a instrução sql diretamente em suas tabelas ( fora do seu programa )

https://www.google.com.br/?gfe_rd=cr&ei=96YEVdmgMYvAqAW554C4Bg&gws_rd=ssl#q=ems+quickdesk+2.0

OBS: pode ser tambem em função da versão do seu FireBird ( use o Firebird 2.5 ou superior )

https://www.google.com.br/?gfe_rd=cr&ei=J44EVY_iNMOEqQX76IDoAQ&gws_rd=ssl#q=firebird+2.5

abraço

[Fernando da Cunha Generoso]

Olá,

Descobri o porquê do erro. Fica a dica:

Se for usar mais de uma vez a mesma SQLquery no código, não esqueça de fechar a query sempre antes de limpá-la.

SQLquery.Close;

SQLquery.clear;

...

Eu não havia fechado a query em alguns locais, onde utilizei a mesma.

Resolvido.

Obrigado.