Operation not applicable

[Welington Kleber 1]

Primeiramente, boa tarde.

 

Nossa, estou a horas com esse erro na query, e não consigo resolver, e aparentemente está tudo certo.

 

Botão implanta:

 

 

WfDesativaComp(4);

QrAgente1.INSERT;

with QrMax do

begin

close;

sql.clear;

sql.add('SELECT MAX(EAG_CODIGO) AS PROX FROM EX_AGENTE');

open;

try QrAgente1.fieldbyname('EAG_CODIGO').asstring :=

copy(inttostr(100000+strtoint(fieldbyname('PROX').asString)+ 1),2,5);

except

QrAgente1.fieldbyname('EAG_CODIGO').asstring := '00001';

end;

close;

end;

QrAgente1.fieldbyname('EAG_CADASTRADO_POR').asstring := Fp.LABELUSUARIO.CAPTION;

QrAgente1.fieldbyname('EAG_DATA_CADASTRO').asdatetime := date;

QrAgente1.fieldbyname('EAG_TIPOAG').asstring := 'J';

DBEEAG_CNPJ.FIELD.EditMask := '00\.000\.000\\0000\-00;1;_';

 

Botão Grava:

 

 

QrAgente1.post;

QrAgente1.close;

QrAgente1.sql.clear;

QrAgente1.sql.add('SELECT * FROM EX_AGENTE');

QrAgente1.open;

WfAtivaComp(4);

 

 

Primeiro ERRO:

Operation not applicable

 

Se continuar a compilação, e ir clicando ok no erro:

Query nao está em modo de inserção.

 

Se eu sair da tela e voltar, o registro ta gravado.

Eu não sei mesmo o que pode ser.

 

Alguém pode ajudar?

 

[ede1331 0]

Que banco de Dados vc esta usando?