Fórum Perda de dados interbase...ajudem #218500

Olá Companheiros,

Tenho o seguinte problema...digo esta me tirando o sono...

Tenho um BD em Interbase e rodando em uma rede NT com varios clientes Win98 e win2000 o sistema apresentando algumas perdas de dados...tipo assim : faço a digitação de algumas turmas e entre 10 uma simplesmente desaparece...estou ficando puto com isso.

Estou usando TIBDatabase -> TIBTransaction -> TIBQuery para fazer os procedimentos e sim trabalho com Store Procedure no BD para os Inserts, Deletes e Updates.

No TIBTransaction esta setado para : read_commited , rec_version e nowait.

Eis uma chamda que estou usando :

procedure TF_Turmas.Chama_SP;
Begin
Try
If Not DM1.IBT1.InTransaction Then
DM1.IBT1.StartTransaction;
With DM1.SP1 Do
Begin
Close;
StoredProcName := ´SP_IAD_TURMA´; //Mudar o Nome da SP
ParamByName(´OPERACAO´).AsInteger := StrToInt(frOperacao.Caption);
ParamByName(´ID_ACAO´).AsString := Edit1.Text;
ParamByName(´ID_CONTRATO´).AsString := EditCodigoContrato.Text;
ParamByName(´CLIENTELA´).AsString := DelphiAllTrim(EditClientela.Text);
ParamByName(´ATIVIDADE´).AsString := DelphiAllTrim(EditAtividade.Text);
ParamByName(´OCUPACAO´).AsString := DelphiAllTrim(EditOcupacao.Text);
ParamByName(´DATA_INICIO´).AsDate := Strtodate(EditDataInicio.Text);
ParamByName(´DATA_FINAL´).Asdate := Strtodate(EditDataTermino.Text);
ParamByName(´LOCAL´).AsString := DelphiAllTrim(EditLocal.Text);
ParamByName(´ENTIDADE´).AsString := DelphiAllTrim(EditEntidade.Text);
ParamByName(´PERIODO´).AsString := DelphiAllTrim(EditPeriodoInicial.Text);
ParamByName(´ACAO´).AsString := DelphiAllTrim(EditAcao.Text);
ParamByName(´TREINANDO´).AsInteger := StrToInt(EditTreinandos.Text);
ParamByName(´CARGAHORARIA´).AsInteger:= StrToInt(EditCargaHoraria.Text);
ParamByName(´MUNICIPIO´).AsString := DelphiAllTrim(EditMunicipio.Text);
ParamByName(´PERIODO1´).AsString := DelphiAllTrim(EditPeriodoFinal.Text);
ExecProc;
End;
DM1.IBT1.CommitRetaining;
except
on E:Exception do
begin
DM1.IBT1.RollbackRetaining;
MessageDlg(´Tabela em uso exclusivo no momento...tente novamente´,Mterror,[MbOk],0);
end;
end;
End;

Vcs verão que estou realizando o CommitRetaining para confirmar a gravação.

Então o que esta de errado.....

[]´s

Fábio Cavalcanti