-- =============================================
-- Author:		<Valerio,,Name>
-- Create date: <19/14/2011,,> -1 ai -2!
-- Description:	<Popola la tabella email con i clienti con profilo scaduto>
-- =============================================
CREATE procedure [C6Mart].[DM_GestioneEmailNOPRO]
AS
BEGIN
BEGIN TRANSACTION	
DECLARE @NUMGIORNIDALPERF SMALLINT
DECLARE @NUMGIORNIDASOLLECITO SMALLINT
DECLARE @MaxInvioSoll SMALLINT
DECLARE @ID_ELAB INT
SET @NUMGIORNIDALPERF = CAST(dbo.getParametro('NUMGIORNIDALPERF') as smallint)
SET @NUMGIORNIDASOLLECITO = CAST(dbo.getParametro('NUMGIORNIDASOLLECITO') AS SMALLINT) --7
SET @MaxInvioSoll = CAST(dbo.getParametro('MaxInvioSoll') AS SMALLINT)
SET @ID_ELAB = C6MART.GETIDELAB()
-- Log esecuzione
INSERT INTO LOG_ESECUZIONE
	(Nome, Inizio, Nota)
VALUES (
	'DM_GestioneEmailNOPRO',
	GETDATE(),
	'Elaborazione giornaliera'
)
-- 1. INSERIMENTO MAIL "SOLLECITI"
	-- TUPLE DA PERFEZIONARE SU CONTRATTOSEI
	-- E PRESENTI SU GESTIONE_EMAIL
	-- IL PB NON HA ATTIVATO UN PROFILO VALIDO AL CLIENTE
	-- N.B. PER IL PRIMO SOLLECITO DATA_ULTIMOSOLLECITO è NULL -> CONSIDERIAMO DATA_PERF
	INSERT INTO C6Mart.GESTIONE_EMAIL
		(Rete,Cod_Fiscale,Tipo,Data_Generazione,ID_ELAB)
	SELECT 
		C6.rete,
		C6.cod_fiscale,
		CASE 
			WHEN ISNULL(numSolleciti,0) = 0 THEN '1_SOLL_NOPRO'
			WHEN numSolleciti = 1 THEN '2_SOLL_NOPRO'
			WHEN numSolleciti = 2 THEN '3_SOLL_NOPRO'
			ELSE 'S_SOLL_NOPRO'
		END as tipoEmail,
		getDate() as DataGenerazione,
		@ID_ELAB AS ID_ELAB
	FROM c6mart.contrattosei C6 
	LEFT JOIN C6MART.CODICI_PROMOTORI_FITTIZI PF
		ON C6.COD_AGENTE BETWEEN PF.CODICEDA AND PF.CODICEA
		AND C6.RETE = PF.RETE
	WHERE 1 = 1
		AND numSolleciti < @MaxInvioSoll
		AND (
				(ISNULL(numSolleciti,0) = 0 AND DATEDIFF(DAY,C6.Data_Perf,GETDATE()) >= @NUMGIORNIDALPERF)
				 OR
				(DATEDIFF(DAY,isnull(C6.Data_UltimoSollecito,GETDATE()),GETDATE()) >= @NUMGIORNIDASOLLECITO)
			)	
		AND c6.clienteMigrato = 'S' 
		AND c6.risorseNA = 'N'
		AND c6.profiloAttivo = 0
		AND C6.Data_FineAvanzato IS NULL
		--AND C6.GenerazioneReport = 'S'
		AND PF.RETE IS NULL
	-- Log esecuzione
	UPDATE
		LOG_ESECUZIONE
	SET
		Fine = GETDATE(),
		Tipo = 'INSERT',
		Righe = @@ROWCOUNT
	WHERE
		Nome = 'DM_GestioneEmailNOPRO' AND
		Inizio = (
			SELECT
				MAX(Inizio)
			FROM
				LOG_ESECUZIONE
			WHERE
				Nome = 'DM_GestioneEmailNOPRO'
		)
	INSERT INTO LOG_ESECUZIONE
		(Nome, Inizio, Nota)
	VALUES (
		'DM_GestioneEmailNOPRO',
		GETDATE(),
		'Elaborazione giornaliera'
	)
-- 1.BIS UPDATE CONTRATTOSEI DOPO INSERIMENTO MAIL "SOLLECITI"
	-- AUMENTIAMO IL NUMERO numSolleciti
	-- AGGIORNIAMO LA DATA Data_UltimoSollecito
	UPDATE 
		c6mart.contrattosei
	SET 
		numSolleciti = isnull(numSolleciti,0) + 1,
		Data_UltimoSollecito = getDate()
	FROM c6mart.contrattosei C6 
	LEFT JOIN C6MART.CODICI_PROMOTORI_FITTIZI PF
		ON C6.COD_AGENTE BETWEEN PF.CODICEDA AND PF.CODICEA
		AND C6.RETE = PF.RETE
	WHERE 1 = 1
		AND numSolleciti < @MaxInvioSoll
		AND (
				(ISNULL(numSolleciti,0) = 0 AND DATEDIFF(DAY,C6.Data_Perf,GETDATE()) >= @NUMGIORNIDALPERF)
				 OR
				(DATEDIFF(DAY,isnull(C6.Data_UltimoSollecito,GETDATE()),GETDATE()) >= @NUMGIORNIDASOLLECITO)
			)
		AND c6.clienteMigrato = 'S' 
		AND c6.risorseNA = 'N'
		AND c6.profiloAttivo = 0
		AND C6.Data_FineAvanzato IS NULL
		--AND C6.GenerazioneReport = 'S'
		AND PF.RETE IS NULL
	-- Log esecuzione
	UPDATE
		LOG_ESECUZIONE
	SET
		Fine = GETDATE(),
		Tipo = 'UPDATE',
		Righe = @@ROWCOUNT
	WHERE
		Nome = 'DM_GestioneEmailNOPRO' AND
		Inizio = (
			SELECT
				MAX(Inizio)
			FROM
				LOG_ESECUZIONE
			WHERE
				Nome = 'DM_GestioneEmailNOPRO'
		)
	INSERT INTO LOG_ESECUZIONE
		(Nome, Inizio, Nota)
	VALUES (
		'DM_GestioneEmailNOPRO',
		GETDATE(),
		'Elaborazione giornaliera'
	)
-- 2. INSERIMENTO MAIL "REVOCA"
	-- TUPLE DA PERFEZIONARE SU CONTRATTOSEI
	-- E PRESENTI SU GESTIONE_EMAIL
	-- IL PB NON HA EFFETTUATO L'ATTIVAZIONE DEL PROFILO @MaxInvioSoll SOLLECITI
	-- N.B. OCCHIO ALLA CONDIZIONE -> (c6.risorseNA = 'N' AND numSolleciti = @MaxInvioSoll) OR  numSolleciti > @MaxInvioSoll
	--		OVVERO: BUONA L'ASSOCIAZIONE DELLE RISORSE EFFETTUATA DOPO L'ULTIMO SOLLECITO MA NON DOPO LA PRIMA REVOCA
	INSERT INTO C6Mart.GESTIONE_EMAIL
		(Rete,Cod_Fiscale,Tipo,Data_Generazione,ID_ELAB)
	SELECT  
		email.rete,
		email.cod_fiscale,
		'REVOCA_NOPRO' as tipoEmail,
		getDate() as DataGenerazione,
		@ID_ELAB AS ID_ELAB --max(Data_Generazione)
	FROM c6mart.contrattosei c6 
	INNER JOIN c6mart.gestione_Email EMAIL
		ON C6.RETE = EMAIL.RETE
		AND C6.COD_FISCALE = EMAIL.COD_FISCALE
	LEFT JOIN C6MART.CODICI_PROMOTORI_FITTIZI PF
		ON C6.COD_AGENTE BETWEEN PF.CODICEDA AND PF.CODICEA
		AND C6.RETE = PF.RETE
	WHERE 1 = 1
		AND EMAIL.Tipo IN ('S_SOLL_NOPRO','REVOCA_NOPRO')	
		AND (
				(numRevoche> 0) -- SONO NEL CASO DI REVOCA SUCCESSIVA BRAVO VALERIO
				OR 
				(numSolleciti = @MaxInvioSoll and C6.profiloAttivo = 0)-- SONO NEL CASO DI PRIMA REVOCA
			)
		AND C6.Data_FineAvanzato IS NULL
		--AND C6.GenerazioneReport = 'S'
		AND (DATEDIFF(DAY,isnull(C6.Data_UltimaRevoca,C6.Data_UltimoSollecito),GETDATE()) >= @NUMGIORNIDASOLLECITO)
		AND PF.RETE IS NULL
	GROUP BY email.rete, email.cod_fiscale
	-- Log esecuzione
	UPDATE
		LOG_ESECUZIONE
	SET
		Fine = GETDATE(),
		Tipo = 'INSERT',
		Righe = @@ROWCOUNT
	WHERE
		Nome = 'DM_GestioneEmailNOPRO' AND
		Inizio = (
			SELECT
				MAX(Inizio)
			FROM
				LOG_ESECUZIONE
			WHERE
				Nome = 'DM_GestioneEmailNOPRO'
		)
	INSERT INTO LOG_ESECUZIONE
		(Nome, Inizio, Nota)
	VALUES (
		'DM_GestioneEmailNOPRO',
		GETDATE(),
		'Elaborazione giornaliera'
	)
-- 2.BIS UPDATE CONTRATTOSEI DOPO INSERIMENTO MAIL "REVOCA"
	-- AUMENTIAMO IL NUMERO numSolleciti
	-- NON AGGIORNIAMO LA DATA Data_UltimoSollecito
	-- N.B. VERIFICARE SE IL CAMPO Data_UltimoSollecito VA AGGIORNATO
	UPDATE c6mart.contrattosei
	SET 
		numRevoche = isnull(numRevoche,0) + 1,
		data_UltimaRevoca = getDate()
	FROM c6mart.contrattosei c6 
	INNER JOIN c6mart.gestione_Email EMAIL
		ON C6.RETE = EMAIL.RETE
		AND C6.COD_FISCALE = EMAIL.COD_FISCALE
	LEFT JOIN C6MART.CODICI_PROMOTORI_FITTIZI PF
		ON C6.COD_AGENTE BETWEEN PF.CODICEDA AND PF.CODICEA
		AND C6.RETE = PF.RETE
	WHERE 1 = 1
		AND EMAIL.Tipo IN ('S_SOLL_NOPRO','REVOCA_NOPRO')	
		AND (
				(numRevoche> 0) -- SONO NEL CASO DI REVOCA SUCCESSIVA BRAVO VALERIO
				OR 
				(numSolleciti = @MaxInvioSoll and C6.profiloAttivo = 0)-- SONO NEL CASO DI PRIMA REVOCA
			)
		AND C6.Data_FineAvanzato IS NULL
		--AND C6.GenerazioneReport = 'S'
		AND (DATEDIFF(DAY,isnull(C6.Data_UltimaRevoca,C6.Data_UltimoSollecito),GETDATE()) >= @NUMGIORNIDASOLLECITO)
		AND PF.RETE IS NULL
	-- Log esecuzione
	UPDATE
		LOG_ESECUZIONE
	SET
		Fine = GETDATE(),
		Tipo = 'UPDATE',
		Righe = @@ROWCOUNT
	WHERE
		Nome = 'DM_GestioneEmailNOPRO' AND
		Inizio = (
			SELECT
				MAX(Inizio)
			FROM
				LOG_ESECUZIONE
			WHERE
				Nome = 'DM_GestioneEmailNOPRO'
		)
COMMIT
END