Hola Gabriel632:
Si bien los borrados son siempre conflictivos y más aun cuando hacen lo que tu pides, esta sería una posible solución, donde se intenta mantener lo que indicas, y además en un escenario de alta concurrencia.
Pero para poder aplicarla, te recomiendo que lo utilices dentro de un procedimiento almacenado, que no utilices nunca, directamente un borrado. Desde mi opinión cualquier otro escenario te sería imposible, de controlar, porque si ocurre un error de borrado.
No tienes manera posible de controlarlo, y se produce un desbarajuste.....
CREATE TABLE codigos
(Codigo VARCHAR(100)
PRIMARY KEY,
area VARCHAR(100),
descripcion VARCHAR(100)
);
GO
INSERT INTO codigos
(codigo,
area,
descripcion
)
VALUES
('TR-101-00',
'XX',
'YY'
),
('TR-102-00',
'XX',
'YY'
),
('TR-103-00',
'XX',
'YY'
),
('TR-104-00',
'XX',
'YY'
),
('TR-105-00',
'XX',
'YY'
),
('TR-106-00',
'XX',
'YY'
);
GO
DELETE FROM CODIGOS
WHERE CODIGO LIKE 'TR-103-00';
INSERT INTO codigos
(codigo,
area,
descripcion
)
VALUES
('TR-1010-00',
'XX',
'YY'
);
GO
CREATE PROCEDURE SP_BORRADOS(@CODIGO VARCHAR(100))
AS
/*PUEDES CHEQUERAR SI EL CODIGO DE BORRADO NO ES EL ÚLTIMO */
BEGIN
SET TRANSACTION ISOLATION LEVEL SERIALIZABLE;
declare @miCodigo int = (SELECT max(CAST(SUBSTRING(CODIGO, 4, CHARINDEX('-', CODIGO, 4)-4) AS INT) )
FROM codigos
) /* obtengo en maximo valor entero de la tabla */
declare @elEntrante int = (CAST(SUBSTRING(@codigo, 4, CHARINDEX('-', @codigo, 4)-4) AS INT))
IF (@miCodigo<>@elEntrante)
BEGIN
/*BLOQUEO DE TABLA PARA QUE NADIE INSERTE MIENTRAS TU BORRAS, AL FINALIZAR LA TRANSACCION SE DESBLOQUEA SOLA. */
;WITH CTE
AS (
SELECT ROW_NUMBER() OVER(ORDER BY CAST(SUBSTRING(CODIGO, 4, CHARINDEX('-', CODIGO, 4)-4) AS INT))+100 AS FILA,
CAST(SUBSTRING(CODIGO, 4, CHARINDEX('-', CODIGO, 4)-4) AS INT) AS CADENA,
CODIGO AS COD
FROM CODIGOS)
UPDATE A
SET
CODIGO = 'TR-'+CAST(C.FILA AS VARCHAR)+'-00'
FROM CODIGOS A
INNER JOIN CTE C ON C.COD = A.CODIGO
WHERE FILA < CADENA;
END
ELSE
DELETE FROM CODIGOS WHERE CODIGO =@CODIGO
END;
RETURN
EXEC SP_BORRADOS
'TR-103-XX';
GO
SELECT * FROM codigos
Espero te ayude.
Un saludo
