Notes

-- ============================================
-- Procedimiento: usp_DetectarDuplicadosMensuales
-- Autor: [Tu Nombre]
-- Descripción: Detecta registros duplicados por mes en cualquier tabla que tenga los campos requeridos
-- ============================================

CREATE OR ALTER PROCEDURE usp_DetectarDuplicadosMensuales
@SchemaName SYSNAME,
@TableName SYSNAME,
@FechaIDCol NVARCHAR(128) = 'FechaID', -- Puede ajustarse si el campo de fecha tiene otro nombre
@Output BIT = 1 -- 1 para ver los resultados, 0 para no mostrarlos
AS
BEGIN
SET NOCOUNT ON;

DECLARE @SQL NVARCHAR(MAX) = '';
DECLARE @MinFechaID INT, @MaxFechaID INT;
DECLARE @MesActual INT, @UltimoMes INT;
DECLARE @FechaInicio INT, @SiguienteMes INT, @SiguienteMesFechaInicio INT;
DECLARE @Anno INT, @Mes INT, @Duplicados BIGINT;

-- Crear tabla temporal para resultados
IF OBJECT_ID('tempdb..#DuplicadosPorMes') IS NOT NULL
DROP TABLE #DuplicadosPorMes;

CREATE TABLE #DuplicadosPorMes (
Mes INT,
Anno INT,
TotalDuplicados BIGINT
);

-- Obtener fechas mínimas y máximas
SET @SQL = '
SELECT
@MinFechaID_OUT = MIN([' + @FechaIDCol + ']),
@MaxFechaID_OUT = MAX([' + @FechaIDCol + '])
FROM [' + @SchemaName + '].[' + @TableName + '];';

EXEC sp_executesql @SQL,
N'@MinFechaID_OUT INT OUTPUT, @MaxFechaID_OUT INT OUTPUT',
@MinFechaID_OUT = @MinFechaID OUTPUT, @MaxFechaID_OUT = @MaxFechaID OUTPUT;

-- Inicializar ciclo mensual
SET @MesActual = @MinFechaID / 100;
SET @UltimoMes = @MaxFechaID / 100;

WHILE @MesActual <= @UltimoMes
BEGIN
SET @FechaInicio = @MesActual * 100 + 1;

-- Calcular siguiente mes
SET @Anno = @MesActual / 100;
SET @Mes = @MesActual % 100;

IF @Mes = 12
BEGIN
SET @Anno = @Anno + 1;
SET @Mes = 1;
END
ELSE
SET @Mes = @Mes + 1;

SET @SiguienteMes = @Anno * 100 + @Mes;
SET @SiguienteMesFechaInicio = @SiguienteMes * 100 + 1;

-- Detectar duplicados
SET @SQL = '
SELECT @Dup_OUT = ISNULL(SUM(DupCount - 1), 0)
FROM (
SELECT COUNT(*) AS DupCount
FROM [' + @SchemaName + '].[' + @TableName + ']
WHERE [' + @FechaIDCol + '] >= ' + CAST(@FechaInicio AS NVARCHAR) + '
AND [' + @FechaIDCol + '] < ' + CAST(@SiguienteMesFechaInicio AS NVARCHAR) + '
GROUP BY FechaEvento, TransaccionID, ObjetoID, [' + @FechaIDCol + ']
HAVING COUNT(*) > 1
) AS Duplicados;';

EXEC sp_executesql @SQL,
N'@Dup_OUT BIGINT OUTPUT',
@Dup_OUT = @Duplicados OUTPUT;

-- Insertar resultado
INSERT INTO #DuplicadosPorMes (Mes, Anno, TotalDuplicados)
VALUES (@MesActual, @MesActual / 100, @Duplicados);

SET @MesActual = @SiguienteMes;
END

-- Mostrar resultados si se desea
IF @Output = 1
BEGIN
SELECT * FROM #DuplicadosPorMes;
END
END;