-- Schema: C6MartPeriodico
-- Stored Procedure: Popola_D2_S150Anagrafica

-- =============================================
-- Author:		Gentilezza Marco
-- Create date: <Create Date,,>
-- Description:	<Description,,>
-- =============================================
-- [C6MartPeriodico].[PL_DT_S150Anagrafica] 'F', 'NCLGDE26B18L388P'
CREATE procedure [C6MartPeriodico].[Popola_D2_S150Anagrafica]
AS
BEGIN
  insert into c6martperiodico.tb_D2_S150Anagrafica
	SELECT     		
		ANAG_CLIENTI.NOME + ' ' + ANAG_CLIENTI.COGNOME AS Cliente, 
        dbo.ToShortDateString(ANAG_CLIENTI.DATA_NASCITA) AS DatadiNascita, 
		ANAG_CLIENTI.ETA,
		ANAG_CLIENTI_PREV.PROFESSIONE AS Professione, 
		ANAG_CLIENTI.STATO_CIVILE AS StatoCivile, 
		CASE ANAG_CLIENTI.NUM_COMPONENTI
			WHEN 0 THEN NULL
			ELSE --CASE
				--WHEN COALESCE(ANAG_CLIENTI.NUM_FIGLI, 0) = 0 THEN CAST(ANAG_CLIENTI.NUM_COMPONENTI AS VARCHAR)
				--ELSE 
				CAST(ANAG_CLIENTI.NUM_COMPONENTI AS VARCHAR) + ' ' + CASE ANAG_CLIENTI.NUM_FIGLI
					--WHEN 0 THEN '(0 
					WHEN 1 THEN '(1 figlio)'
					ELSE '(' + CAST(ANAG_CLIENTI.NUM_FIGLI AS VARCHAR) + ' figli)'
			END
		END AS NucleoFamiliare,
        
--        ANAG_CLIENTI.INDIRIZZO + ' - ' + ANAG_CLIENTI.CAP + ' - ' + ANAG_CLIENTI.LOCALITA 
--		+ ' - (' + ANAG_CLIENTI.PROVINCIA + ')' AS Residenza, 

--		REPLACE(CONTRATTOSEI.INDIRIZZO,',','') + ', ' + CONTRATTOSEI.CAP + ' ' + CONTRATTOSEI.[Citta]
--		+ ' (' + CONTRATTOSEI.PROV + ')' AS Residenza, 
        
		--PRIMA DELLA MODIFICA DI AULETTA
		--V REPLACE (REPLACE(CONTRATTOSEI.INDIRIZZO,',','') + ', ' + isnull(CONTRATTOSEI.CAP,'') + ' ' + CONTRATTOSEI.[Citta]
		--V+ ' (' + isnull(CONTRATTOSEI.PROV,'') + ')','()','') AS Residenza, 
		
		--V Indirizzo Secondo AULETTA
		--CASE WHEN CONTRATTOSEI.[PRESSO] IS NULL 
		--	THEN
		--	REPLACE (REPLACE(CONTRATTOSEI.INDIRIZZO,',','') + ', ' + isnull(CONTRATTOSEI.CAP,'') + ' ' + CONTRATTOSEI.[Citta]
		--	+ ' (' + isnull(CONTRATTOSEI.PROV,'') + ')','()','') 
		--	ELSE
		--	REPLACE (REPLACE(CONTRATTOSEI.INDIRIZZO,',','') + ' C/O ' + CONTRATTOSEI.[PRESSO] + ', ' + isnull(CONTRATTOSEI.CAP,'') + ' ' + CONTRATTOSEI.[Citta]
		--	+ ' (' + isnull(CONTRATTOSEI.PROV,'') + ')','()','')
		--END AS Residenza,
		
		CASE WHEN CONTRATTOSEI.[PRESSO] IS NULL 
			THEN
			REPLACE (REPLACE(CONTRATTOSEI.INDIRIZZO,',','') + ', ' + CASE WHEN CONTRATTOSEI.[NAZIONE] ='ITALIA' then isnull(CONTRATTOSEI.CAP,'') else '' end  + ' ' + CONTRATTOSEI.[Citta]
			+ ' (' + CASE WHEN CONTRATTOSEI.[NAZIONE] ='ITALIA' then isnull(CONTRATTOSEI.PROV,'') else CONTRATTOSEI.[NAZIONE] end  + ')','()','') 
			ELSE
			REPLACE (REPLACE(CONTRATTOSEI.INDIRIZZO,',','') + ' C/O ' + CONTRATTOSEI.[PRESSO] + ', ' + CASE WHEN CONTRATTOSEI.[NAZIONE] ='ITALIA' then isnull(CONTRATTOSEI.CAP,'') else '' end   + ' ' + CONTRATTOSEI.[Citta]
			+ ' (' + CASE WHEN CONTRATTOSEI.[NAZIONE] ='ITALIA' then isnull(CONTRATTOSEI.PROV,'') else CONTRATTOSEI.[NAZIONE] end + ')','()','')
		END AS Residenza,
		
		
		--
		ANAG_CLIENTI.COD_FISCALE AS CodiceFiscale, 
		ANAG_PROMOTORI.ID_PROMOTORE AS CodicePB, 
		ANAG_CLIENTI.RETE AS CodiceRete, 
		CONTRATTOSEI.CODICECONTRATTO AS CodiceContratto,
		NULL AS StatoContratto, 
		dbo.ToShortDateString(CONTRATTOSEI.DATA_SOTT) AS DataSottoscrizione, 
		dbo.ToShortDateString(CONTRATTOSEI.DATA_PERF) AS DataPerfezionamento,
		NULL AS FasciaCPP, 
        ANAG_CLIENTI.E_MAIL AS IndirizzoEmail, 
		DATI_REPORT.FLAG_REPORT AS ProduzioneReport, 
		
		--ANAG_CLIENTI.INDIRIZZO AS Indirizzo, 
		CONTRATTOSEI.[Indirizzo] AS Indirizzo,
		
        --ANAG_CLIENTI.CAP AS CAP, 
        CONTRATTOSEI.[CAP] AS CAP,
        
        CONTRATTOSEI.[Citta] AS Citta,
		--ANAG_CLIENTI.LOCALITA AS Citta, 
		
		CONTRATTOSEI.[Prov] AS Provincia,
		--ANAG_CLIENTI.PROVINCIA AS Provincia,
		
		CONTRATTOSEI.[Nazione] AS  Nazione,
		--ANAG_CLIENTI.NAZIONE AS	Nazione

		CONTRATTOSEI.[Presso] AS PRESSO
	FROM        
		C6MART.contrattosei as CONTRATTOSEI
	INNER JOIN 
		C6MARTPERIODICO.ANAG_CLIENTI 
		ON 
			ANAG_CLIEN