Re: [firebase-br] Problema com Exclusão

[Carlos H. Cantu (TeamFB)]

Verifique seu controle transacional. Mantenha as transações abertas
pelo menor tempo possível.

[]s
Cantu (Membro do TeamFB - FireBase)
http://www.warmboot.com.br
FireBase - http://www.FireBase.com.br

D> Olá pessoal

D> O problema ocorre quando mando incluir no sistema um registro
D> qualquer. Quanto tento excluir o registro após te-lo incluído dá
D> erro de integridade, mas se eu sair dá tela do sistema e logo
D> voltar e mandar excluir o registro, funciona perfeitamente.

D> Não estou entendendo, parece que ainda tem alguma transação ativa
D> ou algo parecido. O problema que já mandei comitar logo depois que incluo o registro no banco.

D> Estou utilizando Delphi 7 com a Versão 1.5 do Firebird.

D> DM.IBDNFMov.Delete;  //Mando Excluir o registro selecionado nesta
D> linha. Mas o Registro não é excluído. Por isso que dá o 
D>                                   //erro de integrida. A tabela a
D> baixo está relacionada com com está tabela que estou tentando excluir.

D> with IBSQBusca do
D>   begin
D>     Close;
D>     SQL.Clear;
D>     SQL.Add('Delete From TBLOTE Where COD_PRO = :CPRO AND LOTE_PRO
D> = :CLTP AND IDENTIFICACAO = :CIDE');
D>     ParamByName('CPRO').AsInteger := PRO;
D>     if (TPROD = 'ALFA') OR (TPROD = 'BETA') then
D>       begin
D>         ParamByName('CLTP').AsInteger := LTP;
D>         ParamByName('CIDE').AsDouble  := IDC;
D>       end
D>     else if TPROD = 'TESTE1' then
D>       begin
D>         ParamByName('CLTP').AsInteger := LTP;
D>         ParamByName('CIDE').AsDouble  := IDC;
D>       end
D>     else if TPROD = 'TESTE2' then
D>       begin
D>         ParamByName('CLTP').AsInteger := LTP;
D>         ParamByName('CIDE').AsDouble  := IDC;
D>       end;
D>     ExecQuery;
D>   end;
D> DM.IBTRGeral.CommitRetaining;
D>    

D> Se alguém já teve este problema, por favor me ajudem.

D> Valeu Galera

D> Feliz Natal e um Prospero Ano Novo para todos.

D> Marcelo