Código Delphi [-] try if not(conexion.InTransaction) then conexion.BeginTrans; ingresarguia; ingresarcorrelativo; conexion.commit; //todo ha ido bien y confirmamos except //Capturamos la excepcion y hacemos lo que queramos //Deshacemos la transaccion conexion.Rollback; end;
try if not(conexion.InTransaction) then conexion.BeginTrans; ingresarguia; ingresarcorrelativo; conexion.commit; //todo ha ido bien y confirmamos except //Capturamos la excepcion y hacemos lo que queramos //Deshacemos la transaccion conexion.Rollback; end;