1. Project
  2. Servers
  3. SID2289214
  4. User databases
  5. Fidelitas
  6. Programmability
  7. Stored Procedures
  8. dbo.Imperium_Racalcula_Compliance

dbo.Imperium_Racalcula_Compliance

Description

Properties

Name Value
ANSI Nulls ON

True
Quoted Identifier ON

True
Encrypted

False
Execute As
Assembly

Parameters

4
Name Data Type Length Description
@cliente int 4
@periodo int 4
@desde int 4
@hasta int 4

SQL Script

Copy
SET QUOTED_IDENTIFIER, ANSI_NULLS ON
GO
/*
select * from led_contratistas where contratista = 5829
exec Imperium_Racalcula_Compliance 7048064,202301,0,100000
*/
CREATE OR ALTER PROCEDURE  dbo.Imperium_Racalcula_Compliance
@cliente int,
@periodo int,
@desde int,
@hasta int

AS

BEGIN
 SET NOCOUNT ON;

DECLARE @ERRORNUMBER SMALLINT 


DECLARE ImperiumDocs Cursor
FOR

/*select distinct CONTRATISTA,PERIODO FROM led_DOCS
WHERE CONTRATISTA IS NOT NULL AND CONTRATISTA > 0
and cliente = 5546348 
ORDER BY contratista ASC,periodo ASC*/

select distinct ROW_NUMBER() over (order by contratista) as RecNo, contratista, periodo from led_DOCS
where periodo = @periodo
and contratista in (select contratista from led_contratistas where cliente = @cliente)

and contratista = 3118 
/*
and RR between @desde and @hasta
*/
group by contratista,periodo


/*
select contratista, periodo from led_compliance
where /*estado_compliance in ('Y','A')
and */ periodo = @periodo
*/

Open ImperiumDocs
/*
DECLARE @periodo int
*/
DECLARE @IDCliente int
DECLARE @led_seccion varchar(1)
DECLARE @IDContratista INT
DECLARE @RecNo INT

Fetch NEXT FROM ImperiumDocs INTO @RecNo,@IDContratista,@periodo
While (@@FETCH_STATUS <> -1)
BEGIN


IF (@RecNo >= @desde and @RecNo <= @hasta)
BEGIN
select @RecNo as RecNo,@desde as desde,@hasta as hasta,@IDContratista as contratista
 BEGIN
  EXEC Imperium_Compliance_Periodo_Contratista @periodo,@IDContratista,'C'
 END
 BEGIN
  EXEC Imperium_Compliance_Periodo_Contratista @periodo,@IDContratista,'S'
 END
 BEGIN
  EXEC Imperium_Compliance_Periodo_Contratista @periodo,@IDContratista,'E'
 END
 BEGIN 
  EXEC Imperium_Compliance_Periodo_Contratista @periodo,@IDContratista,'V'
 END
END

Fetch NEXT FROM ImperiumDocs INTO @RecNo,@IDContratista,@periodo

END

CLOSE ImperiumDocs
DEALLOCATE ImperiumDocs


/*
SET @periodo = 201512
SET @IDCliente = 1202246
SET @led_seccion = 'C'

BEGIN
EXEC RunLedRun @periodo,@IDCliente,@led_seccion
END

SET @periodo = 201512
SET @IDCliente = 1202246
SET @led_seccion = 'E'

BEGIN
EXEC RunLedRun @periodo,@IDCliente,@led_seccion
END

SET @periodo = 201512
SET @IDCliente = 1202246
SET @led_seccion = 'V'

BEGIN
EXEC RunLedRun @periodo,@IDCliente,@led_seccion
END



SET @periodo = 201601
SET @IDCliente = 1202246
SET @led_seccion = 'C'

BEGIN
EXEC RunLedRun @periodo,@IDCliente,@led_seccion
END

SET @periodo = 201601
SET @IDCliente = 1202246
SET @led_seccion = 'E'

BEGIN
EXEC RunLedRun @periodo,@IDCliente,@led_seccion
END

SET @periodo = 201601
SET @IDCliente = 1202246
SET @led_seccion = 'V'

BEGIN
EXEC RunLedRun @periodo,@IDCliente,@led_seccion
END


SET @periodo = 201602
SET @IDCliente = 1202246
SET @led_seccion = 'C'

BEGIN
EXEC RunLedRun @periodo,@IDCliente,@led_seccion
END

SET @periodo = 201602
SET @IDCliente = 1202246
SET @led_seccion = 'E'

BEGIN
EXEC RunLedRun @periodo,@IDCliente,@led_seccion
END

SET @periodo = 201602
SET @IDCliente = 1202246
SET @led_seccion = 'V'

BEGIN
EXEC RunLedRun @periodo,@IDCliente,@led_seccion
END


SET @periodo = 201603
SET @IDCliente = 1202246
SET @led_seccion = 'C'

BEGIN
EXEC RunLedRun @periodo,@IDCliente,@led_seccion
END

SET @periodo = 201603
SET @IDCliente = 1202246
SET @led_seccion = 'E'

BEGIN
EXEC RunLedRun @periodo,@IDCliente,@led_seccion
END

SET @periodo = 201603
SET @IDCliente = 1202246
SET @led_seccion = 'V'

BEGIN
EXEC RunLedRun @periodo,@IDCliente,@led_seccion
END


SET @periodo = 201604
SET @IDCliente = 1202246
SET @led_seccion = 'C'

BEGIN
EXEC RunLedRun @periodo,@IDCliente,@led_seccion
END

SET @periodo = 201604
SET @IDCliente = 1202246
SET @led_seccion = 'E'

BEGIN
EXEC RunLedRun @periodo,@IDCliente,@led_seccion
END

SET @periodo = 201604
SET @IDCliente = 1202246
SET @led_seccion = 'V'

BEGIN
EXEC RunLedRun @periodo,@IDCliente,@led_seccion
END


SET @periodo = 201605
SET @IDCliente = 1202246
SET @led_seccion = 'C'

BEGIN
EXEC RunLedRun @periodo,@IDCliente,@led_seccion
END

SET @periodo = 201605
SET @IDCliente = 1202246
SET @led_seccion = 'E'

BEGIN
EXEC RunLedRun @periodo,@IDCliente,@led_seccion
END

SET @periodo = 201605
SET @IDCliente = 1202246
SET @led_seccion = 'V'

BEGIN
EXEC RunLedRun @periodo,@IDCliente,@led_seccion
END

SET @periodo = 201606
SET @IDCliente = 1202246
SET @led_seccion = 'C'

BEGIN
EXEC RunLedRun @periodo,@IDCliente,@led_seccion
END

SET @periodo = 201606
SET @IDCliente = 1202246
SET @led_seccion = 'E'

BEGIN
EXEC RunLedRun @periodo,@IDCliente,@led_seccion
END

SET @periodo = 201606
SET @IDCliente = 1202246
SET @led_seccion = 'V'

BEGIN
EXEC RunLedRun @periodo,@IDCliente,@led_seccion
END


SET @periodo = 201607
SET @IDCliente = 1202246
SET @led_seccion = 'C'

BEGIN
EXEC RunLedRun @periodo,@IDCliente,@led_seccion
END


SET @periodo = 201607
SET @IDCliente = 1202246
SET @led_seccion = 'E'

BEGIN
EXEC RunLedRun @periodo,@IDCliente,@led_seccion
END

SET @periodo = 201607
SET @IDCliente = 1202246
SET @led_seccion = 'V'

BEGIN
EXEC RunLedRun @periodo,@IDCliente,@led_seccion
END

SET @periodo = 201606
SET @IDCliente = 9700868
SET @led_seccion = 'C'

BEGIN
EXEC RunLedRun @periodo,@IDCliente,@led_seccion
END
SET @periodo = 201606
SET @IDCliente = 9700868
SET @led_seccion = 'E'

BEGIN
EXEC RunLedRun @periodo,@IDCliente,@led_seccion
END
SET @periodo = 201606
SET @IDCliente = 9700868
SET @led_seccion = 'V'

BEGIN
EXEC RunLedRun @periodo,@IDCliente,@led_seccion
END

SET @periodo = 201607
SET @IDCliente = 9700868
SET @led_seccion = 'C'

BEGIN
EXEC RunLedRun @periodo,@IDCliente,@led_seccion
END
SET @periodo = 201607
SET @IDCliente = 9700868
SET @led_seccion = 'E'

BEGIN
EXEC RunLedRun @periodo,@IDCliente,@led_seccion
END
SET @periodo = 201607
SET @IDCliente = 9700868
SET @led_seccion = 'V'

BEGIN
EXEC RunLedRun @periodo,@IDCliente,@led_seccion
END


SET @periodo = 201606
SET @IDCliente = 6574924
SET @led_seccion = 'C'

BEGIN
EXEC RunLedRun @periodo,@IDCliente,@led_seccion
END


SET @periodo = 201606
SET @IDCliente = 6574924
SET @led_seccion = 'E'

BEGIN
EXEC RunLedRun @periodo,@IDCliente,@led_seccion
END

SET @periodo = 201606
SET @IDCliente = 6574924
SET @led_seccion = 'C'

BEGIN
EXEC RunLedRun @periodo,@IDCliente,@led_seccion
END


SET @periodo = 201607
SET @IDCliente = 6574924
SET @led_seccion = 'C'

BEGIN
EXEC RunLedRun @periodo,@IDCliente,@led_seccion
END
SET @periodo = 201607
SET @IDCliente = 6574924
SET @led_seccion = 'E'

BEGIN
EXEC RunLedRun @periodo,@IDCliente,@led_seccion
END
SET @periodo = 201607
SET @IDCliente = 6574924
SET @led_seccion = 'V'

BEGIN
EXEC RunLedRun @periodo,@IDCliente,@led_seccion
END

/*
SET @periodo = 201607
SET @IDCliente = 2028732
SET @led_seccion = 'C'

BEGIN
EXEC RunLedRun @periodo,@IDCliente,@led_seccion
END

SET @periodo = 201607
SET @IDCliente = 2028732
SET @led_seccion = 'E'

BEGIN
EXEC RunLedRun @periodo,@IDCliente,@led_seccion
END
SET @periodo = 201607
SET @IDCliente = 2028732
SET @led_seccion = 'V'

BEGIN
EXEC RunLedRun @periodo,@IDCliente,@led_seccion
END
*/

SET @periodo = 201607
SET @IDCliente = 1875643264
SET @led_seccion = 'C'

BEGIN
EXEC RunLedRun @periodo,@IDCliente,@led_seccion
END
SET @periodo = 201607
SET @IDCliente = 1875643264
SET @led_seccion = 'E'

BEGIN
EXEC RunLedRun @periodo,@IDCliente,@led_seccion
END
SET @periodo = 201607
SET @IDCliente = 1875643264
SET @led_seccion = 'V'

BEGIN
EXEC RunLedRun @periodo,@IDCliente,@led_seccion
END


SET @periodo = 201607
SET @IDCliente = 5546348
SET @led_seccion = 'C'

BEGIN
EXEC RunLedRun @periodo,@IDCliente,@led_seccion
END
SET @periodo = 201607
SET @IDCliente = 5546348
SET @led_seccion = 'E'

BEGIN
EXEC RunLedRun @periodo,@IDCliente,@led_seccion
END

SET @periodo = 201607
SET @IDCliente = 5546348
SET @led_seccion = 'V'

BEGIN
EXEC RunLedRun @periodo,@IDCliente,@led_seccion
END

SET @periodo = 201606
SET @IDCliente = 5546348
SET @led_seccion = 'C'

BEGIN
EXEC RunLedRun @periodo,@IDCliente,@led_seccion
END

SET @periodo = 201606
SET @IDCliente = 5546348
SET @led_seccion = 'E'

BEGIN
EXEC RunLedRun @periodo,@IDCliente,@led_seccion
END

SET @periodo = 201606
SET @IDCliente = 5546348
SET @led_seccion = 'V'

BEGIN
EXEC RunLedRun @periodo,@IDCliente,@led_seccion
END



SET @periodo = 201605
SET @IDCliente = 5546348
SET @led_seccion = 'C'

BEGIN
EXEC RunLedRun @periodo,@IDCliente,@led_seccion
END

SET @periodo = 201605
SET @IDCliente = 5546348
SET @led_seccion = 'E'

BEGIN
EXEC RunLedRun @periodo,@IDCliente,@led_seccion
END

SET @periodo = 201605
SET @IDCliente = 5546348
SET @led_seccion = 'V'

BEGIN
EXEC RunLedRun @periodo,@IDCliente,@led_seccion
END



SET @periodo = 201608
SET @IDCliente = 5546348
SET @led_seccion = 'C'

BEGIN
EXEC RunLedRun @periodo,@IDCliente,@led_seccion
END

SET @periodo = 201608
SET @IDCliente = 5546348
SET @led_seccion = 'E'

BEGIN
EXEC RunLedRun @periodo,@IDCliente,@led_seccion
END

SET @periodo = 201608
SET @IDCliente = 5546348
SET @led_seccion = 'V'

BEGIN
EXEC RunLedRun @periodo,@IDCliente,@led_seccion
END

SET @periodo = 201608
SET @IDCliente = 1202246
SET @led_seccion = 'C'

BEGIN
EXEC RunLedRun @periodo,@IDCliente,@led_seccion
END

SET @periodo = 201608
SET @IDCliente = 1202246
SET @led_seccion = 'E'

BEGIN
EXEC RunLedRun @periodo,@IDCliente,@led_seccion
END


SET @periodo = 201608
SET @IDCliente = 1202246
SET @led_seccion = 'V'

BEGIN
EXEC RunLedRun @periodo,@IDCliente,@led_seccion
END

SET @periodo = 201608
SET @IDCliente = 2028732
SET @led_seccion = 'C'

BEGIN
EXEC RunLedRun @periodo,@IDCliente,@led_seccion
END


SET @periodo = 201608
SET @IDCliente = 2028732
SET @led_seccion = 'E'

BEGIN
EXEC RunLedRun @periodo,@IDCliente,@led_seccion
END

SET @periodo = 201608
SET @IDCliente = 2028732
SET @led_seccion = 'V'

BEGIN
EXEC RunLedRun @periodo,@IDCliente,@led_seccion
END




SET @periodo = 201608
SET @IDCliente = 9700868
SET @led_seccion = 'C'

BEGIN
EXEC RunLedRun @periodo,@IDCliente,@led_seccion
END


SET @periodo = 201608
SET @IDCliente = 9700868
SET @led_seccion = 'E'

BEGIN
EXEC RunLedRun @periodo,@IDCliente,@led_seccion
END


SET @periodo = 201608
SET @IDCliente = 9700868
SET @led_seccion = 'V'

BEGIN
EXEC RunLedRun @periodo,@IDCliente,@led_seccion
END





SET @periodo = 201608
SET @IDCliente = 1875643264
SET @led_seccion = 'C'

BEGIN
EXEC RunLedRun @periodo,@IDCliente,@led_seccion
END


SET @periodo = 201608
SET @IDCliente = 1875643264
SET @led_seccion = 'E'

BEGIN
EXEC RunLedRun @periodo,@IDCliente,@led_seccion
END


SET @periodo = 201608
SET @IDCliente = 1875643264
SET @led_seccion = 'V'

BEGIN
EXEC RunLedRun @periodo,@IDCliente,@led_seccion
END
*/

/*


1202246 VALVULAS
2028732 INC
5546348 AMX ARGENTINA
6574924 SECURITAS
9700868 BICE 
1875643264 RED LINK
*/


END

GO

Used By

No items found
Author: 
Copyright © All Rights Reserved
Created: 06/03/2025