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;
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;