dbo.Imperium_Completa_Docs

SET QUOTED_IDENTIFIER, ANSI_NULLS ON
GO

/*

exec Imperium_Completa_Docs

SELECT * FROM LED_DOCS WHERE DOC_ID = 4933128166


*/


CREATE OR ALTER PROCEDURE  dbo.Imperium_Completa_Docs

AS

BEGIN
 SET NOCOUNT ON;

DECLARE @ERRORNUMBER SMALLINT 
DECLARE @IDDoc bigint 
DECLARE @led_seccion varchar(1)
DECLARE @contratista int 
DECLARE @empleado int
DECLARE @vehiculo int
DECLARE @tipo_log varchar(1)
DECLARE @descripcion_log varchar(200)
DECLARE @horario_log datetime
DECLARE @user_id int
DECLARE @cliente int
DECLARE @contratista_1 int
DECLARE @tipo_doc int
DECLARE @doc_id_lista int
DECLARE @fecha_vigencia datetime
DECLARE @periodoA INT
DECLARE @Now varchar(10)

  select @periodoA = convert(varchar(4),datepart(year,getdate())) + RIGHT('00' +convert(varchar(2),datepart(month,getdate())),2)
  select @Now =  RIGHT('00' +convert(varchar(2),datepart(day,getdate())),2) + '-' + RIGHT('00' +convert(varchar(2),datepart(month,getdate())),2) + '-' + convert(varchar(4),datepart(year,getdate()))


  DECLARE LedBajaDocs Cursor
  FOR
/*
select distinct contratista_1, contratista,cliente from led_contratistas where /* cliente = 7048064 and */ contratista <> contratista_1 and estado_contratista='A'
*/
   select distinct contratista_1, contratista,cliente from led_contratistas where cliente = 9335603 and estado_contratista='A' and contratista not in (
   select distinct contratista from led_docs where cliente = 9335603 and tipo_doc = 343 and periodo=201705)

   
 /*
 
 SELECT distinct led_tipos_doc.tipo_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,
 201705 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,
 /*
 led_cliente_contratista.estado_inicial  as 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,
 
 NULL as fecha_vigencia,
 convert(varchar(16),getdate(),120) + ' ALTA DE DOCUMENTOS DE CONTRATISTA' 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_cliente_contratista.tipo_contratista IN (select DISTINCT tipo_contratista
 from led_contratista_multi where activo = 1 and vigencia_desde < getdate() +55  and (vigencia_hasta is null or getdate() < vigencia_hasta) and contratista = 1569))
  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 = 201705)
 WHERE (clientes.cliente = 9335603) 
 AND (led_cliente_contratista.activo = 1)
 and (ISNULL(led_tipos_doc.doc_alta,0) = 0 or (led_tipos_doc.doc_alta = 1 ) )
 and ISNULL(led_tipos_doc.doc_baja,0) = 0 
 and led_contratistas.estado_contratista = 'A'
 and led_grupos_doc.cliente = 9335603
 and led_tipos_doc.modalidad = 'V'
 AND led_contratistas.contratista = 1569
 and led_tipos_doc.tipo_doc=343
 */


   
   
   /*
    OFFSET 0 ROWS FETCH NEXT 50 ROWS ONLY;
    */

  Open LedBajaDocs

  Fetch NEXT FROM LedBajaDocs INTO @contratista_1,@contratista,@cliente

  While @@FETCH_STATUS = 0
  BEGIN


  BEGIN TRY
 /*
  exec Imperium_Carga_Docs_Sub_Contratista_Contratista 201705,@cliente,@contratista
 
  exec Imperium_Carga_Docs_Vehiculos_Contratista 201705,@cliente,@contratista,'A'
  */
   /*
    exec Imperium_Multi_Carga_Docs_Contratista @cliente,@contratista,201705,'V' 
    */
   exec Imperium_Multi_Carga_Docs_Faltantes @cliente,@contratista,201705,'V',343 

  END TRY


  BEGIN CATCH

  SET @ERRORNUMBER = 1

  END CATCH

  Fetch NEXT FROM LedBajaDocs INTO @contratista_1,@contratista,@cliente

  END

  CLOSE LedBajaDocs
  DEALLOCATE LedBajaDocs



end

GO