dbo.LN_Alta_Masiva

SET QUOTED_IDENTIFIER, ANSI_NULLS ON
GO
CREATE OR ALTER PROCEDURE dbo.LN_Alta_Masiva 
@clienteproceso int,
@freno int

/* 

exec LN_Alta_Masiva 2028732,0 

*/

/*SANOFI = 1562620024*/

/* BPN 756  cliente = 1074278912*/

--select * from clientes where cli_codigo = 2000
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)='2022-09-30'
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)

set @clienteproceso =3915936

DECLARE LEDALTAMASIVA Cursor
FOR

--declare @clienteproceso int =2046807993



SELECT distinct TOP 300 isnull(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 paisservicio = 'AR'
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





 /* 1 – ALTA CONOCIENDO EL ID PADRON 
  EXEC LN_contrapartes_ 'INSERT', NULL, [ID PADRON], [ID CLIENTE], [DATOS COMERCIALES], [ACTIVO = 1], [NOMBRE CONTACTO], [EMAIL], [TELEFONO], NULL, NULL, [CLAVE RANDOM], [FECHA VIG DESDE], [FECHA VIG HASTA], [USER ID], [SUBCONTRATISTA = 0], NULL, [MODALIDAD = ‘PP’]
   */
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

/*
2 – INSERT EN FAMILIAS
EXEC LN_contraparte_familias_ ‘INSERT’, [CONTRAPARTE], [FAMILIA], NULL, ‘N’, 1, [USER_ID]
*/

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

/*
3- INSERT EN GESTIONES
EXEC LN_gestiones_ ‘INSERT’, NULL, NULL, [CONTRAPARTE], [FECHA VIG DESDE], [FECHA_VIG_HASTA], NULL, [USER ID]
*/
 
 EXEC LN_gestiones_ 'INSERT', @gestion OUTPUT, NULL, @idContra, @FECHA_VIG_DESDE, @FECHA_VIG_HASTA, NULL, @Userid
 
 /* select * from LN_gestiones where contraparte = @idContra
   4 – COLOCAR EN CARGA INICIAL solo si es LED o IV
    UPDATE LN_contrapartes SET carga_inicial = 1 where contraparte = [CONTRAPARTE]
   */
if (@servicio_contratado !=73)
begin
 UPDATE LN_contrapartes SET carga_inicial = 0 where contraparte = @idContra
end

 /* 5- ACTUALIZAR EL LEGAJO
 EXEC LN_actualizar_legajo [CONTRAPARTE], [GESTION], [USER_ID]
 */
if (@servicio_contratado !=73)
begin
 EXEC LN_actualizar_legajo @idContra, @gestion, @Userid 
end

/*
6- VERIFICACION DE BALANCES
EXEC LN_verificar_balance_contraparte [CONTRAPARTE]
*/
EXEC LN_verificar_balance_contraparte @idContra

/*
7- PREPAGOS
EXEC LN_contrapartes_ ‘generar_prepagos’, [CONTRAPARTE], NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, [USER_ID]
*/

if (@MODALIDAD = 'PP')
begin
 EXEC LN_contrapartes_ 'generar_prepagos', @idContra, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, @Userid
end
/*

EXEC LN_contrapartes_ 'generar_prepagos', 67117, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, 15342812

*/

/* GENERAR INFORME EN BLUE Y EN LN_DEMO */

if (@servicio_contratado =730 )
begin

 set @contra = @idContra
/* set @solicitante=43446359603439085-- 295891824*/
 set @itemcontrato = 354
 set @idtipo = 7772659 
 /*SELECT * FROM TIPOS_INFORME WHERE ID_TIPO_INFORME=7772659*/
 set @productoblue=6
 set @prioridad=5
 set @datam=45460019
 set @productoleddemo = @productoleddemo /*2045 = ENRIQUECIMIENTO*/
 declare @asignado int =45460019

 exec LN_informes 'ingresar_informe', @contra, @inf output, @solicitante, @itemcontrato, @productoblue, @idtipo, @prioridad, 'A', @solicitante, @datam, @asignado, @cliente, @fechalimite, @productoleddemo, @fechalimite, 'Carga backend'
 exec LN_informes 'activar_gestion_documentacion', @contra, @inf, @solicitante, @itemcontrato, @productoblue, @idtipo, @prioridad, 'P', @solicitante, @datam, @asignado, @cliente, @fechalimite, @productoleddemo,@fechalimite, 'Carga backend'
 UPDATE LN_demo SET VISIBLE=0 where contraparte= @contra and gestion= @gestion and informe= @inf
 select 'DEMO Y BLUE GENERADO'
end

if (@servicio_contratado =47)
begin
 if (@montoLCS > 0)
 begin
 SELECT 'INSERTAMOS EL LCS ' + @cliente,@TaxID,@idpadron,@contra,@productoleddemo,@montoLCS,getdate(),'ARS',1,1,getdate()

 insert into LN_dep_econ_compras (cliente, identificacion, id_padron, contraparte, producto, monto_credito_solicitado, fecha_solicitud, moneda, cotizacion, visible, created)
 values(@cliente,@TaxID,@idpadron,@contra,@productoleddemo,@montoLCS,getdate(),'ARS',1,1,getdate())

 end

 SELECT @montoLCS AS LCS
end

/*
8 – COLOCAR EN QUEUE
EXEC LN_contrapartes_queue_ ‘INSERT’, NULL, [CONTRAPARTE]
*/
EXEC LN_contrapartes_queue_ 'INSERT', NULL, @idContra

SELECT 'INGRESADO A QUEUE '
/*
9 – TRAZABILIDAD */
/*EXEC insertar_trazabilidad 'Alta de Contraparte', [CLIENTE], ‘ALTA_CONTRAPARTE_BACKEND’, ‘BACK’, [CONTRAPARTE]*/
if (@servicio_contratado !=73)
begin
 EXEC insertar_trazabilidad 'Alta de Contraparte', @cliente, 'ALTA_CONTRAPARTE_BACKEND', 'BACK', @idContra,@Userid
end

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
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