dbo.LN_Alta_Masiva_procesos

SET QUOTED_IDENTIFIER, ANSI_NULLS ON
GO
CREATE OR ALTER PROCEDURE dbo.LN_Alta_Masiva_procesos 


-- EXEC LN_Alta_Masiva_procesos 103974506,0
@clienteproceso int,
@fallaexplicita int

AS
BEGIN
    SET NOCOUNT ON;


declare @FECHA_VIG_DESDE date = getdate()
declare @FECHA_VIG_HASTA date = getdate() + (365*3)
declare @idpadron int 
declare @cliente int 
declare @nombre varchar(150) 
declare @eMAIL varchar(150) 
declare @TE varchar(150) 
declare @clave varchar(10) = 'JHSYTRFS'
declare @Userid int = 15342812
declare @MODALIDAD varchar(10) 
declare @p_contraparte int = null
declare @idContra int = null
declare @familia int 
declare @gestion int = null 
declare @idAlta int 
declare @paisservicio varchar(2)
declare @contra int
declare @inf int
declare @solicitante int 
declare @idtipo int 
declare @datam int =5546717
declare @itemcontrato int = 382
declare @productoblue int = 4
declare @prioridad int = 5
declare @fechalimite varchar(10)='2021-04-01'
declare @productoleddemo int
declare @montoLCS decimal(15,2)
declare @TaxID varchar(50)
declare @servicio_contratado int = 47
declare @idImperium int
declare @tipo_contratista_imperium int
declare @estado_contratista_imperium  varchar(1)

/*declare @clienteproceso int = 0 -- 3915936*/

/*148 familia de Valid */

DECLARE LEDALTAMASIVA Cursor
FOR

--declare @clienteproceso int = 103974506

SELECT distinct TOP 500 nombre + ' ' + apellido as CONTACTO,EMAIL,TE,id_padron,ln_altas_masivas.cliente,ln_altas_masivas.familia,tipo_pago,id_alta,paisservicio,
solicitante,informe,producto,isnull(monto_lcs,0) as monto_lcs,taxid,ln_altas_masivas.servicio_contratado,contratista_imperium,
tipo_contratista_imperium,estado_contratista_imperium 
FROM ln_altas_masivas2 ln_altas_masivas inner join LN_familias on (LN_altas_masivas.familia=LN_familias.familia and LN_familias.cliente = @clienteproceso)
left join led_tipos_contratista on ln_familias.id_imperium=led_tipos_contratista.tipo_contratista 
where procesado = 0 
and id_padron is not null 
and contraparte is null
and ln_altas_masivas.cliente = @clienteproceso
--and estado_contratista_imperium='N'
--and LN_altas_masivas.contratista_imperium not in (select distinct id_imperium from ln_contrapartes where cliente = 7048064)
order by ln_altas_masivas.familia

Open LEDALTAMASIVA

Fetch NEXT FROM LEDALTAMASIVA INTO @nombre, @eMAIL,@TE,@idpadron,@cliente,@familia,@MODALIDAD,@idAlta,@paisservicio,@solicitante,@idtipo,@productoleddemo,@montoLCS,@TaxID,@servicio_contratado,@idImperium,
@tipo_contratista_imperium,@estado_contratista_imperium



While @@FETCH_STATUS = 0

BEGIN



BEGIN TRY
EXEC LN_contrapartes_  'INSERT', @idContra OUTPUT, @idpadron, @cliente, null,1, @nombre, @eMAIL, @TE, NULL, NULL, @clave, @FECHA_VIG_DESDE, @FECHA_VIG_HASTA, @Userid, 0, NULL, @MODALIDAD,null,null,@paisservicio

update ln_altas_masivas2 set procesado = 1,contraparte = @idContra where id_padron=@idpadron and id_alta=@idAlta

if (@servicio_contratado =73)
begin
 update ln_contrapartes set servicio_contratado=@servicio_contratado,id_imperium=@idImperium,
  activo = iif(@estado_contratista_imperium='A',1,0) 
  where contraparte = @idContra
end

EXEC LN_contraparte_familias_ 'INSERT', @idContra, @familia, NULL, 'N', 1, @Userid

EXEC LN_gestiones_ 'INSERT', @gestion OUTPUT, NULL, @idContra, @FECHA_VIG_DESDE, @FECHA_VIG_HASTA, NULL, @Userid
 
if (@servicio_contratado !=73)
begin
 UPDATE LN_contrapartes SET carga_inicial = 1 where contraparte = @idContra
end


update ln_altas_masivas2 set procesado = 1,contraparte = @idContra where id_padron=@idpadron and id_alta=@idAlta

select 'UPDATE DE ALTAS MASIVAS'

END TRY
BEGIN CATCH

END CATCH




Fetch NEXT FROM LEDALTAMASIVA INTO @nombre, @eMAIL,@TE,@idpadron,@cliente,@familia,@MODALIDAD,@idAlta,@paisservicio,@solicitante,@idtipo,@productoleddemo,@montoLCS,@TaxID,@servicio_contratado,@idImperium,
@tipo_contratista_imperium,@estado_contratista_imperium

END 

CLOSE LEDALTAMASIVA
DEALLOCATE LEDALTAMASIVA



END

GO