dbo.deudas_bloqueadas_previo

SET QUOTED_IDENTIFIER, ANSI_NULLS ON
GO
/*
select * from cendeu where modified > '2018-06-28 00:00:00'
select * from cendeu_temp where modified > '2018-06-28 00:00:00'
select * from cendeu_bloqueo where proceso_previo = 1
*/
-- [deudas_bloqueadas_previo] 
CREATE OR ALTER PROCEDURE dbo.deudas_bloqueadas_previo 

AS
BEGIN
    SET NOCOUNT ON;
 declare @hoy date = getdate()
 declare @cant bigint, 
   @r_id_cendeu int,
   @r_cuit varchar(20),
   @banco int, 
   @hasta varchar(6),
   @fec_inf_hasta datetime
    
 set @cant = 0
 DECLARE bn2 CURSOR

  FOR
   select distinct iden, 
       codigo_ent, 
       fec_inf_hasta
     from cendeu_bloqueo
     where fec_inf_hasta >= dateadd(month,-36,getdate())
       and proceso_previo is null
    
      
 OPEN bn2 
 Fetch next from bn2 INTO @r_cuit, @banco, @fec_inf_hasta

  WHILE (@@FETCH_STATUS <> -1 )
 
  BEGIN 
   set @cant = @cant + 1 
      set @hasta = convert(varchar,DATEPART(yyyy,@fec_inf_hasta)) + 
       right('00'+convert(varchar,DATEPART(mm,@fec_inf_hasta)),2)
   
   --select @r_cuit, @banco, @hasta
   DECLARE cendeuc CURSOR
   FOR
    select id_cendeu
      from cendeu
      where iden = @r_cuit 
        and vigente = 1
     and CONVERT(int,codigo_ent) = @banco 
     and fec_inf <= @hasta
   OPEN cendeuc 
    FETCH next from cendeuc INTO  @r_id_cendeu
   WHILE (@@FETCH_STATUS <> -1 )
    BEGIN 
     update cendeu set vigente = 0, modified = getdate(), modified_by = '1' where id_cendeu = @r_id_cendeu
     --select 'cendeu', @r_id_cendeu
     FETCH next from cendeuc INTO @r_id_cendeu
    END
   CLOSE cendeuc
   DEALLOCATE cendeuc 

   DECLARE cendeuc2 CURSOR
   FOR
    select id_cendeu
      from cendeu_temp
      where iden = @r_cuit 
        and vigente = 1
     and CONVERT(int,codigo_ent) = @banco 
     and fec_inf <= @hasta
   OPEN cendeuc2 
    FETCH next from cendeuc2 INTO  @r_id_cendeu
   WHILE (@@FETCH_STATUS <> -1 )
    BEGIN 
     update cendeu_temp set vigente = 0, modified = getdate(), modified_by = '1' where id_cendeu = @r_id_cendeu
     --select 'cendeu_temp', @r_id_cendeu
     FETCH next from cendeuc2 INTO @r_id_cendeu
    END
   CLOSE cendeuc2
   DEALLOCATE cendeuc2 

   update cendeu_bloqueo
      set proceso_previo = 1  
    where iden = @r_cuit
         and codigo_ent = @banco
      and fec_inf_hasta = @fec_inf_hasta
     
   FETCH next from bn2 INTO @r_cuit, @banco, @fec_inf_hasta

  END
  
 CLOSE bn2
 DEALLOCATE bn2 
    select @cant
END 

GO