dbo.Imperium_Carga_Docs_Contratistas_Faltantes

SET QUOTED_IDENTIFIER, ANSI_NULLS ON
GO

CREATE OR ALTER PROCEDURE dbo.Imperium_Carga_Docs_Contratistas_Faltantes
@periodo int,
@IDCliente int

/*,
@IDContratista int
*/

AS

BEGIN

SET NOCOUNT ON;

DECLARE @ERRORNUMBER SMALLINT 
declare  @periodoAnt int 

DECLARE @PeriodoModalidad int  
DECLARE @Modalidad VARCHAR(1)
/*
declare @periodo int = 201701
DECLARE @IDCliente INT = 5546348
*/
DECLARE @periodoV INT = NULL
DECLARE @periodoVAnt INT = NULL
DECLARE @periodoA INT = NULL
DECLARE @NombreCliente varchar(200)
DECLARE @periodoYear INT = NULL
DECLARE @periodoMonth INT = NULL

SET @periodoYear = convert(varchar(4),datepart(year,getdate()))
SET @periodoMonth = convert(varchar(2),datepart(month,getdate()))

SET @periodoYear = datepart(year,getdate())
SET @periodoMonth = datepart(month,getdate())

SET @periodoA = convert(varchar(4),datepart(year,getdate())) + RIGHT('00' +convert(varchar(2),datepart(month,getdate())),2)

if (@periodoMonth = 1)
 begin
  set @periodoV = convert(varchar(4),@periodoYear-1) + RIGHT('00' +convert(varchar(2),12),2)
  set @periodoVAnt = convert(varchar(4),@periodoYear-1) + RIGHT('00' +convert(varchar(2),11),2)
 end

if (@periodoMonth > 1)
 begin
  set @periodoV = convert(varchar(4),datepart(year,getdate())) + RIGHT('00' +convert(varchar(2),datepart(month,getdate())-1),2)
  set @periodoVAnt = convert(varchar(4),datepart(year,getdate())) + RIGHT('00' +convert(varchar(2),datepart(month,getdate())-2),2)
 end


set @periodoVAnt = dbo.PeriodoMenosDos()
set @periodoV = dbo.PeriodoVencido()
set @periodoA = dbo.PeriodoAdelantado()


if @Periodo =  @periodoA
 BEGIN
  SET @Modalidad = 'A'
 END
ELSE
 BEGIN
  SET @Modalidad = 'V'
 END




/*
if (@IDCliente = 9335603)
begin
set @IDCliente = 554634878966
end
*/

DECLARE @LastDay_AnyMonth DATETIME
--Last Day of Any Month and Year
DECLARE @dtDate DATETIME, @nextMonth DATETIME, @LastDayNextMonth DATETIME
SET @dtDate = substring(CONVERT(varchar(6),@periodo),1,4) + '-' + substring(CONVERT(varchar(6),@periodo),5,2) + '-01'
SET @nextMonth = DATEADD(mm, 1, @dtDate)

set @LastDay_AnyMonth = DATEADD(s,-1,DATEADD(mm, DATEDIFF(m,0,@dtDate)+1,0)) 
set @LastDayNextMonth = DATEADD(s,-1,DATEADD(mm, DATEDIFF(m,0,@nextMonth)+1,0)) 


DECLARE @tipo_doc INT,@estado_doc VARCHAR(1),@led_seccion VARCHAR(1),@cliente INT,@contratista INT,@empleado INT,@vehiculo INT
DECLARE @contratista_1 INT,@insertado DATETIME,@fecha_tolerancia DATETIME,@compliance_doc VARCHAR(1),@fecha_vigencia DATETIME,@doc_log VARCHAR(150),@grupo_doc INT
DECLARE @doc_id_lista INT

DECLARE LedCargaDocs Cursor STATIC
FOR

SELECT distinct led_tipos_doc.tipo_doc,
iif(LDAnt.fecha_vigencia > GETDATE(),LDAnt.estado_doc,led_cliente_contratista.estado_inicial) as estado_doc,
led_tipos_doc.led_seccion,
led_contratistas.cliente,
led_contratistas.contratista,  
null as empleado,
null as vehiculo,
@periodo AS periodo,
led_contratistas.contratista_1,
GETDATE() as insertado,
dateadd(ms,-3,Convert(varchar(10),isnull(led_cliente_contratista.dias_tolerancia,0) + getdate(),111)) as fecha_tolerancia,
iif(LDAnt.fecha_vigencia > GETDATE(),LDAnt.compliance_doc,iif(led_cliente_contratista.estado_inicial='N','B',iif(led_cliente_contratista.estado_inicial='R','R',iif(led_cliente_contratista.estado_inicial='V','V',iif(led_cliente_contratista.estado_inicial='I','A','B'))))) as compliance_doc,
iif(LDAnt.fecha_vigencia > getdate(),LDAnt.fecha_vigencia,NULL) as fecha_vigencia,
convert(varchar(16),getdate(),120) + ' GENERACION AUTOMATICA DE DOCUMENTOS' AS doc_log,
led_grupo_tipo_doc.grupo_doc,led_tipos_doc.tipo_doc_lista as doc_id_lista
FROM            led_contratistas 
 INNER JOIN led_cliente_contratista ON (led_contratistas.cliente = led_cliente_contratista.cliente AND led_contratistas.tipo_contratista = led_cliente_contratista.tipo_contratista)
 INNER JOIN clientes ON led_contratistas.cliente = clientes.cliente 
 inner JOIN led_tipos_doc ON led_cliente_contratista.tipo_doc = led_tipos_doc.tipo_doc 
 inner join led_grupo_tipo_doc ON led_cliente_contratista.tipo_doc = led_grupo_tipo_doc.tipo_doc
 inner join led_grupos_doc on led_grupo_tipo_doc.grupo_doc = led_grupos_doc.grupo_doc 
 INNER JOIN led_contratista_periodo on (led_contratistas.contratista = led_contratista_periodo.contratista and led_contratista_periodo.periodo = @periodo)
 left JOIN LED_DOCS LDAnt ON (LDAnt.tipo_doc = led_tipos_doc.tipo_doc AND LDAnt.led_seccion = led_tipos_doc.led_seccion AND LDAnt.contratista = led_contratistas.contratista 
 AND LDAnt.periodo = @periodoVAnt AND LDAnt.grupo_doc = led_grupo_tipo_doc.grupo_doc and LDAnt.estado_doc in ('N','I','V','R'))
WHERE (clientes.cliente = @IDCliente) 
AND (led_cliente_contratista.activo = 1)
and ( ISNULL(led_tipos_doc.doc_alta,0) = 0 
  or (led_tipos_doc.doc_alta = 1 /*and 
   (LDAnt.fecha_vigencia > getdate() OR LDAnt.fecha_vigencia IS NULL)*/
  ) )
and ISNULL(led_tipos_doc.doc_baja,0) = 0 
and led_contratistas.estado_contratista = 'A'
and led_grupos_doc.cliente = @IDCliente
and led_tipos_doc.modalidad = @Modalidad
/*
and LDAnt.contratista IN (1424,
1349,
1438,
1338,
1381,
1304,
1390,
1422,
1706,
1497,
1379,
1288,
1377,
1361,
1375,
1358,
1378,
1479,
1427,
1560,
1359,
1394,
1362,
1520,
1383,
1552,
1486,
1518,
1487,
1418,
1504,
1335,
1553,
1367,
1519,
1384,
1485,
1517,
1423,
1380,
1432,
1521,
1516,
1430,
1496,
1514,
1382)
*/


DECLARE @dbDocID BIGINT = 0

Open LedCargaDocs

/*
select @@FETCH_STATUS AS STATUS, @periodoV as periodoV,@periodoA as periodoA,@periodoVAnt as periodoVANT,@PERIODO AS PERIODO,@periodoYear as periodoYear,@periodoMonth as periodoMonth,@Modalidad AS Modalidad,@PeriodoModalidad AS PeriodoModalidad
*/
Fetch NEXT FROM LedCargaDocs INTO @tipo_doc,@estado_doc,@led_seccion,@cliente,@contratista,@empleado,@vehiculo,@periodo,@contratista_1,@insertado,@fecha_tolerancia,@compliance_doc,@fecha_vigencia,@doc_log,@grupo_doc,@doc_id_lista

While @@FETCH_STATUS = 0
BEGIN
/*
SELECT 'A',@tipo_doc,@estado_doc,@led_seccion,@cliente,@contratista,@empleado,@vehiculo,@periodo,@contratista_1,@insertado,@fecha_tolerancia,@compliance_doc,@fecha_vigencia,@doc_log,@grupo_doc,@doc_id_lista
*/
/*
delete led_docs where contratista = @contratista and periodo = @periodo and led_seccion = 'C' and estado_doc='P' and compliance_doc='P'
*/

SET @dbDocID = 0

select @dbDocID = doc_id from led_docs
where tipo_doc = @tipo_doc
and periodo = @periodo
and led_seccion = @led_seccion
and contratista = @contratista

select @dbDocID as dbDocID

IF (@dbDocID = 0)
 
 BEGIN
  BEGIN TRY
  insert into led_docs (
  tipo_doc,
  estado_doc,
  led_seccion,
  cliente,
  contratista,  
  empleado,
  vehiculo,
  periodo,
  contratista_1,
  insertado,
  fecha_tolerancia,
  compliance_doc,
  fecha_vigencia,
  doc_log,
  grupo_doc,
  doc_id_lista
  )
  values
  (@tipo_doc,@estado_doc,@led_seccion,@cliente,@contratista,@empleado,@vehiculo,@periodo,@contratista_1,@insertado,@fecha_tolerancia,@compliance_doc,@fecha_vigencia,@doc_log,@grupo_doc,@doc_id_lista)

  END TRY

  BEGIN CATCH
   SET @ERRORNUMBER = 1
   SELECT @ERRORNUMBER,@tipo_doc,@estado_doc,@led_seccion,@cliente,@contratista,@empleado,@vehiculo,@periodo,@contratista_1,@insertado,@fecha_tolerancia,@compliance_doc,@fecha_vigencia,@doc_log,@grupo_doc
   select 'insert into led_docs (
    tipo_doc,
    estado_doc,
    led_seccion,
    cliente,
    contratista,  
    empleado,
    vehiculo,
    periodo,
    contratista_1,
    insertado,
    fecha_tolerancia,
    compliance_doc,
    fecha_vigencia,
    doc_log,
    grupo_doc,doc_id_lista
    )
    values'select @tipo_doc,@estado_doc,@led_seccion,@cliente,@contratista,@empleado,@vehiculo,@periodo,@contratista_1,@insertado,@fecha_tolerancia,@compliance_doc,@fecha_vigencia,@doc_log,@grupo_doc,@doc_id_lista
  END CATCH
 END

Fetch NEXT FROM LedCargaDocs INTO @tipo_doc,@estado_doc,@led_seccion,@cliente,@contratista,@empleado,@vehiculo,@periodo,@contratista_1,@insertado,@fecha_tolerancia,@compliance_doc,@fecha_vigencia,@doc_log,@grupo_doc,@doc_id_lista

END

CLOSE LedCargaDocs
DEALLOCATE LedCargaDocs

END

GO