Erro comando abort Delphi7

[Bruno Augusto Costa 0]

Seguinte, desenvolvi uma apliação que para preencher uma tabela preciso de um campo empresa,e durante o preenchimento dos campos no programa não faço a validação se a empresa está cadastrada, deixei para fazer isso no evento before post da query, acontece que com o código abaixo quando executa o camando abort, gera o erro "Cannot perform this operation on a closed dataset". Alguem pode me ajudar ? Segue o exemplo do evento before post do componente IBQuery:

CODE

procedure TF_ApontamentoHoras.IBQ_ApontamentoBeforePost(DataSet: TDataSet);

begin

with TIBQuery.Create(nil) do

begin

Database := F_MenuPrincipal.IBDatabase1;

SQL.Add('select idempresa from empresa where codigoEmpresa = :codigo_empresa');

ParamByName('codigo_empresa').AsFloat := IBQ_Apontamento.FieldByName('CODIGOEMPRESA').AsFloat;

Open;

if not(IsEmpty) then

begin

IBQ_Apontamento.FieldByName('ID_EMPRESA').AsString := Fields[0].AsString;

end

else

begin

MessageDlg('A empresa informada não está cadastrada!',mtError,[mbOK],0);

F_ApontamentoHorasDetalhe.DBEdit5.SetFocus;

Abort;

end;

Free;

end;

 

E notei que toda transação que realizo, tenho que abrir e fechar a query, pq se tento inserir um novo registro logo após um post gera o mesmo erro.

 

Grato desde já!

[quintelab 91]

Movido InterBase / Firebird / PostgreSQL / Outros Bancos de Dados » InterBase / Firebird http://forum.imasters.com.br/public/style_emoticons/default/seta.gif Delphi