Fórum Interbase6.5 - Não consigo gravar os dados no GDB #193271

Amigos do Fórum!

Estou enfrentando um problema... Quando executo uma rotina para gravar os dados no Interbase via CommitRetaing, o mesmo não funciona. Sempre que tento gravar um novo registro, após a inserção, surge a exceção ´Violation of PrimaryKey...´. Qualquer comentário será bem vindo! Eis o código abaixo, disparado pelo evento OnClick do TButton.

procedure TfrmCadastro.BtnGravarContatoClick(Sender: TObject);
begin
if not (DatamoduleDados.IBTransaction.InTransaction) then
with DatamoduleDados do
begin
IBTransaction.StartTransaction;
IBDataSetContato.Post;
IBDataSetContato.ApplyUpdates;
IBTransaction.CommitRetaining;
end;
end;

Um abraço

Leoback