[[RONPABLO]]

Código Delphi [-]
 
 try 
   if T_datos.recordCount = 0 then
       T_Datos.edit
   else
        T_Datos.Insert;
   T_Datos.FieldByName('id').asInteger := x;
   T_Datos.post;
   T_Datos.ApplyUpdates;
   Transa.CommitRetaining;
 except
    Transa.RollbackRetaining;
 end;