Plataforma-de-desarrolladores/Esquema_Borrado_Logico_Limpieza.sql

SET ANSI_NULLS ON;
GO
SET QUOTED_IDENTIFIER ON;
GO
SET XACT_ABORT ON;
GO

/*
    Borrado lógico y limpieza controlada.

    Convención:
      Borrado = 0 y FechaBorrado IS NULL: registro vigente.
      Borrado = 1 y FechaBorrado IS NOT NULL: registro borrado lógicamente.

    La limpieza física está deshabilitada por defecto. Cada tabla debe registrarse
    expresamente mediante dbo.Sis_ConfigurarLimpieza y la ejecución inicia siempre
    en modo simulación.
*/

IF OBJECT_ID(N'dbo.Sis_PoliticasLimpieza', N'U') IS NULL
BEGIN
    CREATE TABLE [dbo].[Sis_PoliticasLimpieza]
    (
        [Esquema] sysname NOT NULL,
        [Tabla] sysname NOT NULL,
        [DiasRetencion] int CONSTRAINT [DF_Sis_PoliticasLimpieza_DiasRetencion] DEFAULT ((365)) NOT NULL,
        [TamanoLote] int CONSTRAINT [DF_Sis_PoliticasLimpieza_TamanoLote] DEFAULT ((500)) NOT NULL,
        [Habilitada] bit CONSTRAINT [DF_Sis_PoliticasLimpieza_Habilitada] DEFAULT ((0)) NOT NULL,
        [FechaUltimaLimpieza] datetime2(0) NULL,
        [Borrado] bit CONSTRAINT [DF_Sis_PoliticasLimpieza_Borrado] DEFAULT ((0)) NOT NULL,
        [FechaBorrado] datetime2(0) NULL,
        CONSTRAINT [PK_Sis_PoliticasLimpieza] PRIMARY KEY CLUSTERED ([Esquema], [Tabla]),
        CONSTRAINT [CK_Sis_PoliticasLimpieza_DiasRetencion] CHECK ([DiasRetencion] BETWEEN (30) AND (3650)),
        CONSTRAINT [CK_Sis_PoliticasLimpieza_TamanoLote] CHECK ([TamanoLote] BETWEEN (1) AND (10000)),
        CONSTRAINT [CK_Sis_PoliticasLimpieza_Borrado] CHECK
        (
            ([Borrado] = (0) AND [FechaBorrado] IS NULL)
            OR ([Borrado] = (1) AND [FechaBorrado] IS NOT NULL)
        )
    );
END;
GO

/* Agrega la convención a todas las tablas de usuario existentes. */
DECLARE @Esquema sysname;
DECLARE @Tabla sysname;
DECLARE @Objeto nvarchar(517);
DECLARE @Sql nvarchar(max);
DECLARE @Errores TABLE ([Esquema] sysname, [Tabla] sysname, [Mensaje] nvarchar(4000));

DECLARE TablasBorradoLogico CURSOR LOCAL FAST_FORWARD FOR
    SELECT S.[name], T.[name]
    FROM sys.tables AS T
    INNER JOIN sys.schemas AS S ON S.[schema_id] = T.[schema_id]
    WHERE T.[is_ms_shipped] = (0)
      AND T.[temporal_type] = (0)
    ORDER BY S.[name], T.[name];

OPEN TablasBorradoLogico;
FETCH NEXT FROM TablasBorradoLogico INTO @Esquema, @Tabla;

WHILE @@FETCH_STATUS = (0)
BEGIN
    SET @Objeto = QUOTENAME(@Esquema) + N'.' + QUOTENAME(@Tabla);

    BEGIN TRY

    IF COL_LENGTH(@Esquema + N'.' + @Tabla, N'Borrado') IS NULL
    BEGIN
        SET @Sql = N'ALTER TABLE ' + @Objeto
                 + N' ADD [Borrado] bit NOT NULL DEFAULT ((0)) WITH VALUES;';
        EXEC sys.sp_executesql @Sql;
    END;

    IF COL_LENGTH(@Esquema + N'.' + @Tabla, N'FechaBorrado') IS NULL
    BEGIN
        SET @Sql = N'ALTER TABLE ' + @Objeto
                 + N' ADD [FechaBorrado] datetime2(0) NULL;';
        EXEC sys.sp_executesql @Sql;
    END;

    IF NOT EXISTS
    (
        SELECT 1
        FROM sys.check_constraints AS C
        WHERE C.[parent_object_id] = OBJECT_ID(@Esquema + N'.' + @Tabla)
          AND C.[name] = N'CK_' + @Tabla + N'_BorradoLogico'
    )
    AND LEN(N'CK_' + @Tabla + N'_BorradoLogico') <= 128
    BEGIN
        SET @Sql = N'ALTER TABLE ' + @Objeto
                 + N' ADD CONSTRAINT ' + QUOTENAME(N'CK_' + @Tabla + N'_BorradoLogico')
                 + N' CHECK (([Borrado] = (0) AND [FechaBorrado] IS NULL)'
                 + N' OR ([Borrado] = (1) AND [FechaBorrado] IS NOT NULL));';
        EXEC sys.sp_executesql @Sql;
    END;
    END TRY
    BEGIN CATCH
        INSERT INTO @Errores ([Esquema], [Tabla], [Mensaje])
        VALUES (@Esquema, @Tabla, ERROR_MESSAGE());
    END CATCH;

    FETCH NEXT FROM TablasBorradoLogico INTO @Esquema, @Tabla;
END;

CLOSE TablasBorradoLogico;
DEALLOCATE TablasBorradoLogico;

IF EXISTS (SELECT 1 FROM @Errores)
    SELECT [Esquema], [Tabla], [Mensaje] FROM @Errores ORDER BY [Esquema], [Tabla];
GO

CREATE OR ALTER PROCEDURE [dbo].[Sis_ConfigurarLimpieza]
    @Esquema sysname = N'dbo',
    @Tabla sysname,
    @DiasRetencion int = 365,
    @TamanoLote int = 500,
    @Habilitada bit = 0
AS
BEGIN
    SET NOCOUNT ON;

    IF @DiasRetencion NOT BETWEEN 30 AND 3650
        THROW 51000, N'Los días de retención deben estar entre 30 y 3650.', 1;

    IF @TamanoLote NOT BETWEEN 1 AND 10000
        THROW 51001, N'El tamaño de lote debe estar entre 1 y 10000.', 1;

    IF @Esquema = N'dbo' AND @Tabla = N'Sis_PoliticasLimpieza'
        THROW 51002, N'No se permite configurar la limpieza de la tabla de políticas.', 1;

    IF OBJECT_ID(QUOTENAME(@Esquema) + N'.' + QUOTENAME(@Tabla), N'U') IS NULL
        THROW 51003, N'La tabla indicada no existe.', 1;

    IF COL_LENGTH(@Esquema + N'.' + @Tabla, N'Borrado') IS NULL
       OR COL_LENGTH(@Esquema + N'.' + @Tabla, N'FechaBorrado') IS NULL
        THROW 51004, N'La tabla no tiene las columnas de borrado lógico.', 1;

    UPDATE [dbo].[Sis_PoliticasLimpieza]
    SET [DiasRetencion] = @DiasRetencion,
        [TamanoLote] = @TamanoLote,
        [Habilitada] = @Habilitada,
        [Borrado] = (0),
        [FechaBorrado] = NULL
    WHERE [Esquema] = @Esquema
      AND [Tabla] = @Tabla;

    IF @@ROWCOUNT = (0)
    BEGIN
        INSERT INTO [dbo].[Sis_PoliticasLimpieza]
            ([Esquema], [Tabla], [DiasRetencion], [TamanoLote], [Habilitada])
        VALUES
            (@Esquema, @Tabla, @DiasRetencion, @TamanoLote, @Habilitada);
    END;

    DECLARE @NombreIndice sysname = N'IX_BorradoLogico_FechaBorrado';
    DECLARE @SqlIndice nvarchar(max);

    IF NOT EXISTS
    (
        SELECT 1
        FROM sys.indexes
        WHERE [object_id] = OBJECT_ID(QUOTENAME(@Esquema) + N'.' + QUOTENAME(@Tabla))
          AND [name] = @NombreIndice
    )
    BEGIN
        SET @SqlIndice = N'CREATE NONCLUSTERED INDEX ' + QUOTENAME(@NombreIndice)
                       + N' ON ' + QUOTENAME(@Esquema) + N'.' + QUOTENAME(@Tabla)
                       + N' ([FechaBorrado]) WHERE [Borrado] = (1);';
        EXEC sys.sp_executesql @SqlIndice;
    END;
END;
GO

CREATE OR ALTER PROCEDURE [dbo].[Sis_LimpiarRegistrosBorrados]
    @SoloSimular bit = 1,
    @ConfirmarBorradoFisico bit = 0,
    @MaximoLotesPorTabla int = 100
AS
BEGIN
    SET NOCOUNT ON;

    IF @MaximoLotesPorTabla NOT BETWEEN 1 AND 10000
        THROW 51010, N'El máximo de lotes debe estar entre 1 y 10000.', 1;

    IF @SoloSimular = (0) AND @ConfirmarBorradoFisico = (0)
        THROW 51011, N'Para borrar físicamente debe enviar @ConfirmarBorradoFisico = 1.', 1;

    DECLARE @Resultados TABLE
    (
        [Esquema] sysname NOT NULL,
        [Tabla] sysname NOT NULL,
        [FilasElegibles] bigint NOT NULL,
        [FilasEliminadas] bigint NOT NULL,
        [Resultado] nvarchar(4000) NOT NULL
    );

    DECLARE @Esquema sysname;
    DECLARE @Tabla sysname;
    DECLARE @DiasRetencion int;
    DECLARE @TamanoLote int;
    DECLARE @Objeto nvarchar(517);
    DECLARE @Sql nvarchar(max);
DECLARE @Errores TABLE ([Esquema] sysname, [Tabla] sysname, [Mensaje] nvarchar(4000));
    DECLARE @Elegibles bigint;
    DECLARE @Eliminadas bigint;
    DECLARE @FilasLote int;
    DECLARE @NumeroLote int;

    DECLARE Politicas CURSOR LOCAL FAST_FORWARD FOR
        SELECT [Esquema], [Tabla], [DiasRetencion], [TamanoLote]
        FROM [dbo].[Sis_PoliticasLimpieza]
        WHERE [Habilitada] = (1)
          AND [Borrado] = (0)
        ORDER BY [Esquema], [Tabla];

    OPEN Politicas;
    FETCH NEXT FROM Politicas INTO @Esquema, @Tabla, @DiasRetencion, @TamanoLote;

    WHILE @@FETCH_STATUS = (0)
    BEGIN
        SET @Objeto = QUOTENAME(@Esquema) + N'.' + QUOTENAME(@Tabla);

    BEGIN TRY
        SET @Elegibles = (0);
        SET @Eliminadas = (0);

        BEGIN TRY
            IF OBJECT_ID(@Objeto, N'U') IS NULL
                THROW 51012, N'La tabla configurada ya no existe.', 1;

            SET @Sql = N'SELECT @Cantidad = COUNT_BIG(*) FROM ' + @Objeto
                     + N' WHERE [Borrado] = (1)'
                     + N' AND [FechaBorrado] < DATEADD(DAY, -@Dias, SYSDATETIME());';

            EXEC sys.sp_executesql
                @Sql,
                N'@Dias int, @Cantidad bigint OUTPUT',
                @Dias = @DiasRetencion,
                @Cantidad = @Elegibles OUTPUT;

            IF @SoloSimular = (1)
            BEGIN
                INSERT INTO @Resultados
                    ([Esquema], [Tabla], [FilasElegibles], [FilasEliminadas], [Resultado])
                VALUES
                    (@Esquema, @Tabla, @Elegibles, (0), N'Simulación; no se eliminó información.');
            END
            ELSE
            BEGIN
                SET @NumeroLote = (0);
                SET @FilasLote = (1);

                WHILE @FilasLote > (0) AND @NumeroLote < @MaximoLotesPorTabla
                BEGIN
                    SET @Sql = N'DELETE TOP (@Lote) FROM ' + @Objeto
                             + N' WHERE [Borrado] = (1)'
                             + N' AND [FechaBorrado] < DATEADD(DAY, -@Dias, SYSDATETIME());'
                             + N' SET @Filas = @@ROWCOUNT;';

                    EXEC sys.sp_executesql
                        @Sql,
                        N'@Lote int, @Dias int, @Filas int OUTPUT',
                        @Lote = @TamanoLote,
                        @Dias = @DiasRetencion,
                        @Filas = @FilasLote OUTPUT;

                    SET @Eliminadas += @FilasLote;
                    SET @NumeroLote += (1);
                END;

                UPDATE [dbo].[Sis_PoliticasLimpieza]
                SET [FechaUltimaLimpieza] = SYSDATETIME()
                WHERE [Esquema] = @Esquema
                  AND [Tabla] = @Tabla;

                INSERT INTO @Resultados
                    ([Esquema], [Tabla], [FilasElegibles], [FilasEliminadas], [Resultado])
                VALUES
                    (@Esquema, @Tabla, @Elegibles, @Eliminadas, N'Limpieza física ejecutada.');
            END;
        END TRY
        BEGIN CATCH
            INSERT INTO @Resultados
                ([Esquema], [Tabla], [FilasElegibles], [FilasEliminadas], [Resultado])
            VALUES
                (@Esquema, @Tabla, @Elegibles, @Eliminadas,
                 CONCAT(N'No se eliminó la tabla: ', ERROR_MESSAGE()));
        END CATCH;

        FETCH NEXT FROM Politicas INTO @Esquema, @Tabla, @DiasRetencion, @TamanoLote;
    END;

    CLOSE Politicas;
    DEALLOCATE Politicas;

    SELECT [Esquema], [Tabla], [FilasElegibles], [FilasEliminadas], [Resultado]
    FROM @Resultados
    ORDER BY [Esquema], [Tabla];
END;
GO

/*
    Ejemplos (no se ejecutan automáticamente):

    -- Borrado lógico desde un repositorio/servicio:
    UPDATE dbo.Fraccionamientos
       SET Borrado = 1, FechaBorrado = SYSDATETIME()
     WHERE CveFraccionamiento = @CveFraccionamiento;

    -- Restauración:
    UPDATE dbo.Fraccionamientos
       SET Borrado = 0, FechaBorrado = NULL
     WHERE CveFraccionamiento = @CveFraccionamiento;

    -- Habilitar limpieza de una tabla después de 365 días:
    EXEC dbo.Sis_ConfigurarLimpieza
         @Esquema = N'dbo', @Tabla = N'Fraccionamientos',
         @DiasRetencion = 365, @TamanoLote = 500, @Habilitada = 1;

    -- Revisar qué se eliminaría (modo predeterminado y seguro):
    EXEC dbo.Sis_LimpiarRegistrosBorrados;

    -- Ejecutar la limpieza física confirmada:
    EXEC dbo.Sis_LimpiarRegistrosBorrados
         @SoloSimular = 0, @ConfirmarBorradoFisico = 1;
*/