-- Schema: C6MartPeriodico
-- Stored Procedure: Popola_S25Anagrafica

  
  
  
  
  
  
  
-- =============================================  
-- Author:  Gentilezza Marco  
-- Create date: <Create Date,,>  
-- Description: <Description,,>  
-- =============================================  
-- [C6MartPeriodico].[PL_S25Anagrafica] 'F', 'CSCGPP34A03L050L'  
CREATE procedure [C6MartPeriodico].[Popola_S25Anagrafica]  
-- @Rete char(1),   
-- @CodiceFiscale varchar(16)  
AS  
BEGIN    
  
truncate table c6martperiodico.TB_S25Anagrafica  
  insert into c6martperiodico.TB_S25Anagrafica  
 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,',','') + ', ' + 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,  
  CONTRATTOSEI.FASCIA_CPP 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,  
        CASE WHEN CONTRATTOSEI.[NAZIONE] ='ITALIA'   
           then isnull(CONTRATTOSEI.CAP,'')   
           else ''  
        end as CAP,  
          
        CONTRATTOSEI.[Citta] AS Citta,  
  --ANAG_CLIENTI.LOCALITA AS Citta,   
    
  --CONTRATTOSEI.[Prov] AS Provincia,  
  CASE WHEN CONTRATTOSEI.[NAZIONE] ='ITALIA'   
           then isnull(CONTRATTOSEI.[Prov],'')   
           else CONTRATTOSEI.[NAZIONE]  
        end as Provincia,  
    
  --ANAG_CLIENTI.PROVINCIA AS Provincia,  
    
  CONTRATTOSEI.[Nazione] AS  Nazione,  
  --ANAG_CLIENTI.NAZIONE AS Nazione  
  
  CONTRATTO