Fórum problemas para gravar no interbase #51479

Negocio é o seguinte: Cadastro um produto e quando vou tentar fazer uma venda no ECF o produto aparece na busca, mas não consigo vender. ele diz que o produto não existe. somente depois que fecho o rpograma e entro novamente e que ele aparece normal e deixa executar a venda.

Alguem poderia falar algo a respeito

Aqui esta o codigo de salvamento:

procedure TForm_Produtos.SpsalvarClick(Sender: TObject);
begin
TD.TransactionID := 1;
TD.IsolationLevel := XILReadCommitted;
DM.SQLC.StartTransaction(TD);
Try
VI_Gravar:= 1;
If (VI_Gravar = 1) then
begin
DM.SDS_Produto.FieldByName(´USUARIO´).AsString:=Edit3.Text;
DM.SDS_Produto.Post;
DM.SDS_Produto.ApplyUpdates(0);
DM.SQLC.Commit(TD);
Habilita;
Atualiza;
end;
Except
DM.SQLC.Rollback(TD);
MessageDlg(´Erro na Gravação.´, mtInformation,[mbOk], 0);
end;
end;