dbo.LN_panel_control_excel_pacto_mundial

SET QUOTED_IDENTIFIER, ANSI_NULLS ON
GO
-- =============================================
-- Author: <Author,,Name>
-- Create date: <Create Date,,>
-- Description: <Description,,>
-- =============================================
/*
exec ln_docs_valores 2912,  'Pacto_Mundial' 
*/

CREATE OR ALTER PROCEDURE dbo.LN_panel_control_excel_pacto_mundial 
  @p_cliente int,
  @p_lista varchar(max) = null, 
  @p_servicio_contratado int = 47
AS
BEGIN
 SET NOCOUNT ON;
 declare @valores table (contraparte int, gestion int, doc_id int, seccion int, campo int, tipo_campo varchar(1), nombre_campo varchar(200), etiqueta varchar(300),fila int, col int, valor_numerico float, valor_texto varchar(max), valor_fecha smalldatetime, valor_fecha_srt varchar(200))
 declare @contraparte int 

 if (@p_lista is NOT null)
 begin
  DECLARE C_Cursor CURSOR FOR
    select ln_contrapartes.contraparte 
    from ln_contrapartes 
    INNER JOIN dbo.DelimitedSplit8K(@p_lista, ',') Contrapartes ON LN_contrapartes.contraparte = Contrapartes.Item
    where cliente = @p_cliente 
    and ln_contrapartes.activo = 1
    and servicio_contratado = @p_servicio_contratado
 end
 else
 begin
  DECLARE C_Cursor CURSOR FOR
    select ln_contrapartes.contraparte 
    from ln_contrapartes     
    where cliente = @p_cliente 
    and ln_contrapartes.activo = 1
    and servicio_contratado = @p_servicio_contratado

 end 
 OPEN C_Cursor
 FETCH NEXT FROM C_Cursor INTO @contraparte
  WHILE @@fetch_status = 0
  BEGIN
  insert into @valores exec ln_docs_valores @contraparte,  'PACTO_MUNDIAL'  
  FETCH NEXT FROM C_Cursor INTO @contraparte
  END 
 CLOSE C_Cursor
 DEALLOCATE C_Cursor 

  select contraparte, etiqueta, 
 case
 when valor_numerico = 1 then 'SI'
 when valor_numerico = 0 then 'NO'
 else ''
 end
 as valor from @valores
END 
GO