<TAG-VERSIONE-1.0.0>
<TAG-SCRIPT>

CREATE VIEW &DT/SMTABAR55V AS
  (SELECT XCODTB,
          coalesce(substr(XDATTB, 9, 20), '') as DESC_GIVA
   FROM &DT/SMTAB00F
   WHERE XTIPTB = '01GI')
<TAG-SCRIPT>

LABEL ON TABLE &DT/SMTABAR55V 
	IS 'Art. 55 VIEW SMTAB GI' 	
<TAG-SCRIPT>

CREATE VIEW &DT/FTPAU55V as (
 select DISTINCT CDDTFAT,DATAFAT,NUMFAT,GIVAFAT, 1 as ALLEG from &DT/ftpau55f
)
<TAG-SCRIPT>

LABEL ON TABLE &DT/FTPAU55V 
	IS 'Art. 55 VIEW FILE ALLEGATI' 	
<TAG-SCRIPT>

CREATE VIEW &DT/FTBKMAR55V as (
 SELECT * FROM &DT/ftbkm00f
 WHERE NRFTFM > 0
     AND NRFTFM <> 9999999
     AND DTFTFM >= 20140601
     AND FLSFFM = '*')
<TAG-SCRIPT>

LABEL ON TABLE &DT/FTBKMAR55V 
	IS 'Art. 55 VIEW FTBKM00F' 	
<TAG-SCRIPT>

CREATE VIEW &DT/FTMOVAR55V as (
 SELECT * FROM &DT/ftmov00f
 WHERE NRFTFM > 0
     AND NRFTFM <> 9999999
     AND DTFTFM >= 20140601
     AND FLSFFM = '*')
<TAG-SCRIPT>

LABEL ON TABLE &DT/FTMOVAR55V 
	IS 'Art. 55 VIEW FTMOV00F' 	
<TAG-SCRIPT>

CREATE VIEW &DT/FTBKM55V AS
(
  SELECT a.DTFTFM,
          a.NRFTFM,
          CASE
              WHEN a.FLCGFM = '' THEN '0'
              WHEN a.FLCGFM = '*' THEN '1'
          END AS FLCG,
          a.CDCFFM,
          a.CSPEFM,
          a.GIVAFM,
          a.CDDTFM,
          a.FLSFFM,
          b.DSCOCP ,
          coalesce(g.STATOTRAS, 'B') AS STATO,
          coalesce(e.CODIPA, d.CODIPA) AS IPA,
          g.PROGID,
          c.DESC_GIVA,
          coalesce(h.ALLEG, 0) AS ALLEGATO
   FROM &DT/FTBKMAR55V as a
	JOIN &DT/CGPCO00F as b ON a.CDCFFM = b.CONTCP
	JOIN &DT/SMTABAR55V  as c ON a.GIVAFM = c.XCODTB
    LEFT OUTER JOIN &DT/FTPAE55F as d ON a.CDCFFM = d.CODCLI 
    	AND a.DTFTFM >= d.DTIPA
 	LEFT OUTER JOIN &DT/FTPAE55F as e ON a.CSPEFM = e.CODCLI 
 		AND a.DTFTFM >= e.DTIPA										
 	LEFT OUTER JOIN &DT/FTPAF55F as f ON a.CDDTFM = f.CDDTFM
                                           AND a.DTFTFM = f.DTFTFM
                                           AND a.NRFTFM = f.NRFTFM
                                           AND a.GIVAFM = f.GIVAFM
 	LEFT OUTER JOIN &DT/FTPAI55F as g ON f.PROGID = g.PROGID
 	LEFT OUTER JOIN &DT/FTPAU55V as h ON  a.CDDTFM = h.CDDTFAT
					      AND a.DTFTFM = h.DATAFAT
                                           AND a.NRFTFM = h.NUMFAT
                                           AND a.GIVAFM = h.GIVAFAT
   WHERE (f.storfm is null or f.STORFM <> 'S')
     AND coalesce(e.CODIPA, d.CODIPA) IS NOT NULL
     )
<TAG-SCRIPT>

LABEL ON TABLE &DT/FTBKM55V 
	IS 'Art. 55 VIEW STORICI' 	
<TAG-SCRIPT>

CREATE VIEW &DT/FTMOV55V AS
(
  SELECT a.DTFTFM,
          a.NRFTFM,
          CASE
              WHEN a.FLCGFM = '' THEN '0'
              WHEN a.FLCGFM = '*' THEN '1'
          END AS FLCG,
          a.CDCFFM,
          a.CSPEFM,
          a.GIVAFM,
          a.CDDTFM,
          a.FLSFFM,
          b.DSCOCP ,
          coalesce(g.STATOTRAS, 'B') AS STATO,
          coalesce(e.CODIPA, d.CODIPA) AS IPA,
          g.PROGID,
          c.DESC_GIVA,
          coalesce(h.ALLEG, 0) AS ALLEGATO
   FROM &DT/FTMOVAR55V as a
	JOIN &DT/CGPCO00F as b ON a.CDCFFM = b.CONTCP
	JOIN &DT/SMTABAR55V  as c ON a.GIVAFM = c.XCODTB
    LEFT OUTER JOIN &DT/FTPAE55F as d ON a.CDCFFM = d.CODCLI 
    	AND a.DTFTFM >= d.DTIPA
 	LEFT OUTER JOIN &DT/FTPAE55F as e ON a.CSPEFM = e.CODCLI 
 		AND a.DTFTFM >= e.DTIPA										
 	LEFT OUTER JOIN &DT/FTPAF55F as f ON a.CDDTFM = f.CDDTFM
                                           AND a.DTFTFM = f.DTFTFM
                                           AND a.NRFTFM = f.NRFTFM
                                           AND a.GIVAFM = f.GIVAFM
 	LEFT OUTER JOIN &DT/FTPAI55F as g ON f.PROGID = g.PROGID
 	LEFT OUTER JOIN &DT/FTPAU55V as h ON  a.CDDTFM = h.CDDTFAT
					      AND a.DTFTFM = h.DATAFAT
                                           AND a.NRFTFM = h.NUMFAT
                                           AND a.GIVAFM = h.GIVAFAT
   WHERE (f.storfm is null or f.STORFM <> 'S')
     AND coalesce(e.CODIPA, d.CODIPA) IS NOT NULL
)     
<TAG-SCRIPT>

LABEL ON TABLE &DT/FTMOV55V 
	IS 'Art. 55 VIEW ATTUALI' 	
<TAG-SCRIPT>

<TAG-VERSIONE-1.0.1>
<TAG-SCRIPT>

CREATE VIEW &DT/ABFIS15V AS
(SELECT coalesce(substr(DATIF1, 1, 6), '') as ATTIF1, 
coalesce(substr(DATIF1, 7, 1), '') as FLNRF1, 
coalesce(substr(DATIF1, 8, 1), '') as FIDIF1, 
coalesce(substr(DATIF1, 9, 20), '') as CDFSF1,       
coalesce(substr(DATIF1, 29, 20) , '') as CFITF1,    
coalesce(substr(DATIF1, 49, 5), '') as NRIAF1,
coalesce(substr(DATIF1, 54, 8), '') as DTPRF1,
coalesce(substr(DATIF1, 62, 1), '') as ITTCF1,
coalesce(substr(DATIF1, 63, 1), '') as FIINF1,  
coalesce(substr(DATIF1, 64, 1), '') as INAVF1,   
coalesce(substr(DATIF1, 65, 1), '') as RIAVF1,
coalesce(substr(DATIF1, 66, 20), '') as CFDCF1,     
coalesce(substr(DATIF1, 86, 20), '') as CDFCF1,   
coalesce(substr(DATIF1, 106, 20), '') as CDFPF1,    
coalesce(substr(DATIF1, 126, 1), '') as FLFQF1,
coalesce(substr(DATIF1, 127, 20), '') as CDDIF1,      
coalesce(substr(DATIF1, 147, 3), '') as SERPF1, 
coalesce(substr(DATIF1, 150, 24), '') as SFRPF1,       
coalesce(substr(DATIF1, 174, 24), '') as LOPRF1,     
coalesce(substr(DATIF1, 198, 35), '') as IERPF1 
FROM &DT/ABFIS01F)

<TAG-SCRIPT>

LABEL ON TABLE &DT/ABFIS15V 
IS 'View separazione dati abfis01f' 	

<TAG-SCRIPT>

LABEL ON COLUMN &DT/ABFIS15V  (
ATTIF1 TEXT IS 'Codice attività                    ' , 
FLNRF1 TEXT IS 'Flag cf non regis. in anagr.       ' , 
FIDIF1 TEXT IS 'Firma dichiarante                  ' , 
CDFSF1 TEXT IS 'Cf soggetto obbligato              ' ,       
CFITF1 TEXT IS 'Cf intermediario                   ' ,    
NRIAF1 TEXT IS 'Nr. iscr. albo caf                 ' ,
DTPRF1 TEXT IS 'Data impegno                       ' ,
ITTCF1 TEXT IS 'Impegno trasm. telematica 1/2      ' ,
FIINF1 TEXT IS 'Firma intermediario                ' ,  
INAVF1 TEXT IS 'Invio avviso telem. interm.        ' ,   
RIAVF1 TEXT IS 'Ricez. avviso telem. interm.       ' ,
CFDCF1 TEXT IS 'Cf responsabile caf                ' ,     
CDFCF1 TEXT IS 'Cf caf                             ' ,   
CDFPF1 TEXT IS 'Cf professionista                  ' ,    
FLFQF1 TEXT IS 'Firma riquadro                     ' ,
CDDIF1 TEXT IS 'Cf soc. o ente dichiarante         ' ,      
SERPF1 TEXT IS 'Codice stato estero                ' , 
SFRPF1 TEXT IS 'Stato federato/contea              ' ,       
LOPRF1 TEXT IS 'Località estera                    ' ,     
IERPF1 TEXT IS 'Indirizzo estero                   ' )	
<TAG-SCRIPT>

<TAG-VERSIONE-2.0.0>
<TAG-SCRIPT>

<TAG-VERSIONE-2.0.1>
<TAG-SCRIPT>

<TAG-VERSIONE-3.0.0>
<TAG-SCRIPT>

<TAG-VERSIONE-4.0.0>
<TAG-SCRIPT>

<TAG-VERSIONE-5.0.0>
<TAG-SCRIPT>

<TAG-VERSIONE-6.0.0>
<TAG-SCRIPT>

<TAG-VERSIONE-7.0.0>
<TAG-SCRIPT>

<TAG-VERSIONE-8.0.0>
<TAG-SCRIPT>

<TAG-VERSIONE-9.0.0>
<TAG-SCRIPT>

CREATE VIEW &DT/CSTABDB55V AS
  (SELECT substr(K00001, 5, 3) as CDBO,
          coalesce(substr(F00002, 9, 20), '') as DESC_CDBO
   FROM &DT/CSTAB
   WHERE K00001 LIKE '01DB%')
<TAG-SCRIPT>

LABEL ON TABLE &DT/CSTABDB55V 
	IS 'PEPPOL VIEW CSTAB DB'
<TAG-SCRIPT>

CREATE VIEW &DT/FTBKMPE55V as (
 SELECT * FROM &DT/ftbkm00f
 WHERE NRBOFM > 0
     AND NRBOFM <> 9999999
     AND DTBOFM >= 20160601
     AND FLSBFM = '*')
<TAG-SCRIPT>

LABEL ON TABLE &DT/FTBKMPE55V 
	IS 'PEPPOL VIEW FTBKM00F'
<TAG-SCRIPT>

CREATE VIEW &DT/FTMOVPE55V as (
 SELECT * FROM &DT/ftmov00f
 WHERE NRBOFM > 0
     AND NRBOFM <> 9999999
     AND DTBOFM >= 20160601
     AND FLSBFM = '*')
<TAG-SCRIPT>

LABEL ON TABLE &DT/FTMOVPE55V 
	IS 'PEPPOL VIEW FTMOV00F'
<TAG-SCRIPT>

CREATE VIEW &DT/FTBKPEP55V AS
(
  SELECT a.DTBOFM,
          a.NRBOFM,
          CASE
              WHEN a.FLCGFM = '' THEN '0'
              WHEN a.FLCGFM = '*' THEN '1'
          END AS FLCG,
          a.CDCFFM,
          a.CSPEFM,
          a.CDBOFM,
          a.CDDTFM,
          a.FLSBFM,
          b.DSCOCP ,
          coalesce(f.STATOTEI, 'B') AS STATO,
          coalesce(e.CODIPA, d.CODIPA) AS IPA,
          f.PROGID,
          c.DESC_CDBO,
		  a.TDOCFM,
		  a.NRDFFM
   FROM &DT/FTBKMPE55V as a
	JOIN &DT/CGPCO00F as b ON a.CDCFFM = b.CONTCP
	JOIN &DT/CSTABDB55V  as c ON a.CDBOFM = c.CDBO
    LEFT OUTER JOIN &DT/FTPAE55F as d ON a.CDCFFM = d.CODCLI 
    	AND a.DTBOFM >= d.DTIPEPPOL AND d.PEPPOL = 'S'
 	LEFT OUTER JOIN &DT/FTPAE55F as e ON a.CSPEFM = e.CODCLI 
 		AND a.DTBOFM >= e.DTIPEPPOL	AND d.PEPPOL = 'S'	
	LEFT OUTER JOIN &DT/FTPEI55F as f ON a.TDOCFM = f.TDOCFM
	AND a.NRDFFM = f.NRDFFM
   WHERE (f.IDSTOREI is null or f.IDSTOREI <> 'S')
     AND coalesce(e.CODIPA, d.CODIPA) IS NOT NULL
)
<TAG-SCRIPT>

LABEL ON TABLE &DT/FTBKPEP55V 
	IS 'PEPPOL VIEW STORICI'
<TAG-SCRIPT>

CREATE VIEW &DT/FTPEP55V AS
(
  SELECT a.DTBOFM,
          a.NRBOFM,
          CASE
              WHEN a.FLCGFM = '' THEN '0'
              WHEN a.FLCGFM = '*' THEN '1'
          END AS FLCG,
          a.CDCFFM,
          a.CSPEFM,
          a.CDBOFM,
          a.CDDTFM,
          a.FLSBFM,
          b.DSCOCP ,
          coalesce(f.STATOTEI, 'B') AS STATO,
          coalesce(e.CODIPA, d.CODIPA) AS IPA,
          f.PROGID,
          c.DESC_CDBO,
		  a.TDOCFM,
		  a.NRDFFM
   FROM &DT/FTMOVPE55V as a
	JOIN &DT/CGPCO00F as b ON a.CDCFFM = b.CONTCP
	JOIN &DT/CSTABDB55V  as c ON a.CDBOFM = c.CDBO
    LEFT OUTER JOIN &DT/FTPAE55F as d ON a.CDCFFM = d.CODCLI 
    	AND a.DTBOFM >= d.DTIPEPPOL AND d.PEPPOL = 'S'
 	LEFT OUTER JOIN &DT/FTPAE55F as e ON a.CSPEFM = e.CODCLI 
 		AND a.DTBOFM >= e.DTIPEPPOL	AND d.PEPPOL = 'S'	
	LEFT OUTER JOIN &DT/FTPEI55F as f ON a.TDOCFM = f.TDOCFM
	AND a.NRDFFM = f.NRDFFM
   WHERE (f.IDSTOREI is null or f.IDSTOREI <> 'S')
     AND coalesce(e.CODIPA, d.CODIPA) IS NOT NULL
)
<TAG-SCRIPT>

DROP VIEW &DT/FTBKM55V
<TAG-SCRIPT>

CREATE VIEW &DT/FTBKM55V AS
(
  SELECT a.DTFTFM,
          a.NRFTFM,
          CASE
              WHEN a.FLCGFM = '' THEN '0'
              WHEN a.FLCGFM = '*' THEN '1'
          END AS FLCG,
          a.CDCFFM,
          a.CSPEFM,
          a.GIVAFM,
          a.CDDTFM,
          a.FLSFFM,
          b.DSCOCP ,
          coalesce(g.STATOTRAS, 'B') AS STATO,
          coalesce(e.CODIPA, d.CODIPA) AS IPA,
          g.PROGID,
          c.DESC_GIVA,
          coalesce(h.ALLEG, 0) AS ALLEGATO,
          coalesce(G.EXTID, '') AS EXTID  
   FROM &DT/FTBKMAR55V as a
	JOIN &DT/CGPCO00F as b ON a.CDCFFM = b.CONTCP
	JOIN &DT/SMTABAR55V  as c ON a.GIVAFM = c.XCODTB
    LEFT OUTER JOIN &DT/FTPAE55F as d ON a.CDCFFM = d.CODCLI 
    	AND a.DTFTFM >= d.DTIPA
 	LEFT OUTER JOIN &DT/FTPAE55F as e ON a.CSPEFM = e.CODCLI 
 		AND a.DTFTFM >= e.DTIPA										
 	LEFT OUTER JOIN &DT/FTPAF55F as f ON a.CDDTFM = f.CDDTFM
                                           AND a.DTFTFM = f.DTFTFM
                                           AND a.NRFTFM = f.NRFTFM
                                           AND a.GIVAFM = f.GIVAFM
 	LEFT OUTER JOIN &DT/FTPAI55F as g ON f.PROGID = g.PROGID
 	LEFT OUTER JOIN &DT/FTPAU55V as h ON  a.CDDTFM = h.CDDTFAT
					      AND a.DTFTFM = h.DATAFAT
                                           AND a.NRFTFM = h.NUMFAT
                                           AND a.GIVAFM = h.GIVAFAT
   WHERE (f.storfm is null or f.STORFM <> 'S')
     AND coalesce(e.CODIPA, d.CODIPA) IS NOT NULL
     )
<TAG-SCRIPT>

LABEL ON TABLE &DT/FTBKM55V 
	IS 'Art. 55 VIEW STORICI' 	
<TAG-SCRIPT>

DROP VIEW &DT/FTMOV55V
<TAG-SCRIPT>

CREATE VIEW &DT/FTMOV55V AS
(
  SELECT a.DTFTFM,
          a.NRFTFM,
          CASE
              WHEN a.FLCGFM = '' THEN '0'
              WHEN a.FLCGFM = '*' THEN '1'
          END AS FLCG,
          a.CDCFFM,
          a.CSPEFM,
          a.GIVAFM,
          a.CDDTFM,
          a.FLSFFM,
          b.DSCOCP ,
          coalesce(g.STATOTRAS, 'B') AS STATO,
          coalesce(e.CODIPA, d.CODIPA) AS IPA,
          g.PROGID,
          c.DESC_GIVA,
          coalesce(h.ALLEG, 0) AS ALLEGATO,
          coalesce(G.EXTID, '') AS EXTID  
   FROM &DT/FTMOVAR55V as a
	JOIN &DT/CGPCO00F as b ON a.CDCFFM = b.CONTCP
	JOIN &DT/SMTABAR55V  as c ON a.GIVAFM = c.XCODTB
    LEFT OUTER JOIN &DT/FTPAE55F as d ON a.CDCFFM = d.CODCLI 
    	AND a.DTFTFM >= d.DTIPA
 	LEFT OUTER JOIN &DT/FTPAE55F as e ON a.CSPEFM = e.CODCLI 
 		AND a.DTFTFM >= e.DTIPA										
 	LEFT OUTER JOIN &DT/FTPAF55F as f ON a.CDDTFM = f.CDDTFM
                                           AND a.DTFTFM = f.DTFTFM
                                           AND a.NRFTFM = f.NRFTFM
                                           AND a.GIVAFM = f.GIVAFM
 	LEFT OUTER JOIN &DT/FTPAI55F as g ON f.PROGID = g.PROGID
 	LEFT OUTER JOIN &DT/FTPAU55V as h ON  a.CDDTFM = h.CDDTFAT
					      AND a.DTFTFM = h.DATAFAT
                                           AND a.NRFTFM = h.NUMFAT
                                           AND a.GIVAFM = h.GIVAFAT
   WHERE (f.storfm is null or f.STORFM <> 'S')
     AND coalesce(e.CODIPA, d.CODIPA) IS NOT NULL
)     
<TAG-SCRIPT>

LABEL ON TABLE &DT/FTMOV55V 
	IS 'Art. 55 VIEW ATTUALI' 	
	
<TAG-SCRIPT>

<TAG-VERSIONE-10.0.0>
<TAG-SCRIPT>

<TAG-VERSIONE-11.0.0>
<TAG-SCRIPT>

DROP VIEW &DT/FTBKM55V
<TAG-SCRIPT>

CREATE VIEW &DT/FTBKM55V AS
(
  SELECT a.DTFTFM,
          a.NRFTFM,
          CASE
              WHEN a.FLCGFM = '' THEN '0'
              WHEN a.FLCGFM = '*' THEN '1'
          END AS FLCG,
          a.CDCFFM,
          a.CSPEFM,
          a.GIVAFM,
          a.CDDTFM,
          a.FLSFFM,
          b.DSCOCP ,
          coalesce(CASE WHEN coalesce(G.EXTID, '') = '' THEN g.STATOTRAS 
                   WHEN g.STATOTRAS = 'V' and x.PROGID IS NOT NULL THEN 'C' 
                   ELSE g.STATOTRAS END
          , 'B') AS STATO,
          coalesce(e.CODIPA, d.CODIPA) AS IPA,
          g.PROGID,
          c.DESC_GIVA,
          coalesce(h.ALLEG, 0) AS ALLEGATO,
          coalesce(G.EXTID, '') AS EXTID,
          CASE WHEN x.PROGID IS NULL THEN '0' ELSE '1' END AS ERRORI ,          
          CASE WHEN coalesce(e.PAOPRIV, d.PAOPRIV) = 'R' THEN '1' ELSE '0' END AS PRIVATO,
          coalesce(e.MAILPEC, d.MAILPEC) as MAILPEC,
          coalesce(g.NOMEXML, ' ') AS NOMEXML
   FROM &DT/FTBKMAR55V as a
	JOIN &DT/CGPCO00F as b ON a.CDCFFM = b.CONTCP
	JOIN &DT/SMTABAR55V  as c ON a.GIVAFM = c.XCODTB
    LEFT OUTER JOIN &DT/FTPAE55F as d ON a.CDCFFM = d.CODCLI 
    	AND a.DTFTFM >= d.DTIPA
 	LEFT OUTER JOIN &DT/FTPAE55F as e ON a.CSPEFM = e.CODCLI 
 		AND a.DTFTFM >= e.DTIPA										
 	LEFT OUTER JOIN &DT/FTPAF55F as f ON a.CDDTFM = f.CDDTFM
                                           AND a.DTFTFM = f.DTFTFM
                                           AND a.NRFTFM = f.NRFTFM
                                           AND a.GIVAFM = f.GIVAFM
 	LEFT OUTER JOIN &DT/FTPAI55F as g ON f.PROGID = g.PROGID
 	LEFT OUTER JOIN &DT/FTPAU55V as h ON  a.CDDTFM = h.CDDTFAT
					      AND a.DTFTFM = h.DATAFAT
                                           AND a.NRFTFM = h.NUMFAT
                                           AND a.GIVAFM = h.GIVAFAT
   LEFT OUTER JOIN &DT/FTPAX55F as x ON (g.PROGID = x.PROGID and x.PROGRIGA = 0)
   WHERE (f.storfm is null or f.STORFM <> 'S')
     AND coalesce(e.CODIPA, d.CODIPA) IS NOT NULL
     )

<TAG-SCRIPT>

LABEL ON TABLE &DT/FTBKM55V 
	IS 'Art. 55 VIEW STORICI' 	
<TAG-SCRIPT>

DROP VIEW &DT/FTMOV55V
<TAG-SCRIPT>

CREATE VIEW &DT/FTMOV55V AS
(
  SELECT a.DTFTFM,
          a.NRFTFM,
          CASE
              WHEN a.FLCGFM = '' THEN '0'
              WHEN a.FLCGFM = '*' THEN '1'
          END AS FLCG,
          a.CDCFFM,
          a.CSPEFM,
          a.GIVAFM,
          a.CDDTFM,
          a.FLSFFM,
          b.DSCOCP ,
          coalesce(CASE WHEN coalesce(G.EXTID, '') = '' THEN g.STATOTRAS 
                   WHEN g.STATOTRAS = 'V' and x.PROGID IS NOT NULL THEN 'C' 
                   ELSE g.STATOTRAS END
          , 'B') AS STATO,
          coalesce(e.CODIPA, d.CODIPA) AS IPA,
          g.PROGID,
          c.DESC_GIVA,
          coalesce(h.ALLEG, 0) AS ALLEGATO,
          coalesce(G.EXTID, '') AS EXTID,
          CASE WHEN x.PROGID IS NULL THEN '0' ELSE '1' END AS ERRORI ,          
          CASE WHEN coalesce(e.PAOPRIV, d.PAOPRIV) = 'R' THEN '1' ELSE '0' END AS PRIVATO,
          coalesce(e.MAILPEC, d.MAILPEC) as MAILPEC,          
          coalesce(g.NOMEXML, ' ') AS NOMEXML            
   FROM &DT/FTMOVAR55V as a
	JOIN &DT/CGPCO00F as b ON a.CDCFFM = b.CONTCP
	JOIN &DT/SMTABAR55V  as c ON a.GIVAFM = c.XCODTB
    LEFT OUTER JOIN &DT/FTPAE55F as d ON a.CDCFFM = d.CODCLI 
    	AND a.DTFTFM >= d.DTIPA
 	LEFT OUTER JOIN &DT/FTPAE55F as e ON a.CSPEFM = e.CODCLI 
 		AND a.DTFTFM >= e.DTIPA										
 	LEFT OUTER JOIN &DT/FTPAF55F as f ON a.CDDTFM = f.CDDTFM
                                           AND a.DTFTFM = f.DTFTFM
                                           AND a.NRFTFM = f.NRFTFM
                                           AND a.GIVAFM = f.GIVAFM
 	LEFT OUTER JOIN &DT/FTPAI55F as g ON f.PROGID = g.PROGID
 	LEFT OUTER JOIN &DT/FTPAU55V as h ON  a.CDDTFM = h.CDDTFAT
					      AND a.DTFTFM = h.DATAFAT
                                           AND a.NRFTFM = h.NUMFAT
                                           AND a.GIVAFM = h.GIVAFAT
   LEFT OUTER JOIN &DT/FTPAX55F as x ON (g.PROGID = x.PROGID and x.PROGRIGA = 0)
   WHERE (f.storfm is null or f.STORFM <> 'S')
     AND coalesce(e.CODIPA, d.CODIPA) IS NOT NULL
) 

<TAG-SCRIPT>

LABEL ON TABLE &DT/FTMOV55V 
	IS 'Art. 55 VIEW ATTUALI' 	
<TAG-SCRIPT>

<TAG-VERSIONE-12.0.0>
<TAG-SCRIPT>

DROP VIEW &DT/FTBKM55V
<TAG-SCRIPT>

CREATE VIEW &DT/FTBKM55V AS
(
  SELECT a.DTFTFM,
          a.NRFTFM,
          CASE
              WHEN a.FLCGFM = '' THEN '0'
              WHEN a.FLCGFM = '*' THEN '1'
          END AS FLCG,
          a.CDCFFM,
          a.CSPEFM,
          a.GIVAFM,
          a.CDDTFM,
          a.FLSFFM,
          b.DSCOCP ,
          coalesce(CASE WHEN coalesce(G.EXTID, '') = '' THEN g.STATOTRAS 
                   WHEN g.STATOTRAS = 'V' and x.PROGID IS NOT NULL THEN 'C' 
                   ELSE g.STATOTRAS END
          , 'B') AS STATO,
          case when coalesce(d.PAOPRIV ,'') = 'R' THEN d.CODIPA ELSE coalesce(e.CODIPA, d.CODIPA) END AS IPA ,
          g.PROGID,
          c.DESC_GIVA,
          coalesce(h.ALLEG, 0) AS ALLEGATO,
          coalesce(G.EXTID, '') AS EXTID,
          CASE WHEN x.PROGID IS NULL THEN '0' ELSE '1' END AS ERRORI ,          
          CASE WHEN coalesce(d.PAOPRIV, '') = 'R' THEN '1' ELSE '0' END AS PRIVATO,
          coalesce(d.MAILPEC, SPACE(256)) as MAILPEC,
          coalesce(g.NOMEXML, ' ') AS NOMEXML
   FROM &DT/FTBKMAR55V as a
	JOIN &DT/CGPCO00F as b ON a.CDCFFM = b.CONTCP
	JOIN &DT/SMTABAR55V  as c ON a.GIVAFM = c.XCODTB
    LEFT OUTER JOIN &DT/FTPAE55F as d ON 
     	d.CDDITTA = ''
        AND a.CDCFFM = d.CODCLI 
    	AND a.DTFTFM >= d.DTIPA
 	LEFT OUTER JOIN &DT/FTPAE55F as e ON 
 	    e.CDDITTA = ''
 	    AND a.CSPEFM = e.CODCLI
 	 	AND e.PAOPRIV = ' '								 
 		AND a.DTFTFM >= e.DTIPA										
 	LEFT OUTER JOIN &DT/FTPAF55F as f ON a.CDDTFM = f.CDDTFM
                                           AND a.DTFTFM = f.DTFTFM
                                           AND a.NRFTFM = f.NRFTFM
                                           AND a.GIVAFM = f.GIVAFM
 	LEFT OUTER JOIN &DT/FTPAI55F as g ON f.PROGID = g.PROGID
 	LEFT OUTER JOIN &DT/FTPAU55V as h ON  a.CDDTFM = h.CDDTFAT
					      AND a.DTFTFM = h.DATAFAT
                                           AND a.NRFTFM = h.NUMFAT
                                           AND a.GIVAFM = h.GIVAFAT
   LEFT OUTER JOIN &DT/FTPAX55F as x ON (g.PROGID = x.PROGID and x.PROGRIGA = 0)
   WHERE (f.storfm is null or f.STORFM <> 'S')
     AND coalesce(e.CODIPA, d.CODIPA) IS NOT NULL
     )
<TAG-SCRIPT>

LABEL ON TABLE &DT/FTBKM55V 
	IS 'Art. 55 VIEW STORICI' 	
<TAG-SCRIPT>

DROP VIEW &DT/FTMOV55V
<TAG-SCRIPT>

CREATE VIEW &DT/FTMOV55V AS
(
  SELECT a.DTFTFM,
          a.NRFTFM,
          CASE
              WHEN a.FLCGFM = '' THEN '0'
              WHEN a.FLCGFM = '*' THEN '1'
          END AS FLCG,
          a.CDCFFM,
          a.CSPEFM,
          a.GIVAFM,
          a.CDDTFM,
          a.FLSFFM,
          b.DSCOCP ,
          coalesce(CASE WHEN coalesce(G.EXTID, '') = '' THEN g.STATOTRAS 
                   WHEN g.STATOTRAS = 'V' and x.PROGID IS NOT NULL THEN 'C' 
                   ELSE g.STATOTRAS END
          , 'B') AS STATO,
          case when coalesce(d.PAOPRIV ,'') = 'R' THEN d.CODIPA ELSE coalesce(e.CODIPA, d.CODIPA) END AS IPA ,
          g.PROGID,
          c.DESC_GIVA,
          coalesce(h.ALLEG, 0) AS ALLEGATO,
          coalesce(G.EXTID, '') AS EXTID,
          CASE WHEN x.PROGID IS NULL THEN '0' ELSE '1' END AS ERRORI ,          
          CASE WHEN coalesce(d.PAOPRIV, '') = 'R' THEN '1' ELSE '0' END AS PRIVATO,
          coalesce(d.MAILPEC, SPACE(256)) as MAILPEC,
          coalesce(g.NOMEXML, ' ') AS NOMEXML            
   FROM &DT/FTMOVAR55V as a
	JOIN &DT/CGPCO00F as b ON a.CDCFFM = b.CONTCP
	JOIN &DT/SMTABAR55V  as c ON a.GIVAFM = c.XCODTB
    LEFT OUTER JOIN &DT/FTPAE55F as d ON 
         	d.CDDITTA = ''
        AND a.CDCFFM = d.CODCLI 
    	AND a.DTFTFM >= d.DTIPA
 	LEFT OUTER JOIN &DT/FTPAE55F as e ON 
 	    e.CDDITTA = ''
 	    AND a.CSPEFM = e.CODCLI
 	 	AND e.PAOPRIV = ' '								 
 		AND a.DTFTFM >= e.DTIPA										
 	LEFT OUTER JOIN &DT/FTPAF55F as f ON a.CDDTFM = f.CDDTFM
                                           AND a.DTFTFM = f.DTFTFM
                                           AND a.NRFTFM = f.NRFTFM
                                           AND a.GIVAFM = f.GIVAFM
 	LEFT OUTER JOIN &DT/FTPAI55F as g ON f.PROGID = g.PROGID
 	LEFT OUTER JOIN &DT/FTPAU55V as h ON  a.CDDTFM = h.CDDTFAT
					      AND a.DTFTFM = h.DATAFAT
                                           AND a.NRFTFM = h.NUMFAT
                                           AND a.GIVAFM = h.GIVAFAT
   LEFT OUTER JOIN &DT/FTPAX55F as x ON (g.PROGID = x.PROGID and x.PROGRIGA = 0)
   WHERE (f.storfm is null or f.STORFM <> 'S')
     AND coalesce(e.CODIPA, d.CODIPA) IS NOT NULL
)     
<TAG-SCRIPT>

LABEL ON TABLE &DT/FTMOV55V 
	IS 'Art. 55 VIEW ATTUALI' 	
<TAG-SCRIPT>

<TAG-VERSIONE-13.0.0>
<TAG-SCRIPT>

DROP VIEW &DT/FTBKM55V
<TAG-SCRIPT>

DROP VIEW &DT/FTBKMAR55V
<TAG-SCRIPT>

CREATE VIEW &DT/FTBKMAR55V as (
  SELECT f.*,  
 CASE WHEN coalesce(af.CIFAFMA , '') = '' THEN f.CDCFFM ELSE af.CIFAFMA END AS CIFAFMA 
 FROM &DT/ftbkm00f AS F
  LEFT JOIN &DT/FTBKMA0F AS af ON 
    f.CDDTFM = af.CDDTFMA AND
    f.TDOCFM = af.TDOCFMA AND
    f.NRDFFM = af.NRDFFMA AND
    f.NRRGFM = af.NRRGFMA AND
    f.NSRGFM = af.NSRGFMA
 WHERE f.CDDTFM ='01' AND f.NRFTFM > 0
     AND f.NRFTFM <> 9999999
     AND f.DTFTFM >= 20140601
     AND f.FLSFFM = '*')
<TAG-SCRIPT>

LABEL ON TABLE &DT/FTBKMAR55V 
	IS 'Art. 55 VIEW FTBKM00F' 	
<TAG-SCRIPT>

CREATE VIEW &DT/FTBKM55V AS
(
  SELECT a.DTFTFM,
          a.NRFTFM,
          CASE
              WHEN a.FLCGFM = '' THEN '0'
              WHEN a.FLCGFM = '*' THEN '1'
          END AS FLCG,
          a.CIFAFMA AS CDCFFM,
          a.CDCFFM AS f0CDCFFM,
          a.CSPEFM,
          a.GIVAFM,
          a.CDDTFM,
          a.FLSFFM,
          b.DSCOCP ,
          coalesce(CASE WHEN coalesce(G.EXTID, '') = '' THEN g.STATOTRAS 
                   WHEN g.STATOTRAS = 'V' and x.PROGID IS NOT NULL THEN 'C' 
                   ELSE g.STATOTRAS END
          , 'B') AS STATO,
          case when coalesce(d.PAOPRIV ,'') = 'R' THEN d.CODIPA ELSE coalesce(e.CODIPA, d.CODIPA) END AS IPA ,
          g.PROGID,
          c.DESC_GIVA,
          coalesce(h.ALLEG, 0) AS ALLEGATO,
          coalesce(G.EXTID, '') AS EXTID,
          CASE WHEN x.PROGID IS NULL THEN '0' ELSE '1' END AS ERRORI ,          
          CASE WHEN coalesce(d.PAOPRIV, '') = 'R' THEN '1' ELSE '0' END AS PRIVATO,
          coalesce(d.MAILPEC, SPACE(256)) as MAILPEC,
          coalesce(g.NOMEXML, ' ') AS NOMEXML
   FROM &DT/FTBKMAR55V as a
	JOIN &DT/CGPCO00F as b ON a.CIFAFMA = b.CONTCP
	JOIN &DT/SMTABAR55V  as c ON a.GIVAFM = c.XCODTB
    LEFT OUTER JOIN &DT/FTPAE55F as d ON 
     	d.CDDITTA = ''
        AND a.CIFAFMA = d.CODCLI 
    	AND a.DTFTFM >= d.DTIPA
 	LEFT OUTER JOIN &DT/FTPAE55F as e ON 
 	    e.CDDITTA = ''
 	    AND a.CSPEFM = e.CODCLI
 	 	AND e.PAOPRIV = ' '								 
 		AND a.DTFTFM >= e.DTIPA										
 	LEFT OUTER JOIN &DT/FTPAF55F as f ON a.CDDTFM = f.CDDTFM
                                           AND a.DTFTFM = f.DTFTFM
                                           AND a.NRFTFM = f.NRFTFM
                                           AND a.GIVAFM = f.GIVAFM
 	LEFT OUTER JOIN &DT/FTPAI55F as g ON f.PROGID = g.PROGID
 	LEFT OUTER JOIN &DT/FTPAU55V as h ON  a.CDDTFM = h.CDDTFAT
					      AND a.DTFTFM = h.DATAFAT
                                           AND a.NRFTFM = h.NUMFAT
                                           AND a.GIVAFM = h.GIVAFAT
   LEFT OUTER JOIN &DT/FTPAX55F as x ON (g.PROGID = x.PROGID and x.PROGRIGA = 0)
   WHERE (f.storfm is null or f.STORFM <> 'S')
     AND coalesce(e.CODIPA, d.CODIPA) IS NOT NULL
     )
<TAG-SCRIPT>

LABEL ON TABLE &DT/FTBKM55V 
	IS 'Art. 55 VIEW STORICI' 	
<TAG-SCRIPT>

DROP VIEW &DT/FTMOV55V
<TAG-SCRIPT>

DROP VIEW &DT/FTMOVAR55V
<TAG-SCRIPT>

CREATE VIEW &DT/FTMOVAR55V as (
 SELECT f.*,  
 CASE WHEN coalesce(af.CIFAFMA , '') = '' THEN f.CDCFFM ELSE af.CIFAFMA END AS CIFAFMA 
 FROM &DT/ftmov00f AS f
   LEFT JOIN &DT/FTMOVA0F AS af ON 
    f.CDDTFM = af.CDDTFMA AND
    f.TDOCFM = af.TDOCFMA AND
    f.NRDFFM = af.NRDFFMA AND
    f.NRRGFM = af.NRRGFMA AND
    f.NSRGFM = af.NSRGFMA
 WHERE f.CDDTFM ='01' AND f.NRFTFM > 0
     AND f.NRFTFM <> 9999999
     AND f.DTFTFM >= 20140601
     AND f.FLSFFM = '*')
<TAG-SCRIPT>

LABEL ON TABLE &DT/FTMOVAR55V 
	IS 'Art. 55 VIEW FTMOV00F' 	
<TAG-SCRIPT>

CREATE VIEW &DT/FTMOV55V AS
(
  SELECT a.DTFTFM,
          a.NRFTFM,
          CASE
              WHEN a.FLCGFM = '' THEN '0'
              WHEN a.FLCGFM = '*' THEN '1'
          END AS FLCG,
          a.CIFAFMA AS CDCFFM,
          a.CDCFFM AS f0CDCFFM,
          a.CSPEFM,
          a.GIVAFM,
          a.CDDTFM,
          a.FLSFFM,
          b.DSCOCP ,
          coalesce(CASE WHEN coalesce(G.EXTID, '') = '' THEN g.STATOTRAS 
                   WHEN g.STATOTRAS = 'V' and x.PROGID IS NOT NULL THEN 'C' 
                   ELSE g.STATOTRAS END
          , 'B') AS STATO,
          case when coalesce(d.PAOPRIV ,'') = 'R' THEN d.CODIPA ELSE coalesce(e.CODIPA, d.CODIPA) END AS IPA ,
          g.PROGID,
          c.DESC_GIVA,
          coalesce(h.ALLEG, 0) AS ALLEGATO,
          coalesce(G.EXTID, '') AS EXTID,
          CASE WHEN x.PROGID IS NULL THEN '0' ELSE '1' END AS ERRORI ,          
          CASE WHEN coalesce(d.PAOPRIV, '') = 'R' THEN '1' ELSE '0' END AS PRIVATO,
          coalesce(d.MAILPEC, SPACE(256)) as MAILPEC,
          coalesce(g.NOMEXML, ' ') AS NOMEXML            
   FROM &DT/FTMOVAR55V as a
	JOIN &DT/CGPCO00F as b ON a.CIFAFMA = b.CONTCP
	JOIN &DT/SMTABAR55V  as c ON a.GIVAFM = c.XCODTB
    LEFT OUTER JOIN &DT/FTPAE55F as d ON 
         	d.CDDITTA = ''
        AND a.CIFAFMA = d.CODCLI 
    	AND a.DTFTFM >= d.DTIPA
 	LEFT OUTER JOIN &DT/FTPAE55F as e ON 
 	    e.CDDITTA = ''
 	    AND a.CSPEFM = e.CODCLI
 	 	AND e.PAOPRIV = ' '								 
 		AND a.DTFTFM >= e.DTIPA										
 	LEFT OUTER JOIN &DT/FTPAF55F as f ON a.CDDTFM = f.CDDTFM
                                           AND a.DTFTFM = f.DTFTFM
                                           AND a.NRFTFM = f.NRFTFM
                                           AND a.GIVAFM = f.GIVAFM
 	LEFT OUTER JOIN &DT/FTPAI55F as g ON f.PROGID = g.PROGID
 	LEFT OUTER JOIN &DT/FTPAU55V as h ON  a.CDDTFM = h.CDDTFAT
					      AND a.DTFTFM = h.DATAFAT
                                           AND a.NRFTFM = h.NUMFAT
                                           AND a.GIVAFM = h.GIVAFAT
   LEFT OUTER JOIN &DT/FTPAX55F as x ON (g.PROGID = x.PROGID and x.PROGRIGA = 0)
   WHERE (f.storfm is null or f.STORFM <> 'S')
     AND coalesce(e.CODIPA, d.CODIPA) IS NOT NULL
)     
<TAG-SCRIPT>

LABEL ON TABLE &DT/FTMOV55V 
	IS 'Art. 55 VIEW ATTUALI' 	
<TAG-SCRIPT>

<TAG-VERSIONE-14.0.0>
<TAG-SCRIPT>
<TAG-VERSIONE-14.1.0>
<TAG-SCRIPT>

DROP VIEW &DT/FTBKM55V
<TAG-SCRIPT>

CREATE VIEW &DT/FTBKM55V AS
(
  SELECT a.DTFTFM,
          a.NRFTFM,
          CASE
              WHEN a.FLCGFM = '' THEN '0'
              WHEN a.FLCGFM = '*' THEN '1'
          END AS FLCG,
          a.CIFAFMA AS CDCFFM,
          a.CDCFFM AS f0CDCFFM,          
          a.CSPEFM,
          a.GIVAFM,
          a.CDDTFM,
          a.FLSFFM,
          b.DSCOCP ,
          coalesce(CASE
          	WHEN g.STATOTRAS = 'T' and x.PROGID IS NOT NULL THEN 'E' 
          	WHEN coalesce(G.EXTID, '') = '' THEN g.STATOTRAS 
            WHEN g.STATOTRAS = 'V' and x.PROGID IS NOT NULL THEN 'C' 
            ELSE g.STATOTRAS END
          	, 'B') AS STATO,
          case when coalesce(d.PAOPRIV ,'') = 'R' THEN d.CODIPA ELSE coalesce(e.CODIPA, d.CODIPA) END AS IPA ,
          g.PROGID,
          c.DESC_GIVA,
          coalesce(h.ALLEG, 0) AS ALLEGATO,
          coalesce(G.EXTID, '') AS EXTID,
          CASE WHEN x.PROGID IS NULL THEN '0' ELSE '1' END AS ERRORI ,          
          CASE WHEN coalesce(d.PAOPRIV, '') = 'R' THEN '1' ELSE '0' END AS PRIVATO,
          coalesce(d.MAILPEC, SPACE(256)) as MAILPEC,
          coalesce(g.NOMEXML, ' ') AS NOMEXML,
          coalesce(g.SERVTRA, ' ') AS SERVTRA,
          coalesce(f.NUMEFATT,' ') AS NUMEFATT                
   FROM &DT/FTBKMAR55V as a
	JOIN &DT/CGPCO00F as b ON a.CIFAFMA = b.CONTCP
	JOIN &DT/SMTABAR55V  as c ON a.GIVAFM = c.XCODTB
    LEFT OUTER JOIN &DT/FTPAE55F as d ON 
     	d.CDDITTA = ''
        AND a.CIFAFMA = d.CODCLI 
    	AND a.DTFTFM >= d.DTIPA
 	LEFT OUTER JOIN &DT/FTPAE55F as e ON 
 	    e.CDDITTA = ''
 	    AND a.CSPEFM = e.CODCLI
 	 	AND e.PAOPRIV = ' '								 
 		AND a.DTFTFM >= e.DTIPA										
 	LEFT OUTER JOIN &DT/FTPAF55F as f ON a.CDDTFM = f.CDDTFM
                                           AND a.DTFTFM = f.DTFTFM
                                           AND a.NRFTFM = f.NRFTFM
                                           AND a.GIVAFM = f.GIVAFM
 	LEFT OUTER JOIN &DT/FTPAI55F as g ON f.PROGID = g.PROGID
 	LEFT OUTER JOIN &DT/FTPAU55V as h ON  a.CDDTFM = h.CDDTFAT
					      AND a.DTFTFM = h.DATAFAT
                                           AND a.NRFTFM = h.NUMFAT
                                           AND a.GIVAFM = h.GIVAFAT
   LEFT OUTER JOIN &DT/FTPAX55F as x ON (g.PROGID = x.PROGID and x.PROGRIGA = 0)
   WHERE (f.storfm is null or f.STORFM <> 'S')
     AND coalesce(e.CODIPA, d.CODIPA) IS NOT NULL
     )
<TAG-SCRIPT>

LABEL ON TABLE &DT/FTBKM55V 
	IS 'Art. 55 VIEW STORICI' 	
<TAG-SCRIPT>

DROP VIEW &DT/FTMOV55V
<TAG-SCRIPT>

CREATE VIEW &DT/FTMOV55V AS
(
  SELECT a.DTFTFM,
          a.NRFTFM,
          CASE
              WHEN a.FLCGFM = '' THEN '0'
              WHEN a.FLCGFM = '*' THEN '1'
          END AS FLCG,
          a.CIFAFMA AS CDCFFM,
          a.CDCFFM AS f0CDCFFM,          
          a.CSPEFM,
          a.GIVAFM,
          a.CDDTFM,
          a.FLSFFM,
          b.DSCOCP ,
          coalesce(CASE
          	WHEN g.STATOTRAS = 'T' and x.PROGID IS NOT NULL THEN 'E' 
          	WHEN coalesce(G.EXTID, '') = '' THEN g.STATOTRAS 
          	WHEN g.STATOTRAS = 'V' and x.PROGID IS NOT NULL THEN 'C' 
          	ELSE g.STATOTRAS END
          	, 'B') AS STATO,
          case when coalesce(d.PAOPRIV ,'') = 'R' THEN d.CODIPA ELSE coalesce(e.CODIPA, d.CODIPA) END AS IPA ,
          g.PROGID,
          c.DESC_GIVA,
          coalesce(h.ALLEG, 0) AS ALLEGATO,
          coalesce(G.EXTID, '') AS EXTID,
          CASE WHEN x.PROGID IS NULL THEN '0' ELSE '1' END AS ERRORI ,          
          CASE WHEN coalesce(d.PAOPRIV, '') = 'R' THEN '1' ELSE '0' END AS PRIVATO,
          coalesce(d.MAILPEC, SPACE(256)) as MAILPEC,
          coalesce(g.NOMEXML, ' ') AS NOMEXML,            
          coalesce(g.SERVTRA, ' ') AS SERVTRA,
          coalesce(f.NUMEFATT,' ') AS NUMEFATT             
   FROM &DT/FTMOVAR55V as a
	JOIN &DT/CGPCO00F as b ON a.CIFAFMA = b.CONTCP
	JOIN &DT/SMTABAR55V  as c ON a.GIVAFM = c.XCODTB
    LEFT OUTER JOIN &DT/FTPAE55F as d ON 
         	d.CDDITTA = ''
        AND a.CIFAFMA = d.CODCLI 
    	AND a.DTFTFM >= d.DTIPA
 	LEFT OUTER JOIN &DT/FTPAE55F as e ON 
 	    e.CDDITTA = ''
 	    AND a.CSPEFM = e.CODCLI
 	 	AND e.PAOPRIV = ' '								 
 		AND a.DTFTFM >= e.DTIPA										
 	LEFT OUTER JOIN &DT/FTPAF55F as f ON a.CDDTFM = f.CDDTFM
                                           AND a.DTFTFM = f.DTFTFM
                                           AND a.NRFTFM = f.NRFTFM
                                           AND a.GIVAFM = f.GIVAFM
 	LEFT OUTER JOIN &DT/FTPAI55F as g ON f.PROGID = g.PROGID
 	LEFT OUTER JOIN &DT/FTPAU55V as h ON  a.CDDTFM = h.CDDTFAT
					      AND a.DTFTFM = h.DATAFAT
                                           AND a.NRFTFM = h.NUMFAT
                                           AND a.GIVAFM = h.GIVAFAT
   LEFT OUTER JOIN &DT/FTPAX55F as x ON (g.PROGID = x.PROGID and x.PROGRIGA = 0)
   WHERE (f.storfm is null or f.STORFM <> 'S')
     AND coalesce(e.CODIPA, d.CODIPA) IS NOT NULL
)     
<TAG-SCRIPT>

LABEL ON TABLE &DT/FTMOV55V 
	IS 'Art. 55 VIEW ATTUALI' 	
<TAG-SCRIPT>

CREATE VIEW &DT/FTMOVNE55V AS
(
  SELECT a.DTFTFM,
          a.NRFTFM,
          CASE
              WHEN a.FLCGFM = '' THEN '0'
              WHEN a.FLCGFM = '*' THEN '1'
          END AS FLCG,
          a.CIFAFMA AS CDCFFM,
          a.CDCFFM AS f0CDCFFM,          
          a.CSPEFM,
          a.GIVAFM,
          a.CDDTFM,
          a.FLSFFM,
          b.DSCOCP ,
          d.CISOCA ,
          d.PIVACA ,
          d.CDFICA ,
          c.DESC_GIVA
   FROM &DT/FTMOVAR55V as a
	JOIN &DT/CGPCO00F as b ON a.CIFAFMA = b.CONTCP
	JOIN &DT/SMTABAR55V as c ON a.GIVAFM = c.XCODTB
	JOIN &DT/CGANA00F as d ON d.CONTCA = b.CONTCP
    EXCEPTION JOIN &DT/FTPAE55F as e ON 
     	e.CDDITTA = ''
        AND a.CIFAFMA = e.CODCLI 
 	EXCEPTION JOIN &DT/FTPAE55F as f ON 
 	    f.CDDITTA = ''
 	    AND a.CSPEFM = f.CODCLI
 	 	AND f.PAOPRIV = ' '									
   WHERE (a.FLCGFM = '*')
)
<TAG-SCRIPT>

LABEL ON TABLE &DT/FTMOVNE55V 
	IS 'Art. 55 VIEW ATTUALI NON ESTRAIBILI' 	
<TAG-SCRIPT>

CREATE VIEW &DT/FTBKMNE55V AS
(
  SELECT a.DTFTFM,
          a.NRFTFM,
          CASE
              WHEN a.FLCGFM = '' THEN '0'
              WHEN a.FLCGFM = '*' THEN '1'
          END AS FLCG,
          a.CIFAFMA AS CDCFFM,
          a.CDCFFM AS f0CDCFFM,          
          a.CSPEFM,
          a.GIVAFM,
          a.CDDTFM,
          a.FLSFFM,
          b.DSCOCP ,
          d.CISOCA ,
          d.PIVACA ,
          d.CDFICA ,
          c.DESC_GIVA
   FROM &DT/FTBKMAR55V as a
	JOIN &DT/CGPCO00F as b ON a.CIFAFMA = b.CONTCP
	JOIN &DT/SMTABAR55V as c ON a.GIVAFM = c.XCODTB
	JOIN &DT/CGANA00F as d ON d.CONTCA = b.CONTCP
    EXCEPTION JOIN &DT/FTPAE55F as e ON 
     	e.CDDITTA = ''
        AND a.CIFAFMA = e.CODCLI 
 	EXCEPTION JOIN &DT/FTPAE55F as f ON 
 	    f.CDDITTA = ''
 	    AND a.CSPEFM = f.CODCLI
 	 	AND f.PAOPRIV = ' '									
   WHERE (a.FLCGFM = '*')
)
<TAG-SCRIPT>

LABEL ON TABLE &DT/FTBKMNE55V 
	IS 'Art. 55 VIEW STORICI NON ESTRAIBILI' 	
<TAG-SCRIPT>

<TAG-VERSIONE-15.0.0>
<TAG-SCRIPT>

DROP VIEW &DT/FTBKM55V
<TAG-SCRIPT>

CREATE VIEW &DT/FTBKM55V AS
(
  SELECT a.DTFTFM,
          a.NRFTFM,
          CASE
              WHEN a.FLCGFM = '' THEN '0'
              WHEN a.FLCGFM = '*' THEN '1'
          END AS FLCG,
          a.CIFAFMA AS CDCFFM,
          a.CDCFFM AS f0CDCFFM,          
          a.CSPEFM,
          a.GIVAFM,
          a.CDDTFM,
          a.FLSFFM,
          b.DSCOCP ,
          coalesce(CASE
          	WHEN g.STATOTRAS = 'T' and x.PROGID IS NOT NULL THEN 'E' 
          	WHEN coalesce(G.EXTID, '') = '' THEN g.STATOTRAS 
            WHEN g.STATOTRAS = 'V' and x.PROGID IS NOT NULL THEN 'C' 
            ELSE g.STATOTRAS END
          	, 'B') AS STATO,
          case when d.PAOPRIV IS NULL THEN '0000000' WHEN d.PAOPRIV = 'R' THEN d.CODIPA ELSE coalesce(e.CODIPA, d.CODIPA) END AS IPA,
          g.PROGID,
          c.DESC_GIVA,
          coalesce(h.ALLEG, 0) AS ALLEGATO,
          coalesce(G.EXTID, '') AS EXTID,
          CASE WHEN x.PROGID IS NULL THEN '0' ELSE '1' END AS ERRORI ,          
          CASE WHEN d.PAOPRIV IS NULL OR d.PAOPRIV = 'R' THEN '1' ELSE '0' END AS PRIVATO,
          coalesce(d.MAILPEC, SPACE(256)) as MAILPEC,
          coalesce(g.NOMEXML, ' ') AS NOMEXML,
          coalesce(g.SERVTRA, ' ') AS SERVTRA,
          coalesce(f.NUMEFATT,' ') AS NUMEFATT                
   FROM &DT/FTBKMAR55V as a
	JOIN &DT/CGPCO00F as b ON a.CIFAFMA = b.CONTCP
	JOIN &DT/SMTABAR55V  as c ON a.GIVAFM = c.XCODTB
    LEFT OUTER JOIN &DT/FTPAE55F as d ON 
     	d.CDDITTA = ''
        AND a.CIFAFMA = d.CODCLI 
 	LEFT OUTER JOIN &DT/FTPAE55F as e ON 
 	    e.CDDITTA = ''
 	    AND a.CSPEFM = e.CODCLI
 	 	AND e.PAOPRIV = ' '
  		AND a.DTFTFM >= e.DTIPA										 
 	LEFT OUTER JOIN &DT/FTPAF55F as f ON a.CDDTFM = f.CDDTFM
                                           AND a.DTFTFM = f.DTFTFM
                                           AND a.NRFTFM = f.NRFTFM
                                           AND a.GIVAFM = f.GIVAFM
 	LEFT OUTER JOIN &DT/FTPAI55F as g ON f.PROGID = g.PROGID
 	LEFT OUTER JOIN &DT/FTPAU55V as h ON  a.CDDTFM = h.CDDTFAT
					      AND a.DTFTFM = h.DATAFAT
                                           AND a.NRFTFM = h.NUMFAT
                                           AND a.GIVAFM = h.GIVAFAT
   LEFT OUTER JOIN &DT/FTPAX55F as x ON (g.PROGID = x.PROGID and x.PROGRIGA = 0)
	JOIN &DT/CGANA00F as i ON i.CONTCA = b.CONTCP
	LEFT JOIN &DT/FTPSET55F S ON 1=1
   WHERE 
   (f.storfm is null or f.STORFM <> 'S') 
   AND 
   (NOT f.nrftfm IS NULL OR 
   COALESCE(d.esclusofe, ' ') = ' '
   AND ((d.DTIPA IS NULL AND i.cisoca = 'IT' AND a.DTFTFM >= S.datainb2b 
   		OR
	(NOT d.DTIPA IS NULL AND (d.DTIPA > 0 AND a.DTFTFM >= d.DTIPA OR (d.DTIPA = 0 AND (d.PAOPRIV = ' ' OR a.DTFTFM >= S.datainb2b)))))))
	)
<TAG-SCRIPT>

LABEL ON TABLE &DT/FTBKM55V 
	IS 'Art. 55 VIEW STORICI' 	
<TAG-SCRIPT>

DROP VIEW &DT/FTMOV55V
<TAG-SCRIPT>

CREATE VIEW &DT/FTMOV55V AS
(
  SELECT a.DTFTFM,
          a.NRFTFM,
          CASE
              WHEN a.FLCGFM = '' THEN '0'
              WHEN a.FLCGFM = '*' THEN '1'
          END AS FLCG,
          a.CIFAFMA AS CDCFFM,
          a.CDCFFM AS f0CDCFFM,          
          a.CSPEFM,
          a.GIVAFM,
          a.CDDTFM,
          a.FLSFFM,
          b.DSCOCP ,
          coalesce(CASE
          	WHEN g.STATOTRAS = 'T' and x.PROGID IS NOT NULL THEN 'E' 
          	WHEN coalesce(G.EXTID, '') = '' THEN g.STATOTRAS 
          	WHEN g.STATOTRAS = 'V' and x.PROGID IS NOT NULL THEN 'C' 
          	ELSE g.STATOTRAS END
          	, 'B') AS STATO,
          case when d.PAOPRIV IS NULL THEN '0000000' WHEN d.PAOPRIV = 'R' THEN d.CODIPA ELSE coalesce(e.CODIPA, d.CODIPA) END AS IPA,
          g.PROGID,
          c.DESC_GIVA,
          coalesce(h.ALLEG, 0) AS ALLEGATO,
          coalesce(G.EXTID, '') AS EXTID,
          CASE WHEN x.PROGID IS NULL THEN '0' ELSE '1' END AS ERRORI ,          
          CASE WHEN d.PAOPRIV IS NULL OR d.PAOPRIV = 'R' THEN '1' ELSE '0' END AS PRIVATO,
          coalesce(d.MAILPEC, SPACE(256)) as MAILPEC,
          coalesce(g.NOMEXML, ' ') AS NOMEXML,            
          coalesce(g.SERVTRA, ' ') AS SERVTRA,
          coalesce(f.NUMEFATT,' ') AS NUMEFATT             
   FROM &DT/FTMOVAR55V as a
	JOIN &DT/CGPCO00F as b ON a.CIFAFMA = b.CONTCP
	JOIN &DT/SMTABAR55V  as c ON a.GIVAFM = c.XCODTB
    LEFT OUTER JOIN &DT/FTPAE55F as d ON 
         	d.CDDITTA = ''
        AND a.CIFAFMA = d.CODCLI 
 	LEFT OUTER JOIN &DT/FTPAE55F as e ON 
 	    e.CDDITTA = ''
 	    AND a.CSPEFM = e.CODCLI
 	 	AND e.PAOPRIV = ' '
 		AND a.DTFTFM >= e.DTIPA										 
 	LEFT OUTER JOIN &DT/FTPAF55F as f ON a.CDDTFM = f.CDDTFM
                                           AND a.DTFTFM = f.DTFTFM
                                           AND a.NRFTFM = f.NRFTFM
                                           AND a.GIVAFM = f.GIVAFM
 	LEFT OUTER JOIN &DT/FTPAI55F as g ON f.PROGID = g.PROGID
 	LEFT OUTER JOIN &DT/FTPAU55V as h ON  a.CDDTFM = h.CDDTFAT
					      AND a.DTFTFM = h.DATAFAT
                                           AND a.NRFTFM = h.NUMFAT
                                           AND a.GIVAFM = h.GIVAFAT
   LEFT OUTER JOIN &DT/FTPAX55F as x ON (g.PROGID = x.PROGID and x.PROGRIGA = 0)
	JOIN &DT/CGANA00F as i ON i.CONTCA = b.CONTCP
	LEFT JOIN &DT/FTPSET55F S ON 1=1
   WHERE 
   (f.storfm is null or f.STORFM <> 'S') 
   AND 
   (NOT f.nrftfm IS NULL OR 
   COALESCE(d.esclusofe, ' ') = ' '
   AND ((d.DTIPA IS NULL AND i.cisoca = 'IT' AND a.DTFTFM >= S.datainb2b 
   		OR
	(NOT d.DTIPA IS NULL AND (d.DTIPA > 0 AND a.DTFTFM >= d.DTIPA OR (d.DTIPA = 0 AND (d.PAOPRIV = ' ' OR a.DTFTFM >= S.datainb2b)))))))
	)     
<TAG-SCRIPT>

LABEL ON TABLE &DT/FTMOV55V 
	IS 'Art. 55 VIEW ATTUALI' 	
<TAG-SCRIPT>

<TAG-VERSIONE-15.1.0>
<TAG-SCRIPT>

<TAG-VERSIONE-15.2.0>
<TAG-SCRIPT>

<TAG-VERSIONE-15.3.0>
<TAG-SCRIPT>

<TAG-VERSIONE-15.4.0>
<TAG-SCRIPT>

<TAG-VERSIONE-15.5.0>
<TAG-SCRIPT>

DROP VIEW &DT/FTBKM55V
<TAG-SCRIPT>

CREATE VIEW &DT/FTBKM55V AS
(
  SELECT a.DTFTFM,
          a.NRFTFM,
          CASE
              WHEN a.FLCGFM = '' THEN '0'
              WHEN a.FLCGFM = '*' THEN '1'
          END AS FLCG,
          a.CIFAFMA AS CDCFFM,
          a.CDCFFM AS f0CDCFFM,          
          a.CSPEFM,
          a.GIVAFM,
          a.CDDTFM,
          a.FLSFFM,
          b.DSCOCP ,
          coalesce(CASE
          	WHEN g.STATOTRAS = 'T' and x.PROGID IS NOT NULL THEN 'E' 
          	WHEN coalesce(G.EXTID, '') = '' THEN g.STATOTRAS 
            WHEN g.STATOTRAS = 'V' and x.PROGID IS NOT NULL THEN 'C' 
            ELSE g.STATOTRAS END
          	, 'B') AS STATO,
          case when d.PAOPRIV IS NULL THEN '0000000' WHEN d.PAOPRIV = 'R' THEN d.CODIPA ELSE coalesce(e.CODIPA, d.CODIPA) END AS IPA,
          g.PROGID,
          c.DESC_GIVA,
          coalesce(h.ALLEG, 0) AS ALLEGATO,
          coalesce(G.EXTID, '') AS EXTID,
          CASE WHEN x.PROGID IS NULL THEN '0' ELSE '1' END AS ERRORI ,          
          CASE WHEN d.PAOPRIV IS NULL OR d.PAOPRIV = 'R' THEN '1' ELSE '0' END AS PRIVATO,
          coalesce(d.MAILPEC, SPACE(256)) as MAILPEC,
          coalesce(g.NOMEXML, ' ') AS NOMEXML,
          coalesce(g.SERVTRA, ' ') AS SERVTRA,
          coalesce(f.NUMEFATT,' ') AS NUMEFATT                
   FROM &DT/FTBKMAR55V as a
	LEFT OUTER JOIN &DT/CSTAB as DD ON DD.K00001 = '01DD' CONCAT a.TDOCFM 
	JOIN &DT/CGPCO00F as b ON a.CIFAFMA = b.CONTCP
	JOIN &DT/SMTABAR55V  as c ON a.GIVAFM = c.XCODTB
    LEFT OUTER JOIN &DT/FTPAE55F as d ON 
     	d.CDDITTA = ''
        AND a.CIFAFMA = d.CODCLI 
 	LEFT OUTER JOIN &DT/FTPAE55F as e ON 
 	    e.CDDITTA = ''
 	    AND a.CSPEFM = e.CODCLI
 	 	AND e.PAOPRIV = ' '
  		AND a.DTFTFM >= e.DTIPA										 
 	LEFT OUTER JOIN &DT/FTPAF55F as f ON a.CDDTFM = f.CDDTFM
                                           AND a.DTFTFM = f.DTFTFM
                                           AND a.NRFTFM = f.NRFTFM
                                           AND a.GIVAFM = f.GIVAFM
 	LEFT OUTER JOIN &DT/FTPAI55F as g ON f.PROGID = g.PROGID
 	LEFT OUTER JOIN &DT/FTPAU55V as h ON  a.CDDTFM = h.CDDTFAT
					      AND a.DTFTFM = h.DATAFAT
                                           AND a.NRFTFM = h.NUMFAT
                                           AND a.GIVAFM = h.GIVAFAT
   LEFT OUTER JOIN &DT/FTPAX55F as x ON (g.PROGID = x.PROGID and x.PROGRIGA = 0)
	JOIN &DT/CGANA00F as i ON i.CONTCA = b.CONTCP
	LEFT JOIN &DT/FTPSET55F S ON 1=1
   WHERE coalesce(substr(DD.F00002, 10, 1), a.TDOCFM) <> 'P' 
   AND
   (f.storfm is null or f.STORFM <> 'S') 
   AND 
   (NOT f.nrftfm IS NULL OR 
   COALESCE(d.esclusofe, ' ') = ' '
   AND ((d.DTIPA IS NULL AND i.cisoca = 'IT' AND a.DTFTFM >= S.datainb2b 
   		OR
	(NOT d.DTIPA IS NULL AND (d.DTIPA > 0 AND a.DTFTFM >= d.DTIPA OR (d.DTIPA = 0 AND (d.PAOPRIV = ' ' OR a.DTFTFM >= S.datainb2b)))))))
	)
<TAG-SCRIPT>

LABEL ON TABLE &DT/FTBKM55V 
	IS 'Art. 55 VIEW STORICI' 	
<TAG-SCRIPT>

DROP VIEW &DT/FTMOV55V
<TAG-SCRIPT>

CREATE VIEW &DT/FTMOV55V AS
(
  SELECT a.DTFTFM,
          a.NRFTFM,
          CASE
              WHEN a.FLCGFM = '' THEN '0'
              WHEN a.FLCGFM = '*' THEN '1'
          END AS FLCG,
          a.CIFAFMA AS CDCFFM,
          a.CDCFFM AS f0CDCFFM,          
          a.CSPEFM,
          a.GIVAFM,
          a.CDDTFM,
          a.FLSFFM,
          b.DSCOCP ,
          coalesce(CASE
          	WHEN g.STATOTRAS = 'T' and x.PROGID IS NOT NULL THEN 'E' 
          	WHEN coalesce(G.EXTID, '') = '' THEN g.STATOTRAS 
          	WHEN g.STATOTRAS = 'V' and x.PROGID IS NOT NULL THEN 'C' 
          	ELSE g.STATOTRAS END
          	, 'B') AS STATO,
          case when d.PAOPRIV IS NULL THEN '0000000' WHEN d.PAOPRIV = 'R' THEN d.CODIPA ELSE coalesce(e.CODIPA, d.CODIPA) END AS IPA,
          g.PROGID,
          c.DESC_GIVA,
          coalesce(h.ALLEG, 0) AS ALLEGATO,
          coalesce(G.EXTID, '') AS EXTID,
          CASE WHEN x.PROGID IS NULL THEN '0' ELSE '1' END AS ERRORI ,          
          CASE WHEN d.PAOPRIV IS NULL OR d.PAOPRIV = 'R' THEN '1' ELSE '0' END AS PRIVATO,
          coalesce(d.MAILPEC, SPACE(256)) as MAILPEC,
          coalesce(g.NOMEXML, ' ') AS NOMEXML,            
          coalesce(g.SERVTRA, ' ') AS SERVTRA,
          coalesce(f.NUMEFATT,' ') AS NUMEFATT             
   FROM &DT/FTMOVAR55V as a
	LEFT OUTER JOIN &DT/CSTAB as DD ON DD.K00001 = '01DD' CONCAT a.TDOCFM 
	JOIN &DT/CGPCO00F as b ON a.CIFAFMA = b.CONTCP
	JOIN &DT/SMTABAR55V  as c ON a.GIVAFM = c.XCODTB
    LEFT OUTER JOIN &DT/FTPAE55F as d ON 
         	d.CDDITTA = ''
        AND a.CIFAFMA = d.CODCLI 
 	LEFT OUTER JOIN &DT/FTPAE55F as e ON 
 	    e.CDDITTA = ''
 	    AND a.CSPEFM = e.CODCLI
 	 	AND e.PAOPRIV = ' '
 		AND a.DTFTFM >= e.DTIPA										 
 	LEFT OUTER JOIN &DT/FTPAF55F as f ON a.CDDTFM = f.CDDTFM
                                           AND a.DTFTFM = f.DTFTFM
                                           AND a.NRFTFM = f.NRFTFM
                                           AND a.GIVAFM = f.GIVAFM
 	LEFT OUTER JOIN &DT/FTPAI55F as g ON f.PROGID = g.PROGID
 	LEFT OUTER JOIN &DT/FTPAU55V as h ON  a.CDDTFM = h.CDDTFAT
					      AND a.DTFTFM = h.DATAFAT
                                           AND a.NRFTFM = h.NUMFAT
                                           AND a.GIVAFM = h.GIVAFAT
   LEFT OUTER JOIN &DT/FTPAX55F as x ON (g.PROGID = x.PROGID and x.PROGRIGA = 0)
	JOIN &DT/CGANA00F as i ON i.CONTCA = b.CONTCP
	LEFT JOIN &DT/FTPSET55F S ON 1=1
   WHERE coalesce(substr(DD.F00002, 10, 1), a.TDOCFM) <> 'P' 
   AND
   (f.storfm is null or f.STORFM <> 'S') 
   AND 
   (NOT f.nrftfm IS NULL OR 
   COALESCE(d.esclusofe, ' ') = ' '
   AND ((d.DTIPA IS NULL AND i.cisoca = 'IT' AND a.DTFTFM >= S.datainb2b 
   		OR
	(NOT d.DTIPA IS NULL AND (d.DTIPA > 0 AND a.DTFTFM >= d.DTIPA OR (d.DTIPA = 0 AND (d.PAOPRIV = ' ' OR a.DTFTFM >= S.datainb2b)))))))
	)     
<TAG-SCRIPT>

LABEL ON TABLE &DT/FTMOV55V 
	IS 'Art. 55 VIEW ATTUALI' 	
<TAG-SCRIPT>

<TAG-VERSIONE-15.6.0>
<TAG-SCRIPT>

<TAG-VERSIONE-15.7.0>
<TAG-SCRIPT>

DROP VIEW &DT/FTBKM55V
<TAG-SCRIPT>

DROP VIEW &DT/FTMOV55V
<TAG-SCRIPT>

DROP VIEW &DT/FTPAU55V
<TAG-SCRIPT>

CREATE VIEW &DT/FTPAU55V as (
 select DISTINCT CDDTFAT,DATAFAT,NUMFAT,GIVAFAT,FORNFAT , 1 as ALLEG from &DT/ftpau55f
)
<TAG-SCRIPT>

LABEL ON TABLE &DT/FTPAU55V 
	IS 'Art. 55 VIEW FILE ALLEGATI' 	
<TAG-SCRIPT>

CREATE VIEW &DT/FTBKM55V AS
(
  SELECT a.DTFTFM,
          a.NRFTFM,
          CASE
              WHEN a.FLCGFM = '' THEN '0'
              WHEN a.FLCGFM = '*' THEN '1'
          END AS FLCG,
          a.CIFAFMA AS CDCFFM,
          a.CDCFFM AS f0CDCFFM,          
          a.CSPEFM,
          a.GIVAFM,
          a.CDDTFM,
          a.FLSFFM,
          b.DSCOCP ,
          coalesce(CASE
          	WHEN g.STATOTRAS = 'T' and x.PROGID IS NOT NULL THEN 'E' 
          	WHEN coalesce(G.EXTID, '') = '' THEN g.STATOTRAS 
            WHEN g.STATOTRAS = 'V' and x.PROGID IS NOT NULL THEN 'C' 
            ELSE g.STATOTRAS END
          	, 'B') AS STATO,
          case when d.PAOPRIV IS NULL THEN '0000000' WHEN d.PAOPRIV = 'R' THEN d.CODIPA ELSE coalesce(e.CODIPA, d.CODIPA) END AS IPA,
          g.PROGID,
          c.DESC_GIVA,
          coalesce(h.ALLEG, 0) AS ALLEGATO,
          coalesce(G.EXTID, '') AS EXTID,
          CASE WHEN x.PROGID IS NULL THEN '0' ELSE '1' END AS ERRORI ,          
          CASE WHEN d.PAOPRIV IS NULL OR d.PAOPRIV = 'R' THEN '1' ELSE '0' END AS PRIVATO,
          coalesce(d.MAILPEC, SPACE(256)) as MAILPEC,
          coalesce(g.NOMEXML, ' ') AS NOMEXML,
          coalesce(g.SERVTRA, ' ') AS SERVTRA,
          coalesce(f.NUMEFATT,' ') AS NUMEFATT,
          coalesce(f.VENDACQU,'V') AS VENDACQU                  
   FROM &DT/FTBKMAR55V as a
	LEFT OUTER JOIN &DT/CSTAB as DD ON DD.K00001 = '01DD' CONCAT a.TDOCFM 
	JOIN &DT/CGPCO00F as b ON a.CIFAFMA = b.CONTCP
	JOIN &DT/SMTABAR55V  as c ON a.GIVAFM = c.XCODTB
    LEFT OUTER JOIN &DT/FTPAE55F as d ON 
     	d.CDDITTA = ''
        AND a.CIFAFMA = d.CODCLI 
 	LEFT OUTER JOIN &DT/FTPAE55F as e ON 
 	    e.CDDITTA = ''
 	    AND a.CSPEFM = e.CODCLI
 	 	AND e.PAOPRIV = ' '
  		AND a.DTFTFM >= e.DTIPA										 
 	LEFT OUTER JOIN &DT/FTPAF55F as f ON a.CDDTFM = f.CDDTFM
					      AND a.DTFTFM = f.DTFTFM
					      AND a.NRFTFM = f.NRFTFM
					      AND a.GIVAFM = f.GIVAFM
					      AND 'V' = f.VENDACQU
 	LEFT OUTER JOIN &DT/FTPAI55F as g ON f.PROGID = g.PROGID
 	LEFT OUTER JOIN &DT/FTPAU55V as h ON  a.CDDTFM = h.CDDTFAT
					      AND a.DTFTFM = h.DATAFAT
					      AND a.NRFTFM = h.NUMFAT
					      AND a.GIVAFM = h.GIVAFAT
					      AND '' = h.FORNFAT
   LEFT OUTER JOIN &DT/FTPAX55F as x ON (g.PROGID = x.PROGID and x.PROGRIGA = 0)
	JOIN &DT/CGANA00F as i ON i.CONTCA = b.CONTCP
	LEFT JOIN &DT/FTPSET55F S ON 1=1
   WHERE coalesce(substr(DD.F00002, 10, 1), a.TDOCFM) <> 'P' 
   AND
   (f.storfm is null or f.STORFM <> 'S') 
   AND 
   (NOT f.nrftfm IS NULL OR 
   COALESCE(d.esclusofe, ' ') = ' '
   AND ((d.DTIPA IS NULL AND i.cisoca = 'IT' AND a.DTFTFM >= S.datainb2b 
   		OR
	(NOT d.DTIPA IS NULL AND (d.DTIPA > 0 AND a.DTFTFM >= d.DTIPA OR (d.DTIPA = 0 AND (d.PAOPRIV = ' ' OR a.DTFTFM >= S.datainb2b)))))))
	)
<TAG-SCRIPT>

LABEL ON TABLE &DT/FTBKM55V 
	IS 'Art. 55 VIEW STORICI' 	
<TAG-SCRIPT>

CREATE VIEW &DT/FTMOV55V AS
(
  SELECT a.DTFTFM,
          a.NRFTFM,
          CASE
              WHEN a.FLCGFM = '' THEN '0'
              WHEN a.FLCGFM = '*' THEN '1'
          END AS FLCG,
          a.CIFAFMA AS CDCFFM,
          a.CDCFFM AS f0CDCFFM,          
          a.CSPEFM,
          a.GIVAFM,
          a.CDDTFM,
          a.FLSFFM,
          b.DSCOCP ,
          coalesce(CASE
          	WHEN g.STATOTRAS = 'T' and x.PROGID IS NOT NULL THEN 'E' 
          	WHEN coalesce(G.EXTID, '') = '' THEN g.STATOTRAS 
          	WHEN g.STATOTRAS = 'V' and x.PROGID IS NOT NULL THEN 'C' 
          	ELSE g.STATOTRAS END
          	, 'B') AS STATO,
          case when d.PAOPRIV IS NULL THEN '0000000' WHEN d.PAOPRIV = 'R' THEN d.CODIPA ELSE coalesce(e.CODIPA, d.CODIPA) END AS IPA,
          g.PROGID,
          c.DESC_GIVA,
          coalesce(h.ALLEG, 0) AS ALLEGATO,
          coalesce(G.EXTID, '') AS EXTID,
          CASE WHEN x.PROGID IS NULL THEN '0' ELSE '1' END AS ERRORI ,          
          CASE WHEN d.PAOPRIV IS NULL OR d.PAOPRIV = 'R' THEN '1' ELSE '0' END AS PRIVATO,
          coalesce(d.MAILPEC, SPACE(256)) as MAILPEC,
          coalesce(g.NOMEXML, ' ') AS NOMEXML,            
          coalesce(g.SERVTRA, ' ') AS SERVTRA,
          coalesce(f.NUMEFATT,' ') AS NUMEFATT,             
          coalesce(f.VENDACQU,'V') AS VENDACQU             
   FROM &DT/FTMOVAR55V as a
	LEFT OUTER JOIN &DT/CSTAB as DD ON DD.K00001 = '01DD' CONCAT a.TDOCFM 
	JOIN &DT/CGPCO00F as b ON a.CIFAFMA = b.CONTCP
	JOIN &DT/SMTABAR55V  as c ON a.GIVAFM = c.XCODTB
    LEFT OUTER JOIN &DT/FTPAE55F as d ON 
         	d.CDDITTA = ''
        AND a.CIFAFMA = d.CODCLI 
 	LEFT OUTER JOIN &DT/FTPAE55F as e ON 
 	    e.CDDITTA = ''
 	    AND a.CSPEFM = e.CODCLI
 	 	AND e.PAOPRIV = ' '
 		AND a.DTFTFM >= e.DTIPA										 
 	LEFT OUTER JOIN &DT/FTPAF55F as f ON a.CDDTFM = f.CDDTFM
					      AND a.DTFTFM = f.DTFTFM
					      AND a.NRFTFM = f.NRFTFM
					      AND a.GIVAFM = f.GIVAFM
					      AND 'V' = f.VENDACQU
 	LEFT OUTER JOIN &DT/FTPAI55F as g ON f.PROGID = g.PROGID
 	LEFT OUTER JOIN &DT/FTPAU55V as h ON  a.CDDTFM = h.CDDTFAT
					      AND a.DTFTFM = h.DATAFAT
                          AND a.NRFTFM = h.NUMFAT
                          AND a.GIVAFM = h.GIVAFAT
                          AND '' = h.FORNFAT
   LEFT OUTER JOIN &DT/FTPAX55F as x ON (g.PROGID = x.PROGID and x.PROGRIGA = 0)
	JOIN &DT/CGANA00F as i ON i.CONTCA = b.CONTCP
	LEFT JOIN &DT/FTPSET55F S ON 1=1
   WHERE coalesce(substr(DD.F00002, 10, 1), a.TDOCFM) <> 'P' 
   AND
   (f.storfm is null or f.STORFM <> 'S') 
   AND 
   (NOT f.nrftfm IS NULL OR 
   COALESCE(d.esclusofe, ' ') = ' '
   AND ((d.DTIPA IS NULL AND i.cisoca = 'IT' AND a.DTFTFM >= S.datainb2b 
   		OR
	(NOT d.DTIPA IS NULL AND (d.DTIPA > 0 AND a.DTFTFM >= d.DTIPA OR (d.DTIPA = 0 AND (d.PAOPRIV = ' ' OR a.DTFTFM >= S.datainb2b)))))))
	)     
<TAG-SCRIPT>

LABEL ON TABLE &DT/FTMOV55V 
	IS 'Art. 55 VIEW ATTUALI' 	
<TAG-SCRIPT>

<CONDITION>EXISTS (SELECT 1 FROM QSYS2.SYSTABLES WHERE TABLE_SCHEMA = '&DT' AND TABLE_NAME = 'MGMOF00F')</CONDITION>
CREATE VIEW &DT/MGMOF55V AS (
  SELECT a.DTFTMF DTFTFM,
          a.NRFTMF NRFTFM,
          CASE
              WHEN a.FLCGMF = '' THEN '0'
              WHEN a.FLCGMF = '*' THEN '1'
          END AS FLCG,
          CASE WHEN a.CIFAMF = '' THEN a.CDCFMF ELSE a.CIFAMF END AS CDCFFM,
          a.CDCFMF AS f0CDCFFM,          
          '         ' CSPEFM,
          a.GIVAMF GIVAFM,
          a.CDDTMF CDDTFM,
          a.FLSFMF FLSFFM,
          b.DSCOCP ,
          coalesce(CASE
          	WHEN g.STATOTRAS = 'T' and x.PROGID IS NOT NULL THEN 'E' 
          	WHEN coalesce(G.EXTID, '') = '' THEN g.STATOTRAS 
          	WHEN g.STATOTRAS = 'V' and x.PROGID IS NOT NULL THEN 'C' 
          	ELSE g.STATOTRAS END
          	, 'B') AS STATO,
          case when d.PAOPRIV IS NOT NULL THEN d.CODIPA WHEN F2.CODIDEST <> '' THEN F2.CODIDEST ELSE '0000000' END AS IPA,
          g.PROGID,
          c.DESC_GIVA,
          coalesce(h.ALLEG, 0) AS ALLEGATO,
          coalesce(G.EXTID, '') AS EXTID,
          CASE WHEN x.PROGID IS NULL THEN '0' ELSE '1' END AS ERRORI ,          
          CASE WHEN d.PAOPRIV IS NULL OR d.PAOPRIV = 'R' THEN '1' ELSE '0' END AS PRIVATO,
          coalesce(d.MAILPEC, F2.MAILPEC, SPACE(256)) as MAILPEC,
          coalesce(g.NOMEXML, ' ') AS NOMEXML,            
          coalesce(g.SERVTRA, ' ') AS SERVTRA,
          coalesce(f.NUMEFATT,' ') AS NUMEFATT,
          coalesce(f.VENDACQU,'A') AS VENDACQU  
   FROM &DT/MGMOF00F as a
	JOIN &DT/CSTAB as DD ON DD.K00001 = '01DD' CONCAT a.TDOCMF CONCAT 'A'  
	JOIN &DT/CGPCO00F as b ON a.CDCFMF = b.CONTCP
	JOIN &DT/SMTABAR55V  as c ON a.GIVAMF = c.XCODTB
    LEFT OUTER JOIN &DT/FTPAE55F as d ON 
         	d.CDDITTA = ''
        AND a.CDCFMF = d.CODCLI 
 	LEFT OUTER JOIN &DT/FTPAF55F as f ON a.CDDTMF = f.CDDTFM
                                           AND a.DTFTMF = f.DTFTFM
                                           AND a.NRFTMF = f.NRFTFM
                                           AND a.GIVAMF = f.GIVAFM
                                           AND a.CDCFMF = f.CDCFFM
                                           AND 'A' = f.VENDACQU
 	LEFT OUTER JOIN &DT/FTPAI55F as g ON f.PROGID = g.PROGID
 	LEFT OUTER JOIN &DT/FTPAU55V as h ON  a.CDDTMF = h.CDDTFAT
					      AND a.DTFTMF = h.DATAFAT
                          AND a.NRFTMF = h.NUMFAT
                          AND a.GIVAMF = h.GIVAFAT
                          AND CASE WHEN a.CIFAMF = '' THEN a.CDCFMF ELSE a.CIFAMF END = h.FORNFAT
   LEFT OUTER JOIN &DT/FTPAX55F as x ON (g.PROGID = x.PROGID and x.PROGRIGA = 0)
	JOIN &DT/CGANA00F as i ON i.CONTCA = b.CONTCP
	LEFT JOIN &DT/FTPSET55F S ON 1=1
	JOIN &DT/FTPA255F F2 ON F2.TABDDCOD = a.TDOCMF AND F2.tabddarea = 'A' AND F2.Fselfbil = 'S' 
	WHERE a.FLSFMF ='*'
   AND a.FLCFMF='*' 
   AND a.dtftmf <> 0
   AND a.NRFTMF <> 0
   AND
   (f.storfm is null or f.STORFM <> 'S') 
   AND 
   (NOT f.nrftfm IS NULL OR 
   COALESCE(d.esclusofe, ' ') = ' '
   AND ((d.DTIPA IS NULL AND i.cisoca = 'IT' AND a.DTFTMF >= S.datainb2b 
   		OR
	(NOT d.DTIPA IS NULL AND (d.DTIPA > 0 AND a.DTFTMF >= d.DTIPA OR (d.DTIPA = 0 AND (a.DTFTMF >= S.datainb2b)))))))
)
<TAG-SCRIPT>

<CONDITION>EXISTS (SELECT 1 FROM QSYS2.SYSTABLES WHERE TABLE_SCHEMA = '&DT' AND TABLE_NAME = 'MGMOF00F')</CONDITION>
LABEL ON TABLE &DT/MGMOF55V IS 'Art. 55 VIEW FATTURE SELF BILLING' 	
<TAG-SCRIPT>

<TAG-VERSIONE-15.8.0>
<TAG-SCRIPT>

<TAG-VERSIONE-15.9.0>
<TAG-SCRIPT>

DROP VIEW &DT/FTMOV55V
<TAG-SCRIPT>

DROP VIEW &DT/FTMOVAR55V
<TAG-SCRIPT>

CREATE VIEW &DT/FTMOVAR55V as (
 SELECT f.*,  
 CASE WHEN coalesce(af.CIFAFMA , '') = '' THEN f.CDCFFM ELSE af.CIFAFMA END AS CIFAFMA,
 coalesce(af.FTDIFMA , '') FTDIFMA 
 FROM &DT/ftmov00f AS f
   LEFT JOIN &DT/FTMOVA0F AS af ON 
    f.CDDTFM = af.CDDTFMA AND
    f.TDOCFM = af.TDOCFMA AND
    f.NRDFFM = af.NRDFFMA AND
    f.NRRGFM = af.NRRGFMA AND
    f.NSRGFM = af.NSRGFMA
 WHERE f.CDDTFM ='01' AND f.NRFTFM > 0
     AND f.NRFTFM <> 9999999
     AND f.DTFTFM >= 20140601
     AND f.FLSFFM = '*')
<TAG-SCRIPT>

LABEL ON TABLE &DT/FTMOVAR55V IS 'Art. 55 VIEW FTMOV00F' 	
<TAG-SCRIPT>

CREATE VIEW &DT/FTMOV55V AS (
	SELECT FAT.*, 
	CASE WHEN PRIVATO = '1' AND FORDEST = '1' THEN '1' ELSE '0' END AS PRFORDEST,
	CASE WHEN PRIVATO = '0' OR FORDEST = '1' THEN coalesce(DEST, SPACE(10)) ELSE SPACE(10) END AS CSPEFM,
	CASE WHEN PRIVATO = '1' AND FORDEST = '1' THEN IPA_DEST WHEN PRIVATO = '1' THEN coalesce(IPA_CLI,'0000000') ELSE coalesce(IPA_DEST, IPA_CLI) END AS IPA,
	CASE WHEN PRIVATO = '1' AND FORDEST = '1' THEN MAILPEC_DEST WHEN PRIVATO = '1' THEN coalesce(MAILPEC_CLI, SPACE(256)) ELSE coalesce(MAILPEC_DEST, MAILPEC_CLI) END AS MAILPEC
	FROM (
SELECT a.DTFTFM,
          a.NRFTFM,
          CASE
              WHEN a.FLCGFM = '' THEN '0'
              WHEN a.FLCGFM = '*' THEN '1'
          END AS FLCG,
          a.CIFAFMA AS CDCFFM,
          a.CDCFFM AS f0CDCFFM,          
          CSPEFM AS DEST,
          a.GIVAFM,
          a.CDDTFM,
          a.FLSFFM,
          b.DSCOCP ,
          coalesce(CASE
          	WHEN g.STATOTRAS = 'T' and x.PROGID IS NOT NULL THEN 'E' 
          	WHEN coalesce(G.EXTID, '') = '' THEN g.STATOTRAS 
          	WHEN g.STATOTRAS = 'V' and x.PROGID IS NOT NULL THEN 'C' 
          	ELSE g.STATOTRAS END
          	, 'B') AS STATO,
          d.CODIPA AS IPA_CLI,
          e.CODIPA AS IPA_DEST,
          g.PROGID,
          c.DESC_GIVA,
          coalesce(h.ALLEG, 0) AS ALLEGATO,
          coalesce(G.EXTID, '') AS EXTID,
          CASE WHEN x.PROGID IS NULL THEN '0' ELSE '1' END AS ERRORI ,          
          CASE WHEN d.PAOPRIV IS NULL OR d.PAOPRIV = 'R' THEN '1' ELSE '0' END AS PRIVATO,
          d.MAILPEC as MAILPEC_CLI,
          e.MAILPEC as MAILPEC_DEST,
          coalesce(g.NOMEXML, ' ') AS NOMEXML,            
          coalesce(g.SERVTRA, ' ') AS SERVTRA,
          coalesce(f.NUMEFATT,' ') AS NUMEFATT,             
          coalesce(f.VENDACQU,'V') AS VENDACQU,
          case when a.flinfm <> ' ' AND A.FTDIFMA = 'D' AND A.CDCFFM = A.CIFAFMA AND DEST.CLFOCP = 'D' AND e.CODIPA IS NOT NULL THEN '1' ELSE '0' END FORDEST
   FROM &DT/FTMOVAR55V as a
	LEFT OUTER JOIN &DT/CSTAB as DD ON DD.K00001 = '01DD' CONCAT a.TDOCFM 
	JOIN &DT/CGPCO00F as b ON a.CIFAFMA = b.CONTCP
	JOIN &DT/SMTABAR55V  as c ON a.GIVAFM = c.XCODTB
    LEFT OUTER JOIN &DT/FTPAE55F as d ON 
         	d.CDDITTA = ''
        AND a.CIFAFMA = d.CODCLI 
 	LEFT OUTER JOIN &DT/FTPAE55F as e ON 
 	    e.CDDITTA = ''
 	    AND a.CSPEFM = e.CODCLI
 		AND a.DTFTFM >= e.DTIPA										 
 	LEFT OUTER JOIN &DT/FTPAF55F as f ON a.CDDTFM = f.CDDTFM
					      AND a.DTFTFM = f.DTFTFM
					      AND a.NRFTFM = f.NRFTFM
					      AND a.GIVAFM = f.GIVAFM
					      AND 'V' = f.VENDACQU
 	LEFT OUTER JOIN &DT/FTPAI55F as g ON f.PROGID = g.PROGID
 	LEFT OUTER JOIN &DT/FTPAU55V as h ON  a.CDDTFM = h.CDDTFAT
					      AND a.DTFTFM = h.DATAFAT
                          AND a.NRFTFM = h.NUMFAT
                          AND a.GIVAFM = h.GIVAFAT
                          AND '' = h.FORNFAT
   LEFT OUTER JOIN &DT/FTPAX55F as x ON (g.PROGID = x.PROGID and x.PROGRIGA = 0)
	JOIN &DT/CGANA00F as i ON i.CONTCA = b.CONTCP
	LEFT JOIN &DT/CGPCO00F DEST ON DEST.CONTCP = a.CSPEFM
	LEFT JOIN &DT/FTPSET55F S ON 1=1
   WHERE coalesce(substr(DD.F00002, 10, 1), a.TDOCFM) <> 'P' 
   AND
   (f.storfm is null or f.STORFM <> 'S') 
   AND 
   (NOT f.nrftfm IS NULL OR 
   COALESCE(d.esclusofe, ' ') = ' '
   AND ((d.DTIPA IS NULL AND i.cisoca = 'IT' AND a.DTFTFM >= S.datainb2b 
   		OR
	(NOT d.DTIPA IS NULL AND (d.DTIPA > 0 AND a.DTFTFM >= d.DTIPA OR (d.DTIPA = 0 AND (d.PAOPRIV = ' ' OR a.DTFTFM >= S.datainb2b)))))))) AS FAT)
<TAG-SCRIPT><TAG-SCRIPT><IFNOT-VERSION>5

CREATE VIEW &DT/FTMOV55V AS (
	SELECT FAT.*, 
	CASE WHEN PRIVATO = '1' AND FORDEST = '1' THEN '1' ELSE '0' END AS PRFORDEST,
	CASE WHEN PRIVATO = '0' OR FORDEST = '1' THEN coalesce(DEST, SPACE(10)) ELSE SPACE(10) END AS CSPEFM,
	CASE WHEN PRIVATO = '1' AND FORDEST = '1' THEN IPA_DEST WHEN PRIVATO = '1' THEN coalesce(IPA_CLI,'0000000') ELSE coalesce(IPA_DEST, IPA_CLI) END AS IPA,
	CASE WHEN PRIVATO = '1' AND FORDEST = '1' THEN MAILPEC_DEST WHEN PRIVATO = '1' THEN coalesce(MAILPEC_CLI, SPACE(256)) ELSE coalesce(MAILPEC_DEST, MAILPEC_CLI) END AS MAILPEC
	FROM (
SELECT a.DTFTFM,
          a.NRFTFM,
          CASE
              WHEN a.FLCGFM = '' THEN '0'
              WHEN a.FLCGFM = '*' THEN '1'
          END AS FLCG,
          a.CIFAFMA AS CDCFFM,
          a.CDCFFM AS f0CDCFFM,          
          CSPEFM AS DEST,
          a.GIVAFM,
          a.CDDTFM,
          a.FLSFFM,
          b.DSCOCP ,
          coalesce(CASE
          	WHEN g.STATOTRAS = 'T' and x.PROGID IS NOT NULL THEN 'E' 
          	WHEN coalesce(G.EXTID, '') = '' THEN g.STATOTRAS 
          	WHEN g.STATOTRAS = 'V' and x.PROGID IS NOT NULL THEN 'C' 
          	ELSE g.STATOTRAS END
          	, 'B') AS STATO,
          d.CODIPA AS IPA_CLI,
          e.CODIPA AS IPA_DEST,
          g.PROGID,
          c.DESC_GIVA,
          coalesce(h.ALLEG, 0) AS ALLEGATO,
          coalesce(G.EXTID, '') AS EXTID,
          CASE WHEN x.PROGID IS NULL THEN '0' ELSE '1' END AS ERRORI ,          
          CASE WHEN d.PAOPRIV IS NULL OR d.PAOPRIV = 'R' THEN '1' ELSE '0' END AS PRIVATO,
          d.MAILPEC as MAILPEC_CLI,
          e.MAILPEC as MAILPEC_DEST,
          coalesce(g.NOMEXML, ' ') AS NOMEXML,            
          coalesce(g.SERVTRA, ' ') AS SERVTRA,
          coalesce(f.NUMEFATT,' ') AS NUMEFATT,             
          coalesce(f.VENDACQU,'V') AS VENDACQU,
          case when a.flinfm <> ' ' AND A.FTDIFMA = 'D' AND A.CDCFFM = A.CIFAFMA AND DEST.CLFODE IS NOT NULL AND e.CODIPA IS NOT NULL THEN '1' ELSE '0' END FORDEST
   FROM &DT/FTMOVAR55V as a
	LEFT OUTER JOIN &DT/CSTAB as DD ON DD.K00001 = '01DD' CONCAT a.TDOCFM 
	JOIN &DT/CGPCO00F as b ON a.CIFAFMA = b.CONTCP
	JOIN &DT/SMTABAR55V  as c ON a.GIVAFM = c.XCODTB
    LEFT OUTER JOIN &DT/FTPAE55F as d ON 
         	d.CDDITTA = ''
        AND a.CIFAFMA = d.CODCLI 
 	LEFT OUTER JOIN &DT/FTPAE55F as e ON 
 	    e.CDDITTA = ''
 	    AND a.CSPEFM = e.CODCLI
 		AND a.DTFTFM >= e.DTIPA										 
 	LEFT OUTER JOIN &DT/FTPAF55F as f ON a.CDDTFM = f.CDDTFM
					      AND a.DTFTFM = f.DTFTFM
					      AND a.NRFTFM = f.NRFTFM
					      AND a.GIVAFM = f.GIVAFM
					      AND 'V' = f.VENDACQU
 	LEFT OUTER JOIN &DT/FTPAI55F as g ON f.PROGID = g.PROGID
 	LEFT OUTER JOIN &DT/FTPAU55V as h ON  a.CDDTFM = h.CDDTFAT
					      AND a.DTFTFM = h.DATAFAT
                          AND a.NRFTFM = h.NUMFAT
                          AND a.GIVAFM = h.GIVAFAT
                          AND '' = h.FORNFAT
   LEFT OUTER JOIN &DT/FTPAX55F as x ON (g.PROGID = x.PROGID and x.PROGRIGA = 0)
	JOIN &DT/CGANA00F as i ON i.CONTCA = b.CONTCP
	LEFT JOIN &DT/CGADE00F DEST ON DEST.CONTDE = a.CSPEFM
	LEFT JOIN &DT/FTPSET55F S ON 1=1
   WHERE coalesce(substr(DD.F00002, 10, 1), a.TDOCFM) <> 'P' 
   AND
   (f.storfm is null or f.STORFM <> 'S') 
   AND 
   (NOT f.nrftfm IS NULL OR 
   COALESCE(d.esclusofe, ' ') = ' '
   AND ((d.DTIPA IS NULL AND i.cisoca = 'IT' AND a.DTFTFM >= S.datainb2b 
   		OR
	(NOT d.DTIPA IS NULL AND (d.DTIPA > 0 AND a.DTFTFM >= d.DTIPA OR (d.DTIPA = 0 AND (d.PAOPRIV = ' ' OR a.DTFTFM >= S.datainb2b)))))))) AS FAT)
<TAG-SCRIPT><TAG-SCRIPT><IF-VERSION>5

LABEL ON TABLE &DT/FTMOV55V IS 'Art. 55 VIEW ATTUALI' 	
<TAG-SCRIPT>

DROP VIEW &DT/FTBKM55V
<TAG-SCRIPT>

DROP VIEW &DT/FTBKMAR55V
<TAG-SCRIPT>

CREATE VIEW &DT/FTBKMAR55V as (
  SELECT f.*,  
 CASE WHEN coalesce(af.CIFAFMA , '') = '' THEN f.CDCFFM ELSE af.CIFAFMA END AS CIFAFMA,
 coalesce(af.FTDIFMA , '') FTDIFMA 
 FROM &DT/ftbkm00f AS F
  LEFT JOIN &DT/FTBKMA0F AS af ON 
    f.CDDTFM = af.CDDTFMA AND
    f.TDOCFM = af.TDOCFMA AND
    f.NRDFFM = af.NRDFFMA AND
    f.NRRGFM = af.NRRGFMA AND
    f.NSRGFM = af.NSRGFMA
 WHERE f.CDDTFM ='01' AND f.NRFTFM > 0
     AND f.NRFTFM <> 9999999
     AND f.DTFTFM >= 20140601
     AND f.FLSFFM = '*')
<TAG-SCRIPT>

LABEL ON TABLE &DT/FTBKMAR55V IS 'Art. 55 VIEW FTBKM00F' 	
<TAG-SCRIPT>

CREATE VIEW &DT/FTBKM55V AS (
	SELECT FAT.*, 
	CASE WHEN PRIVATO = '1' AND FORDEST = '1' THEN '1' ELSE '0' END AS PRFORDEST,
	CASE WHEN PRIVATO = '0' OR FORDEST = '1' THEN coalesce(DEST, SPACE(10)) ELSE SPACE(10) END AS CSPEFM,
	CASE WHEN PRIVATO = '1' AND FORDEST = '1' THEN IPA_DEST WHEN PRIVATO = '1' THEN coalesce(IPA_CLI,'0000000') ELSE coalesce(IPA_DEST, IPA_CLI) END AS IPA,
	CASE WHEN PRIVATO = '1' AND FORDEST = '1' THEN MAILPEC_DEST WHEN PRIVATO = '1' THEN coalesce(MAILPEC_CLI, SPACE(256)) ELSE coalesce(MAILPEC_DEST, MAILPEC_CLI) END AS MAILPEC
	FROM (
SELECT a.DTFTFM,
          a.NRFTFM,
          CASE
              WHEN a.FLCGFM = '' THEN '0'
              WHEN a.FLCGFM = '*' THEN '1'
          END AS FLCG,
          a.CIFAFMA AS CDCFFM,
          a.CDCFFM AS f0CDCFFM,          
          CSPEFM AS DEST,
          a.GIVAFM,
          a.CDDTFM,
          a.FLSFFM,
          b.DSCOCP ,
          coalesce(CASE
          	WHEN g.STATOTRAS = 'T' and x.PROGID IS NOT NULL THEN 'E' 
          	WHEN coalesce(G.EXTID, '') = '' THEN g.STATOTRAS 
          	WHEN g.STATOTRAS = 'V' and x.PROGID IS NOT NULL THEN 'C' 
          	ELSE g.STATOTRAS END
          	, 'B') AS STATO,
          d.CODIPA AS IPA_CLI,
          e.CODIPA AS IPA_DEST,
          g.PROGID,
          c.DESC_GIVA,
          coalesce(h.ALLEG, 0) AS ALLEGATO,
          coalesce(G.EXTID, '') AS EXTID,
          CASE WHEN x.PROGID IS NULL THEN '0' ELSE '1' END AS ERRORI ,          
          CASE WHEN d.PAOPRIV IS NULL OR d.PAOPRIV = 'R' THEN '1' ELSE '0' END AS PRIVATO,
          d.MAILPEC as MAILPEC_CLI,
          e.MAILPEC as MAILPEC_DEST,
          coalesce(g.NOMEXML, ' ') AS NOMEXML,            
          coalesce(g.SERVTRA, ' ') AS SERVTRA,
          coalesce(f.NUMEFATT,' ') AS NUMEFATT,             
          coalesce(f.VENDACQU,'V') AS VENDACQU,
          case when a.flinfm <> ' ' AND A.FTDIFMA = 'D' AND A.CDCFFM = A.CIFAFMA AND DEST.CLFOCP = 'D' AND e.CODIPA IS NOT NULL THEN '1' ELSE '0' END FORDEST
   FROM &DT/FTBKMAR55V as a
	LEFT OUTER JOIN &DT/CSTAB as DD ON DD.K00001 = '01DD' CONCAT a.TDOCFM 
	JOIN &DT/CGPCO00F as b ON a.CIFAFMA = b.CONTCP
	JOIN &DT/SMTABAR55V  as c ON a.GIVAFM = c.XCODTB
    LEFT OUTER JOIN &DT/FTPAE55F as d ON 
         	d.CDDITTA = ''
        AND a.CIFAFMA = d.CODCLI 
 	LEFT OUTER JOIN &DT/FTPAE55F as e ON 
 	    e.CDDITTA = ''
 	    AND a.CSPEFM = e.CODCLI
 		AND a.DTFTFM >= e.DTIPA										 
 	LEFT OUTER JOIN &DT/FTPAF55F as f ON a.CDDTFM = f.CDDTFM
					      AND a.DTFTFM = f.DTFTFM
					      AND a.NRFTFM = f.NRFTFM
					      AND a.GIVAFM = f.GIVAFM
					      AND 'V' = f.VENDACQU
 	LEFT OUTER JOIN &DT/FTPAI55F as g ON f.PROGID = g.PROGID
 	LEFT OUTER JOIN &DT/FTPAU55V as h ON  a.CDDTFM = h.CDDTFAT
					      AND a.DTFTFM = h.DATAFAT
                          AND a.NRFTFM = h.NUMFAT
                          AND a.GIVAFM = h.GIVAFAT
                          AND '' = h.FORNFAT
   LEFT OUTER JOIN &DT/FTPAX55F as x ON (g.PROGID = x.PROGID and x.PROGRIGA = 0)
	JOIN &DT/CGANA00F as i ON i.CONTCA = b.CONTCP
	LEFT JOIN &DT/CGPCO00F DEST ON DEST.CONTCP = a.CSPEFM
	LEFT JOIN &DT/FTPSET55F S ON 1=1
   WHERE coalesce(substr(DD.F00002, 10, 1), a.TDOCFM) <> 'P' 
   AND
   (f.storfm is null or f.STORFM <> 'S') 
   AND 
   (NOT f.nrftfm IS NULL OR 
   COALESCE(d.esclusofe, ' ') = ' '
   AND ((d.DTIPA IS NULL AND i.cisoca = 'IT' AND a.DTFTFM >= S.datainb2b 
   		OR
	(NOT d.DTIPA IS NULL AND (d.DTIPA > 0 AND a.DTFTFM >= d.DTIPA OR (d.DTIPA = 0 AND (d.PAOPRIV = ' ' OR a.DTFTFM >= S.datainb2b)))))))) AS FAT)
<TAG-SCRIPT><TAG-SCRIPT><IFNOT-VERSION>5

CREATE VIEW &DT/FTBKM55V AS (
	SELECT FAT.*, 
	CASE WHEN PRIVATO = '1' AND FORDEST = '1' THEN '1' ELSE '0' END AS PRFORDEST,
	CASE WHEN PRIVATO = '0' OR FORDEST = '1' THEN coalesce(DEST, SPACE(10)) ELSE SPACE(10) END AS CSPEFM,
	CASE WHEN PRIVATO = '1' AND FORDEST = '1' THEN IPA_DEST WHEN PRIVATO = '1' THEN coalesce(IPA_CLI,'0000000') ELSE coalesce(IPA_DEST, IPA_CLI) END AS IPA,
	CASE WHEN PRIVATO = '1' AND FORDEST = '1' THEN MAILPEC_DEST WHEN PRIVATO = '1' THEN coalesce(MAILPEC_CLI, SPACE(256)) ELSE coalesce(MAILPEC_DEST, MAILPEC_CLI) END AS MAILPEC
	FROM (
SELECT a.DTFTFM,
          a.NRFTFM,
          CASE
              WHEN a.FLCGFM = '' THEN '0'
              WHEN a.FLCGFM = '*' THEN '1'
          END AS FLCG,
          a.CIFAFMA AS CDCFFM,
          a.CDCFFM AS f0CDCFFM,          
          CSPEFM AS DEST,
          a.GIVAFM,
          a.CDDTFM,
          a.FLSFFM,
          b.DSCOCP ,
          coalesce(CASE
          	WHEN g.STATOTRAS = 'T' and x.PROGID IS NOT NULL THEN 'E' 
          	WHEN coalesce(G.EXTID, '') = '' THEN g.STATOTRAS 
          	WHEN g.STATOTRAS = 'V' and x.PROGID IS NOT NULL THEN 'C' 
          	ELSE g.STATOTRAS END
          	, 'B') AS STATO,
          d.CODIPA AS IPA_CLI,
          e.CODIPA AS IPA_DEST,
          g.PROGID,
          c.DESC_GIVA,
          coalesce(h.ALLEG, 0) AS ALLEGATO,
          coalesce(G.EXTID, '') AS EXTID,
          CASE WHEN x.PROGID IS NULL THEN '0' ELSE '1' END AS ERRORI ,          
          CASE WHEN d.PAOPRIV IS NULL OR d.PAOPRIV = 'R' THEN '1' ELSE '0' END AS PRIVATO,
          d.MAILPEC as MAILPEC_CLI,
          e.MAILPEC as MAILPEC_DEST,
          coalesce(g.NOMEXML, ' ') AS NOMEXML,            
          coalesce(g.SERVTRA, ' ') AS SERVTRA,
          coalesce(f.NUMEFATT,' ') AS NUMEFATT,             
          coalesce(f.VENDACQU,'V') AS VENDACQU,
          case when a.flinfm <> ' ' AND A.FTDIFMA = 'D' AND A.CDCFFM = A.CIFAFMA AND DEST.CLFODE IS NOT NULL AND e.CODIPA IS NOT NULL THEN '1' ELSE '0' END FORDEST
   FROM &DT/FTBKMAR55V as a
	LEFT OUTER JOIN &DT/CSTAB as DD ON DD.K00001 = '01DD' CONCAT a.TDOCFM 
	JOIN &DT/CGPCO00F as b ON a.CIFAFMA = b.CONTCP
	JOIN &DT/SMTABAR55V  as c ON a.GIVAFM = c.XCODTB
    LEFT OUTER JOIN &DT/FTPAE55F as d ON 
         	d.CDDITTA = ''
        AND a.CIFAFMA = d.CODCLI 
 	LEFT OUTER JOIN &DT/FTPAE55F as e ON 
 	    e.CDDITTA = ''
 	    AND a.CSPEFM = e.CODCLI
 		AND a.DTFTFM >= e.DTIPA										 
 	LEFT OUTER JOIN &DT/FTPAF55F as f ON a.CDDTFM = f.CDDTFM
					      AND a.DTFTFM = f.DTFTFM
					      AND a.NRFTFM = f.NRFTFM
					      AND a.GIVAFM = f.GIVAFM
					      AND 'V' = f.VENDACQU
 	LEFT OUTER JOIN &DT/FTPAI55F as g ON f.PROGID = g.PROGID
 	LEFT OUTER JOIN &DT/FTPAU55V as h ON  a.CDDTFM = h.CDDTFAT
					      AND a.DTFTFM = h.DATAFAT
                          AND a.NRFTFM = h.NUMFAT
                          AND a.GIVAFM = h.GIVAFAT
                          AND '' = h.FORNFAT
   LEFT OUTER JOIN &DT/FTPAX55F as x ON (g.PROGID = x.PROGID and x.PROGRIGA = 0)
	JOIN &DT/CGANA00F as i ON i.CONTCA = b.CONTCP
	LEFT JOIN &DT/CGADE00F DEST ON DEST.CONTDE = a.CSPEFM
	LEFT JOIN &DT/FTPSET55F S ON 1=1
   WHERE coalesce(substr(DD.F00002, 10, 1), a.TDOCFM) <> 'P' 
   AND
   (f.storfm is null or f.STORFM <> 'S') 
   AND 
   (NOT f.nrftfm IS NULL OR 
   COALESCE(d.esclusofe, ' ') = ' '
   AND ((d.DTIPA IS NULL AND i.cisoca = 'IT' AND a.DTFTFM >= S.datainb2b 
   		OR
	(NOT d.DTIPA IS NULL AND (d.DTIPA > 0 AND a.DTFTFM >= d.DTIPA OR (d.DTIPA = 0 AND (d.PAOPRIV = ' ' OR a.DTFTFM >= S.datainb2b)))))))) AS FAT)
<TAG-SCRIPT><TAG-SCRIPT><IF-VERSION>5

LABEL ON TABLE &DT/FTBKM55V IS 'Art. 55 VIEW STORICI' 	
<TAG-SCRIPT>

<TAG-VERSIONE-15.10.0>
<TAG-SCRIPT>

CREATE VIEW &DT/FTFTE55V AS (
	SELECT FAT.*, 
	CASE WHEN PRIVATO = '1' AND FORDEST = '1' THEN '1' ELSE '0' END AS PRFORDEST,
	CASE WHEN PRIVATO = '0' OR FORDEST = '1' THEN coalesce(DEST, SPACE(10)) ELSE SPACE(10) END AS CSPEFM,
	CASE WHEN DATI_STORICI = '1' THEN IPA_CLI WHEN PRIVATO = '1' AND FORDEST = '1' THEN IPA_DEST WHEN PRIVATO = '1' THEN coalesce(IPA_CLI,'0000000') ELSE coalesce(IPA_DEST, IPA_CLI) END AS IPA,
	CASE WHEN DATI_STORICI = '1' THEN MAILPEC_CLI WHEN PRIVATO = '1' AND FORDEST = '1' THEN MAILPEC_DEST WHEN PRIVATO = '1' THEN coalesce(MAILPEC_CLI, SPACE(256)) ELSE coalesce(MAILPEC_DEST, MAILPEC_CLI) END AS MAILPEC,
	CASE WHEN PRIVATO_NEW = '1' AND FORDEST = '1' THEN IPA_DEST_NEW WHEN PRIVATO_NEW = '1' THEN coalesce(IPA_CLI_NEW,'0000000') ELSE coalesce(IPA_DEST_NEW, IPA_CLI_NEW) END AS IPA_NEW,
	CASE WHEN PRIVATO_NEW = '1' AND FORDEST = '1' THEN MAILPEC_DEST_NEW WHEN PRIVATO_NEW = '1' THEN coalesce(MAILPEC_CLI_NEW, SPACE(256)) ELSE coalesce(MAILPEC_DEST_NEW, MAILPEC_CLI_NEW) END AS MAILPEC_NEW
	FROM (
SELECT a.DTFTFM,
          a.NRFTFM,
          CASE
              WHEN a.FLCGFM = '' THEN '0'
              WHEN a.FLCGFM = '*' THEN '1'
          END AS FLCG,
          coalesce(f.cdcffm, a.CIFAFMA) AS CDCFFM,
          a.CIFAFMA CDCFFM_NEW,
          a.CDCFFM AS f0CDCFFM,          
          CSPEFM AS DEST,
          a.GIVAFM,
          a.CDDTFM,
          a.FLSFFM,
          case when G.CODIDEST IS NULL THEN '0' ELSE '1' END DATI_STORICI,
          case when G.DENOMCES IS NULL THEN b.DSCOCP WHEN G.DENOMCES = ''  THEN RTRIM(G.NOMECES) CONCAT ' ' CONCAT G.COGNOCES ELSE G.DENOMCES END AS DSCOCP,
          coalesce(CASE
          	WHEN g.STATOTRAS = 'T' and x.PROGID IS NOT NULL THEN 'E' 
          	WHEN coalesce(G.EXTID, '') = '' THEN g.STATOTRAS 
          	WHEN g.STATOTRAS = 'V' and x.PROGID IS NOT NULL THEN 'C' 
          	ELSE g.STATOTRAS END
          	, 'B') AS STATO,
          COALESCE(G.CODIDEST, d.CODIPA) AS IPA_CLI,
          COALESCE(G.CODIDEST, e.CODIPA) AS IPA_DEST,
          d.CODIPA AS IPA_CLI_NEW,
          e.CODIPA AS IPA_DEST_NEW,
          g.PROGID,
          c.DESC_GIVA,
          coalesce(h.ALLEG, 0) AS ALLEGATO,
          coalesce(G.EXTID, '') AS EXTID,
          CASE WHEN x.PROGID IS NULL THEN '0' ELSE '1' END AS ERRORI ,          
          CASE WHEN G.PAOPRIV IS NULL AND (d.PAOPRIV IS NULL OR d.PAOPRIV = 'R') OR G.PAOPRIV IS NOT NULL AND G.PAOPRIV = 'R' THEN '1' ELSE '0' END AS PRIVATO,
          CASE WHEN d.PAOPRIV IS NULL OR d.PAOPRIV = 'R' THEN '1' ELSE '0' END AS PRIVATO_NEW,
          coalesce(G.MAILPEC, d.MAILPEC) as MAILPEC_CLI,
          coalesce(G.MAILPEC, e.MAILPEC) as MAILPEC_DEST,
          d.MAILPEC as MAILPEC_CLI_NEW,
          e.MAILPEC as MAILPEC_DEST_NEW,
          coalesce(g.NOMEXML, ' ') AS NOMEXML,            
          coalesce(g.SERVTRA, ' ') AS SERVTRA,
          coalesce(f.NUMEFATT,' ') AS NUMEFATT,             
          coalesce(f.VENDACQU,'V') AS VENDACQU,
          case when a.flinfm <> ' ' AND A.FTDIFMA IN ('D','*') AND A.CDCFFM = A.CIFAFMA AND DEST.CLFOCP = 'D' AND e.CODIPA IS NOT NULL THEN '1' ELSE '0' END FORDEST
   FROM &DT/FTPAFE55F as a
	LEFT OUTER JOIN &DT/CSTAB as DD ON DD.K00001 = '01DD' CONCAT a.TDOCFM 
	JOIN &DT/CGPCO00F as b ON a.CIFAFMA = b.CONTCP
	JOIN &DT/SMTABAR55V  as c ON a.GIVAFM = c.XCODTB
    LEFT OUTER JOIN &DT/FTPAE55F as d ON 
         	d.CDDITTA = ''
        AND a.CIFAFMA = d.CODCLI 
        AND (d.CODIPA <> '' OR d.esclusofe ='S') 
 	LEFT OUTER JOIN &DT/FTPAE55F as e ON 
 	    e.CDDITTA = ''
 	    AND a.CSPEFM = e.CODCLI
 		AND a.DTFTFM >= e.DTIPA		
        AND e.CODIPA <> '' 
        AND e.esclusofe =' ' 
 	LEFT OUTER JOIN &DT/FTPAF55F as f ON a.CDDTFM = f.CDDTFM
					      AND a.DTFTFM = f.DTFTFM
					      AND a.NRFTFM = f.NRFTFM
					      AND a.GIVAFM = f.GIVAFM
					      AND 'V' = f.VENDACQU
 	LEFT OUTER JOIN &DT/FTPAI55F as g ON f.PROGID = g.PROGID
 	LEFT OUTER JOIN &DT/FTPAU55V as h ON  a.CDDTFM = h.CDDTFAT
					      AND a.DTFTFM = h.DATAFAT
                          AND a.NRFTFM = h.NUMFAT
                          AND a.GIVAFM = h.GIVAFAT
                          AND '' = h.FORNFAT
   LEFT OUTER JOIN &DT/FTPAX55F as x ON (g.PROGID = x.PROGID and x.PROGRIGA = 0)
	JOIN &DT/CGANA00F as i ON i.CONTCA = b.CONTCP
	LEFT JOIN &DT/CGPCO00F DEST ON DEST.CONTCP = a.CSPEFM
	LEFT JOIN &DT/FTPSET55F S ON 1=1
   WHERE coalesce(substr(DD.F00002, 10, 1), a.TDOCFM) <> 'P' 
   AND
   (f.storfm is null or f.STORFM <> 'S') 
   AND 
   (NOT f.nrftfm IS NULL OR 
   COALESCE(d.esclusofe, ' ') = ' '
   AND ((d.DTIPA IS NULL AND i.cisoca = 'IT' AND a.DTFTFM >= S.datainb2b 
   		OR
	(NOT d.DTIPA IS NULL AND (d.DTIPA > 0 AND a.DTFTFM >= d.DTIPA OR (d.DTIPA = 0 AND (d.PAOPRIV = ' ' OR a.DTFTFM >= S.datainb2b)))))))) AS FAT)
<TAG-SCRIPT><IFNOT-VERSION>5

CREATE VIEW &DT/FTFTE55V AS (
	SELECT FAT.*, 
	CASE WHEN PRIVATO = '1' AND FORDEST = '1' THEN '1' ELSE '0' END AS PRFORDEST,
	CASE WHEN PRIVATO = '0' OR FORDEST = '1' THEN coalesce(DEST, SPACE(10)) ELSE SPACE(10) END AS CSPEFM,
	CASE WHEN DATI_STORICI = '1' THEN IPA_CLI WHEN PRIVATO = '1' AND FORDEST = '1' THEN IPA_DEST WHEN PRIVATO = '1' THEN coalesce(IPA_CLI,'0000000') ELSE coalesce(IPA_DEST, IPA_CLI) END AS IPA,
	CASE WHEN DATI_STORICI = '1' THEN MAILPEC_CLI WHEN PRIVATO = '1' AND FORDEST = '1' THEN MAILPEC_DEST WHEN PRIVATO = '1' THEN coalesce(MAILPEC_CLI, SPACE(256)) ELSE coalesce(MAILPEC_DEST, MAILPEC_CLI) END AS MAILPEC,
	CASE WHEN PRIVATO_NEW = '1' AND FORDEST = '1' THEN IPA_DEST_NEW WHEN PRIVATO_NEW = '1' THEN coalesce(IPA_CLI_NEW,'0000000') ELSE coalesce(IPA_DEST_NEW, IPA_CLI_NEW) END AS IPA_NEW,
	CASE WHEN PRIVATO_NEW = '1' AND FORDEST = '1' THEN MAILPEC_DEST_NEW WHEN PRIVATO_NEW = '1' THEN coalesce(MAILPEC_CLI_NEW, SPACE(256)) ELSE coalesce(MAILPEC_DEST_NEW, MAILPEC_CLI_NEW) END AS MAILPEC_NEW
	FROM (
SELECT a.DTFTFM,
          a.NRFTFM,
          CASE
              WHEN a.FLCGFM = '' THEN '0'
              WHEN a.FLCGFM = '*' THEN '1'
          END AS FLCG,
          coalesce(f.cdcffm, a.CIFAFMA) AS CDCFFM,
          a.CIFAFMA CDCFFM_NEW,
          a.CDCFFM AS f0CDCFFM,          
          CSPEFM AS DEST,
          a.GIVAFM,
          a.CDDTFM,
          a.FLSFFM,
          case when G.CODIDEST IS NULL THEN '0' ELSE '1' END DATI_STORICI,
          case when G.DENOMCES IS NULL THEN b.DSCOCP WHEN G.DENOMCES = ''  THEN RTRIM(G.NOMECES) CONCAT ' ' CONCAT G.COGNOCES ELSE G.DENOMCES END AS DSCOCP,
          coalesce(CASE
          	WHEN g.STATOTRAS = 'T' and x.PROGID IS NOT NULL THEN 'E' 
          	WHEN coalesce(G.EXTID, '') = '' THEN g.STATOTRAS 
          	WHEN g.STATOTRAS = 'V' and x.PROGID IS NOT NULL THEN 'C' 
          	ELSE g.STATOTRAS END
          	, 'B') AS STATO,
          COALESCE(G.CODIDEST, d.CODIPA) AS IPA_CLI,
          COALESCE(G.CODIDEST, e.CODIPA) AS IPA_DEST,
          d.CODIPA AS IPA_CLI_NEW,
          e.CODIPA AS IPA_DEST_NEW,
          g.PROGID,
          c.DESC_GIVA,
          coalesce(h.ALLEG, 0) AS ALLEGATO,
          coalesce(G.EXTID, '') AS EXTID,
          CASE WHEN x.PROGID IS NULL THEN '0' ELSE '1' END AS ERRORI ,          
          CASE WHEN G.PAOPRIV IS NULL AND (d.PAOPRIV IS NULL OR d.PAOPRIV = 'R') OR G.PAOPRIV IS NOT NULL AND G.PAOPRIV = 'R' THEN '1' ELSE '0' END AS PRIVATO,
          CASE WHEN d.PAOPRIV IS NULL OR d.PAOPRIV = 'R' THEN '1' ELSE '0' END AS PRIVATO_NEW,
          coalesce(G.MAILPEC, d.MAILPEC) as MAILPEC_CLI,
          coalesce(G.MAILPEC, e.MAILPEC) as MAILPEC_DEST,
          d.MAILPEC as MAILPEC_CLI_NEW,
          e.MAILPEC as MAILPEC_DEST_NEW,
          coalesce(g.NOMEXML, ' ') AS NOMEXML,            
          coalesce(g.SERVTRA, ' ') AS SERVTRA,
          coalesce(f.NUMEFATT,' ') AS NUMEFATT,             
          coalesce(f.VENDACQU,'V') AS VENDACQU,
          case when a.flinfm <> ' ' AND A.FTDIFMA IN ('D','*') AND A.CDCFFM = A.CIFAFMA AND DEST.CLFODE IS NOT NULL AND e.CODIPA IS NOT NULL THEN '1' ELSE '0' END FORDEST
   FROM &DT/FTPAFE55F as a
	LEFT OUTER JOIN &DT/CSTAB as DD ON DD.K00001 = '01DD' CONCAT a.TDOCFM 
	JOIN &DT/CGPCO00F as b ON a.CIFAFMA = b.CONTCP
	JOIN &DT/SMTABAR55V  as c ON a.GIVAFM = c.XCODTB
    LEFT OUTER JOIN &DT/FTPAE55F as d ON 
         	d.CDDITTA = ''
        AND a.CIFAFMA = d.CODCLI 
        AND (d.CODIPA <> '' OR d.esclusofe ='S') 
  	LEFT OUTER JOIN &DT/FTPAE55F as e ON 
 	    e.CDDITTA = ''
 	    AND a.CSPEFM = e.CODCLI
 		AND a.DTFTFM >= e.DTIPA										 
        AND e.CODIPA <> '' 
        AND e.esclusofe =' ' 
 	LEFT OUTER JOIN &DT/FTPAF55F as f ON a.CDDTFM = f.CDDTFM
					      AND a.DTFTFM = f.DTFTFM
					      AND a.NRFTFM = f.NRFTFM
					      AND a.GIVAFM = f.GIVAFM
					      AND 'V' = f.VENDACQU
 	LEFT OUTER JOIN &DT/FTPAI55F as g ON f.PROGID = g.PROGID
 	LEFT OUTER JOIN &DT/FTPAU55V as h ON  a.CDDTFM = h.CDDTFAT
					      AND a.DTFTFM = h.DATAFAT
                          AND a.NRFTFM = h.NUMFAT
                          AND a.GIVAFM = h.GIVAFAT
                          AND '' = h.FORNFAT
   LEFT OUTER JOIN &DT/FTPAX55F as x ON (g.PROGID = x.PROGID and x.PROGRIGA = 0)
	JOIN &DT/CGANA00F as i ON i.CONTCA = b.CONTCP
	LEFT JOIN &DT/CGADE00F DEST ON DEST.CONTDE = a.CSPEFM
	LEFT JOIN &DT/FTPSET55F S ON 1=1
   WHERE coalesce(substr(DD.F00002, 10, 1), a.TDOCFM) <> 'P' 
   AND
   (f.storfm is null or f.STORFM <> 'S') 
   AND 
   (NOT f.nrftfm IS NULL OR 
   COALESCE(d.esclusofe, ' ') = ' '
   AND ((d.DTIPA IS NULL AND i.cisoca = 'IT' AND a.DTFTFM >= S.datainb2b 
   		OR
	(NOT d.DTIPA IS NULL AND (d.DTIPA > 0 AND a.DTFTFM >= d.DTIPA OR (d.DTIPA = 0 AND (d.PAOPRIV = ' ' OR a.DTFTFM >= S.datainb2b)))))))) AS FAT)
<TAG-SCRIPT><IF-VERSION>5

LABEL ON TABLE &DT/FTFTE55V IS 'Art. 55 VIEW FATTURE STORICHE E ATTUALI' 	
<TAG-SCRIPT>

DROP VIEW &DT/FTMOV55V
<TAG-SCRIPT>

CREATE VIEW &DT/FTMOV55V AS (
	SELECT FAT.*, 
	CASE WHEN PRIVATO = '1' AND FORDEST = '1' THEN '1' ELSE '0' END AS PRFORDEST,
	CASE WHEN PRIVATO = '0' OR FORDEST = '1' THEN coalesce(DEST, SPACE(10)) ELSE SPACE(10) END AS CSPEFM,
	CASE WHEN DATI_STORICI = '1' THEN IPA_CLI WHEN PRIVATO = '1' AND FORDEST = '1' THEN IPA_DEST WHEN PRIVATO = '1' THEN coalesce(IPA_CLI,'0000000') ELSE coalesce(IPA_DEST, IPA_CLI) END AS IPA,
	CASE WHEN DATI_STORICI = '1' THEN MAILPEC_CLI WHEN PRIVATO = '1' AND FORDEST = '1' THEN MAILPEC_DEST WHEN PRIVATO = '1' THEN coalesce(MAILPEC_CLI, SPACE(256)) ELSE coalesce(MAILPEC_DEST, MAILPEC_CLI) END AS MAILPEC,
	CASE WHEN PRIVATO_NEW = '1' AND FORDEST = '1' THEN IPA_DEST_NEW WHEN PRIVATO_NEW = '1' THEN coalesce(IPA_CLI_NEW,'0000000') ELSE coalesce(IPA_DEST_NEW, IPA_CLI_NEW) END AS IPA_NEW,
	CASE WHEN PRIVATO_NEW = '1' AND FORDEST = '1' THEN MAILPEC_DEST_NEW WHEN PRIVATO_NEW = '1' THEN coalesce(MAILPEC_CLI_NEW, SPACE(256)) ELSE coalesce(MAILPEC_DEST_NEW, MAILPEC_CLI_NEW) END AS MAILPEC_NEW
	FROM (
SELECT a.DTFTFM,
          a.NRFTFM,
          CASE
              WHEN a.FLCGFM = '' THEN '0'
              WHEN a.FLCGFM = '*' THEN '1'
          END AS FLCG,
          coalesce(f.cdcffm, a.CIFAFMA) AS CDCFFM,
          a.CIFAFMA CDCFFM_NEW,
          a.CDCFFM AS f0CDCFFM,          
          CSPEFM AS DEST,
          a.GIVAFM,
          a.CDDTFM,
          a.FLSFFM,
          case when G.CODIDEST IS NULL THEN '0' ELSE '1' END DATI_STORICI,
          case when G.DENOMCES IS NULL THEN b.DSCOCP WHEN G.DENOMCES = ''  THEN RTRIM(G.NOMECES) CONCAT ' ' CONCAT G.COGNOCES ELSE G.DENOMCES END AS DSCOCP,
          coalesce(CASE
          	WHEN g.STATOTRAS = 'T' and x.PROGID IS NOT NULL THEN 'E' 
          	WHEN coalesce(G.EXTID, '') = '' THEN g.STATOTRAS 
          	WHEN g.STATOTRAS = 'V' and x.PROGID IS NOT NULL THEN 'C' 
          	ELSE g.STATOTRAS END
          	, 'B') AS STATO,
          COALESCE(G.CODIDEST, d.CODIPA) AS IPA_CLI,
          COALESCE(G.CODIDEST, e.CODIPA) AS IPA_DEST,
          d.CODIPA AS IPA_CLI_NEW,
          e.CODIPA AS IPA_DEST_NEW,
          g.PROGID,
          c.DESC_GIVA,
          coalesce(h.ALLEG, 0) AS ALLEGATO,
          coalesce(G.EXTID, '') AS EXTID,
          CASE WHEN x.PROGID IS NULL THEN '0' ELSE '1' END AS ERRORI ,          
          CASE WHEN G.PAOPRIV IS NULL AND (d.PAOPRIV IS NULL OR d.PAOPRIV = 'R') OR G.PAOPRIV IS NOT NULL AND G.PAOPRIV = 'R' THEN '1' ELSE '0' END AS PRIVATO,
          CASE WHEN d.PAOPRIV IS NULL OR d.PAOPRIV = 'R' THEN '1' ELSE '0' END AS PRIVATO_NEW,
          coalesce(G.MAILPEC, d.MAILPEC) as MAILPEC_CLI,
          coalesce(G.MAILPEC, e.MAILPEC) as MAILPEC_DEST,
          d.MAILPEC as MAILPEC_CLI_NEW,
          e.MAILPEC as MAILPEC_DEST_NEW,
          coalesce(g.NOMEXML, ' ') AS NOMEXML,            
          coalesce(g.SERVTRA, ' ') AS SERVTRA,
          coalesce(f.NUMEFATT,' ') AS NUMEFATT,             
          coalesce(f.VENDACQU,'V') AS VENDACQU,
          case when a.flinfm <> ' ' AND A.FTDIFMA IN ('D','*') AND A.CDCFFM = A.CIFAFMA AND DEST.CLFOCP = 'D' AND e.CODIPA IS NOT NULL THEN '1' ELSE '0' END FORDEST
   FROM &DT/FTMOVAR55V as a
	LEFT OUTER JOIN &DT/CSTAB as DD ON DD.K00001 = '01DD' CONCAT a.TDOCFM 
	JOIN &DT/CGPCO00F as b ON a.CIFAFMA = b.CONTCP
	JOIN &DT/SMTABAR55V  as c ON a.GIVAFM = c.XCODTB
    LEFT OUTER JOIN &DT/FTPAE55F as d ON 
         	d.CDDITTA = ''
        AND a.CIFAFMA = d.CODCLI
        AND (d.CODIPA <> '' OR d.esclusofe ='S') 
 	LEFT OUTER JOIN &DT/FTPAE55F as e ON 
 	    e.CDDITTA = ''
 	    AND a.CSPEFM = e.CODCLI
 		AND a.DTFTFM >= e.DTIPA	
        AND e.CODIPA <> '' 
        AND e.esclusofe =' ' 
 	LEFT OUTER JOIN &DT/FTPAF55F as f ON a.CDDTFM = f.CDDTFM
					      AND a.DTFTFM = f.DTFTFM
					      AND a.NRFTFM = f.NRFTFM
					      AND a.GIVAFM = f.GIVAFM
					      AND 'V' = f.VENDACQU
 	LEFT OUTER JOIN &DT/FTPAI55F as g ON f.PROGID = g.PROGID
 	LEFT OUTER JOIN &DT/FTPAU55V as h ON  a.CDDTFM = h.CDDTFAT
					      AND a.DTFTFM = h.DATAFAT
                          AND a.NRFTFM = h.NUMFAT
                          AND a.GIVAFM = h.GIVAFAT
                          AND '' = h.FORNFAT
   LEFT OUTER JOIN &DT/FTPAX55F as x ON (g.PROGID = x.PROGID and x.PROGRIGA = 0)
	JOIN &DT/CGANA00F as i ON i.CONTCA = b.CONTCP
	LEFT JOIN &DT/CGPCO00F DEST ON DEST.CONTCP = a.CSPEFM
	LEFT JOIN &DT/FTPSET55F S ON 1=1
   WHERE coalesce(substr(DD.F00002, 10, 1), a.TDOCFM) <> 'P' 
   AND
   (f.storfm is null or f.STORFM <> 'S') 
   AND 
   (NOT f.nrftfm IS NULL OR 
   COALESCE(d.esclusofe, ' ') = ' '
   AND ((d.DTIPA IS NULL AND i.cisoca = 'IT' AND a.DTFTFM >= S.datainb2b 
   		OR
	(NOT d.DTIPA IS NULL AND (d.DTIPA > 0 AND a.DTFTFM >= d.DTIPA OR (d.DTIPA = 0 AND (d.PAOPRIV = ' ' OR a.DTFTFM >= S.datainb2b)))))))) AS FAT)
<TAG-SCRIPT><IFNOT-VERSION>5

CREATE VIEW &DT/FTMOV55V AS (
	SELECT FAT.*, 
	CASE WHEN PRIVATO = '1' AND FORDEST = '1' THEN '1' ELSE '0' END AS PRFORDEST,
	CASE WHEN PRIVATO = '0' OR FORDEST = '1' THEN coalesce(DEST, SPACE(10)) ELSE SPACE(10) END AS CSPEFM,
	CASE WHEN DATI_STORICI = '1' THEN IPA_CLI WHEN PRIVATO = '1' AND FORDEST = '1' THEN IPA_DEST WHEN PRIVATO = '1' THEN coalesce(IPA_CLI,'0000000') ELSE coalesce(IPA_DEST, IPA_CLI) END AS IPA,
	CASE WHEN DATI_STORICI = '1' THEN MAILPEC_CLI WHEN PRIVATO = '1' AND FORDEST = '1' THEN MAILPEC_DEST WHEN PRIVATO = '1' THEN coalesce(MAILPEC_CLI, SPACE(256)) ELSE coalesce(MAILPEC_DEST, MAILPEC_CLI) END AS MAILPEC,
	CASE WHEN PRIVATO_NEW = '1' AND FORDEST = '1' THEN IPA_DEST_NEW WHEN PRIVATO_NEW = '1' THEN coalesce(IPA_CLI_NEW,'0000000') ELSE coalesce(IPA_DEST_NEW, IPA_CLI_NEW) END AS IPA_NEW,
	CASE WHEN PRIVATO_NEW = '1' AND FORDEST = '1' THEN MAILPEC_DEST_NEW WHEN PRIVATO_NEW = '1' THEN coalesce(MAILPEC_CLI_NEW, SPACE(256)) ELSE coalesce(MAILPEC_DEST_NEW, MAILPEC_CLI_NEW) END AS MAILPEC_NEW
	FROM (
SELECT a.DTFTFM,
          a.NRFTFM,
          CASE
              WHEN a.FLCGFM = '' THEN '0'
              WHEN a.FLCGFM = '*' THEN '1'
          END AS FLCG,
          coalesce(f.cdcffm, a.CIFAFMA) AS CDCFFM,
          a.CIFAFMA CDCFFM_NEW,
          a.CDCFFM AS f0CDCFFM,          
          CSPEFM AS DEST,
          a.GIVAFM,
          a.CDDTFM,
          a.FLSFFM,
          case when G.CODIDEST IS NULL THEN '0' ELSE '1' END DATI_STORICI,
          case when G.DENOMCES IS NULL THEN b.DSCOCP WHEN G.DENOMCES = ''  THEN RTRIM(G.NOMECES) CONCAT ' ' CONCAT G.COGNOCES ELSE G.DENOMCES END AS DSCOCP,
          coalesce(CASE
          	WHEN g.STATOTRAS = 'T' and x.PROGID IS NOT NULL THEN 'E' 
          	WHEN coalesce(G.EXTID, '') = '' THEN g.STATOTRAS 
          	WHEN g.STATOTRAS = 'V' and x.PROGID IS NOT NULL THEN 'C' 
          	ELSE g.STATOTRAS END
          	, 'B') AS STATO,
          COALESCE(G.CODIDEST, d.CODIPA) AS IPA_CLI,
          COALESCE(G.CODIDEST, e.CODIPA) AS IPA_DEST,
          d.CODIPA AS IPA_CLI_NEW,
          e.CODIPA AS IPA_DEST_NEW,
          g.PROGID,
          c.DESC_GIVA,
          coalesce(h.ALLEG, 0) AS ALLEGATO,
          coalesce(G.EXTID, '') AS EXTID,
          CASE WHEN x.PROGID IS NULL THEN '0' ELSE '1' END AS ERRORI ,          
          CASE WHEN G.PAOPRIV IS NULL AND (d.PAOPRIV IS NULL OR d.PAOPRIV = 'R') OR G.PAOPRIV IS NOT NULL AND G.PAOPRIV = 'R' THEN '1' ELSE '0' END AS PRIVATO,
          CASE WHEN d.PAOPRIV IS NULL OR d.PAOPRIV = 'R' THEN '1' ELSE '0' END AS PRIVATO_NEW,
          coalesce(G.MAILPEC, d.MAILPEC) as MAILPEC_CLI,
          coalesce(G.MAILPEC, e.MAILPEC) as MAILPEC_DEST,
          d.MAILPEC as MAILPEC_CLI_NEW,
          e.MAILPEC as MAILPEC_DEST_NEW,
          coalesce(g.NOMEXML, ' ') AS NOMEXML,            
          coalesce(g.SERVTRA, ' ') AS SERVTRA,
          coalesce(f.NUMEFATT,' ') AS NUMEFATT,             
          coalesce(f.VENDACQU,'V') AS VENDACQU,
          case when a.flinfm <> ' ' AND A.FTDIFMA IN ('D','*') AND A.CDCFFM = A.CIFAFMA AND DEST.CLFODE IS NOT NULL AND e.CODIPA IS NOT NULL THEN '1' ELSE '0' END FORDEST
   FROM &DT/FTMOVAR55V as a
	LEFT OUTER JOIN &DT/CSTAB as DD ON DD.K00001 = '01DD' CONCAT a.TDOCFM 
	JOIN &DT/CGPCO00F as b ON a.CIFAFMA = b.CONTCP
	JOIN &DT/SMTABAR55V  as c ON a.GIVAFM = c.XCODTB
    LEFT OUTER JOIN &DT/FTPAE55F as d ON 
         	d.CDDITTA = ''
        AND a.CIFAFMA = d.CODCLI 
        AND (d.CODIPA <> '' OR d.esclusofe ='S') 
 	LEFT OUTER JOIN &DT/FTPAE55F as e ON 
 	    e.CDDITTA = ''
 	    AND a.CSPEFM = e.CODCLI
 		AND a.DTFTFM >= e.DTIPA										 
        AND e.CODIPA <> '' 
        AND e.esclusofe =' ' 
 	LEFT OUTER JOIN &DT/FTPAF55F as f ON a.CDDTFM = f.CDDTFM
					      AND a.DTFTFM = f.DTFTFM
					      AND a.NRFTFM = f.NRFTFM
					      AND a.GIVAFM = f.GIVAFM
					      AND 'V' = f.VENDACQU
 	LEFT OUTER JOIN &DT/FTPAI55F as g ON f.PROGID = g.PROGID
 	LEFT OUTER JOIN &DT/FTPAU55V as h ON  a.CDDTFM = h.CDDTFAT
					      AND a.DTFTFM = h.DATAFAT
                          AND a.NRFTFM = h.NUMFAT
                          AND a.GIVAFM = h.GIVAFAT
                          AND '' = h.FORNFAT
   LEFT OUTER JOIN &DT/FTPAX55F as x ON (g.PROGID = x.PROGID and x.PROGRIGA = 0)
	JOIN &DT/CGANA00F as i ON i.CONTCA = b.CONTCP
	LEFT JOIN &DT/CGADE00F DEST ON DEST.CONTDE = a.CSPEFM
	LEFT JOIN &DT/FTPSET55F S ON 1=1
   WHERE coalesce(substr(DD.F00002, 10, 1), a.TDOCFM) <> 'P' 
   AND
   (f.storfm is null or f.STORFM <> 'S') 
   AND 
   (NOT f.nrftfm IS NULL OR 
   COALESCE(d.esclusofe, ' ') = ' '
   AND ((d.DTIPA IS NULL AND i.cisoca = 'IT' AND a.DTFTFM >= S.datainb2b 
   		OR
	(NOT d.DTIPA IS NULL AND (d.DTIPA > 0 AND a.DTFTFM >= d.DTIPA OR (d.DTIPA = 0 AND (d.PAOPRIV = ' ' OR a.DTFTFM >= S.datainb2b)))))))) AS FAT)
<TAG-SCRIPT><IF-VERSION>5

LABEL ON TABLE &DT/FTMOV55V IS 'Art. 55 VIEW ATTUALI' 	
<TAG-SCRIPT>

DROP VIEW &DT/FTBKM55V
<TAG-SCRIPT>

CREATE VIEW &DT/FTBKM55V AS (
	SELECT FAT.*, 
	CASE WHEN PRIVATO = '1' AND FORDEST = '1' THEN '1' ELSE '0' END AS PRFORDEST,
	CASE WHEN PRIVATO = '0' OR FORDEST = '1' THEN coalesce(DEST, SPACE(10)) ELSE SPACE(10) END AS CSPEFM,
	CASE WHEN DATI_STORICI = '1' THEN IPA_CLI WHEN PRIVATO = '1' AND FORDEST = '1' THEN IPA_DEST WHEN PRIVATO = '1' THEN coalesce(IPA_CLI,'0000000') ELSE coalesce(IPA_DEST, IPA_CLI) END AS IPA,
	CASE WHEN DATI_STORICI = '1' THEN MAILPEC_CLI WHEN PRIVATO = '1' AND FORDEST = '1' THEN MAILPEC_DEST WHEN PRIVATO = '1' THEN coalesce(MAILPEC_CLI, SPACE(256)) ELSE coalesce(MAILPEC_DEST, MAILPEC_CLI) END AS MAILPEC,
	CASE WHEN PRIVATO_NEW = '1' AND FORDEST = '1' THEN IPA_DEST_NEW WHEN PRIVATO_NEW = '1' THEN coalesce(IPA_CLI_NEW,'0000000') ELSE coalesce(IPA_DEST_NEW, IPA_CLI_NEW) END AS IPA_NEW,
	CASE WHEN PRIVATO_NEW = '1' AND FORDEST = '1' THEN MAILPEC_DEST_NEW WHEN PRIVATO_NEW = '1' THEN coalesce(MAILPEC_CLI_NEW, SPACE(256)) ELSE coalesce(MAILPEC_DEST_NEW, MAILPEC_CLI_NEW) END AS MAILPEC_NEW
	FROM (
SELECT a.DTFTFM,
          a.NRFTFM,
          CASE
              WHEN a.FLCGFM = '' THEN '0'
              WHEN a.FLCGFM = '*' THEN '1'
          END AS FLCG,
          coalesce(f.cdcffm, a.CIFAFMA) AS CDCFFM,
          a.CIFAFMA CDCFFM_NEW,
          a.CDCFFM AS f0CDCFFM,          
          CSPEFM AS DEST,
          a.GIVAFM,
          a.CDDTFM,
          a.FLSFFM,
          case when G.CODIDEST IS NULL THEN '0' ELSE '1' END DATI_STORICI,
          case when G.DENOMCES IS NULL THEN b.DSCOCP WHEN G.DENOMCES = ''  THEN RTRIM(G.NOMECES) CONCAT ' ' CONCAT G.COGNOCES ELSE G.DENOMCES END AS DSCOCP,
          coalesce(CASE
          	WHEN g.STATOTRAS = 'T' and x.PROGID IS NOT NULL THEN 'E' 
          	WHEN coalesce(G.EXTID, '') = '' THEN g.STATOTRAS 
          	WHEN g.STATOTRAS = 'V' and x.PROGID IS NOT NULL THEN 'C' 
          	ELSE g.STATOTRAS END
          	, 'B') AS STATO,
          COALESCE(G.CODIDEST, d.CODIPA) AS IPA_CLI,
          COALESCE(G.CODIDEST, e.CODIPA) AS IPA_DEST,
          d.CODIPA AS IPA_CLI_NEW,
          e.CODIPA AS IPA_DEST_NEW,
          g.PROGID,
          c.DESC_GIVA,
          coalesce(h.ALLEG, 0) AS ALLEGATO,
          coalesce(G.EXTID, '') AS EXTID,
          CASE WHEN x.PROGID IS NULL THEN '0' ELSE '1' END AS ERRORI ,          
          CASE WHEN G.PAOPRIV IS NULL AND (d.PAOPRIV IS NULL OR d.PAOPRIV = 'R') OR G.PAOPRIV IS NOT NULL AND G.PAOPRIV = 'R' THEN '1' ELSE '0' END AS PRIVATO,
          CASE WHEN d.PAOPRIV IS NULL OR d.PAOPRIV = 'R' THEN '1' ELSE '0' END AS PRIVATO_NEW,
          coalesce(G.MAILPEC, d.MAILPEC) as MAILPEC_CLI,
          coalesce(G.MAILPEC, e.MAILPEC) as MAILPEC_DEST,
          d.MAILPEC as MAILPEC_CLI_NEW,
          e.MAILPEC as MAILPEC_DEST_NEW,
          coalesce(g.NOMEXML, ' ') AS NOMEXML,            
          coalesce(g.SERVTRA, ' ') AS SERVTRA,
          coalesce(f.NUMEFATT,' ') AS NUMEFATT,             
          coalesce(f.VENDACQU,'V') AS VENDACQU,
          case when a.flinfm <> ' ' AND A.FTDIFMA IN ('D','*') AND A.CDCFFM = A.CIFAFMA AND DEST.CLFOCP = 'D' AND e.CODIPA IS NOT NULL THEN '1' ELSE '0' END FORDEST
   FROM &DT/FTBKMAR55V as a
	LEFT OUTER JOIN &DT/CSTAB as DD ON DD.K00001 = '01DD' CONCAT a.TDOCFM 
	JOIN &DT/CGPCO00F as b ON a.CIFAFMA = b.CONTCP
	JOIN &DT/SMTABAR55V  as c ON a.GIVAFM = c.XCODTB
    LEFT OUTER JOIN &DT/FTPAE55F as d ON 
         	d.CDDITTA = ''
        AND a.CIFAFMA = d.CODCLI 
        AND (d.CODIPA <> '' OR d.esclusofe ='S') 
 	LEFT OUTER JOIN &DT/FTPAE55F as e ON 
 	    e.CDDITTA = ''
 	    AND a.CSPEFM = e.CODCLI
 		AND a.DTFTFM >= e.DTIPA
        AND e.CODIPA <> '' 
        AND e.esclusofe =' ' 
 	LEFT OUTER JOIN &DT/FTPAF55F as f ON a.CDDTFM = f.CDDTFM
					      AND a.DTFTFM = f.DTFTFM
					      AND a.NRFTFM = f.NRFTFM
					      AND a.GIVAFM = f.GIVAFM
					      AND 'V' = f.VENDACQU
 	LEFT OUTER JOIN &DT/FTPAI55F as g ON f.PROGID = g.PROGID
 	LEFT OUTER JOIN &DT/FTPAU55V as h ON  a.CDDTFM = h.CDDTFAT
					      AND a.DTFTFM = h.DATAFAT
                          AND a.NRFTFM = h.NUMFAT
                          AND a.GIVAFM = h.GIVAFAT
                          AND '' = h.FORNFAT
   LEFT OUTER JOIN &DT/FTPAX55F as x ON (g.PROGID = x.PROGID and x.PROGRIGA = 0)
	JOIN &DT/CGANA00F as i ON i.CONTCA = b.CONTCP
	LEFT JOIN &DT/CGPCO00F DEST ON DEST.CONTCP = a.CSPEFM
	LEFT JOIN &DT/FTPSET55F S ON 1=1
   WHERE coalesce(substr(DD.F00002, 10, 1), a.TDOCFM) <> 'P' 
   AND
   (f.storfm is null or f.STORFM <> 'S') 
   AND 
   (NOT f.nrftfm IS NULL OR 
   COALESCE(d.esclusofe, ' ') = ' '
   AND ((d.DTIPA IS NULL AND i.cisoca = 'IT' AND a.DTFTFM >= S.datainb2b 
   		OR
	(NOT d.DTIPA IS NULL AND (d.DTIPA > 0 AND a.DTFTFM >= d.DTIPA OR (d.DTIPA = 0 AND (d.PAOPRIV = ' ' OR a.DTFTFM >= S.datainb2b)))))))) AS FAT)
<TAG-SCRIPT><IFNOT-VERSION>5

CREATE VIEW &DT/FTBKM55V AS (
	SELECT FAT.*, 
	CASE WHEN PRIVATO = '1' AND FORDEST = '1' THEN '1' ELSE '0' END AS PRFORDEST,
	CASE WHEN PRIVATO = '0' OR FORDEST = '1' THEN coalesce(DEST, SPACE(10)) ELSE SPACE(10) END AS CSPEFM,
	CASE WHEN DATI_STORICI = '1' THEN IPA_CLI WHEN PRIVATO = '1' AND FORDEST = '1' THEN IPA_DEST WHEN PRIVATO = '1' THEN coalesce(IPA_CLI,'0000000') ELSE coalesce(IPA_DEST, IPA_CLI) END AS IPA,
	CASE WHEN DATI_STORICI = '1' THEN MAILPEC_CLI WHEN PRIVATO = '1' AND FORDEST = '1' THEN MAILPEC_DEST WHEN PRIVATO = '1' THEN coalesce(MAILPEC_CLI, SPACE(256)) ELSE coalesce(MAILPEC_DEST, MAILPEC_CLI) END AS MAILPEC,
	CASE WHEN PRIVATO_NEW = '1' AND FORDEST = '1' THEN IPA_DEST_NEW WHEN PRIVATO_NEW = '1' THEN coalesce(IPA_CLI_NEW,'0000000') ELSE coalesce(IPA_DEST_NEW, IPA_CLI_NEW) END AS IPA_NEW,
	CASE WHEN PRIVATO_NEW = '1' AND FORDEST = '1' THEN MAILPEC_DEST_NEW WHEN PRIVATO_NEW = '1' THEN coalesce(MAILPEC_CLI_NEW, SPACE(256)) ELSE coalesce(MAILPEC_DEST_NEW, MAILPEC_CLI_NEW) END AS MAILPEC_NEW
	FROM (
SELECT a.DTFTFM,
          a.NRFTFM,
          CASE
              WHEN a.FLCGFM = '' THEN '0'
              WHEN a.FLCGFM = '*' THEN '1'
          END AS FLCG,
          coalesce(f.cdcffm, a.CIFAFMA) AS CDCFFM,
          a.CIFAFMA CDCFFM_NEW,
          a.CDCFFM AS f0CDCFFM,          
          CSPEFM AS DEST,
          a.GIVAFM,
          a.CDDTFM,
          a.FLSFFM,
          case when G.CODIDEST IS NULL THEN '0' ELSE '1' END DATI_STORICI,
          case when G.DENOMCES IS NULL THEN b.DSCOCP WHEN G.DENOMCES = ''  THEN RTRIM(G.NOMECES) CONCAT ' ' CONCAT G.COGNOCES ELSE G.DENOMCES END AS DSCOCP,
          coalesce(CASE
          	WHEN g.STATOTRAS = 'T' and x.PROGID IS NOT NULL THEN 'E' 
          	WHEN coalesce(G.EXTID, '') = '' THEN g.STATOTRAS 
          	WHEN g.STATOTRAS = 'V' and x.PROGID IS NOT NULL THEN 'C' 
          	ELSE g.STATOTRAS END
          	, 'B') AS STATO,
          COALESCE(G.CODIDEST, d.CODIPA) AS IPA_CLI,
          COALESCE(G.CODIDEST, e.CODIPA) AS IPA_DEST,
          d.CODIPA AS IPA_CLI_NEW,
          e.CODIPA AS IPA_DEST_NEW,
          g.PROGID,
          c.DESC_GIVA,
          coalesce(h.ALLEG, 0) AS ALLEGATO,
          coalesce(G.EXTID, '') AS EXTID,
          CASE WHEN x.PROGID IS NULL THEN '0' ELSE '1' END AS ERRORI ,          
          CASE WHEN G.PAOPRIV IS NULL AND (d.PAOPRIV IS NULL OR d.PAOPRIV = 'R') OR G.PAOPRIV IS NOT NULL AND G.PAOPRIV = 'R' THEN '1' ELSE '0' END AS PRIVATO,
          CASE WHEN d.PAOPRIV IS NULL OR d.PAOPRIV = 'R' THEN '1' ELSE '0' END AS PRIVATO_NEW,
          coalesce(G.MAILPEC, d.MAILPEC) as MAILPEC_CLI,
          coalesce(G.MAILPEC, e.MAILPEC) as MAILPEC_DEST,
          d.MAILPEC as MAILPEC_CLI_NEW,
          e.MAILPEC as MAILPEC_DEST_NEW,
          coalesce(g.NOMEXML, ' ') AS NOMEXML,            
          coalesce(g.SERVTRA, ' ') AS SERVTRA,
          coalesce(f.NUMEFATT,' ') AS NUMEFATT,             
          coalesce(f.VENDACQU,'V') AS VENDACQU,
          case when a.flinfm <> ' ' AND A.FTDIFMA IN ('D','*') AND A.CDCFFM = A.CIFAFMA AND DEST.CLFODE IS NOT NULL AND e.CODIPA IS NOT NULL THEN '1' ELSE '0' END FORDEST
   FROM &DT/FTBKMAR55V as a
	LEFT OUTER JOIN &DT/CSTAB as DD ON DD.K00001 = '01DD' CONCAT a.TDOCFM 
	JOIN &DT/CGPCO00F as b ON a.CIFAFMA = b.CONTCP
	JOIN &DT/SMTABAR55V  as c ON a.GIVAFM = c.XCODTB
    LEFT OUTER JOIN &DT/FTPAE55F as d ON 
         	d.CDDITTA = ''
        AND a.CIFAFMA = d.CODCLI 
        AND (d.CODIPA <> '' OR d.esclusofe ='S') 
 	LEFT OUTER JOIN &DT/FTPAE55F as e ON 
 	    e.CDDITTA = ''
 	    AND a.CSPEFM = e.CODCLI
 		AND a.DTFTFM >= e.DTIPA
        AND e.CODIPA <> '' 
        AND e.esclusofe =' '         
 	LEFT OUTER JOIN &DT/FTPAF55F as f ON a.CDDTFM = f.CDDTFM
					      AND a.DTFTFM = f.DTFTFM
					      AND a.NRFTFM = f.NRFTFM
					      AND a.GIVAFM = f.GIVAFM
					      AND 'V' = f.VENDACQU
 	LEFT OUTER JOIN &DT/FTPAI55F as g ON f.PROGID = g.PROGID
 	LEFT OUTER JOIN &DT/FTPAU55V as h ON  a.CDDTFM = h.CDDTFAT
					      AND a.DTFTFM = h.DATAFAT
                          AND a.NRFTFM = h.NUMFAT
                          AND a.GIVAFM = h.GIVAFAT
                          AND '' = h.FORNFAT
   LEFT OUTER JOIN &DT/FTPAX55F as x ON (g.PROGID = x.PROGID and x.PROGRIGA = 0)
	JOIN &DT/CGANA00F as i ON i.CONTCA = b.CONTCP
	LEFT JOIN &DT/CGADE00F DEST ON DEST.CONTDE = a.CSPEFM
	LEFT JOIN &DT/FTPSET55F S ON 1=1
   WHERE coalesce(substr(DD.F00002, 10, 1), a.TDOCFM) <> 'P' 
   AND
   (f.storfm is null or f.STORFM <> 'S') 
   AND 
   (NOT f.nrftfm IS NULL OR 
   COALESCE(d.esclusofe, ' ') = ' '
   AND ((d.DTIPA IS NULL AND i.cisoca = 'IT' AND a.DTFTFM >= S.datainb2b 
   		OR
	(NOT d.DTIPA IS NULL AND (d.DTIPA > 0 AND a.DTFTFM >= d.DTIPA OR (d.DTIPA = 0 AND (d.PAOPRIV = ' ' OR a.DTFTFM >= S.datainb2b)))))))) AS FAT)
<TAG-SCRIPT><IF-VERSION>5

LABEL ON TABLE &DT/FTBKM55V IS 'Art. 55 VIEW STORICI' 	
<TAG-SCRIPT>

<TAG-VERSIONE-15.11.0>
<TAG-SCRIPT>

<TAG-VERSIONE-15.12.0>
<TAG-SCRIPT>

<TAG-VERSIONE-15.13.0>
<TAG-SCRIPT>

DROP VIEW &DT/FTFTE55V
<TAG-SCRIPT>

CREATE VIEW &DT/FTFTE55V AS (
	SELECT FAT.*, 
	CASE WHEN PRIVATO = '1' AND FORDEST = '1' THEN '1' ELSE '0' END AS PRFORDEST,
	CASE WHEN PRIVATO = '0' OR FORDEST = '1' THEN coalesce(DEST, SPACE(10)) ELSE SPACE(10) END AS CSPEFM,
	CASE WHEN DATI_STORICI = '1' THEN IPA_CLI WHEN PRIVATO = '1' AND FORDEST = '1' THEN IPA_DEST WHEN PRIVATO = '1' THEN coalesce(IPA_CLI,'0000000') ELSE coalesce(IPA_DEST, IPA_CLI) END AS IPA,
	CASE WHEN DATI_STORICI = '1' THEN MAILPEC_CLI WHEN PRIVATO = '1' AND FORDEST = '1' THEN MAILPEC_DEST WHEN PRIVATO = '1' THEN coalesce(MAILPEC_CLI, SPACE(256)) ELSE coalesce(MAILPEC_DEST, MAILPEC_CLI) END AS MAILPEC,
	CASE WHEN PRIVATO_NEW = '1' AND FORDEST = '1' THEN IPA_DEST_NEW WHEN PRIVATO_NEW = '1' THEN coalesce(IPA_CLI_NEW,'0000000') ELSE coalesce(IPA_DEST_NEW, IPA_CLI_NEW) END AS IPA_NEW,
	CASE WHEN PRIVATO_NEW = '1' AND FORDEST = '1' THEN MAILPEC_DEST_NEW WHEN PRIVATO_NEW = '1' THEN coalesce(MAILPEC_CLI_NEW, SPACE(256)) ELSE coalesce(MAILPEC_DEST_NEW, MAILPEC_CLI_NEW) END AS MAILPEC_NEW
	FROM (
SELECT a.DTFTFM,
          a.NRFTFM,
          CASE
              WHEN a.FLCGFM = '' THEN '0'
              WHEN a.FLCGFM = '*' THEN '1'
          END AS FLCG,
          coalesce(f.cdcffm, a.CIFAFMA) AS CDCFFM,
          a.CIFAFMA CDCFFM_NEW,
          a.CDCFFM AS f0CDCFFM,          
          CSPEFM AS DEST,
          a.GIVAFM,
          a.CDDTFM,
          a.FLSFFM,
          case when G.CODIDEST IS NULL THEN '0' ELSE '1' END DATI_STORICI,
          case when G.DENOMCES IS NULL THEN b.DSCOCP WHEN G.DENOMCES = ''  THEN RTRIM(G.NOMECES) CONCAT ' ' CONCAT G.COGNOCES ELSE G.DENOMCES END AS DSCOCP,
          coalesce(CASE
          	WHEN g.STATOTRAS = 'T' and x.PROGID IS NOT NULL THEN 'E' 
          	WHEN coalesce(G.EXTID, '') = '' THEN g.STATOTRAS 
          	WHEN g.STATOTRAS = 'V' and x.PROGID IS NOT NULL THEN 'C' 
          	ELSE g.STATOTRAS END
          	, 'B') AS STATO,
          COALESCE(G.CODIDEST, d.CODIPA) AS IPA_CLI,
          COALESCE(G.CODIDEST, e.CODIPA) AS IPA_DEST,
          d.CODIPA AS IPA_CLI_NEW,
          e.CODIPA AS IPA_DEST_NEW,
          g.PROGID,
          c.DESC_GIVA,
          coalesce(h.ALLEG, 0) AS ALLEGATO,
          coalesce(G.EXTID, '') AS EXTID,
          CASE WHEN x.PROGID IS NULL THEN '0' ELSE '1' END AS ERRORI ,          
          CASE WHEN G.PAOPRIV IS NULL AND (d.PAOPRIV IS NULL OR d.PAOPRIV = 'R') OR G.PAOPRIV IS NOT NULL AND G.PAOPRIV = 'R' THEN '1' ELSE '0' END AS PRIVATO,
          CASE WHEN d.PAOPRIV IS NULL OR d.PAOPRIV = 'R' THEN '1' ELSE '0' END AS PRIVATO_NEW,
          coalesce(G.MAILPEC, d.MAILPEC) as MAILPEC_CLI,
          coalesce(G.MAILPEC, e.MAILPEC) as MAILPEC_DEST,
          d.MAILPEC as MAILPEC_CLI_NEW,
          e.MAILPEC as MAILPEC_DEST_NEW,
          coalesce(g.NOMEXML, ' ') AS NOMEXML,            
          coalesce(g.SERVTRA, ' ') AS SERVTRA,
          coalesce(f.NUMEFATT,' ') AS NUMEFATT,             
          coalesce(f.VENDACQU,'V') AS VENDACQU,
          case when a.flinfm <> ' ' AND A.FTDIFMA IN ('D','*') AND A.CDCFFM = A.CIFAFMA AND DEST.CLFOCP = 'D' AND e.CODIPA IS NOT NULL THEN '1' ELSE '0' END FORDEST,
		  coalesce(f.impotot, 0) impotot
   FROM &DT/FTPAFE55F as a
	LEFT OUTER JOIN &DT/CSTAB as DD ON DD.K00001 = '01DD' CONCAT a.TDOCFM 
	JOIN &DT/CGPCO00F as b ON a.CIFAFMA = b.CONTCP
	JOIN &DT/SMTABAR55V  as c ON a.GIVAFM = c.XCODTB
    LEFT OUTER JOIN &DT/FTPAE55F as d ON 
         	d.CDDITTA = ''
        AND a.CIFAFMA = d.CODCLI 
        AND (d.CODIPA <> '' OR d.esclusofe ='S') 
 	LEFT OUTER JOIN &DT/FTPAE55F as e ON 
 	    e.CDDITTA = ''
 	    AND a.CSPEFM = e.CODCLI
 		AND a.DTFTFM >= e.DTIPA		
        AND e.CODIPA <> '' 
        AND e.esclusofe =' ' 
 	LEFT OUTER JOIN &DT/FTPAF55F as f ON a.CDDTFM = f.CDDTFM
					      AND a.DTFTFM = f.DTFTFM
					      AND a.NRFTFM = f.NRFTFM
					      AND a.GIVAFM = f.GIVAFM
					      AND 'V' = f.VENDACQU
 	LEFT OUTER JOIN &DT/FTPAI55F as g ON f.PROGID = g.PROGID
 	LEFT OUTER JOIN &DT/FTPAU55V as h ON  a.CDDTFM = h.CDDTFAT
					      AND a.DTFTFM = h.DATAFAT
                          AND a.NRFTFM = h.NUMFAT
                          AND a.GIVAFM = h.GIVAFAT
                          AND '' = h.FORNFAT
   LEFT OUTER JOIN &DT/FTPAX55F as x ON (g.PROGID = x.PROGID and x.PROGRIGA = 0)
	JOIN &DT/CGANA00F as i ON i.CONTCA = b.CONTCP
	LEFT JOIN &DT/CGPCO00F DEST ON DEST.CONTCP = a.CSPEFM
	LEFT JOIN &DT/FTPSET55F S ON 1=1
   WHERE coalesce(substr(DD.F00002, 10, 1), a.TDOCFM) <> 'P' 
   AND
   (f.storfm is null or f.STORFM <> 'S') 
   AND 
   (NOT f.nrftfm IS NULL OR 
   COALESCE(d.esclusofe, ' ') = ' '
   AND ((d.DTIPA IS NULL AND i.cisoca = 'IT' AND a.DTFTFM >= S.datainb2b 
   		OR
	(NOT d.DTIPA IS NULL AND (d.DTIPA > 0 AND a.DTFTFM >= d.DTIPA OR (d.DTIPA = 0 AND (d.PAOPRIV = ' ' OR a.DTFTFM >= S.datainb2b)))))))) AS FAT)
<TAG-SCRIPT><IFNOT-VERSION>5

CREATE VIEW &DT/FTFTE55V AS (
	SELECT FAT.*, 
	CASE WHEN PRIVATO = '1' AND FORDEST = '1' THEN '1' ELSE '0' END AS PRFORDEST,
	CASE WHEN PRIVATO = '0' OR FORDEST = '1' THEN coalesce(DEST, SPACE(10)) ELSE SPACE(10) END AS CSPEFM,
	CASE WHEN DATI_STORICI = '1' THEN IPA_CLI WHEN PRIVATO = '1' AND FORDEST = '1' THEN IPA_DEST WHEN PRIVATO = '1' THEN coalesce(IPA_CLI,'0000000') ELSE coalesce(IPA_DEST, IPA_CLI) END AS IPA,
	CASE WHEN DATI_STORICI = '1' THEN MAILPEC_CLI WHEN PRIVATO = '1' AND FORDEST = '1' THEN MAILPEC_DEST WHEN PRIVATO = '1' THEN coalesce(MAILPEC_CLI, SPACE(256)) ELSE coalesce(MAILPEC_DEST, MAILPEC_CLI) END AS MAILPEC,
	CASE WHEN PRIVATO_NEW = '1' AND FORDEST = '1' THEN IPA_DEST_NEW WHEN PRIVATO_NEW = '1' THEN coalesce(IPA_CLI_NEW,'0000000') ELSE coalesce(IPA_DEST_NEW, IPA_CLI_NEW) END AS IPA_NEW,
	CASE WHEN PRIVATO_NEW = '1' AND FORDEST = '1' THEN MAILPEC_DEST_NEW WHEN PRIVATO_NEW = '1' THEN coalesce(MAILPEC_CLI_NEW, SPACE(256)) ELSE coalesce(MAILPEC_DEST_NEW, MAILPEC_CLI_NEW) END AS MAILPEC_NEW
	FROM (
SELECT a.DTFTFM,
          a.NRFTFM,
          CASE
              WHEN a.FLCGFM = '' THEN '0'
              WHEN a.FLCGFM = '*' THEN '1'
          END AS FLCG,
          coalesce(f.cdcffm, a.CIFAFMA) AS CDCFFM,
          a.CIFAFMA CDCFFM_NEW,
          a.CDCFFM AS f0CDCFFM,          
          CSPEFM AS DEST,
          a.GIVAFM,
          a.CDDTFM,
          a.FLSFFM,
          case when G.CODIDEST IS NULL THEN '0' ELSE '1' END DATI_STORICI,
          case when G.DENOMCES IS NULL THEN b.DSCOCP WHEN G.DENOMCES = ''  THEN RTRIM(G.NOMECES) CONCAT ' ' CONCAT G.COGNOCES ELSE G.DENOMCES END AS DSCOCP,
          coalesce(CASE
          	WHEN g.STATOTRAS = 'T' and x.PROGID IS NOT NULL THEN 'E' 
          	WHEN coalesce(G.EXTID, '') = '' THEN g.STATOTRAS 
          	WHEN g.STATOTRAS = 'V' and x.PROGID IS NOT NULL THEN 'C' 
          	ELSE g.STATOTRAS END
          	, 'B') AS STATO,
          COALESCE(G.CODIDEST, d.CODIPA) AS IPA_CLI,
          COALESCE(G.CODIDEST, e.CODIPA) AS IPA_DEST,
          d.CODIPA AS IPA_CLI_NEW,
          e.CODIPA AS IPA_DEST_NEW,
          g.PROGID,
          c.DESC_GIVA,
          coalesce(h.ALLEG, 0) AS ALLEGATO,
          coalesce(G.EXTID, '') AS EXTID,
          CASE WHEN x.PROGID IS NULL THEN '0' ELSE '1' END AS ERRORI ,          
          CASE WHEN G.PAOPRIV IS NULL AND (d.PAOPRIV IS NULL OR d.PAOPRIV = 'R') OR G.PAOPRIV IS NOT NULL AND G.PAOPRIV = 'R' THEN '1' ELSE '0' END AS PRIVATO,
          CASE WHEN d.PAOPRIV IS NULL OR d.PAOPRIV = 'R' THEN '1' ELSE '0' END AS PRIVATO_NEW,
          coalesce(G.MAILPEC, d.MAILPEC) as MAILPEC_CLI,
          coalesce(G.MAILPEC, e.MAILPEC) as MAILPEC_DEST,
          d.MAILPEC as MAILPEC_CLI_NEW,
          e.MAILPEC as MAILPEC_DEST_NEW,
          coalesce(g.NOMEXML, ' ') AS NOMEXML,            
          coalesce(g.SERVTRA, ' ') AS SERVTRA,
          coalesce(f.NUMEFATT,' ') AS NUMEFATT,             
          coalesce(f.VENDACQU,'V') AS VENDACQU,
          case when a.flinfm <> ' ' AND A.FTDIFMA IN ('D','*') AND A.CDCFFM = A.CIFAFMA AND DEST.CLFODE IS NOT NULL AND e.CODIPA IS NOT NULL THEN '1' ELSE '0' END FORDEST,
		coalesce(f.impotot, 0) impotot
   FROM &DT/FTPAFE55F as a
	LEFT OUTER JOIN &DT/CSTAB as DD ON DD.K00001 = '01DD' CONCAT a.TDOCFM 
	JOIN &DT/CGPCO00F as b ON a.CIFAFMA = b.CONTCP
	JOIN &DT/SMTABAR55V  as c ON a.GIVAFM = c.XCODTB
    LEFT OUTER JOIN &DT/FTPAE55F as d ON 
         	d.CDDITTA = ''
        AND a.CIFAFMA = d.CODCLI 
        AND (d.CODIPA <> '' OR d.esclusofe ='S') 
  	LEFT OUTER JOIN &DT/FTPAE55F as e ON 
 	    e.CDDITTA = ''
 	    AND a.CSPEFM = e.CODCLI
 		AND a.DTFTFM >= e.DTIPA										 
        AND e.CODIPA <> '' 
        AND e.esclusofe =' ' 
 	LEFT OUTER JOIN &DT/FTPAF55F as f ON a.CDDTFM = f.CDDTFM
					      AND a.DTFTFM = f.DTFTFM
					      AND a.NRFTFM = f.NRFTFM
					      AND a.GIVAFM = f.GIVAFM
					      AND 'V' = f.VENDACQU
 	LEFT OUTER JOIN &DT/FTPAI55F as g ON f.PROGID = g.PROGID
 	LEFT OUTER JOIN &DT/FTPAU55V as h ON  a.CDDTFM = h.CDDTFAT
					      AND a.DTFTFM = h.DATAFAT
                          AND a.NRFTFM = h.NUMFAT
                          AND a.GIVAFM = h.GIVAFAT
                          AND '' = h.FORNFAT
   LEFT OUTER JOIN &DT/FTPAX55F as x ON (g.PROGID = x.PROGID and x.PROGRIGA = 0)
	JOIN &DT/CGANA00F as i ON i.CONTCA = b.CONTCP
	LEFT JOIN &DT/CGADE00F DEST ON DEST.CONTDE = a.CSPEFM
	LEFT JOIN &DT/FTPSET55F S ON 1=1
   WHERE coalesce(substr(DD.F00002, 10, 1), a.TDOCFM) <> 'P' 
   AND
   (f.storfm is null or f.STORFM <> 'S') 
   AND 
   (NOT f.nrftfm IS NULL OR 
   COALESCE(d.esclusofe, ' ') = ' '
   AND ((d.DTIPA IS NULL AND i.cisoca = 'IT' AND a.DTFTFM >= S.datainb2b 
   		OR
	(NOT d.DTIPA IS NULL AND (d.DTIPA > 0 AND a.DTFTFM >= d.DTIPA OR (d.DTIPA = 0 AND (d.PAOPRIV = ' ' OR a.DTFTFM >= S.datainb2b)))))))) AS FAT)
<TAG-SCRIPT><IF-VERSION>5

LABEL ON TABLE &DT/FTFTE55V IS 'Art. 55 VIEW FATTURE STORICHE E ATTUALI' 	
<TAG-SCRIPT>

DROP VIEW &DT/FTMOV55V
<TAG-SCRIPT>

CREATE VIEW &DT/FTMOV55V AS (
	SELECT FAT.*, 
	CASE WHEN PRIVATO = '1' AND FORDEST = '1' THEN '1' ELSE '0' END AS PRFORDEST,
	CASE WHEN PRIVATO = '0' OR FORDEST = '1' THEN coalesce(DEST, SPACE(10)) ELSE SPACE(10) END AS CSPEFM,
	CASE WHEN DATI_STORICI = '1' THEN IPA_CLI WHEN PRIVATO = '1' AND FORDEST = '1' THEN IPA_DEST WHEN PRIVATO = '1' THEN coalesce(IPA_CLI,'0000000') ELSE coalesce(IPA_DEST, IPA_CLI) END AS IPA,
	CASE WHEN DATI_STORICI = '1' THEN MAILPEC_CLI WHEN PRIVATO = '1' AND FORDEST = '1' THEN MAILPEC_DEST WHEN PRIVATO = '1' THEN coalesce(MAILPEC_CLI, SPACE(256)) ELSE coalesce(MAILPEC_DEST, MAILPEC_CLI) END AS MAILPEC,
	CASE WHEN PRIVATO_NEW = '1' AND FORDEST = '1' THEN IPA_DEST_NEW WHEN PRIVATO_NEW = '1' THEN coalesce(IPA_CLI_NEW,'0000000') ELSE coalesce(IPA_DEST_NEW, IPA_CLI_NEW) END AS IPA_NEW,
	CASE WHEN PRIVATO_NEW = '1' AND FORDEST = '1' THEN MAILPEC_DEST_NEW WHEN PRIVATO_NEW = '1' THEN coalesce(MAILPEC_CLI_NEW, SPACE(256)) ELSE coalesce(MAILPEC_DEST_NEW, MAILPEC_CLI_NEW) END AS MAILPEC_NEW
	FROM (
SELECT a.DTFTFM,
          a.NRFTFM,
          CASE
              WHEN a.FLCGFM = '' THEN '0'
              WHEN a.FLCGFM = '*' THEN '1'
          END AS FLCG,
          coalesce(f.cdcffm, a.CIFAFMA) AS CDCFFM,
          a.CIFAFMA CDCFFM_NEW,
          a.CDCFFM AS f0CDCFFM,          
          CSPEFM AS DEST,
          a.GIVAFM,
          a.CDDTFM,
          a.FLSFFM,
          case when G.CODIDEST IS NULL THEN '0' ELSE '1' END DATI_STORICI,
          case when G.DENOMCES IS NULL THEN b.DSCOCP WHEN G.DENOMCES = ''  THEN RTRIM(G.NOMECES) CONCAT ' ' CONCAT G.COGNOCES ELSE G.DENOMCES END AS DSCOCP,
          coalesce(CASE
          	WHEN g.STATOTRAS = 'T' and x.PROGID IS NOT NULL THEN 'E' 
          	WHEN coalesce(G.EXTID, '') = '' THEN g.STATOTRAS 
          	WHEN g.STATOTRAS = 'V' and x.PROGID IS NOT NULL THEN 'C' 
          	ELSE g.STATOTRAS END
          	, 'B') AS STATO,
          COALESCE(G.CODIDEST, d.CODIPA) AS IPA_CLI,
          COALESCE(G.CODIDEST, e.CODIPA) AS IPA_DEST,
          d.CODIPA AS IPA_CLI_NEW,
          e.CODIPA AS IPA_DEST_NEW,
          g.PROGID,
          c.DESC_GIVA,
          coalesce(h.ALLEG, 0) AS ALLEGATO,
          coalesce(G.EXTID, '') AS EXTID,
          CASE WHEN x.PROGID IS NULL THEN '0' ELSE '1' END AS ERRORI ,          
          CASE WHEN G.PAOPRIV IS NULL AND (d.PAOPRIV IS NULL OR d.PAOPRIV = 'R') OR G.PAOPRIV IS NOT NULL AND G.PAOPRIV = 'R' THEN '1' ELSE '0' END AS PRIVATO,
          CASE WHEN d.PAOPRIV IS NULL OR d.PAOPRIV = 'R' THEN '1' ELSE '0' END AS PRIVATO_NEW,
          coalesce(G.MAILPEC, d.MAILPEC) as MAILPEC_CLI,
          coalesce(G.MAILPEC, e.MAILPEC) as MAILPEC_DEST,
          d.MAILPEC as MAILPEC_CLI_NEW,
          e.MAILPEC as MAILPEC_DEST_NEW,
          coalesce(g.NOMEXML, ' ') AS NOMEXML,            
          coalesce(g.SERVTRA, ' ') AS SERVTRA,
          coalesce(f.NUMEFATT,' ') AS NUMEFATT,             
          coalesce(f.VENDACQU,'V') AS VENDACQU,
          case when a.flinfm <> ' ' AND A.FTDIFMA IN ('D','*') AND A.CDCFFM = A.CIFAFMA AND DEST.CLFOCP = 'D' AND e.CODIPA IS NOT NULL THEN '1' ELSE '0' END FORDEST,
		coalesce(f.impotot, 0) impotot
   FROM &DT/FTMOVAR55V as a
	LEFT OUTER JOIN &DT/CSTAB as DD ON DD.K00001 = '01DD' CONCAT a.TDOCFM 
	JOIN &DT/CGPCO00F as b ON a.CIFAFMA = b.CONTCP
	JOIN &DT/SMTABAR55V  as c ON a.GIVAFM = c.XCODTB
    LEFT OUTER JOIN &DT/FTPAE55F as d ON 
         	d.CDDITTA = ''
        AND a.CIFAFMA = d.CODCLI
        AND (d.CODIPA <> '' OR d.esclusofe ='S') 
 	LEFT OUTER JOIN &DT/FTPAE55F as e ON 
 	    e.CDDITTA = ''
 	    AND a.CSPEFM = e.CODCLI
 		AND a.DTFTFM >= e.DTIPA	
        AND e.CODIPA <> '' 
        AND e.esclusofe =' ' 
 	LEFT OUTER JOIN &DT/FTPAF55F as f ON a.CDDTFM = f.CDDTFM
					      AND a.DTFTFM = f.DTFTFM
					      AND a.NRFTFM = f.NRFTFM
					      AND a.GIVAFM = f.GIVAFM
					      AND 'V' = f.VENDACQU
 	LEFT OUTER JOIN &DT/FTPAI55F as g ON f.PROGID = g.PROGID
 	LEFT OUTER JOIN &DT/FTPAU55V as h ON  a.CDDTFM = h.CDDTFAT
					      AND a.DTFTFM = h.DATAFAT
                          AND a.NRFTFM = h.NUMFAT
                          AND a.GIVAFM = h.GIVAFAT
                          AND '' = h.FORNFAT
   LEFT OUTER JOIN &DT/FTPAX55F as x ON (g.PROGID = x.PROGID and x.PROGRIGA = 0)
	JOIN &DT/CGANA00F as i ON i.CONTCA = b.CONTCP
	LEFT JOIN &DT/CGPCO00F DEST ON DEST.CONTCP = a.CSPEFM
	LEFT JOIN &DT/FTPSET55F S ON 1=1
   WHERE coalesce(substr(DD.F00002, 10, 1), a.TDOCFM) <> 'P' 
   AND
   (f.storfm is null or f.STORFM <> 'S') 
   AND 
   (NOT f.nrftfm IS NULL OR 
   COALESCE(d.esclusofe, ' ') = ' '
   AND ((d.DTIPA IS NULL AND i.cisoca = 'IT' AND a.DTFTFM >= S.datainb2b 
   		OR
	(NOT d.DTIPA IS NULL AND (d.DTIPA > 0 AND a.DTFTFM >= d.DTIPA OR (d.DTIPA = 0 AND (d.PAOPRIV = ' ' OR a.DTFTFM >= S.datainb2b)))))))) AS FAT)
<TAG-SCRIPT><IFNOT-VERSION>5

CREATE VIEW &DT/FTMOV55V AS (
	SELECT FAT.*, 
	CASE WHEN PRIVATO = '1' AND FORDEST = '1' THEN '1' ELSE '0' END AS PRFORDEST,
	CASE WHEN PRIVATO = '0' OR FORDEST = '1' THEN coalesce(DEST, SPACE(10)) ELSE SPACE(10) END AS CSPEFM,
	CASE WHEN DATI_STORICI = '1' THEN IPA_CLI WHEN PRIVATO = '1' AND FORDEST = '1' THEN IPA_DEST WHEN PRIVATO = '1' THEN coalesce(IPA_CLI,'0000000') ELSE coalesce(IPA_DEST, IPA_CLI) END AS IPA,
	CASE WHEN DATI_STORICI = '1' THEN MAILPEC_CLI WHEN PRIVATO = '1' AND FORDEST = '1' THEN MAILPEC_DEST WHEN PRIVATO = '1' THEN coalesce(MAILPEC_CLI, SPACE(256)) ELSE coalesce(MAILPEC_DEST, MAILPEC_CLI) END AS MAILPEC,
	CASE WHEN PRIVATO_NEW = '1' AND FORDEST = '1' THEN IPA_DEST_NEW WHEN PRIVATO_NEW = '1' THEN coalesce(IPA_CLI_NEW,'0000000') ELSE coalesce(IPA_DEST_NEW, IPA_CLI_NEW) END AS IPA_NEW,
	CASE WHEN PRIVATO_NEW = '1' AND FORDEST = '1' THEN MAILPEC_DEST_NEW WHEN PRIVATO_NEW = '1' THEN coalesce(MAILPEC_CLI_NEW, SPACE(256)) ELSE coalesce(MAILPEC_DEST_NEW, MAILPEC_CLI_NEW) END AS MAILPEC_NEW
	FROM (
SELECT a.DTFTFM,
          a.NRFTFM,
          CASE
              WHEN a.FLCGFM = '' THEN '0'
              WHEN a.FLCGFM = '*' THEN '1'
          END AS FLCG,
          coalesce(f.cdcffm, a.CIFAFMA) AS CDCFFM,
          a.CIFAFMA CDCFFM_NEW,
          a.CDCFFM AS f0CDCFFM,          
          CSPEFM AS DEST,
          a.GIVAFM,
          a.CDDTFM,
          a.FLSFFM,
          case when G.CODIDEST IS NULL THEN '0' ELSE '1' END DATI_STORICI,
          case when G.DENOMCES IS NULL THEN b.DSCOCP WHEN G.DENOMCES = ''  THEN RTRIM(G.NOMECES) CONCAT ' ' CONCAT G.COGNOCES ELSE G.DENOMCES END AS DSCOCP,
          coalesce(CASE
          	WHEN g.STATOTRAS = 'T' and x.PROGID IS NOT NULL THEN 'E' 
          	WHEN coalesce(G.EXTID, '') = '' THEN g.STATOTRAS 
          	WHEN g.STATOTRAS = 'V' and x.PROGID IS NOT NULL THEN 'C' 
          	ELSE g.STATOTRAS END
          	, 'B') AS STATO,
          COALESCE(G.CODIDEST, d.CODIPA) AS IPA_CLI,
          COALESCE(G.CODIDEST, e.CODIPA) AS IPA_DEST,
          d.CODIPA AS IPA_CLI_NEW,
          e.CODIPA AS IPA_DEST_NEW,
          g.PROGID,
          c.DESC_GIVA,
          coalesce(h.ALLEG, 0) AS ALLEGATO,
          coalesce(G.EXTID, '') AS EXTID,
          CASE WHEN x.PROGID IS NULL THEN '0' ELSE '1' END AS ERRORI ,          
          CASE WHEN G.PAOPRIV IS NULL AND (d.PAOPRIV IS NULL OR d.PAOPRIV = 'R') OR G.PAOPRIV IS NOT NULL AND G.PAOPRIV = 'R' THEN '1' ELSE '0' END AS PRIVATO,
          CASE WHEN d.PAOPRIV IS NULL OR d.PAOPRIV = 'R' THEN '1' ELSE '0' END AS PRIVATO_NEW,
          coalesce(G.MAILPEC, d.MAILPEC) as MAILPEC_CLI,
          coalesce(G.MAILPEC, e.MAILPEC) as MAILPEC_DEST,
          d.MAILPEC as MAILPEC_CLI_NEW,
          e.MAILPEC as MAILPEC_DEST_NEW,
          coalesce(g.NOMEXML, ' ') AS NOMEXML,            
          coalesce(g.SERVTRA, ' ') AS SERVTRA,
          coalesce(f.NUMEFATT,' ') AS NUMEFATT,             
          coalesce(f.VENDACQU,'V') AS VENDACQU,
          case when a.flinfm <> ' ' AND A.FTDIFMA IN ('D','*') AND A.CDCFFM = A.CIFAFMA AND DEST.CLFODE IS NOT NULL AND e.CODIPA IS NOT NULL THEN '1' ELSE '0' END FORDEST,
		coalesce(f.impotot, 0) impotot
   FROM &DT/FTMOVAR55V as a
	LEFT OUTER JOIN &DT/CSTAB as DD ON DD.K00001 = '01DD' CONCAT a.TDOCFM 
	JOIN &DT/CGPCO00F as b ON a.CIFAFMA = b.CONTCP
	JOIN &DT/SMTABAR55V  as c ON a.GIVAFM = c.XCODTB
    LEFT OUTER JOIN &DT/FTPAE55F as d ON 
         	d.CDDITTA = ''
        AND a.CIFAFMA = d.CODCLI 
        AND (d.CODIPA <> '' OR d.esclusofe ='S') 
 	LEFT OUTER JOIN &DT/FTPAE55F as e ON 
 	    e.CDDITTA = ''
 	    AND a.CSPEFM = e.CODCLI
 		AND a.DTFTFM >= e.DTIPA										 
        AND e.CODIPA <> '' 
        AND e.esclusofe =' ' 
 	LEFT OUTER JOIN &DT/FTPAF55F as f ON a.CDDTFM = f.CDDTFM
					      AND a.DTFTFM = f.DTFTFM
					      AND a.NRFTFM = f.NRFTFM
					      AND a.GIVAFM = f.GIVAFM
					      AND 'V' = f.VENDACQU
 	LEFT OUTER JOIN &DT/FTPAI55F as g ON f.PROGID = g.PROGID
 	LEFT OUTER JOIN &DT/FTPAU55V as h ON  a.CDDTFM = h.CDDTFAT
					      AND a.DTFTFM = h.DATAFAT
                          AND a.NRFTFM = h.NUMFAT
                          AND a.GIVAFM = h.GIVAFAT
                          AND '' = h.FORNFAT
   LEFT OUTER JOIN &DT/FTPAX55F as x ON (g.PROGID = x.PROGID and x.PROGRIGA = 0)
	JOIN &DT/CGANA00F as i ON i.CONTCA = b.CONTCP
	LEFT JOIN &DT/CGADE00F DEST ON DEST.CONTDE = a.CSPEFM
	LEFT JOIN &DT/FTPSET55F S ON 1=1
   WHERE coalesce(substr(DD.F00002, 10, 1), a.TDOCFM) <> 'P' 
   AND
   (f.storfm is null or f.STORFM <> 'S') 
   AND 
   (NOT f.nrftfm IS NULL OR 
   COALESCE(d.esclusofe, ' ') = ' '
   AND ((d.DTIPA IS NULL AND i.cisoca = 'IT' AND a.DTFTFM >= S.datainb2b 
   		OR
	(NOT d.DTIPA IS NULL AND (d.DTIPA > 0 AND a.DTFTFM >= d.DTIPA OR (d.DTIPA = 0 AND (d.PAOPRIV = ' ' OR a.DTFTFM >= S.datainb2b)))))))) AS FAT)
<TAG-SCRIPT><IF-VERSION>5

LABEL ON TABLE &DT/FTMOV55V IS 'Art. 55 VIEW ATTUALI' 	
<TAG-SCRIPT>

DROP VIEW &DT/FTBKM55V
<TAG-SCRIPT>

CREATE VIEW &DT/FTBKM55V AS (
	SELECT FAT.*, 
	CASE WHEN PRIVATO = '1' AND FORDEST = '1' THEN '1' ELSE '0' END AS PRFORDEST,
	CASE WHEN PRIVATO = '0' OR FORDEST = '1' THEN coalesce(DEST, SPACE(10)) ELSE SPACE(10) END AS CSPEFM,
	CASE WHEN DATI_STORICI = '1' THEN IPA_CLI WHEN PRIVATO = '1' AND FORDEST = '1' THEN IPA_DEST WHEN PRIVATO = '1' THEN coalesce(IPA_CLI,'0000000') ELSE coalesce(IPA_DEST, IPA_CLI) END AS IPA,
	CASE WHEN DATI_STORICI = '1' THEN MAILPEC_CLI WHEN PRIVATO = '1' AND FORDEST = '1' THEN MAILPEC_DEST WHEN PRIVATO = '1' THEN coalesce(MAILPEC_CLI, SPACE(256)) ELSE coalesce(MAILPEC_DEST, MAILPEC_CLI) END AS MAILPEC,
	CASE WHEN PRIVATO_NEW = '1' AND FORDEST = '1' THEN IPA_DEST_NEW WHEN PRIVATO_NEW = '1' THEN coalesce(IPA_CLI_NEW,'0000000') ELSE coalesce(IPA_DEST_NEW, IPA_CLI_NEW) END AS IPA_NEW,
	CASE WHEN PRIVATO_NEW = '1' AND FORDEST = '1' THEN MAILPEC_DEST_NEW WHEN PRIVATO_NEW = '1' THEN coalesce(MAILPEC_CLI_NEW, SPACE(256)) ELSE coalesce(MAILPEC_DEST_NEW, MAILPEC_CLI_NEW) END AS MAILPEC_NEW
	FROM (
SELECT a.DTFTFM,
          a.NRFTFM,
          CASE
              WHEN a.FLCGFM = '' THEN '0'
              WHEN a.FLCGFM = '*' THEN '1'
          END AS FLCG,
          coalesce(f.cdcffm, a.CIFAFMA) AS CDCFFM,
          a.CIFAFMA CDCFFM_NEW,
          a.CDCFFM AS f0CDCFFM,          
          CSPEFM AS DEST,
          a.GIVAFM,
          a.CDDTFM,
          a.FLSFFM,
          case when G.CODIDEST IS NULL THEN '0' ELSE '1' END DATI_STORICI,
          case when G.DENOMCES IS NULL THEN b.DSCOCP WHEN G.DENOMCES = ''  THEN RTRIM(G.NOMECES) CONCAT ' ' CONCAT G.COGNOCES ELSE G.DENOMCES END AS DSCOCP,
          coalesce(CASE
          	WHEN g.STATOTRAS = 'T' and x.PROGID IS NOT NULL THEN 'E' 
          	WHEN coalesce(G.EXTID, '') = '' THEN g.STATOTRAS 
          	WHEN g.STATOTRAS = 'V' and x.PROGID IS NOT NULL THEN 'C' 
          	ELSE g.STATOTRAS END
          	, 'B') AS STATO,
          COALESCE(G.CODIDEST, d.CODIPA) AS IPA_CLI,
          COALESCE(G.CODIDEST, e.CODIPA) AS IPA_DEST,
          d.CODIPA AS IPA_CLI_NEW,
          e.CODIPA AS IPA_DEST_NEW,
          g.PROGID,
          c.DESC_GIVA,
          coalesce(h.ALLEG, 0) AS ALLEGATO,
          coalesce(G.EXTID, '') AS EXTID,
          CASE WHEN x.PROGID IS NULL THEN '0' ELSE '1' END AS ERRORI ,          
          CASE WHEN G.PAOPRIV IS NULL AND (d.PAOPRIV IS NULL OR d.PAOPRIV = 'R') OR G.PAOPRIV IS NOT NULL AND G.PAOPRIV = 'R' THEN '1' ELSE '0' END AS PRIVATO,
          CASE WHEN d.PAOPRIV IS NULL OR d.PAOPRIV = 'R' THEN '1' ELSE '0' END AS PRIVATO_NEW,
          coalesce(G.MAILPEC, d.MAILPEC) as MAILPEC_CLI,
          coalesce(G.MAILPEC, e.MAILPEC) as MAILPEC_DEST,
          d.MAILPEC as MAILPEC_CLI_NEW,
          e.MAILPEC as MAILPEC_DEST_NEW,
          coalesce(g.NOMEXML, ' ') AS NOMEXML,            
          coalesce(g.SERVTRA, ' ') AS SERVTRA,
          coalesce(f.NUMEFATT,' ') AS NUMEFATT,             
          coalesce(f.VENDACQU,'V') AS VENDACQU,
          case when a.flinfm <> ' ' AND A.FTDIFMA IN ('D','*') AND A.CDCFFM = A.CIFAFMA AND DEST.CLFOCP = 'D' AND e.CODIPA IS NOT NULL THEN '1' ELSE '0' END FORDEST,
		coalesce(f.impotot, 0) impotot
   FROM &DT/FTBKMAR55V as a
	LEFT OUTER JOIN &DT/CSTAB as DD ON DD.K00001 = '01DD' CONCAT a.TDOCFM 
	JOIN &DT/CGPCO00F as b ON a.CIFAFMA = b.CONTCP
	JOIN &DT/SMTABAR55V  as c ON a.GIVAFM = c.XCODTB
    LEFT OUTER JOIN &DT/FTPAE55F as d ON 
         	d.CDDITTA = ''
        AND a.CIFAFMA = d.CODCLI 
        AND (d.CODIPA <> '' OR d.esclusofe ='S') 
 	LEFT OUTER JOIN &DT/FTPAE55F as e ON 
 	    e.CDDITTA = ''
 	    AND a.CSPEFM = e.CODCLI
 		AND a.DTFTFM >= e.DTIPA
        AND e.CODIPA <> '' 
        AND e.esclusofe =' ' 
 	LEFT OUTER JOIN &DT/FTPAF55F as f ON a.CDDTFM = f.CDDTFM
					      AND a.DTFTFM = f.DTFTFM
					      AND a.NRFTFM = f.NRFTFM
					      AND a.GIVAFM = f.GIVAFM
					      AND 'V' = f.VENDACQU
 	LEFT OUTER JOIN &DT/FTPAI55F as g ON f.PROGID = g.PROGID
 	LEFT OUTER JOIN &DT/FTPAU55V as h ON  a.CDDTFM = h.CDDTFAT
					      AND a.DTFTFM = h.DATAFAT
                          AND a.NRFTFM = h.NUMFAT
                          AND a.GIVAFM = h.GIVAFAT
                          AND '' = h.FORNFAT
   LEFT OUTER JOIN &DT/FTPAX55F as x ON (g.PROGID = x.PROGID and x.PROGRIGA = 0)
	JOIN &DT/CGANA00F as i ON i.CONTCA = b.CONTCP
	LEFT JOIN &DT/CGPCO00F DEST ON DEST.CONTCP = a.CSPEFM
	LEFT JOIN &DT/FTPSET55F S ON 1=1
   WHERE coalesce(substr(DD.F00002, 10, 1), a.TDOCFM) <> 'P' 
   AND
   (f.storfm is null or f.STORFM <> 'S') 
   AND 
   (NOT f.nrftfm IS NULL OR 
   COALESCE(d.esclusofe, ' ') = ' '
   AND ((d.DTIPA IS NULL AND i.cisoca = 'IT' AND a.DTFTFM >= S.datainb2b 
   		OR
	(NOT d.DTIPA IS NULL AND (d.DTIPA > 0 AND a.DTFTFM >= d.DTIPA OR (d.DTIPA = 0 AND (d.PAOPRIV = ' ' OR a.DTFTFM >= S.datainb2b)))))))) AS FAT)
<TAG-SCRIPT><IFNOT-VERSION>5

CREATE VIEW &DT/FTBKM55V AS (
	SELECT FAT.*, 
	CASE WHEN PRIVATO = '1' AND FORDEST = '1' THEN '1' ELSE '0' END AS PRFORDEST,
	CASE WHEN PRIVATO = '0' OR FORDEST = '1' THEN coalesce(DEST, SPACE(10)) ELSE SPACE(10) END AS CSPEFM,
	CASE WHEN DATI_STORICI = '1' THEN IPA_CLI WHEN PRIVATO = '1' AND FORDEST = '1' THEN IPA_DEST WHEN PRIVATO = '1' THEN coalesce(IPA_CLI,'0000000') ELSE coalesce(IPA_DEST, IPA_CLI) END AS IPA,
	CASE WHEN DATI_STORICI = '1' THEN MAILPEC_CLI WHEN PRIVATO = '1' AND FORDEST = '1' THEN MAILPEC_DEST WHEN PRIVATO = '1' THEN coalesce(MAILPEC_CLI, SPACE(256)) ELSE coalesce(MAILPEC_DEST, MAILPEC_CLI) END AS MAILPEC,
	CASE WHEN PRIVATO_NEW = '1' AND FORDEST = '1' THEN IPA_DEST_NEW WHEN PRIVATO_NEW = '1' THEN coalesce(IPA_CLI_NEW,'0000000') ELSE coalesce(IPA_DEST_NEW, IPA_CLI_NEW) END AS IPA_NEW,
	CASE WHEN PRIVATO_NEW = '1' AND FORDEST = '1' THEN MAILPEC_DEST_NEW WHEN PRIVATO_NEW = '1' THEN coalesce(MAILPEC_CLI_NEW, SPACE(256)) ELSE coalesce(MAILPEC_DEST_NEW, MAILPEC_CLI_NEW) END AS MAILPEC_NEW
	FROM (
SELECT a.DTFTFM,
          a.NRFTFM,
          CASE
              WHEN a.FLCGFM = '' THEN '0'
              WHEN a.FLCGFM = '*' THEN '1'
          END AS FLCG,
          coalesce(f.cdcffm, a.CIFAFMA) AS CDCFFM,
          a.CIFAFMA CDCFFM_NEW,
          a.CDCFFM AS f0CDCFFM,          
          CSPEFM AS DEST,
          a.GIVAFM,
          a.CDDTFM,
          a.FLSFFM,
          case when G.CODIDEST IS NULL THEN '0' ELSE '1' END DATI_STORICI,
          case when G.DENOMCES IS NULL THEN b.DSCOCP WHEN G.DENOMCES = ''  THEN RTRIM(G.NOMECES) CONCAT ' ' CONCAT G.COGNOCES ELSE G.DENOMCES END AS DSCOCP,
          coalesce(CASE
          	WHEN g.STATOTRAS = 'T' and x.PROGID IS NOT NULL THEN 'E' 
          	WHEN coalesce(G.EXTID, '') = '' THEN g.STATOTRAS 
          	WHEN g.STATOTRAS = 'V' and x.PROGID IS NOT NULL THEN 'C' 
          	ELSE g.STATOTRAS END
          	, 'B') AS STATO,
          COALESCE(G.CODIDEST, d.CODIPA) AS IPA_CLI,
          COALESCE(G.CODIDEST, e.CODIPA) AS IPA_DEST,
          d.CODIPA AS IPA_CLI_NEW,
          e.CODIPA AS IPA_DEST_NEW,
          g.PROGID,
          c.DESC_GIVA,
          coalesce(h.ALLEG, 0) AS ALLEGATO,
          coalesce(G.EXTID, '') AS EXTID,
          CASE WHEN x.PROGID IS NULL THEN '0' ELSE '1' END AS ERRORI ,          
          CASE WHEN G.PAOPRIV IS NULL AND (d.PAOPRIV IS NULL OR d.PAOPRIV = 'R') OR G.PAOPRIV IS NOT NULL AND G.PAOPRIV = 'R' THEN '1' ELSE '0' END AS PRIVATO,
          CASE WHEN d.PAOPRIV IS NULL OR d.PAOPRIV = 'R' THEN '1' ELSE '0' END AS PRIVATO_NEW,
          coalesce(G.MAILPEC, d.MAILPEC) as MAILPEC_CLI,
          coalesce(G.MAILPEC, e.MAILPEC) as MAILPEC_DEST,
          d.MAILPEC as MAILPEC_CLI_NEW,
          e.MAILPEC as MAILPEC_DEST_NEW,
          coalesce(g.NOMEXML, ' ') AS NOMEXML,            
          coalesce(g.SERVTRA, ' ') AS SERVTRA,
          coalesce(f.NUMEFATT,' ') AS NUMEFATT,             
          coalesce(f.VENDACQU,'V') AS VENDACQU,
          case when a.flinfm <> ' ' AND A.FTDIFMA IN ('D','*') AND A.CDCFFM = A.CIFAFMA AND DEST.CLFODE IS NOT NULL AND e.CODIPA IS NOT NULL THEN '1' ELSE '0' END FORDEST,
		coalesce(f.impotot, 0) impotot
   FROM &DT/FTBKMAR55V as a
	LEFT OUTER JOIN &DT/CSTAB as DD ON DD.K00001 = '01DD' CONCAT a.TDOCFM 
	JOIN &DT/CGPCO00F as b ON a.CIFAFMA = b.CONTCP
	JOIN &DT/SMTABAR55V  as c ON a.GIVAFM = c.XCODTB
    LEFT OUTER JOIN &DT/FTPAE55F as d ON 
         	d.CDDITTA = ''
        AND a.CIFAFMA = d.CODCLI 
        AND (d.CODIPA <> '' OR d.esclusofe ='S') 
 	LEFT OUTER JOIN &DT/FTPAE55F as e ON 
 	    e.CDDITTA = ''
 	    AND a.CSPEFM = e.CODCLI
 		AND a.DTFTFM >= e.DTIPA
        AND e.CODIPA <> '' 
        AND e.esclusofe =' '         
 	LEFT OUTER JOIN &DT/FTPAF55F as f ON a.CDDTFM = f.CDDTFM
					      AND a.DTFTFM = f.DTFTFM
					      AND a.NRFTFM = f.NRFTFM
					      AND a.GIVAFM = f.GIVAFM
					      AND 'V' = f.VENDACQU
 	LEFT OUTER JOIN &DT/FTPAI55F as g ON f.PROGID = g.PROGID
 	LEFT OUTER JOIN &DT/FTPAU55V as h ON  a.CDDTFM = h.CDDTFAT
					      AND a.DTFTFM = h.DATAFAT
                          AND a.NRFTFM = h.NUMFAT
                          AND a.GIVAFM = h.GIVAFAT
                          AND '' = h.FORNFAT
   LEFT OUTER JOIN &DT/FTPAX55F as x ON (g.PROGID = x.PROGID and x.PROGRIGA = 0)
	JOIN &DT/CGANA00F as i ON i.CONTCA = b.CONTCP
	LEFT JOIN &DT/CGADE00F DEST ON DEST.CONTDE = a.CSPEFM
	LEFT JOIN &DT/FTPSET55F S ON 1=1
   WHERE coalesce(substr(DD.F00002, 10, 1), a.TDOCFM) <> 'P' 
   AND
   (f.storfm is null or f.STORFM <> 'S') 
   AND 
   (NOT f.nrftfm IS NULL OR 
   COALESCE(d.esclusofe, ' ') = ' '
   AND ((d.DTIPA IS NULL AND i.cisoca = 'IT' AND a.DTFTFM >= S.datainb2b 
   		OR
	(NOT d.DTIPA IS NULL AND (d.DTIPA > 0 AND a.DTFTFM >= d.DTIPA OR (d.DTIPA = 0 AND (d.PAOPRIV = ' ' OR a.DTFTFM >= S.datainb2b)))))))) AS FAT)
<TAG-SCRIPT><IF-VERSION>5

LABEL ON TABLE &DT/FTBKM55V IS 'Art. 55 VIEW STORICI' 	
<TAG-SCRIPT>

<CONDITION>EXISTS (SELECT 1 FROM QSYS2.SYSTABLES WHERE TABLE_SCHEMA = '&DT' AND TABLE_NAME = 'MGMOF00F')</CONDITION>
DROP VIEW &DT/MGMOF55V
<TAG-SCRIPT>

<CONDITION>EXISTS (SELECT 1 FROM QSYS2.SYSTABLES WHERE TABLE_SCHEMA = '&DT' AND TABLE_NAME = 'MGMOF00F')</CONDITION>
CREATE VIEW &DT/MGMOF55V AS (
  SELECT a.DTFTMF DTFTFM,
          a.NRFTMF NRFTFM,
          CASE
              WHEN a.FLCGMF = '' THEN '0'
              WHEN a.FLCGMF = '*' THEN '1'
          END AS FLCG,
          CASE WHEN a.CIFAMF = '' THEN a.CDCFMF ELSE a.CIFAMF END AS CDCFFM,
          a.CDCFMF AS f0CDCFFM,          
          '         ' CSPEFM,
          a.GIVAMF GIVAFM,
          a.CDDTMF CDDTFM,
          a.FLSFMF FLSFFM,
          b.DSCOCP ,
          coalesce(CASE
          	WHEN g.STATOTRAS = 'T' and x.PROGID IS NOT NULL THEN 'E' 
          	WHEN coalesce(G.EXTID, '') = '' THEN g.STATOTRAS 
          	WHEN g.STATOTRAS = 'V' and x.PROGID IS NOT NULL THEN 'C' 
          	ELSE g.STATOTRAS END
          	, 'B') AS STATO,
          case when d.PAOPRIV IS NOT NULL THEN d.CODIPA WHEN F2.CODIDEST <> '' THEN F2.CODIDEST ELSE '0000000' END AS IPA,
          g.PROGID,
          c.DESC_GIVA,
          coalesce(h.ALLEG, 0) AS ALLEGATO,
          coalesce(G.EXTID, '') AS EXTID,
          CASE WHEN x.PROGID IS NULL THEN '0' ELSE '1' END AS ERRORI ,          
          CASE WHEN d.PAOPRIV IS NULL OR d.PAOPRIV = 'R' THEN '1' ELSE '0' END AS PRIVATO,
          coalesce(d.MAILPEC, F2.MAILPEC, SPACE(256)) as MAILPEC,
          coalesce(g.NOMEXML, ' ') AS NOMEXML,            
          coalesce(g.SERVTRA, ' ') AS SERVTRA,
          coalesce(f.NUMEFATT,' ') AS NUMEFATT,
          coalesce(f.VENDACQU,'A') AS VENDACQU,
		coalesce(f.impotot, 0) AS impotot
   FROM &DT/MGMOF00F as a
	JOIN &DT/CSTAB as DD ON DD.K00001 = '01DD' CONCAT a.TDOCMF CONCAT 'A'  
	JOIN &DT/CGPCO00F as b ON a.CDCFMF = b.CONTCP
	JOIN &DT/SMTABAR55V  as c ON a.GIVAMF = c.XCODTB
    LEFT OUTER JOIN &DT/FTPAE55F as d ON 
         	d.CDDITTA = ''
        AND a.CDCFMF = d.CODCLI 
 	LEFT OUTER JOIN &DT/FTPAF55F as f ON a.CDDTMF = f.CDDTFM
                                           AND a.DTFTMF = f.DTFTFM
                                           AND a.NRFTMF = f.NRFTFM
                                           AND a.GIVAMF = f.GIVAFM
                                           AND a.CDCFMF = f.CDCFFM
                                           AND 'A' = f.VENDACQU
 	LEFT OUTER JOIN &DT/FTPAI55F as g ON f.PROGID = g.PROGID
 	LEFT OUTER JOIN &DT/FTPAU55V as h ON  a.CDDTMF = h.CDDTFAT
					      AND a.DTFTMF = h.DATAFAT
                          AND a.NRFTMF = h.NUMFAT
                          AND a.GIVAMF = h.GIVAFAT
                          AND CASE WHEN a.CIFAMF = '' THEN a.CDCFMF ELSE a.CIFAMF END = h.FORNFAT
   LEFT OUTER JOIN &DT/FTPAX55F as x ON (g.PROGID = x.PROGID and x.PROGRIGA = 0)
	JOIN &DT/CGANA00F as i ON i.CONTCA = b.CONTCP
	LEFT JOIN &DT/FTPSET55F S ON 1=1
	JOIN &DT/FTPA255F F2 ON F2.TABDDCOD = a.TDOCMF AND F2.tabddarea = 'A' AND F2.Fselfbil = 'S' 
	WHERE a.FLSFMF ='*'
   AND a.FLCFMF='*' 
   AND a.dtftmf <> 0
   AND a.NRFTMF <> 0
   AND
   (f.storfm is null or f.STORFM <> 'S') 
   AND 
   (NOT f.nrftfm IS NULL OR 
   COALESCE(d.esclusofe, ' ') = ' '
   AND ((d.DTIPA IS NULL AND i.cisoca = 'IT' AND a.DTFTMF >= S.datainb2b 
   		OR
	(NOT d.DTIPA IS NULL AND (d.DTIPA > 0 AND a.DTFTMF >= d.DTIPA OR (d.DTIPA = 0 AND (a.DTFTMF >= S.datainb2b)))))))
)
<TAG-SCRIPT>

<CONDITION>EXISTS (SELECT 1 FROM QSYS2.SYSTABLES WHERE TABLE_SCHEMA = '&DT' AND TABLE_NAME = 'MGMOF00F')</CONDITION>
LABEL ON TABLE &DT/MGMOF55V IS 'Art. 55 VIEW FATTURE SELF BILLING' 	
<TAG-SCRIPT>

<TAG-VERSIONE-15.14.0>
<TAG-SCRIPT>

DROP VIEW &DT/FTFTE55V
<TAG-SCRIPT>

CREATE VIEW &DT/FTFTE55V AS (
	SELECT FAT.*,
	CASE WHEN PRIVATO = '1' AND FORDEST = '1' THEN '1' ELSE '0' END AS PRFORDEST,
	CASE WHEN PRIVATO = '0' OR FORDEST = '1' THEN coalesce(DEST, SPACE(10)) ELSE SPACE(10) END AS CSPEFM,
	CASE WHEN DATI_STORICI = '1' THEN IPA_CLI WHEN PRIVATO = '1' AND FORDEST = '1' THEN IPA_DEST WHEN PRIVATO = '1' THEN coalesce(IPA_CLI,'0000000') ELSE coalesce(IPA_DEST, IPA_CLI) END AS IPA,
	CASE WHEN DATI_STORICI = '1' THEN MAILPEC_CLI WHEN PRIVATO = '1' AND FORDEST = '1' THEN MAILPEC_DEST WHEN PRIVATO = '1' THEN coalesce(MAILPEC_CLI, SPACE(256)) ELSE coalesce(MAILPEC_DEST, MAILPEC_CLI) END AS MAILPEC,
	CASE WHEN PRIVATO_NEW = '1' AND FORDEST = '1' THEN IPA_DEST_NEW WHEN PRIVATO_NEW = '1' THEN coalesce(IPA_CLI_NEW,'0000000') ELSE coalesce(IPA_DEST_NEW, IPA_CLI_NEW) END AS IPA_NEW,
	CASE WHEN PRIVATO_NEW = '1' AND FORDEST = '1' THEN MAILPEC_DEST_NEW WHEN PRIVATO_NEW = '1' THEN coalesce(MAILPEC_CLI_NEW, SPACE(256)) ELSE coalesce(MAILPEC_DEST_NEW, MAILPEC_CLI_NEW) END AS MAILPEC_NEW
	FROM (
SELECT a.DTFTFM,
          a.NRFTFM,
          CASE
              WHEN a.FLCGFM = '' THEN '0'
              WHEN a.FLCGFM = '*' THEN '1'
          END AS FLCG,
          coalesce(f.cdcffm, a.CIFAFMA) AS CDCFFM,
          a.CIFAFMA CDCFFM_NEW,
          a.CDCFFM AS f0CDCFFM,
          CSPEFM AS DEST,
          a.GIVAFM,
          a.CDDTFM,
          a.FLSFFM,
          case when G.CODIDEST IS NULL THEN '0' ELSE '1' END DATI_STORICI,
          case when G.DENOMCES IS NULL THEN b.DSCOCP WHEN G.DENOMCES = ''  THEN RTRIM(G.NOMECES) CONCAT ' ' CONCAT G.COGNOCES ELSE G.DENOMCES END AS DSCOCP,
          coalesce(CASE
          	WHEN g.STATOTRAS = 'T' and x.PROGID IS NOT NULL THEN 'E'
          	WHEN coalesce(G.EXTID, '') = '' THEN g.STATOTRAS
          	WHEN g.STATOTRAS = 'V' and x.PROGID IS NOT NULL THEN 'C'
          	ELSE g.STATOTRAS END
          	, 'B') AS STATO,
          COALESCE(G.CODIDEST, d.CODIPA) AS IPA_CLI,
          COALESCE(G.CODIDEST, e.CODIPA) AS IPA_DEST,
          d.CODIPA AS IPA_CLI_NEW,
          e.CODIPA AS IPA_DEST_NEW,
          g.PROGID,
          c.DESC_GIVA,
          coalesce(h.ALLEG, 0) AS ALLEGATO,
          coalesce(G.EXTID, '') AS EXTID,
          CASE WHEN x.PROGID IS NULL THEN '0' ELSE '1' END AS ERRORI ,
          CASE WHEN G.PAOPRIV IS NULL AND (d.PAOPRIV IS NULL OR d.PAOPRIV = 'R') OR G.PAOPRIV IS NOT NULL AND G.PAOPRIV = 'R' THEN '1' ELSE '0' END AS PRIVATO,
          CASE WHEN d.PAOPRIV IS NULL OR d.PAOPRIV = 'R' THEN '1' ELSE '0' END AS PRIVATO_NEW,
          coalesce(G.MAILPEC, d.MAILPEC) as MAILPEC_CLI,
          coalesce(G.MAILPEC, e.MAILPEC) as MAILPEC_DEST,
          d.MAILPEC as MAILPEC_CLI_NEW,
          e.MAILPEC as MAILPEC_DEST_NEW,
          coalesce(g.NOMEXML, ' ') AS NOMEXML,
          coalesce(g.SERVTRA, ' ') AS SERVTRA,
          coalesce(f.NUMEFATT,' ') AS NUMEFATT,
          coalesce(f.VENDACQU,'V') AS VENDACQU,
          case when a.flinfm <> ' ' AND A.FTDIFMA IN ('D','*') AND A.CDCFFM = A.CIFAFMA AND DEST.CLFOCP = 'D' AND e.CODIPA IS NOT NULL THEN '1' ELSE '0' END FORDEST,
		  coalesce(f.impotot, 0) impotot
   FROM &DT/FTPAFE55F as a
	LEFT OUTER JOIN &DT/CSTAB as DD ON DD.K00001 = '01DD' CONCAT a.TDOCFM
	JOIN &DT/CGPCO00F as b ON a.CIFAFMA = b.CONTCP
	JOIN &DT/SMTABAR55V  as c ON a.GIVAFM = c.XCODTB
    LEFT OUTER JOIN &DT/FTPAE55F as d ON
         	d.CDDITTA = ''
        AND a.CIFAFMA = d.CODCLI
        AND (d.CODIPA <> '' OR d.esclusofe ='S')
 	LEFT OUTER JOIN &DT/FTPAE55F as e ON
 	    e.CDDITTA = ''
 	    AND a.CSPEFM = e.CODCLI
 		AND a.DTFTFM >= e.DTIPA
        AND e.CODIPA <> ''
        AND e.esclusofe =' '
 	LEFT OUTER JOIN &DT/FTPAF55F as f ON a.CDDTFM = f.CDDTFM
					      AND a.DTFTFM = f.DTFTFM
					      AND a.NRFTFM = f.NRFTFM
					      AND a.GIVAFM = f.GIVAFM
					      AND 'V' = f.VENDACQU
 	LEFT OUTER JOIN &DT/FTPAI55F as g ON f.PROGID = g.PROGID
 	LEFT OUTER JOIN &DT/FTPAU55V as h ON  a.CDDTFM = h.CDDTFAT
					      AND a.DTFTFM = h.DATAFAT
                          AND a.NRFTFM = h.NUMFAT
                          AND a.GIVAFM = h.GIVAFAT
                          AND '' = h.FORNFAT
   LEFT OUTER JOIN &DT/FTPAX55F as x ON (g.PROGID = x.PROGID and x.PROGRIGA = 0)
	JOIN &DT/CGANA00F as i ON i.CONTCA = b.CONTCP
	LEFT JOIN &DT/CGPCO00F DEST ON DEST.CONTCP = a.CSPEFM
	LEFT JOIN &DT/FTPSET55F S ON 1=1
   WHERE coalesce(substr(DD.F00002, 10, 1), a.TDOCFM) <> 'P'
   AND
   (f.storfm is null or f.STORFM <> 'S')
   AND
   (NOT f.nrftfm IS NULL OR
   COALESCE(d.esclusofe, ' ') = ' '
   AND ((d.DTIPA IS NULL AND i.cisoca IN ('IT','SM') AND a.DTFTFM >= S.datainb2b
   		OR
	(NOT d.DTIPA IS NULL AND (d.DTIPA > 0 AND a.DTFTFM >= d.DTIPA OR (d.DTIPA = 0 AND (d.PAOPRIV = ' ' OR a.DTFTFM >= S.datainb2b)))))))) AS FAT)
<TAG-SCRIPT><IFNOT-VERSION>5

CREATE VIEW &DT/FTFTE55V AS (
	SELECT FAT.*,
	CASE WHEN PRIVATO = '1' AND FORDEST = '1' THEN '1' ELSE '0' END AS PRFORDEST,
	CASE WHEN PRIVATO = '0' OR FORDEST = '1' THEN coalesce(DEST, SPACE(10)) ELSE SPACE(10) END AS CSPEFM,
	CASE WHEN DATI_STORICI = '1' THEN IPA_CLI WHEN PRIVATO = '1' AND FORDEST = '1' THEN IPA_DEST WHEN PRIVATO = '1' THEN coalesce(IPA_CLI,'0000000') ELSE coalesce(IPA_DEST, IPA_CLI) END AS IPA,
	CASE WHEN DATI_STORICI = '1' THEN MAILPEC_CLI WHEN PRIVATO = '1' AND FORDEST = '1' THEN MAILPEC_DEST WHEN PRIVATO = '1' THEN coalesce(MAILPEC_CLI, SPACE(256)) ELSE coalesce(MAILPEC_DEST, MAILPEC_CLI) END AS MAILPEC,
	CASE WHEN PRIVATO_NEW = '1' AND FORDEST = '1' THEN IPA_DEST_NEW WHEN PRIVATO_NEW = '1' THEN coalesce(IPA_CLI_NEW,'0000000') ELSE coalesce(IPA_DEST_NEW, IPA_CLI_NEW) END AS IPA_NEW,
	CASE WHEN PRIVATO_NEW = '1' AND FORDEST = '1' THEN MAILPEC_DEST_NEW WHEN PRIVATO_NEW = '1' THEN coalesce(MAILPEC_CLI_NEW, SPACE(256)) ELSE coalesce(MAILPEC_DEST_NEW, MAILPEC_CLI_NEW) END AS MAILPEC_NEW
	FROM (
SELECT a.DTFTFM,
          a.NRFTFM,
          CASE
              WHEN a.FLCGFM = '' THEN '0'
              WHEN a.FLCGFM = '*' THEN '1'
          END AS FLCG,
          coalesce(f.cdcffm, a.CIFAFMA) AS CDCFFM,
          a.CIFAFMA CDCFFM_NEW,
          a.CDCFFM AS f0CDCFFM,
          CSPEFM AS DEST,
          a.GIVAFM,
          a.CDDTFM,
          a.FLSFFM,
          case when G.CODIDEST IS NULL THEN '0' ELSE '1' END DATI_STORICI,
          case when G.DENOMCES IS NULL THEN b.DSCOCP WHEN G.DENOMCES = ''  THEN RTRIM(G.NOMECES) CONCAT ' ' CONCAT G.COGNOCES ELSE G.DENOMCES END AS DSCOCP,
          coalesce(CASE
          	WHEN g.STATOTRAS = 'T' and x.PROGID IS NOT NULL THEN 'E'
          	WHEN coalesce(G.EXTID, '') = '' THEN g.STATOTRAS
          	WHEN g.STATOTRAS = 'V' and x.PROGID IS NOT NULL THEN 'C'
          	ELSE g.STATOTRAS END
          	, 'B') AS STATO,
          COALESCE(G.CODIDEST, d.CODIPA) AS IPA_CLI,
          COALESCE(G.CODIDEST, e.CODIPA) AS IPA_DEST,
          d.CODIPA AS IPA_CLI_NEW,
          e.CODIPA AS IPA_DEST_NEW,
          g.PROGID,
          c.DESC_GIVA,
          coalesce(h.ALLEG, 0) AS ALLEGATO,
          coalesce(G.EXTID, '') AS EXTID,
          CASE WHEN x.PROGID IS NULL THEN '0' ELSE '1' END AS ERRORI ,
          CASE WHEN G.PAOPRIV IS NULL AND (d.PAOPRIV IS NULL OR d.PAOPRIV = 'R') OR G.PAOPRIV IS NOT NULL AND G.PAOPRIV = 'R' THEN '1' ELSE '0' END AS PRIVATO,
          CASE WHEN d.PAOPRIV IS NULL OR d.PAOPRIV = 'R' THEN '1' ELSE '0' END AS PRIVATO_NEW,
          coalesce(G.MAILPEC, d.MAILPEC) as MAILPEC_CLI,
          coalesce(G.MAILPEC, e.MAILPEC) as MAILPEC_DEST,
          d.MAILPEC as MAILPEC_CLI_NEW,
          e.MAILPEC as MAILPEC_DEST_NEW,
          coalesce(g.NOMEXML, ' ') AS NOMEXML,
          coalesce(g.SERVTRA, ' ') AS SERVTRA,
          coalesce(f.NUMEFATT,' ') AS NUMEFATT,
          coalesce(f.VENDACQU,'V') AS VENDACQU,
          case when a.flinfm <> ' ' AND A.FTDIFMA IN ('D','*') AND A.CDCFFM = A.CIFAFMA AND DEST.CLFODE IS NOT NULL AND e.CODIPA IS NOT NULL THEN '1' ELSE '0' END FORDEST,
		coalesce(f.impotot, 0) impotot
   FROM &DT/FTPAFE55F as a
	LEFT OUTER JOIN &DT/CSTAB as DD ON DD.K00001 = '01DD' CONCAT a.TDOCFM
	JOIN &DT/CGPCO00F as b ON a.CIFAFMA = b.CONTCP
	JOIN &DT/SMTABAR55V  as c ON a.GIVAFM = c.XCODTB
    LEFT OUTER JOIN &DT/FTPAE55F as d ON
         	d.CDDITTA = ''
        AND a.CIFAFMA = d.CODCLI
        AND (d.CODIPA <> '' OR d.esclusofe ='S')
  	LEFT OUTER JOIN &DT/FTPAE55F as e ON
 	    e.CDDITTA = ''
 	    AND a.CSPEFM = e.CODCLI
 		AND a.DTFTFM >= e.DTIPA
        AND e.CODIPA <> ''
        AND e.esclusofe =' '
 	LEFT OUTER JOIN &DT/FTPAF55F as f ON a.CDDTFM = f.CDDTFM
					      AND a.DTFTFM = f.DTFTFM
					      AND a.NRFTFM = f.NRFTFM
					      AND a.GIVAFM = f.GIVAFM
					      AND 'V' = f.VENDACQU
 	LEFT OUTER JOIN &DT/FTPAI55F as g ON f.PROGID = g.PROGID
 	LEFT OUTER JOIN &DT/FTPAU55V as h ON  a.CDDTFM = h.CDDTFAT
					      AND a.DTFTFM = h.DATAFAT
                          AND a.NRFTFM = h.NUMFAT
                          AND a.GIVAFM = h.GIVAFAT
                          AND '' = h.FORNFAT
   LEFT OUTER JOIN &DT/FTPAX55F as x ON (g.PROGID = x.PROGID and x.PROGRIGA = 0)
	JOIN &DT/CGANA00F as i ON i.CONTCA = b.CONTCP
	LEFT JOIN &DT/CGADE00F DEST ON DEST.CONTDE = a.CSPEFM
	LEFT JOIN &DT/FTPSET55F S ON 1=1
   WHERE coalesce(substr(DD.F00002, 10, 1), a.TDOCFM) <> 'P'
   AND
   (f.storfm is null or f.STORFM <> 'S')
   AND
   (NOT f.nrftfm IS NULL OR
   COALESCE(d.esclusofe, ' ') = ' '
   AND ((d.DTIPA IS NULL AND i.cisoca IN ('IT','SM') AND a.DTFTFM >= S.datainb2b
   		OR
	(NOT d.DTIPA IS NULL AND (d.DTIPA > 0 AND a.DTFTFM >= d.DTIPA OR (d.DTIPA = 0 AND (d.PAOPRIV = ' ' OR a.DTFTFM >= S.datainb2b)))))))) AS FAT)
<TAG-SCRIPT><IF-VERSION>5

LABEL ON TABLE &DT/FTFTE55V IS 'Art. 55 VIEW FATTURE STORICHE E ATTUALI'
<TAG-SCRIPT>

DROP VIEW &DT/FTMOV55V
<TAG-SCRIPT>

CREATE VIEW &DT/FTMOV55V AS (
	SELECT FAT.*,
	CASE WHEN PRIVATO = '1' AND FORDEST = '1' THEN '1' ELSE '0' END AS PRFORDEST,
	CASE WHEN PRIVATO = '0' OR FORDEST = '1' THEN coalesce(DEST, SPACE(10)) ELSE SPACE(10) END AS CSPEFM,
	CASE WHEN DATI_STORICI = '1' THEN IPA_CLI WHEN PRIVATO = '1' AND FORDEST = '1' THEN IPA_DEST WHEN PRIVATO = '1' THEN coalesce(IPA_CLI,'0000000') ELSE coalesce(IPA_DEST, IPA_CLI) END AS IPA,
	CASE WHEN DATI_STORICI = '1' THEN MAILPEC_CLI WHEN PRIVATO = '1' AND FORDEST = '1' THEN MAILPEC_DEST WHEN PRIVATO = '1' THEN coalesce(MAILPEC_CLI, SPACE(256)) ELSE coalesce(MAILPEC_DEST, MAILPEC_CLI) END AS MAILPEC,
	CASE WHEN PRIVATO_NEW = '1' AND FORDEST = '1' THEN IPA_DEST_NEW WHEN PRIVATO_NEW = '1' THEN coalesce(IPA_CLI_NEW,'0000000') ELSE coalesce(IPA_DEST_NEW, IPA_CLI_NEW) END AS IPA_NEW,
	CASE WHEN PRIVATO_NEW = '1' AND FORDEST = '1' THEN MAILPEC_DEST_NEW WHEN PRIVATO_NEW = '1' THEN coalesce(MAILPEC_CLI_NEW, SPACE(256)) ELSE coalesce(MAILPEC_DEST_NEW, MAILPEC_CLI_NEW) END AS MAILPEC_NEW
	FROM (
SELECT a.DTFTFM,
          a.NRFTFM,
          CASE
              WHEN a.FLCGFM = '' THEN '0'
              WHEN a.FLCGFM = '*' THEN '1'
          END AS FLCG,
          coalesce(f.cdcffm, a.CIFAFMA) AS CDCFFM,
          a.CIFAFMA CDCFFM_NEW,
          a.CDCFFM AS f0CDCFFM,
          CSPEFM AS DEST,
          a.GIVAFM,
          a.CDDTFM,
          a.FLSFFM,
          case when G.CODIDEST IS NULL THEN '0' ELSE '1' END DATI_STORICI,
          case when G.DENOMCES IS NULL THEN b.DSCOCP WHEN G.DENOMCES = ''  THEN RTRIM(G.NOMECES) CONCAT ' ' CONCAT G.COGNOCES ELSE G.DENOMCES END AS DSCOCP,
          coalesce(CASE
          	WHEN g.STATOTRAS = 'T' and x.PROGID IS NOT NULL THEN 'E'
          	WHEN coalesce(G.EXTID, '') = '' THEN g.STATOTRAS
          	WHEN g.STATOTRAS = 'V' and x.PROGID IS NOT NULL THEN 'C'
          	ELSE g.STATOTRAS END
          	, 'B') AS STATO,
          COALESCE(G.CODIDEST, d.CODIPA) AS IPA_CLI,
          COALESCE(G.CODIDEST, e.CODIPA) AS IPA_DEST,
          d.CODIPA AS IPA_CLI_NEW,
          e.CODIPA AS IPA_DEST_NEW,
          g.PROGID,
          c.DESC_GIVA,
          coalesce(h.ALLEG, 0) AS ALLEGATO,
          coalesce(G.EXTID, '') AS EXTID,
          CASE WHEN x.PROGID IS NULL THEN '0' ELSE '1' END AS ERRORI ,
          CASE WHEN G.PAOPRIV IS NULL AND (d.PAOPRIV IS NULL OR d.PAOPRIV = 'R') OR G.PAOPRIV IS NOT NULL AND G.PAOPRIV = 'R' THEN '1' ELSE '0' END AS PRIVATO,
          CASE WHEN d.PAOPRIV IS NULL OR d.PAOPRIV = 'R' THEN '1' ELSE '0' END AS PRIVATO_NEW,
          coalesce(G.MAILPEC, d.MAILPEC) as MAILPEC_CLI,
          coalesce(G.MAILPEC, e.MAILPEC) as MAILPEC_DEST,
          d.MAILPEC as MAILPEC_CLI_NEW,
          e.MAILPEC as MAILPEC_DEST_NEW,
          coalesce(g.NOMEXML, ' ') AS NOMEXML,
          coalesce(g.SERVTRA, ' ') AS SERVTRA,
          coalesce(f.NUMEFATT,' ') AS NUMEFATT,
          coalesce(f.VENDACQU,'V') AS VENDACQU,
          case when a.flinfm <> ' ' AND A.FTDIFMA IN ('D','*') AND A.CDCFFM = A.CIFAFMA AND DEST.CLFOCP = 'D' AND e.CODIPA IS NOT NULL THEN '1' ELSE '0' END FORDEST,
		coalesce(f.impotot, 0) impotot
   FROM &DT/FTMOVAR55V as a
	LEFT OUTER JOIN &DT/CSTAB as DD ON DD.K00001 = '01DD' CONCAT a.TDOCFM
	JOIN &DT/CGPCO00F as b ON a.CIFAFMA = b.CONTCP
	JOIN &DT/SMTABAR55V  as c ON a.GIVAFM = c.XCODTB
    LEFT OUTER JOIN &DT/FTPAE55F as d ON
         	d.CDDITTA = ''
        AND a.CIFAFMA = d.CODCLI
        AND (d.CODIPA <> '' OR d.esclusofe ='S')
 	LEFT OUTER JOIN &DT/FTPAE55F as e ON
 	    e.CDDITTA = ''
 	    AND a.CSPEFM = e.CODCLI
 		AND a.DTFTFM >= e.DTIPA
        AND e.CODIPA <> ''
        AND e.esclusofe =' '
 	LEFT OUTER JOIN &DT/FTPAF55F as f ON a.CDDTFM = f.CDDTFM
					      AND a.DTFTFM = f.DTFTFM
					      AND a.NRFTFM = f.NRFTFM
					      AND a.GIVAFM = f.GIVAFM
					      AND 'V' = f.VENDACQU
 	LEFT OUTER JOIN &DT/FTPAI55F as g ON f.PROGID = g.PROGID
 	LEFT OUTER JOIN &DT/FTPAU55V as h ON  a.CDDTFM = h.CDDTFAT
					      AND a.DTFTFM = h.DATAFAT
                          AND a.NRFTFM = h.NUMFAT
                          AND a.GIVAFM = h.GIVAFAT
                          AND '' = h.FORNFAT
   LEFT OUTER JOIN &DT/FTPAX55F as x ON (g.PROGID = x.PROGID and x.PROGRIGA = 0)
	JOIN &DT/CGANA00F as i ON i.CONTCA = b.CONTCP
	LEFT JOIN &DT/CGPCO00F DEST ON DEST.CONTCP = a.CSPEFM
	LEFT JOIN &DT/FTPSET55F S ON 1=1
   WHERE coalesce(substr(DD.F00002, 10, 1), a.TDOCFM) <> 'P'
   AND
   (f.storfm is null or f.STORFM <> 'S')
   AND
   (NOT f.nrftfm IS NULL OR
   COALESCE(d.esclusofe, ' ') = ' '
   AND ((d.DTIPA IS NULL AND i.cisoca IN ('IT','SM') AND a.DTFTFM >= S.datainb2b
   		OR
	(NOT d.DTIPA IS NULL AND (d.DTIPA > 0 AND a.DTFTFM >= d.DTIPA OR (d.DTIPA = 0 AND (d.PAOPRIV = ' ' OR a.DTFTFM >= S.datainb2b)))))))) AS FAT)
<TAG-SCRIPT><IFNOT-VERSION>5

CREATE VIEW &DT/FTMOV55V AS (
	SELECT FAT.*,
	CASE WHEN PRIVATO = '1' AND FORDEST = '1' THEN '1' ELSE '0' END AS PRFORDEST,
	CASE WHEN PRIVATO = '0' OR FORDEST = '1' THEN coalesce(DEST, SPACE(10)) ELSE SPACE(10) END AS CSPEFM,
	CASE WHEN DATI_STORICI = '1' THEN IPA_CLI WHEN PRIVATO = '1' AND FORDEST = '1' THEN IPA_DEST WHEN PRIVATO = '1' THEN coalesce(IPA_CLI,'0000000') ELSE coalesce(IPA_DEST, IPA_CLI) END AS IPA,
	CASE WHEN DATI_STORICI = '1' THEN MAILPEC_CLI WHEN PRIVATO = '1' AND FORDEST = '1' THEN MAILPEC_DEST WHEN PRIVATO = '1' THEN coalesce(MAILPEC_CLI, SPACE(256)) ELSE coalesce(MAILPEC_DEST, MAILPEC_CLI) END AS MAILPEC,
	CASE WHEN PRIVATO_NEW = '1' AND FORDEST = '1' THEN IPA_DEST_NEW WHEN PRIVATO_NEW = '1' THEN coalesce(IPA_CLI_NEW,'0000000') ELSE coalesce(IPA_DEST_NEW, IPA_CLI_NEW) END AS IPA_NEW,
	CASE WHEN PRIVATO_NEW = '1' AND FORDEST = '1' THEN MAILPEC_DEST_NEW WHEN PRIVATO_NEW = '1' THEN coalesce(MAILPEC_CLI_NEW, SPACE(256)) ELSE coalesce(MAILPEC_DEST_NEW, MAILPEC_CLI_NEW) END AS MAILPEC_NEW
	FROM (
SELECT a.DTFTFM,
          a.NRFTFM,
          CASE
              WHEN a.FLCGFM = '' THEN '0'
              WHEN a.FLCGFM = '*' THEN '1'
          END AS FLCG,
          coalesce(f.cdcffm, a.CIFAFMA) AS CDCFFM,
          a.CIFAFMA CDCFFM_NEW,
          a.CDCFFM AS f0CDCFFM,
          CSPEFM AS DEST,
          a.GIVAFM,
          a.CDDTFM,
          a.FLSFFM,
          case when G.CODIDEST IS NULL THEN '0' ELSE '1' END DATI_STORICI,
          case when G.DENOMCES IS NULL THEN b.DSCOCP WHEN G.DENOMCES = ''  THEN RTRIM(G.NOMECES) CONCAT ' ' CONCAT G.COGNOCES ELSE G.DENOMCES END AS DSCOCP,
          coalesce(CASE
          	WHEN g.STATOTRAS = 'T' and x.PROGID IS NOT NULL THEN 'E'
          	WHEN coalesce(G.EXTID, '') = '' THEN g.STATOTRAS
          	WHEN g.STATOTRAS = 'V' and x.PROGID IS NOT NULL THEN 'C'
          	ELSE g.STATOTRAS END
          	, 'B') AS STATO,
          COALESCE(G.CODIDEST, d.CODIPA) AS IPA_CLI,
          COALESCE(G.CODIDEST, e.CODIPA) AS IPA_DEST,
          d.CODIPA AS IPA_CLI_NEW,
          e.CODIPA AS IPA_DEST_NEW,
          g.PROGID,
          c.DESC_GIVA,
          coalesce(h.ALLEG, 0) AS ALLEGATO,
          coalesce(G.EXTID, '') AS EXTID,
          CASE WHEN x.PROGID IS NULL THEN '0' ELSE '1' END AS ERRORI ,
          CASE WHEN G.PAOPRIV IS NULL AND (d.PAOPRIV IS NULL OR d.PAOPRIV = 'R') OR G.PAOPRIV IS NOT NULL AND G.PAOPRIV = 'R' THEN '1' ELSE '0' END AS PRIVATO,
          CASE WHEN d.PAOPRIV IS NULL OR d.PAOPRIV = 'R' THEN '1' ELSE '0' END AS PRIVATO_NEW,
          coalesce(G.MAILPEC, d.MAILPEC) as MAILPEC_CLI,
          coalesce(G.MAILPEC, e.MAILPEC) as MAILPEC_DEST,
          d.MAILPEC as MAILPEC_CLI_NEW,
          e.MAILPEC as MAILPEC_DEST_NEW,
          coalesce(g.NOMEXML, ' ') AS NOMEXML,
          coalesce(g.SERVTRA, ' ') AS SERVTRA,
          coalesce(f.NUMEFATT,' ') AS NUMEFATT,
          coalesce(f.VENDACQU,'V') AS VENDACQU,
          case when a.flinfm <> ' ' AND A.FTDIFMA IN ('D','*') AND A.CDCFFM = A.CIFAFMA AND DEST.CLFODE IS NOT NULL AND e.CODIPA IS NOT NULL THEN '1' ELSE '0' END FORDEST,
		coalesce(f.impotot, 0) impotot
   FROM &DT/FTMOVAR55V as a
	LEFT OUTER JOIN &DT/CSTAB as DD ON DD.K00001 = '01DD' CONCAT a.TDOCFM
	JOIN &DT/CGPCO00F as b ON a.CIFAFMA = b.CONTCP
	JOIN &DT/SMTABAR55V  as c ON a.GIVAFM = c.XCODTB
    LEFT OUTER JOIN &DT/FTPAE55F as d ON
         	d.CDDITTA = ''
        AND a.CIFAFMA = d.CODCLI
        AND (d.CODIPA <> '' OR d.esclusofe ='S')
 	LEFT OUTER JOIN &DT/FTPAE55F as e ON
 	    e.CDDITTA = ''
 	    AND a.CSPEFM = e.CODCLI
 		AND a.DTFTFM >= e.DTIPA
        AND e.CODIPA <> ''
        AND e.esclusofe =' '
 	LEFT OUTER JOIN &DT/FTPAF55F as f ON a.CDDTFM = f.CDDTFM
					      AND a.DTFTFM = f.DTFTFM
					      AND a.NRFTFM = f.NRFTFM
					      AND a.GIVAFM = f.GIVAFM
					      AND 'V' = f.VENDACQU
 	LEFT OUTER JOIN &DT/FTPAI55F as g ON f.PROGID = g.PROGID
 	LEFT OUTER JOIN &DT/FTPAU55V as h ON  a.CDDTFM = h.CDDTFAT
					      AND a.DTFTFM = h.DATAFAT
                          AND a.NRFTFM = h.NUMFAT
                          AND a.GIVAFM = h.GIVAFAT
                          AND '' = h.FORNFAT
   LEFT OUTER JOIN &DT/FTPAX55F as x ON (g.PROGID = x.PROGID and x.PROGRIGA = 0)
	JOIN &DT/CGANA00F as i ON i.CONTCA = b.CONTCP
	LEFT JOIN &DT/CGADE00F DEST ON DEST.CONTDE = a.CSPEFM
	LEFT JOIN &DT/FTPSET55F S ON 1=1
   WHERE coalesce(substr(DD.F00002, 10, 1), a.TDOCFM) <> 'P'
   AND
   (f.storfm is null or f.STORFM <> 'S')
   AND
   (NOT f.nrftfm IS NULL OR
   COALESCE(d.esclusofe, ' ') = ' '
   AND ((d.DTIPA IS NULL AND i.cisoca IN ('IT','SM') AND a.DTFTFM >= S.datainb2b
   		OR
	(NOT d.DTIPA IS NULL AND (d.DTIPA > 0 AND a.DTFTFM >= d.DTIPA OR (d.DTIPA = 0 AND (d.PAOPRIV = ' ' OR a.DTFTFM >= S.datainb2b)))))))) AS FAT)
<TAG-SCRIPT><IF-VERSION>5

LABEL ON TABLE &DT/FTMOV55V IS 'Art. 55 VIEW ATTUALI'
<TAG-SCRIPT>

DROP VIEW &DT/FTBKM55V
<TAG-SCRIPT>

CREATE VIEW &DT/FTBKM55V AS (
	SELECT FAT.*,
	CASE WHEN PRIVATO = '1' AND FORDEST = '1' THEN '1' ELSE '0' END AS PRFORDEST,
	CASE WHEN PRIVATO = '0' OR FORDEST = '1' THEN coalesce(DEST, SPACE(10)) ELSE SPACE(10) END AS CSPEFM,
	CASE WHEN DATI_STORICI = '1' THEN IPA_CLI WHEN PRIVATO = '1' AND FORDEST = '1' THEN IPA_DEST WHEN PRIVATO = '1' THEN coalesce(IPA_CLI,'0000000') ELSE coalesce(IPA_DEST, IPA_CLI) END AS IPA,
	CASE WHEN DATI_STORICI = '1' THEN MAILPEC_CLI WHEN PRIVATO = '1' AND FORDEST = '1' THEN MAILPEC_DEST WHEN PRIVATO = '1' THEN coalesce(MAILPEC_CLI, SPACE(256)) ELSE coalesce(MAILPEC_DEST, MAILPEC_CLI) END AS MAILPEC,
	CASE WHEN PRIVATO_NEW = '1' AND FORDEST = '1' THEN IPA_DEST_NEW WHEN PRIVATO_NEW = '1' THEN coalesce(IPA_CLI_NEW,'0000000') ELSE coalesce(IPA_DEST_NEW, IPA_CLI_NEW) END AS IPA_NEW,
	CASE WHEN PRIVATO_NEW = '1' AND FORDEST = '1' THEN MAILPEC_DEST_NEW WHEN PRIVATO_NEW = '1' THEN coalesce(MAILPEC_CLI_NEW, SPACE(256)) ELSE coalesce(MAILPEC_DEST_NEW, MAILPEC_CLI_NEW) END AS MAILPEC_NEW
	FROM (
SELECT a.DTFTFM,
          a.NRFTFM,
          CASE
              WHEN a.FLCGFM = '' THEN '0'
              WHEN a.FLCGFM = '*' THEN '1'
          END AS FLCG,
          coalesce(f.cdcffm, a.CIFAFMA) AS CDCFFM,
          a.CIFAFMA CDCFFM_NEW,
          a.CDCFFM AS f0CDCFFM,
          CSPEFM AS DEST,
          a.GIVAFM,
          a.CDDTFM,
          a.FLSFFM,
          case when G.CODIDEST IS NULL THEN '0' ELSE '1' END DATI_STORICI,
          case when G.DENOMCES IS NULL THEN b.DSCOCP WHEN G.DENOMCES = ''  THEN RTRIM(G.NOMECES) CONCAT ' ' CONCAT G.COGNOCES ELSE G.DENOMCES END AS DSCOCP,
          coalesce(CASE
          	WHEN g.STATOTRAS = 'T' and x.PROGID IS NOT NULL THEN 'E'
          	WHEN coalesce(G.EXTID, '') = '' THEN g.STATOTRAS
          	WHEN g.STATOTRAS = 'V' and x.PROGID IS NOT NULL THEN 'C'
          	ELSE g.STATOTRAS END
          	, 'B') AS STATO,
          COALESCE(G.CODIDEST, d.CODIPA) AS IPA_CLI,
          COALESCE(G.CODIDEST, e.CODIPA) AS IPA_DEST,
          d.CODIPA AS IPA_CLI_NEW,
          e.CODIPA AS IPA_DEST_NEW,
          g.PROGID,
          c.DESC_GIVA,
          coalesce(h.ALLEG, 0) AS ALLEGATO,
          coalesce(G.EXTID, '') AS EXTID,
          CASE WHEN x.PROGID IS NULL THEN '0' ELSE '1' END AS ERRORI ,
          CASE WHEN G.PAOPRIV IS NULL AND (d.PAOPRIV IS NULL OR d.PAOPRIV = 'R') OR G.PAOPRIV IS NOT NULL AND G.PAOPRIV = 'R' THEN '1' ELSE '0' END AS PRIVATO,
          CASE WHEN d.PAOPRIV IS NULL OR d.PAOPRIV = 'R' THEN '1' ELSE '0' END AS PRIVATO_NEW,
          coalesce(G.MAILPEC, d.MAILPEC) as MAILPEC_CLI,
          coalesce(G.MAILPEC, e.MAILPEC) as MAILPEC_DEST,
          d.MAILPEC as MAILPEC_CLI_NEW,
          e.MAILPEC as MAILPEC_DEST_NEW,
          coalesce(g.NOMEXML, ' ') AS NOMEXML,
          coalesce(g.SERVTRA, ' ') AS SERVTRA,
          coalesce(f.NUMEFATT,' ') AS NUMEFATT,
          coalesce(f.VENDACQU,'V') AS VENDACQU,
          case when a.flinfm <> ' ' AND A.FTDIFMA IN ('D','*') AND A.CDCFFM = A.CIFAFMA AND DEST.CLFOCP = 'D' AND e.CODIPA IS NOT NULL THEN '1' ELSE '0' END FORDEST,
		coalesce(f.impotot, 0) impotot
   FROM &DT/FTBKMAR55V as a
	LEFT OUTER JOIN &DT/CSTAB as DD ON DD.K00001 = '01DD' CONCAT a.TDOCFM
	JOIN &DT/CGPCO00F as b ON a.CIFAFMA = b.CONTCP
	JOIN &DT/SMTABAR55V  as c ON a.GIVAFM = c.XCODTB
    LEFT OUTER JOIN &DT/FTPAE55F as d ON
         	d.CDDITTA = ''
        AND a.CIFAFMA = d.CODCLI
        AND (d.CODIPA <> '' OR d.esclusofe ='S')
 	LEFT OUTER JOIN &DT/FTPAE55F as e ON
 	    e.CDDITTA = ''
 	    AND a.CSPEFM = e.CODCLI
 		AND a.DTFTFM >= e.DTIPA
        AND e.CODIPA <> ''
        AND e.esclusofe =' '
 	LEFT OUTER JOIN &DT/FTPAF55F as f ON a.CDDTFM = f.CDDTFM
					      AND a.DTFTFM = f.DTFTFM
					      AND a.NRFTFM = f.NRFTFM
					      AND a.GIVAFM = f.GIVAFM
					      AND 'V' = f.VENDACQU
 	LEFT OUTER JOIN &DT/FTPAI55F as g ON f.PROGID = g.PROGID
 	LEFT OUTER JOIN &DT/FTPAU55V as h ON  a.CDDTFM = h.CDDTFAT
					      AND a.DTFTFM = h.DATAFAT
                          AND a.NRFTFM = h.NUMFAT
                          AND a.GIVAFM = h.GIVAFAT
                          AND '' = h.FORNFAT
   LEFT OUTER JOIN &DT/FTPAX55F as x ON (g.PROGID = x.PROGID and x.PROGRIGA = 0)
	JOIN &DT/CGANA00F as i ON i.CONTCA = b.CONTCP
	LEFT JOIN &DT/CGPCO00F DEST ON DEST.CONTCP = a.CSPEFM
	LEFT JOIN &DT/FTPSET55F S ON 1=1
   WHERE coalesce(substr(DD.F00002, 10, 1), a.TDOCFM) <> 'P'
   AND
   (f.storfm is null or f.STORFM <> 'S')
   AND
   (NOT f.nrftfm IS NULL OR
   COALESCE(d.esclusofe, ' ') = ' '
   AND ((d.DTIPA IS NULL AND i.cisoca IN ('IT','SM') AND a.DTFTFM >= S.datainb2b
   		OR
	(NOT d.DTIPA IS NULL AND (d.DTIPA > 0 AND a.DTFTFM >= d.DTIPA OR (d.DTIPA = 0 AND (d.PAOPRIV = ' ' OR a.DTFTFM >= S.datainb2b)))))))) AS FAT)
<TAG-SCRIPT><IFNOT-VERSION>5

CREATE VIEW &DT/FTBKM55V AS (
	SELECT FAT.*,
	CASE WHEN PRIVATO = '1' AND FORDEST = '1' THEN '1' ELSE '0' END AS PRFORDEST,
	CASE WHEN PRIVATO = '0' OR FORDEST = '1' THEN coalesce(DEST, SPACE(10)) ELSE SPACE(10) END AS CSPEFM,
	CASE WHEN DATI_STORICI = '1' THEN IPA_CLI WHEN PRIVATO = '1' AND FORDEST = '1' THEN IPA_DEST WHEN PRIVATO = '1' THEN coalesce(IPA_CLI,'0000000') ELSE coalesce(IPA_DEST, IPA_CLI) END AS IPA,
	CASE WHEN DATI_STORICI = '1' THEN MAILPEC_CLI WHEN PRIVATO = '1' AND FORDEST = '1' THEN MAILPEC_DEST WHEN PRIVATO = '1' THEN coalesce(MAILPEC_CLI, SPACE(256)) ELSE coalesce(MAILPEC_DEST, MAILPEC_CLI) END AS MAILPEC,
	CASE WHEN PRIVATO_NEW = '1' AND FORDEST = '1' THEN IPA_DEST_NEW WHEN PRIVATO_NEW = '1' THEN coalesce(IPA_CLI_NEW,'0000000') ELSE coalesce(IPA_DEST_NEW, IPA_CLI_NEW) END AS IPA_NEW,
	CASE WHEN PRIVATO_NEW = '1' AND FORDEST = '1' THEN MAILPEC_DEST_NEW WHEN PRIVATO_NEW = '1' THEN coalesce(MAILPEC_CLI_NEW, SPACE(256)) ELSE coalesce(MAILPEC_DEST_NEW, MAILPEC_CLI_NEW) END AS MAILPEC_NEW
	FROM (
SELECT a.DTFTFM,
          a.NRFTFM,
          CASE
              WHEN a.FLCGFM = '' THEN '0'
              WHEN a.FLCGFM = '*' THEN '1'
          END AS FLCG,
          coalesce(f.cdcffm, a.CIFAFMA) AS CDCFFM,
          a.CIFAFMA CDCFFM_NEW,
          a.CDCFFM AS f0CDCFFM,
          CSPEFM AS DEST,
          a.GIVAFM,
          a.CDDTFM,
          a.FLSFFM,
          case when G.CODIDEST IS NULL THEN '0' ELSE '1' END DATI_STORICI,
          case when G.DENOMCES IS NULL THEN b.DSCOCP WHEN G.DENOMCES = ''  THEN RTRIM(G.NOMECES) CONCAT ' ' CONCAT G.COGNOCES ELSE G.DENOMCES END AS DSCOCP,
          coalesce(CASE
          	WHEN g.STATOTRAS = 'T' and x.PROGID IS NOT NULL THEN 'E'
          	WHEN coalesce(G.EXTID, '') = '' THEN g.STATOTRAS
          	WHEN g.STATOTRAS = 'V' and x.PROGID IS NOT NULL THEN 'C'
          	ELSE g.STATOTRAS END
          	, 'B') AS STATO,
          COALESCE(G.CODIDEST, d.CODIPA) AS IPA_CLI,
          COALESCE(G.CODIDEST, e.CODIPA) AS IPA_DEST,
          d.CODIPA AS IPA_CLI_NEW,
          e.CODIPA AS IPA_DEST_NEW,
          g.PROGID,
          c.DESC_GIVA,
          coalesce(h.ALLEG, 0) AS ALLEGATO,
          coalesce(G.EXTID, '') AS EXTID,
          CASE WHEN x.PROGID IS NULL THEN '0' ELSE '1' END AS ERRORI ,
          CASE WHEN G.PAOPRIV IS NULL AND (d.PAOPRIV IS NULL OR d.PAOPRIV = 'R') OR G.PAOPRIV IS NOT NULL AND G.PAOPRIV = 'R' THEN '1' ELSE '0' END AS PRIVATO,
          CASE WHEN d.PAOPRIV IS NULL OR d.PAOPRIV = 'R' THEN '1' ELSE '0' END AS PRIVATO_NEW,
          coalesce(G.MAILPEC, d.MAILPEC) as MAILPEC_CLI,
          coalesce(G.MAILPEC, e.MAILPEC) as MAILPEC_DEST,
          d.MAILPEC as MAILPEC_CLI_NEW,
          e.MAILPEC as MAILPEC_DEST_NEW,
          coalesce(g.NOMEXML, ' ') AS NOMEXML,
          coalesce(g.SERVTRA, ' ') AS SERVTRA,
          coalesce(f.NUMEFATT,' ') AS NUMEFATT,
          coalesce(f.VENDACQU,'V') AS VENDACQU,
          case when a.flinfm <> ' ' AND A.FTDIFMA IN ('D','*') AND A.CDCFFM = A.CIFAFMA AND DEST.CLFODE IS NOT NULL AND e.CODIPA IS NOT NULL THEN '1' ELSE '0' END FORDEST,
		coalesce(f.impotot, 0) impotot
   FROM &DT/FTBKMAR55V as a
	LEFT OUTER JOIN &DT/CSTAB as DD ON DD.K00001 = '01DD' CONCAT a.TDOCFM
	JOIN &DT/CGPCO00F as b ON a.CIFAFMA = b.CONTCP
	JOIN &DT/SMTABAR55V  as c ON a.GIVAFM = c.XCODTB
    LEFT OUTER JOIN &DT/FTPAE55F as d ON
         	d.CDDITTA = ''
        AND a.CIFAFMA = d.CODCLI
        AND (d.CODIPA <> '' OR d.esclusofe ='S')
 	LEFT OUTER JOIN &DT/FTPAE55F as e ON
 	    e.CDDITTA = ''
 	    AND a.CSPEFM = e.CODCLI
 		AND a.DTFTFM >= e.DTIPA
        AND e.CODIPA <> ''
        AND e.esclusofe =' '
 	LEFT OUTER JOIN &DT/FTPAF55F as f ON a.CDDTFM = f.CDDTFM
					      AND a.DTFTFM = f.DTFTFM
					      AND a.NRFTFM = f.NRFTFM
					      AND a.GIVAFM = f.GIVAFM
					      AND 'V' = f.VENDACQU
 	LEFT OUTER JOIN &DT/FTPAI55F as g ON f.PROGID = g.PROGID
 	LEFT OUTER JOIN &DT/FTPAU55V as h ON  a.CDDTFM = h.CDDTFAT
					      AND a.DTFTFM = h.DATAFAT
                          AND a.NRFTFM = h.NUMFAT
                          AND a.GIVAFM = h.GIVAFAT
                          AND '' = h.FORNFAT
   LEFT OUTER JOIN &DT/FTPAX55F as x ON (g.PROGID = x.PROGID and x.PROGRIGA = 0)
	JOIN &DT/CGANA00F as i ON i.CONTCA = b.CONTCP
	LEFT JOIN &DT/CGADE00F DEST ON DEST.CONTDE = a.CSPEFM
	LEFT JOIN &DT/FTPSET55F S ON 1=1
   WHERE coalesce(substr(DD.F00002, 10, 1), a.TDOCFM) <> 'P'
   AND
   (f.storfm is null or f.STORFM <> 'S')
   AND
   (NOT f.nrftfm IS NULL OR
   COALESCE(d.esclusofe, ' ') = ' '
   AND ((d.DTIPA IS NULL AND i.cisoca IN ('IT','SM') AND a.DTFTFM >= S.datainb2b
   		OR
	(NOT d.DTIPA IS NULL AND (d.DTIPA > 0 AND a.DTFTFM >= d.DTIPA OR (d.DTIPA = 0 AND (d.PAOPRIV = ' ' OR a.DTFTFM >= S.datainb2b)))))))) AS FAT)
<TAG-SCRIPT><IF-VERSION>5

LABEL ON TABLE &DT/FTBKM55V IS 'Art. 55 VIEW STORICI'
<TAG-SCRIPT>

<TAG-VERSIONE-15.15.0>
<TAG-SCRIPT>

<TAG-VERSIONE-15.16.0>
<TAG-SCRIPT>

<TAG-VERSIONE-15.17.0>
<TAG-SCRIPT>

<TAG-VERSIONE-15.18.0>
<TAG-SCRIPT>

DROP VIEW &DT/FTFTE55V
<TAG-SCRIPT>

CREATE VIEW &DT/FTFTE55V AS (
	SELECT FAT.*,
	CASE WHEN PRIVATO = '1' AND FORDEST = '1' THEN '1' ELSE '0' END AS PRFORDEST,
	CASE WHEN PRIVATO = '0' OR FORDEST = '1' THEN coalesce(DEST, SPACE(10)) ELSE SPACE(10) END AS CSPEFM,
	CASE WHEN DATI_STORICI = '1' THEN IPA_CLI WHEN PRIVATO = '1' AND FORDEST = '1' THEN IPA_DEST WHEN PRIVATO = '1' THEN coalesce(IPA_CLI,'0000000') ELSE coalesce(IPA_DEST, IPA_CLI) END AS IPA,
	CASE WHEN DATI_STORICI = '1' THEN MAILPEC_CLI WHEN PRIVATO = '1' AND FORDEST = '1' THEN MAILPEC_DEST WHEN PRIVATO = '1' THEN coalesce(MAILPEC_CLI, SPACE(256)) ELSE coalesce(MAILPEC_DEST, MAILPEC_CLI) END AS MAILPEC,
	CASE WHEN PRIVATO_NEW = '1' AND FORDEST = '1' THEN IPA_DEST_NEW WHEN PRIVATO_NEW = '1' THEN coalesce(IPA_CLI_NEW,'0000000') ELSE coalesce(IPA_DEST_NEW, IPA_CLI_NEW) END AS IPA_NEW,
	CASE WHEN PRIVATO_NEW = '1' AND FORDEST = '1' THEN MAILPEC_DEST_NEW WHEN PRIVATO_NEW = '1' THEN coalesce(MAILPEC_CLI_NEW, SPACE(256)) ELSE coalesce(MAILPEC_DEST_NEW, MAILPEC_CLI_NEW) END AS MAILPEC_NEW
	FROM (
SELECT a.DTFTFM,
          a.NRFTFM,
          CASE
              WHEN a.FLCGFM = '' THEN '0'
              WHEN a.FLCGFM = '*' THEN '1'
          END AS FLCG,
          coalesce(f.cdcffm, a.CIFAFMA) AS CDCFFM,
          a.CIFAFMA CDCFFM_NEW,
          a.CDCFFM AS f0CDCFFM,
          CSPEFM AS DEST,
          a.GIVAFM,
          a.CDDTFM,
          a.FLSFFM,
          case when G.CODIDEST IS NULL THEN '0' ELSE '1' END DATI_STORICI,
          case when G.DENOMCES IS NULL THEN b.DSCOCP WHEN G.DENOMCES = ''  THEN RTRIM(G.NOMECES) CONCAT ' ' CONCAT G.COGNOCES ELSE G.DENOMCES END AS DSCOCP,
          coalesce(CASE
          	WHEN g.STATOTRAS = 'T' and x.PROGID IS NOT NULL THEN 'E'
          	WHEN coalesce(G.EXTID, '') = '' THEN g.STATOTRAS
          	WHEN g.STATOTRAS = 'V' and x.PROGID IS NOT NULL THEN 'C'
          	ELSE g.STATOTRAS END
          	, 'B') AS STATO,
          COALESCE(G.CODIDEST, d.CODIPA) AS IPA_CLI,
          COALESCE(G.CODIDEST, e.CODIPA) AS IPA_DEST,
          d.CODIPA AS IPA_CLI_NEW,
          e.CODIPA AS IPA_DEST_NEW,
          g.PROGID,
          c.DESC_GIVA,
          coalesce(h.ALLEG, 0) AS ALLEGATO,
          coalesce(G.EXTID, '') AS EXTID,
          CASE WHEN x.PROGID IS NULL THEN '0' ELSE '1' END AS ERRORI ,
          CASE WHEN G.PAOPRIV IS NULL AND (d.PAOPRIV IS NULL OR d.PAOPRIV = 'R') OR G.PAOPRIV IS NOT NULL AND G.PAOPRIV = 'R' THEN '1' ELSE '0' END AS PRIVATO,
          CASE WHEN d.PAOPRIV IS NULL OR d.PAOPRIV = 'R' THEN '1' ELSE '0' END AS PRIVATO_NEW,
          coalesce(G.MAILPEC, d.MAILPEC) as MAILPEC_CLI,
          coalesce(G.MAILPEC, e.MAILPEC) as MAILPEC_DEST,
          d.MAILPEC as MAILPEC_CLI_NEW,
          e.MAILPEC as MAILPEC_DEST_NEW,
          coalesce(g.NOMEXML, ' ') AS NOMEXML,
          coalesce(g.SERVTRA, ' ') AS SERVTRA,
          coalesce(f.NUMEFATT,' ') AS NUMEFATT,
          coalesce(f.VENDACQU,'V') AS VENDACQU,
          case when a.flinfm <> ' ' AND A.FTDIFMA IN ('D','*') AND A.CDCFFM = A.CIFAFMA AND DEST.CLFOCP = 'D' AND e.CODIPA IS NOT NULL THEN '1' ELSE '0' END FORDEST,
		  coalesce(f.impotot, 0) impotot,
		  coalesce(f.TIPODOCU, '    ') TIPODOC
   FROM &DT/FTPAFE55F as a
	LEFT OUTER JOIN &DT/CSTAB as DD ON DD.K00001 = '01DD' CONCAT a.TDOCFM
	JOIN &DT/CGPCO00F as b ON a.CIFAFMA = b.CONTCP
	JOIN &DT/SMTABAR55V  as c ON a.GIVAFM = c.XCODTB
    LEFT OUTER JOIN &DT/FTPAE55F as d ON
         	d.CDDITTA = ''
        AND a.CIFAFMA = d.CODCLI
        AND (d.CODIPA <> '' OR d.esclusofe ='S')
 	LEFT OUTER JOIN &DT/FTPAE55F as e ON
 	    e.CDDITTA = ''
 	    AND a.CSPEFM = e.CODCLI
 		AND a.DTFTFM >= e.DTIPA
        AND e.CODIPA <> ''
        AND e.esclusofe =' '
 	LEFT OUTER JOIN &DT/FTPAF55F as f ON a.CDDTFM = f.CDDTFM
					      AND a.DTFTFM = f.DTFTFM
					      AND a.NRFTFM = f.NRFTFM
					      AND a.GIVAFM = f.GIVAFM
					      AND 'V' = f.VENDACQU
 	LEFT OUTER JOIN &DT/FTPAI55F as g ON f.PROGID = g.PROGID
 	LEFT OUTER JOIN &DT/FTPAU55V as h ON  a.CDDTFM = h.CDDTFAT
					      AND a.DTFTFM = h.DATAFAT
                          AND a.NRFTFM = h.NUMFAT
                          AND a.GIVAFM = h.GIVAFAT
                          AND '' = h.FORNFAT
   LEFT OUTER JOIN &DT/FTPAX55F as x ON (g.PROGID = x.PROGID and x.PROGRIGA = 0)
	JOIN &DT/CGANA00F as i ON i.CONTCA = b.CONTCP
	LEFT JOIN &DT/CGPCO00F DEST ON DEST.CONTCP = a.CSPEFM
	LEFT JOIN &DT/FTPSET55F S ON 1=1
   WHERE coalesce(substr(DD.F00002, 10, 1), a.TDOCFM) <> 'P'
   AND
   (f.storfm is null or f.STORFM <> 'S')
   AND
   (NOT f.nrftfm IS NULL OR
   COALESCE(d.esclusofe, ' ') = ' '
   AND ((d.DTIPA IS NULL AND i.cisoca IN ('IT','SM') AND a.DTFTFM >= S.datainb2b
   		OR
	(NOT d.DTIPA IS NULL AND (d.DTIPA > 0 AND a.DTFTFM >= d.DTIPA OR (d.DTIPA = 0 AND (d.PAOPRIV = ' ' OR a.DTFTFM >= S.datainb2b)))))))) AS FAT)
<TAG-SCRIPT><IFNOT-VERSION>5

CREATE VIEW &DT/FTFTE55V AS (
	SELECT FAT.*,
	CASE WHEN PRIVATO = '1' AND FORDEST = '1' THEN '1' ELSE '0' END AS PRFORDEST,
	CASE WHEN PRIVATO = '0' OR FORDEST = '1' THEN coalesce(DEST, SPACE(10)) ELSE SPACE(10) END AS CSPEFM,
	CASE WHEN DATI_STORICI = '1' THEN IPA_CLI WHEN PRIVATO = '1' AND FORDEST = '1' THEN IPA_DEST WHEN PRIVATO = '1' THEN coalesce(IPA_CLI,'0000000') ELSE coalesce(IPA_DEST, IPA_CLI) END AS IPA,
	CASE WHEN DATI_STORICI = '1' THEN MAILPEC_CLI WHEN PRIVATO = '1' AND FORDEST = '1' THEN MAILPEC_DEST WHEN PRIVATO = '1' THEN coalesce(MAILPEC_CLI, SPACE(256)) ELSE coalesce(MAILPEC_DEST, MAILPEC_CLI) END AS MAILPEC,
	CASE WHEN PRIVATO_NEW = '1' AND FORDEST = '1' THEN IPA_DEST_NEW WHEN PRIVATO_NEW = '1' THEN coalesce(IPA_CLI_NEW,'0000000') ELSE coalesce(IPA_DEST_NEW, IPA_CLI_NEW) END AS IPA_NEW,
	CASE WHEN PRIVATO_NEW = '1' AND FORDEST = '1' THEN MAILPEC_DEST_NEW WHEN PRIVATO_NEW = '1' THEN coalesce(MAILPEC_CLI_NEW, SPACE(256)) ELSE coalesce(MAILPEC_DEST_NEW, MAILPEC_CLI_NEW) END AS MAILPEC_NEW
	FROM (
SELECT a.DTFTFM,
          a.NRFTFM,
          CASE
              WHEN a.FLCGFM = '' THEN '0'
              WHEN a.FLCGFM = '*' THEN '1'
          END AS FLCG,
          coalesce(f.cdcffm, a.CIFAFMA) AS CDCFFM,
          a.CIFAFMA CDCFFM_NEW,
          a.CDCFFM AS f0CDCFFM,
          CSPEFM AS DEST,
          a.GIVAFM,
          a.CDDTFM,
          a.FLSFFM,
          case when G.CODIDEST IS NULL THEN '0' ELSE '1' END DATI_STORICI,
          case when G.DENOMCES IS NULL THEN b.DSCOCP WHEN G.DENOMCES = ''  THEN RTRIM(G.NOMECES) CONCAT ' ' CONCAT G.COGNOCES ELSE G.DENOMCES END AS DSCOCP,
          coalesce(CASE
          	WHEN g.STATOTRAS = 'T' and x.PROGID IS NOT NULL THEN 'E'
          	WHEN coalesce(G.EXTID, '') = '' THEN g.STATOTRAS
          	WHEN g.STATOTRAS = 'V' and x.PROGID IS NOT NULL THEN 'C'
          	ELSE g.STATOTRAS END
          	, 'B') AS STATO,
          COALESCE(G.CODIDEST, d.CODIPA) AS IPA_CLI,
          COALESCE(G.CODIDEST, e.CODIPA) AS IPA_DEST,
          d.CODIPA AS IPA_CLI_NEW,
          e.CODIPA AS IPA_DEST_NEW,
          g.PROGID,
          c.DESC_GIVA,
          coalesce(h.ALLEG, 0) AS ALLEGATO,
          coalesce(G.EXTID, '') AS EXTID,
          CASE WHEN x.PROGID IS NULL THEN '0' ELSE '1' END AS ERRORI ,
          CASE WHEN G.PAOPRIV IS NULL AND (d.PAOPRIV IS NULL OR d.PAOPRIV = 'R') OR G.PAOPRIV IS NOT NULL AND G.PAOPRIV = 'R' THEN '1' ELSE '0' END AS PRIVATO,
          CASE WHEN d.PAOPRIV IS NULL OR d.PAOPRIV = 'R' THEN '1' ELSE '0' END AS PRIVATO_NEW,
          coalesce(G.MAILPEC, d.MAILPEC) as MAILPEC_CLI,
          coalesce(G.MAILPEC, e.MAILPEC) as MAILPEC_DEST,
          d.MAILPEC as MAILPEC_CLI_NEW,
          e.MAILPEC as MAILPEC_DEST_NEW,
          coalesce(g.NOMEXML, ' ') AS NOMEXML,
          coalesce(g.SERVTRA, ' ') AS SERVTRA,
          coalesce(f.NUMEFATT,' ') AS NUMEFATT,
          coalesce(f.VENDACQU,'V') AS VENDACQU,
          case when a.flinfm <> ' ' AND A.FTDIFMA IN ('D','*') AND A.CDCFFM = A.CIFAFMA AND DEST.CLFODE IS NOT NULL AND e.CODIPA IS NOT NULL THEN '1' ELSE '0' END FORDEST,
		coalesce(f.impotot, 0) impotot,
		coalesce(f.TIPODOCU, '    ') TIPODOC
   FROM &DT/FTPAFE55F as a
	LEFT OUTER JOIN &DT/CSTAB as DD ON DD.K00001 = '01DD' CONCAT a.TDOCFM
	JOIN &DT/CGPCO00F as b ON a.CIFAFMA = b.CONTCP
	JOIN &DT/SMTABAR55V  as c ON a.GIVAFM = c.XCODTB
    LEFT OUTER JOIN &DT/FTPAE55F as d ON
         	d.CDDITTA = ''
        AND a.CIFAFMA = d.CODCLI
        AND (d.CODIPA <> '' OR d.esclusofe ='S')
  	LEFT OUTER JOIN &DT/FTPAE55F as e ON
 	    e.CDDITTA = ''
 	    AND a.CSPEFM = e.CODCLI
 		AND a.DTFTFM >= e.DTIPA
        AND e.CODIPA <> ''
        AND e.esclusofe =' '
 	LEFT OUTER JOIN &DT/FTPAF55F as f ON a.CDDTFM = f.CDDTFM
					      AND a.DTFTFM = f.DTFTFM
					      AND a.NRFTFM = f.NRFTFM
					      AND a.GIVAFM = f.GIVAFM
					      AND 'V' = f.VENDACQU
 	LEFT OUTER JOIN &DT/FTPAI55F as g ON f.PROGID = g.PROGID
 	LEFT OUTER JOIN &DT/FTPAU55V as h ON  a.CDDTFM = h.CDDTFAT
					      AND a.DTFTFM = h.DATAFAT
                          AND a.NRFTFM = h.NUMFAT
                          AND a.GIVAFM = h.GIVAFAT
                          AND '' = h.FORNFAT
   LEFT OUTER JOIN &DT/FTPAX55F as x ON (g.PROGID = x.PROGID and x.PROGRIGA = 0)
	JOIN &DT/CGANA00F as i ON i.CONTCA = b.CONTCP
	LEFT JOIN &DT/CGADE00F DEST ON DEST.CONTDE = a.CSPEFM
	LEFT JOIN &DT/FTPSET55F S ON 1=1
   WHERE coalesce(substr(DD.F00002, 10, 1), a.TDOCFM) <> 'P'
   AND
   (f.storfm is null or f.STORFM <> 'S')
   AND
   (NOT f.nrftfm IS NULL OR
   COALESCE(d.esclusofe, ' ') = ' '
   AND ((d.DTIPA IS NULL AND i.cisoca IN ('IT','SM') AND a.DTFTFM >= S.datainb2b
   		OR
	(NOT d.DTIPA IS NULL AND (d.DTIPA > 0 AND a.DTFTFM >= d.DTIPA OR (d.DTIPA = 0 AND (d.PAOPRIV = ' ' OR a.DTFTFM >= S.datainb2b)))))))) AS FAT)
<TAG-SCRIPT><IF-VERSION>5

LABEL ON TABLE &DT/FTFTE55V IS 'Art. 55 VIEW FATTURE STORICHE E ATTUALI'
<TAG-SCRIPT>

DROP VIEW &DT/FTMOV55V
<TAG-SCRIPT>

CREATE VIEW &DT/FTMOV55V AS (
	SELECT FAT.*,
	CASE WHEN PRIVATO = '1' AND FORDEST = '1' THEN '1' ELSE '0' END AS PRFORDEST,
	CASE WHEN PRIVATO = '0' OR FORDEST = '1' THEN coalesce(DEST, SPACE(10)) ELSE SPACE(10) END AS CSPEFM,
	CASE WHEN DATI_STORICI = '1' THEN IPA_CLI WHEN PRIVATO = '1' AND FORDEST = '1' THEN IPA_DEST WHEN PRIVATO = '1' THEN coalesce(IPA_CLI,'0000000') ELSE coalesce(IPA_DEST, IPA_CLI) END AS IPA,
	CASE WHEN DATI_STORICI = '1' THEN MAILPEC_CLI WHEN PRIVATO = '1' AND FORDEST = '1' THEN MAILPEC_DEST WHEN PRIVATO = '1' THEN coalesce(MAILPEC_CLI, SPACE(256)) ELSE coalesce(MAILPEC_DEST, MAILPEC_CLI) END AS MAILPEC,
	CASE WHEN PRIVATO_NEW = '1' AND FORDEST = '1' THEN IPA_DEST_NEW WHEN PRIVATO_NEW = '1' THEN coalesce(IPA_CLI_NEW,'0000000') ELSE coalesce(IPA_DEST_NEW, IPA_CLI_NEW) END AS IPA_NEW,
	CASE WHEN PRIVATO_NEW = '1' AND FORDEST = '1' THEN MAILPEC_DEST_NEW WHEN PRIVATO_NEW = '1' THEN coalesce(MAILPEC_CLI_NEW, SPACE(256)) ELSE coalesce(MAILPEC_DEST_NEW, MAILPEC_CLI_NEW) END AS MAILPEC_NEW
	FROM (
SELECT a.DTFTFM,
          a.NRFTFM,
          CASE
              WHEN a.FLCGFM = '' THEN '0'
              WHEN a.FLCGFM = '*' THEN '1'
          END AS FLCG,
          coalesce(f.cdcffm, a.CIFAFMA) AS CDCFFM,
          a.CIFAFMA CDCFFM_NEW,
          a.CDCFFM AS f0CDCFFM,
          CSPEFM AS DEST,
          a.GIVAFM,
          a.CDDTFM,
          a.FLSFFM,
          case when G.CODIDEST IS NULL THEN '0' ELSE '1' END DATI_STORICI,
          case when G.DENOMCES IS NULL THEN b.DSCOCP WHEN G.DENOMCES = ''  THEN RTRIM(G.NOMECES) CONCAT ' ' CONCAT G.COGNOCES ELSE G.DENOMCES END AS DSCOCP,
          coalesce(CASE
          	WHEN g.STATOTRAS = 'T' and x.PROGID IS NOT NULL THEN 'E'
          	WHEN coalesce(G.EXTID, '') = '' THEN g.STATOTRAS
          	WHEN g.STATOTRAS = 'V' and x.PROGID IS NOT NULL THEN 'C'
          	ELSE g.STATOTRAS END
          	, 'B') AS STATO,
          COALESCE(G.CODIDEST, d.CODIPA) AS IPA_CLI,
          COALESCE(G.CODIDEST, e.CODIPA) AS IPA_DEST,
          d.CODIPA AS IPA_CLI_NEW,
          e.CODIPA AS IPA_DEST_NEW,
          g.PROGID,
          c.DESC_GIVA,
          coalesce(h.ALLEG, 0) AS ALLEGATO,
          coalesce(G.EXTID, '') AS EXTID,
          CASE WHEN x.PROGID IS NULL THEN '0' ELSE '1' END AS ERRORI ,
          CASE WHEN G.PAOPRIV IS NULL AND (d.PAOPRIV IS NULL OR d.PAOPRIV = 'R') OR G.PAOPRIV IS NOT NULL AND G.PAOPRIV = 'R' THEN '1' ELSE '0' END AS PRIVATO,
          CASE WHEN d.PAOPRIV IS NULL OR d.PAOPRIV = 'R' THEN '1' ELSE '0' END AS PRIVATO_NEW,
          coalesce(G.MAILPEC, d.MAILPEC) as MAILPEC_CLI,
          coalesce(G.MAILPEC, e.MAILPEC) as MAILPEC_DEST,
          d.MAILPEC as MAILPEC_CLI_NEW,
          e.MAILPEC as MAILPEC_DEST_NEW,
          coalesce(g.NOMEXML, ' ') AS NOMEXML,
          coalesce(g.SERVTRA, ' ') AS SERVTRA,
          coalesce(f.NUMEFATT,' ') AS NUMEFATT,
          coalesce(f.VENDACQU,'V') AS VENDACQU,
          case when a.flinfm <> ' ' AND A.FTDIFMA IN ('D','*') AND A.CDCFFM = A.CIFAFMA AND DEST.CLFOCP = 'D' AND e.CODIPA IS NOT NULL THEN '1' ELSE '0' END FORDEST,
		coalesce(f.impotot, 0) impotot,
		coalesce(f.TIPODOCU, '    ') TIPODOC
   FROM &DT/FTMOVAR55V as a
	LEFT OUTER JOIN &DT/CSTAB as DD ON DD.K00001 = '01DD' CONCAT a.TDOCFM
	JOIN &DT/CGPCO00F as b ON a.CIFAFMA = b.CONTCP
	JOIN &DT/SMTABAR55V  as c ON a.GIVAFM = c.XCODTB
    LEFT OUTER JOIN &DT/FTPAE55F as d ON
         	d.CDDITTA = ''
        AND a.CIFAFMA = d.CODCLI
        AND (d.CODIPA <> '' OR d.esclusofe ='S')
 	LEFT OUTER JOIN &DT/FTPAE55F as e ON
 	    e.CDDITTA = ''
 	    AND a.CSPEFM = e.CODCLI
 		AND a.DTFTFM >= e.DTIPA
        AND e.CODIPA <> ''
        AND e.esclusofe =' '
 	LEFT OUTER JOIN &DT/FTPAF55F as f ON a.CDDTFM = f.CDDTFM
					      AND a.DTFTFM = f.DTFTFM
					      AND a.NRFTFM = f.NRFTFM
					      AND a.GIVAFM = f.GIVAFM
					      AND 'V' = f.VENDACQU
 	LEFT OUTER JOIN &DT/FTPAI55F as g ON f.PROGID = g.PROGID
 	LEFT OUTER JOIN &DT/FTPAU55V as h ON  a.CDDTFM = h.CDDTFAT
					      AND a.DTFTFM = h.DATAFAT
                          AND a.NRFTFM = h.NUMFAT
                          AND a.GIVAFM = h.GIVAFAT
                          AND '' = h.FORNFAT
   LEFT OUTER JOIN &DT/FTPAX55F as x ON (g.PROGID = x.PROGID and x.PROGRIGA = 0)
	JOIN &DT/CGANA00F as i ON i.CONTCA = b.CONTCP
	LEFT JOIN &DT/CGPCO00F DEST ON DEST.CONTCP = a.CSPEFM
	LEFT JOIN &DT/FTPSET55F S ON 1=1
   WHERE coalesce(substr(DD.F00002, 10, 1), a.TDOCFM) <> 'P'
   AND
   (f.storfm is null or f.STORFM <> 'S')
   AND
   (NOT f.nrftfm IS NULL OR
   COALESCE(d.esclusofe, ' ') = ' '
   AND ((d.DTIPA IS NULL AND i.cisoca IN ('IT','SM') AND a.DTFTFM >= S.datainb2b
   		OR
	(NOT d.DTIPA IS NULL AND (d.DTIPA > 0 AND a.DTFTFM >= d.DTIPA OR (d.DTIPA = 0 AND (d.PAOPRIV = ' ' OR a.DTFTFM >= S.datainb2b)))))))) AS FAT)
<TAG-SCRIPT><IFNOT-VERSION>5

CREATE VIEW &DT/FTMOV55V AS (
	SELECT FAT.*,
	CASE WHEN PRIVATO = '1' AND FORDEST = '1' THEN '1' ELSE '0' END AS PRFORDEST,
	CASE WHEN PRIVATO = '0' OR FORDEST = '1' THEN coalesce(DEST, SPACE(10)) ELSE SPACE(10) END AS CSPEFM,
	CASE WHEN DATI_STORICI = '1' THEN IPA_CLI WHEN PRIVATO = '1' AND FORDEST = '1' THEN IPA_DEST WHEN PRIVATO = '1' THEN coalesce(IPA_CLI,'0000000') ELSE coalesce(IPA_DEST, IPA_CLI) END AS IPA,
	CASE WHEN DATI_STORICI = '1' THEN MAILPEC_CLI WHEN PRIVATO = '1' AND FORDEST = '1' THEN MAILPEC_DEST WHEN PRIVATO = '1' THEN coalesce(MAILPEC_CLI, SPACE(256)) ELSE coalesce(MAILPEC_DEST, MAILPEC_CLI) END AS MAILPEC,
	CASE WHEN PRIVATO_NEW = '1' AND FORDEST = '1' THEN IPA_DEST_NEW WHEN PRIVATO_NEW = '1' THEN coalesce(IPA_CLI_NEW,'0000000') ELSE coalesce(IPA_DEST_NEW, IPA_CLI_NEW) END AS IPA_NEW,
	CASE WHEN PRIVATO_NEW = '1' AND FORDEST = '1' THEN MAILPEC_DEST_NEW WHEN PRIVATO_NEW = '1' THEN coalesce(MAILPEC_CLI_NEW, SPACE(256)) ELSE coalesce(MAILPEC_DEST_NEW, MAILPEC_CLI_NEW) END AS MAILPEC_NEW
	FROM (
SELECT a.DTFTFM,
          a.NRFTFM,
          CASE
              WHEN a.FLCGFM = '' THEN '0'
              WHEN a.FLCGFM = '*' THEN '1'
          END AS FLCG,
          coalesce(f.cdcffm, a.CIFAFMA) AS CDCFFM,
          a.CIFAFMA CDCFFM_NEW,
          a.CDCFFM AS f0CDCFFM,
          CSPEFM AS DEST,
          a.GIVAFM,
          a.CDDTFM,
          a.FLSFFM,
          case when G.CODIDEST IS NULL THEN '0' ELSE '1' END DATI_STORICI,
          case when G.DENOMCES IS NULL THEN b.DSCOCP WHEN G.DENOMCES = ''  THEN RTRIM(G.NOMECES) CONCAT ' ' CONCAT G.COGNOCES ELSE G.DENOMCES END AS DSCOCP,
          coalesce(CASE
          	WHEN g.STATOTRAS = 'T' and x.PROGID IS NOT NULL THEN 'E'
          	WHEN coalesce(G.EXTID, '') = '' THEN g.STATOTRAS
          	WHEN g.STATOTRAS = 'V' and x.PROGID IS NOT NULL THEN 'C'
          	ELSE g.STATOTRAS END
          	, 'B') AS STATO,
          COALESCE(G.CODIDEST, d.CODIPA) AS IPA_CLI,
          COALESCE(G.CODIDEST, e.CODIPA) AS IPA_DEST,
          d.CODIPA AS IPA_CLI_NEW,
          e.CODIPA AS IPA_DEST_NEW,
          g.PROGID,
          c.DESC_GIVA,
          coalesce(h.ALLEG, 0) AS ALLEGATO,
          coalesce(G.EXTID, '') AS EXTID,
          CASE WHEN x.PROGID IS NULL THEN '0' ELSE '1' END AS ERRORI ,
          CASE WHEN G.PAOPRIV IS NULL AND (d.PAOPRIV IS NULL OR d.PAOPRIV = 'R') OR G.PAOPRIV IS NOT NULL AND G.PAOPRIV = 'R' THEN '1' ELSE '0' END AS PRIVATO,
          CASE WHEN d.PAOPRIV IS NULL OR d.PAOPRIV = 'R' THEN '1' ELSE '0' END AS PRIVATO_NEW,
          coalesce(G.MAILPEC, d.MAILPEC) as MAILPEC_CLI,
          coalesce(G.MAILPEC, e.MAILPEC) as MAILPEC_DEST,
          d.MAILPEC as MAILPEC_CLI_NEW,
          e.MAILPEC as MAILPEC_DEST_NEW,
          coalesce(g.NOMEXML, ' ') AS NOMEXML,
          coalesce(g.SERVTRA, ' ') AS SERVTRA,
          coalesce(f.NUMEFATT,' ') AS NUMEFATT,
          coalesce(f.VENDACQU,'V') AS VENDACQU,
          case when a.flinfm <> ' ' AND A.FTDIFMA IN ('D','*') AND A.CDCFFM = A.CIFAFMA AND DEST.CLFODE IS NOT NULL AND e.CODIPA IS NOT NULL THEN '1' ELSE '0' END FORDEST,
		coalesce(f.impotot, 0) impotot,
		coalesce(f.TIPODOCU, '    ') TIPODOC
   FROM &DT/FTMOVAR55V as a
	LEFT OUTER JOIN &DT/CSTAB as DD ON DD.K00001 = '01DD' CONCAT a.TDOCFM
	JOIN &DT/CGPCO00F as b ON a.CIFAFMA = b.CONTCP
	JOIN &DT/SMTABAR55V  as c ON a.GIVAFM = c.XCODTB
    LEFT OUTER JOIN &DT/FTPAE55F as d ON
         	d.CDDITTA = ''
        AND a.CIFAFMA = d.CODCLI
        AND (d.CODIPA <> '' OR d.esclusofe ='S')
 	LEFT OUTER JOIN &DT/FTPAE55F as e ON
 	    e.CDDITTA = ''
 	    AND a.CSPEFM = e.CODCLI
 		AND a.DTFTFM >= e.DTIPA
        AND e.CODIPA <> ''
        AND e.esclusofe =' '
 	LEFT OUTER JOIN &DT/FTPAF55F as f ON a.CDDTFM = f.CDDTFM
					      AND a.DTFTFM = f.DTFTFM
					      AND a.NRFTFM = f.NRFTFM
					      AND a.GIVAFM = f.GIVAFM
					      AND 'V' = f.VENDACQU
 	LEFT OUTER JOIN &DT/FTPAI55F as g ON f.PROGID = g.PROGID
 	LEFT OUTER JOIN &DT/FTPAU55V as h ON  a.CDDTFM = h.CDDTFAT
					      AND a.DTFTFM = h.DATAFAT
                          AND a.NRFTFM = h.NUMFAT
                          AND a.GIVAFM = h.GIVAFAT
                          AND '' = h.FORNFAT
   LEFT OUTER JOIN &DT/FTPAX55F as x ON (g.PROGID = x.PROGID and x.PROGRIGA = 0)
	JOIN &DT/CGANA00F as i ON i.CONTCA = b.CONTCP
	LEFT JOIN &DT/CGADE00F DEST ON DEST.CONTDE = a.CSPEFM
	LEFT JOIN &DT/FTPSET55F S ON 1=1
   WHERE coalesce(substr(DD.F00002, 10, 1), a.TDOCFM) <> 'P'
   AND
   (f.storfm is null or f.STORFM <> 'S')
   AND
   (NOT f.nrftfm IS NULL OR
   COALESCE(d.esclusofe, ' ') = ' '
   AND ((d.DTIPA IS NULL AND i.cisoca IN ('IT','SM') AND a.DTFTFM >= S.datainb2b
   		OR
	(NOT d.DTIPA IS NULL AND (d.DTIPA > 0 AND a.DTFTFM >= d.DTIPA OR (d.DTIPA = 0 AND (d.PAOPRIV = ' ' OR a.DTFTFM >= S.datainb2b)))))))) AS FAT)
<TAG-SCRIPT><IF-VERSION>5

LABEL ON TABLE &DT/FTMOV55V IS 'Art. 55 VIEW ATTUALI'
<TAG-SCRIPT>

DROP VIEW &DT/FTBKM55V
<TAG-SCRIPT>

CREATE VIEW &DT/FTBKM55V AS (
	SELECT FAT.*,
	CASE WHEN PRIVATO = '1' AND FORDEST = '1' THEN '1' ELSE '0' END AS PRFORDEST,
	CASE WHEN PRIVATO = '0' OR FORDEST = '1' THEN coalesce(DEST, SPACE(10)) ELSE SPACE(10) END AS CSPEFM,
	CASE WHEN DATI_STORICI = '1' THEN IPA_CLI WHEN PRIVATO = '1' AND FORDEST = '1' THEN IPA_DEST WHEN PRIVATO = '1' THEN coalesce(IPA_CLI,'0000000') ELSE coalesce(IPA_DEST, IPA_CLI) END AS IPA,
	CASE WHEN DATI_STORICI = '1' THEN MAILPEC_CLI WHEN PRIVATO = '1' AND FORDEST = '1' THEN MAILPEC_DEST WHEN PRIVATO = '1' THEN coalesce(MAILPEC_CLI, SPACE(256)) ELSE coalesce(MAILPEC_DEST, MAILPEC_CLI) END AS MAILPEC,
	CASE WHEN PRIVATO_NEW = '1' AND FORDEST = '1' THEN IPA_DEST_NEW WHEN PRIVATO_NEW = '1' THEN coalesce(IPA_CLI_NEW,'0000000') ELSE coalesce(IPA_DEST_NEW, IPA_CLI_NEW) END AS IPA_NEW,
	CASE WHEN PRIVATO_NEW = '1' AND FORDEST = '1' THEN MAILPEC_DEST_NEW WHEN PRIVATO_NEW = '1' THEN coalesce(MAILPEC_CLI_NEW, SPACE(256)) ELSE coalesce(MAILPEC_DEST_NEW, MAILPEC_CLI_NEW) END AS MAILPEC_NEW
	FROM (
SELECT a.DTFTFM,
          a.NRFTFM,
          CASE
              WHEN a.FLCGFM = '' THEN '0'
              WHEN a.FLCGFM = '*' THEN '1'
          END AS FLCG,
          coalesce(f.cdcffm, a.CIFAFMA) AS CDCFFM,
          a.CIFAFMA CDCFFM_NEW,
          a.CDCFFM AS f0CDCFFM,
          CSPEFM AS DEST,
          a.GIVAFM,
          a.CDDTFM,
          a.FLSFFM,
          case when G.CODIDEST IS NULL THEN '0' ELSE '1' END DATI_STORICI,
          case when G.DENOMCES IS NULL THEN b.DSCOCP WHEN G.DENOMCES = ''  THEN RTRIM(G.NOMECES) CONCAT ' ' CONCAT G.COGNOCES ELSE G.DENOMCES END AS DSCOCP,
          coalesce(CASE
          	WHEN g.STATOTRAS = 'T' and x.PROGID IS NOT NULL THEN 'E'
          	WHEN coalesce(G.EXTID, '') = '' THEN g.STATOTRAS
          	WHEN g.STATOTRAS = 'V' and x.PROGID IS NOT NULL THEN 'C'
          	ELSE g.STATOTRAS END
          	, 'B') AS STATO,
          COALESCE(G.CODIDEST, d.CODIPA) AS IPA_CLI,
          COALESCE(G.CODIDEST, e.CODIPA) AS IPA_DEST,
          d.CODIPA AS IPA_CLI_NEW,
          e.CODIPA AS IPA_DEST_NEW,
          g.PROGID,
          c.DESC_GIVA,
          coalesce(h.ALLEG, 0) AS ALLEGATO,
          coalesce(G.EXTID, '') AS EXTID,
          CASE WHEN x.PROGID IS NULL THEN '0' ELSE '1' END AS ERRORI ,
          CASE WHEN G.PAOPRIV IS NULL AND (d.PAOPRIV IS NULL OR d.PAOPRIV = 'R') OR G.PAOPRIV IS NOT NULL AND G.PAOPRIV = 'R' THEN '1' ELSE '0' END AS PRIVATO,
          CASE WHEN d.PAOPRIV IS NULL OR d.PAOPRIV = 'R' THEN '1' ELSE '0' END AS PRIVATO_NEW,
          coalesce(G.MAILPEC, d.MAILPEC) as MAILPEC_CLI,
          coalesce(G.MAILPEC, e.MAILPEC) as MAILPEC_DEST,
          d.MAILPEC as MAILPEC_CLI_NEW,
          e.MAILPEC as MAILPEC_DEST_NEW,
          coalesce(g.NOMEXML, ' ') AS NOMEXML,
          coalesce(g.SERVTRA, ' ') AS SERVTRA,
          coalesce(f.NUMEFATT,' ') AS NUMEFATT,
          coalesce(f.VENDACQU,'V') AS VENDACQU,
          case when a.flinfm <> ' ' AND A.FTDIFMA IN ('D','*') AND A.CDCFFM = A.CIFAFMA AND DEST.CLFOCP = 'D' AND e.CODIPA IS NOT NULL THEN '1' ELSE '0' END FORDEST,
		coalesce(f.impotot, 0) impotot,
		coalesce(f.TIPODOCU, '    ') TIPODOC
   FROM &DT/FTBKMAR55V as a
	LEFT OUTER JOIN &DT/CSTAB as DD ON DD.K00001 = '01DD' CONCAT a.TDOCFM
	JOIN &DT/CGPCO00F as b ON a.CIFAFMA = b.CONTCP
	JOIN &DT/SMTABAR55V  as c ON a.GIVAFM = c.XCODTB
    LEFT OUTER JOIN &DT/FTPAE55F as d ON
         	d.CDDITTA = ''
        AND a.CIFAFMA = d.CODCLI
        AND (d.CODIPA <> '' OR d.esclusofe ='S')
 	LEFT OUTER JOIN &DT/FTPAE55F as e ON
 	    e.CDDITTA = ''
 	    AND a.CSPEFM = e.CODCLI
 		AND a.DTFTFM >= e.DTIPA
        AND e.CODIPA <> ''
        AND e.esclusofe =' '
 	LEFT OUTER JOIN &DT/FTPAF55F as f ON a.CDDTFM = f.CDDTFM
					      AND a.DTFTFM = f.DTFTFM
					      AND a.NRFTFM = f.NRFTFM
					      AND a.GIVAFM = f.GIVAFM
					      AND 'V' = f.VENDACQU
 	LEFT OUTER JOIN &DT/FTPAI55F as g ON f.PROGID = g.PROGID
 	LEFT OUTER JOIN &DT/FTPAU55V as h ON  a.CDDTFM = h.CDDTFAT
					      AND a.DTFTFM = h.DATAFAT
                          AND a.NRFTFM = h.NUMFAT
                          AND a.GIVAFM = h.GIVAFAT
                          AND '' = h.FORNFAT
   LEFT OUTER JOIN &DT/FTPAX55F as x ON (g.PROGID = x.PROGID and x.PROGRIGA = 0)
	JOIN &DT/CGANA00F as i ON i.CONTCA = b.CONTCP
	LEFT JOIN &DT/CGPCO00F DEST ON DEST.CONTCP = a.CSPEFM
	LEFT JOIN &DT/FTPSET55F S ON 1=1
   WHERE coalesce(substr(DD.F00002, 10, 1), a.TDOCFM) <> 'P'
   AND
   (f.storfm is null or f.STORFM <> 'S')
   AND
   (NOT f.nrftfm IS NULL OR
   COALESCE(d.esclusofe, ' ') = ' '
   AND ((d.DTIPA IS NULL AND i.cisoca IN ('IT','SM') AND a.DTFTFM >= S.datainb2b
   		OR
	(NOT d.DTIPA IS NULL AND (d.DTIPA > 0 AND a.DTFTFM >= d.DTIPA OR (d.DTIPA = 0 AND (d.PAOPRIV = ' ' OR a.DTFTFM >= S.datainb2b)))))))) AS FAT)
<TAG-SCRIPT><IFNOT-VERSION>5

CREATE VIEW &DT/FTBKM55V AS (
	SELECT FAT.*,
	CASE WHEN PRIVATO = '1' AND FORDEST = '1' THEN '1' ELSE '0' END AS PRFORDEST,
	CASE WHEN PRIVATO = '0' OR FORDEST = '1' THEN coalesce(DEST, SPACE(10)) ELSE SPACE(10) END AS CSPEFM,
	CASE WHEN DATI_STORICI = '1' THEN IPA_CLI WHEN PRIVATO = '1' AND FORDEST = '1' THEN IPA_DEST WHEN PRIVATO = '1' THEN coalesce(IPA_CLI,'0000000') ELSE coalesce(IPA_DEST, IPA_CLI) END AS IPA,
	CASE WHEN DATI_STORICI = '1' THEN MAILPEC_CLI WHEN PRIVATO = '1' AND FORDEST = '1' THEN MAILPEC_DEST WHEN PRIVATO = '1' THEN coalesce(MAILPEC_CLI, SPACE(256)) ELSE coalesce(MAILPEC_DEST, MAILPEC_CLI) END AS MAILPEC,
	CASE WHEN PRIVATO_NEW = '1' AND FORDEST = '1' THEN IPA_DEST_NEW WHEN PRIVATO_NEW = '1' THEN coalesce(IPA_CLI_NEW,'0000000') ELSE coalesce(IPA_DEST_NEW, IPA_CLI_NEW) END AS IPA_NEW,
	CASE WHEN PRIVATO_NEW = '1' AND FORDEST = '1' THEN MAILPEC_DEST_NEW WHEN PRIVATO_NEW = '1' THEN coalesce(MAILPEC_CLI_NEW, SPACE(256)) ELSE coalesce(MAILPEC_DEST_NEW, MAILPEC_CLI_NEW) END AS MAILPEC_NEW
	FROM (
SELECT a.DTFTFM,
          a.NRFTFM,
          CASE
              WHEN a.FLCGFM = '' THEN '0'
              WHEN a.FLCGFM = '*' THEN '1'
          END AS FLCG,
          coalesce(f.cdcffm, a.CIFAFMA) AS CDCFFM,
          a.CIFAFMA CDCFFM_NEW,
          a.CDCFFM AS f0CDCFFM,
          CSPEFM AS DEST,
          a.GIVAFM,
          a.CDDTFM,
          a.FLSFFM,
          case when G.CODIDEST IS NULL THEN '0' ELSE '1' END DATI_STORICI,
          case when G.DENOMCES IS NULL THEN b.DSCOCP WHEN G.DENOMCES = ''  THEN RTRIM(G.NOMECES) CONCAT ' ' CONCAT G.COGNOCES ELSE G.DENOMCES END AS DSCOCP,
          coalesce(CASE
          	WHEN g.STATOTRAS = 'T' and x.PROGID IS NOT NULL THEN 'E'
          	WHEN coalesce(G.EXTID, '') = '' THEN g.STATOTRAS
          	WHEN g.STATOTRAS = 'V' and x.PROGID IS NOT NULL THEN 'C'
          	ELSE g.STATOTRAS END
          	, 'B') AS STATO,
          COALESCE(G.CODIDEST, d.CODIPA) AS IPA_CLI,
          COALESCE(G.CODIDEST, e.CODIPA) AS IPA_DEST,
          d.CODIPA AS IPA_CLI_NEW,
          e.CODIPA AS IPA_DEST_NEW,
          g.PROGID,
          c.DESC_GIVA,
          coalesce(h.ALLEG, 0) AS ALLEGATO,
          coalesce(G.EXTID, '') AS EXTID,
          CASE WHEN x.PROGID IS NULL THEN '0' ELSE '1' END AS ERRORI ,
          CASE WHEN G.PAOPRIV IS NULL AND (d.PAOPRIV IS NULL OR d.PAOPRIV = 'R') OR G.PAOPRIV IS NOT NULL AND G.PAOPRIV = 'R' THEN '1' ELSE '0' END AS PRIVATO,
          CASE WHEN d.PAOPRIV IS NULL OR d.PAOPRIV = 'R' THEN '1' ELSE '0' END AS PRIVATO_NEW,
          coalesce(G.MAILPEC, d.MAILPEC) as MAILPEC_CLI,
          coalesce(G.MAILPEC, e.MAILPEC) as MAILPEC_DEST,
          d.MAILPEC as MAILPEC_CLI_NEW,
          e.MAILPEC as MAILPEC_DEST_NEW,
          coalesce(g.NOMEXML, ' ') AS NOMEXML,
          coalesce(g.SERVTRA, ' ') AS SERVTRA,
          coalesce(f.NUMEFATT,' ') AS NUMEFATT,
          coalesce(f.VENDACQU,'V') AS VENDACQU,
          case when a.flinfm <> ' ' AND A.FTDIFMA IN ('D','*') AND A.CDCFFM = A.CIFAFMA AND DEST.CLFODE IS NOT NULL AND e.CODIPA IS NOT NULL THEN '1' ELSE '0' END FORDEST,
		coalesce(f.impotot, 0) impotot,
		coalesce(f.TIPODOCU, '    ') TIPODOC
   FROM &DT/FTBKMAR55V as a
	LEFT OUTER JOIN &DT/CSTAB as DD ON DD.K00001 = '01DD' CONCAT a.TDOCFM
	JOIN &DT/CGPCO00F as b ON a.CIFAFMA = b.CONTCP
	JOIN &DT/SMTABAR55V  as c ON a.GIVAFM = c.XCODTB
    LEFT OUTER JOIN &DT/FTPAE55F as d ON
         	d.CDDITTA = ''
        AND a.CIFAFMA = d.CODCLI
        AND (d.CODIPA <> '' OR d.esclusofe ='S')
 	LEFT OUTER JOIN &DT/FTPAE55F as e ON
 	    e.CDDITTA = ''
 	    AND a.CSPEFM = e.CODCLI
 		AND a.DTFTFM >= e.DTIPA
        AND e.CODIPA <> ''
        AND e.esclusofe =' '
 	LEFT OUTER JOIN &DT/FTPAF55F as f ON a.CDDTFM = f.CDDTFM
					      AND a.DTFTFM = f.DTFTFM
					      AND a.NRFTFM = f.NRFTFM
					      AND a.GIVAFM = f.GIVAFM
					      AND 'V' = f.VENDACQU
 	LEFT OUTER JOIN &DT/FTPAI55F as g ON f.PROGID = g.PROGID
 	LEFT OUTER JOIN &DT/FTPAU55V as h ON  a.CDDTFM = h.CDDTFAT
					      AND a.DTFTFM = h.DATAFAT
                          AND a.NRFTFM = h.NUMFAT
                          AND a.GIVAFM = h.GIVAFAT
                          AND '' = h.FORNFAT
   LEFT OUTER JOIN &DT/FTPAX55F as x ON (g.PROGID = x.PROGID and x.PROGRIGA = 0)
	JOIN &DT/CGANA00F as i ON i.CONTCA = b.CONTCP
	LEFT JOIN &DT/CGADE00F DEST ON DEST.CONTDE = a.CSPEFM
	LEFT JOIN &DT/FTPSET55F S ON 1=1
   WHERE coalesce(substr(DD.F00002, 10, 1), a.TDOCFM) <> 'P'
   AND
   (f.storfm is null or f.STORFM <> 'S')
   AND
   (NOT f.nrftfm IS NULL OR
   COALESCE(d.esclusofe, ' ') = ' '
   AND ((d.DTIPA IS NULL AND i.cisoca IN ('IT','SM') AND a.DTFTFM >= S.datainb2b
   		OR
	(NOT d.DTIPA IS NULL AND (d.DTIPA > 0 AND a.DTFTFM >= d.DTIPA OR (d.DTIPA = 0 AND (d.PAOPRIV = ' ' OR a.DTFTFM >= S.datainb2b)))))))) AS FAT)
<TAG-SCRIPT><IF-VERSION>5

LABEL ON TABLE &DT/FTBKM55V IS 'Art. 55 VIEW STORICI'
<TAG-SCRIPT>

<CONDITION>EXISTS (SELECT 1 FROM QSYS2.SYSTABLES WHERE TABLE_SCHEMA = '&DT' AND TABLE_NAME = 'MGMOF00F')</CONDITION>
DROP VIEW &DT/MGMOF55V
<TAG-SCRIPT>

<CONDITION>EXISTS (SELECT 1 FROM QSYS2.SYSTABLES WHERE TABLE_SCHEMA = '&DT' AND TABLE_NAME = 'MGMOF00F')</CONDITION>
CREATE VIEW &DT/MGMOF55V AS (
  SELECT a.DTFTMF DTFTFM,
          a.NRFTMF NRFTFM,
          CASE
              WHEN a.FLCGMF = '' THEN '0'
              WHEN a.FLCGMF = '*' THEN '1'
          END AS FLCG,
          CASE WHEN a.CIFAMF = '' THEN a.CDCFMF ELSE a.CIFAMF END AS CDCFFM,
          a.CDCFMF AS f0CDCFFM,          
          '         ' CSPEFM,
          a.GIVAMF GIVAFM,
          a.CDDTMF CDDTFM,
          a.FLSFMF FLSFFM,
          b.DSCOCP ,
          coalesce(CASE
          	WHEN g.STATOTRAS = 'T' and x.PROGID IS NOT NULL THEN 'E' 
          	WHEN coalesce(G.EXTID, '') = '' THEN g.STATOTRAS 
          	WHEN g.STATOTRAS = 'V' and x.PROGID IS NOT NULL THEN 'C' 
          	ELSE g.STATOTRAS END
          	, 'B') AS STATO,
          case when d.PAOPRIV IS NOT NULL THEN d.CODIPA WHEN F2.CODIDEST <> '' THEN F2.CODIDEST ELSE '0000000' END AS IPA,
          g.PROGID,
          c.DESC_GIVA,
          coalesce(h.ALLEG, 0) AS ALLEGATO,
          coalesce(G.EXTID, '') AS EXTID,
          CASE WHEN x.PROGID IS NULL THEN '0' ELSE '1' END AS ERRORI ,          
          CASE WHEN d.PAOPRIV IS NULL OR d.PAOPRIV = 'R' THEN '1' ELSE '0' END AS PRIVATO,
          coalesce(d.MAILPEC, F2.MAILPEC, SPACE(256)) as MAILPEC,
          coalesce(g.NOMEXML, ' ') AS NOMEXML,            
          coalesce(g.SERVTRA, ' ') AS SERVTRA,
          coalesce(f.NUMEFATT,' ') AS NUMEFATT,
          coalesce(f.VENDACQU,'A') AS VENDACQU,
		coalesce(f.impotot, 0) AS impotot,
		coalesce(f.TIPODOCU, '    ') TIPODOC
   FROM &DT/MGMOF00F as a
	JOIN &DT/CSTAB as DD ON DD.K00001 = '01DD' CONCAT a.TDOCMF CONCAT 'A'  
	JOIN &DT/CGPCO00F as b ON a.CDCFMF = b.CONTCP
	JOIN &DT/SMTABAR55V  as c ON a.GIVAMF = c.XCODTB
    LEFT OUTER JOIN &DT/FTPAE55F as d ON 
         	d.CDDITTA = ''
        AND a.CDCFMF = d.CODCLI 
 	LEFT OUTER JOIN &DT/FTPAF55F as f ON a.CDDTMF = f.CDDTFM
                                           AND a.DTFTMF = f.DTFTFM
                                           AND a.NRFTMF = f.NRFTFM
                                           AND a.GIVAMF = f.GIVAFM
                                           AND a.CDCFMF = f.CDCFFM
                                           AND 'A' = f.VENDACQU
 	LEFT OUTER JOIN &DT/FTPAI55F as g ON f.PROGID = g.PROGID
 	LEFT OUTER JOIN &DT/FTPAU55V as h ON  a.CDDTMF = h.CDDTFAT
					      AND a.DTFTMF = h.DATAFAT
                          AND a.NRFTMF = h.NUMFAT
                          AND a.GIVAMF = h.GIVAFAT
                          AND CASE WHEN a.CIFAMF = '' THEN a.CDCFMF ELSE a.CIFAMF END = h.FORNFAT
   LEFT OUTER JOIN &DT/FTPAX55F as x ON (g.PROGID = x.PROGID and x.PROGRIGA = 0)
	JOIN &DT/CGANA00F as i ON i.CONTCA = b.CONTCP
	LEFT JOIN &DT/FTPSET55F S ON 1=1
	JOIN &DT/FTPA255F F2 ON F2.TABDDCOD = a.TDOCMF AND F2.tabddarea = 'A' AND F2.Fselfbil = 'S' 
	WHERE a.FLSFMF ='*'
   AND a.FLCFMF='*' 
   AND a.dtftmf <> 0
   AND a.NRFTMF <> 0
   AND
   (f.storfm is null or f.STORFM <> 'S') 
   AND 
   (NOT f.nrftfm IS NULL OR 
   COALESCE(d.esclusofe, ' ') = ' '
   AND ((d.DTIPA IS NULL AND i.cisoca = 'IT' AND a.DTFTMF >= S.datainb2b 
   		OR
	(NOT d.DTIPA IS NULL AND (d.DTIPA > 0 AND a.DTFTMF >= d.DTIPA OR (d.DTIPA = 0 AND (a.DTFTMF >= S.datainb2b)))))))
)
<TAG-SCRIPT>

<CONDITION>EXISTS (SELECT 1 FROM QSYS2.SYSTABLES WHERE TABLE_SCHEMA = '&DT' AND TABLE_NAME = 'MGMOF00F')</CONDITION>
LABEL ON TABLE &DT/MGMOF55V IS 'Art. 55 VIEW FATTURE SELF BILLING' 	
<TAG-SCRIPT>

<TAG-VERSIONE-16.0.0>
<TAG-SCRIPT>

<TAG-VERSIONE-17.0.0>
<TAG-SCRIPT>

<TAG-VERSIONE-17.1.0>
<TAG-SCRIPT>

<TAG-VERSIONE-17.2.0>
<TAG-SCRIPT>

<TAG-VERSIONE-17.3.0>
<TAG-SCRIPT>

DROP VIEW &DT/FTMOV55V
<TAG-SCRIPT>

CREATE VIEW &DT/FTMOV55V AS (
	SELECT FAT.*,
	CASE WHEN PRIVATO = '1' AND FORDEST = '1' THEN '1' ELSE '0' END AS PRFORDEST,
	CASE WHEN PRIVATO = '0' OR FORDEST = '1' THEN coalesce(DEST, SPACE(10)) ELSE SPACE(10) END AS CSPEFM,
	CASE WHEN DATI_STORICI = '1' THEN IPA_CLI WHEN PRIVATO = '1' AND FORDEST = '1' THEN IPA_DEST WHEN PRIVATO = '1' THEN coalesce(IPA_CLI,DEFAULTIPA) ELSE coalesce(IPA_DEST, IPA_CLI) END AS IPA,
	CASE WHEN DATI_STORICI = '1' THEN MAILPEC_CLI WHEN PRIVATO = '1' AND FORDEST = '1' THEN MAILPEC_DEST WHEN PRIVATO = '1' THEN coalesce(MAILPEC_CLI, SPACE(256)) ELSE coalesce(MAILPEC_DEST, MAILPEC_CLI) END AS MAILPEC,
	CASE WHEN PRIVATO_NEW = '1' AND FORDEST = '1' THEN IPA_DEST_NEW WHEN PRIVATO_NEW = '1' THEN coalesce(IPA_CLI_NEW,DEFAULTIPA) ELSE coalesce(IPA_DEST_NEW, IPA_CLI_NEW) END AS IPA_NEW,
	CASE WHEN PRIVATO_NEW = '1' AND FORDEST = '1' THEN MAILPEC_DEST_NEW WHEN PRIVATO_NEW = '1' THEN coalesce(MAILPEC_CLI_NEW, SPACE(256)) ELSE coalesce(MAILPEC_DEST_NEW, MAILPEC_CLI_NEW) END AS MAILPEC_NEW
	FROM (
SELECT a.DTFTFM,
          a.NRFTFM,
          CASE
              WHEN a.FLCGFM = '' THEN '0'
              WHEN a.FLCGFM = '*' THEN '1'
          END AS FLCG,
          coalesce(f.cdcffm, a.CIFAFMA) AS CDCFFM,
          a.CIFAFMA CDCFFM_NEW,
          a.CDCFFM AS f0CDCFFM,
          CSPEFM AS DEST,
          a.GIVAFM,
          a.CDDTFM,
          a.FLSFFM,
          case when G.CODIDEST IS NULL THEN '0' ELSE '1' END DATI_STORICI,
          case when G.DENOMCES IS NULL THEN b.DSCOCP WHEN G.DENOMCES = ''  THEN RTRIM(G.NOMECES) CONCAT ' ' CONCAT G.COGNOCES ELSE G.DENOMCES END AS DSCOCP,
          coalesce(CASE
          	WHEN g.STATOTRAS = 'T' and x.PROGID IS NOT NULL THEN 'E'
          	WHEN coalesce(G.EXTID, '') = '' THEN g.STATOTRAS
          	WHEN g.STATOTRAS = 'V' and x.PROGID IS NOT NULL THEN 'C'
          	ELSE g.STATOTRAS END
          	, 'B') AS STATO,
          COALESCE(G.CODIDEST, d.CODIPA) AS IPA_CLI,
          COALESCE(G.CODIDEST, e.CODIPA) AS IPA_DEST,
          d.CODIPA AS IPA_CLI_NEW,
          e.CODIPA AS IPA_DEST_NEW,
          g.PROGID,
          c.DESC_GIVA,
          coalesce(h.ALLEG, 0) AS ALLEGATO,
          coalesce(G.EXTID, '') AS EXTID,
          CASE WHEN x.PROGID IS NULL THEN '0' ELSE '1' END AS ERRORI ,
          CASE WHEN G.PAOPRIV IS NULL AND (d.PAOPRIV IS NULL OR d.PAOPRIV = 'R') OR G.PAOPRIV IS NOT NULL AND G.PAOPRIV = 'R' THEN '1' ELSE '0' END AS PRIVATO,
          CASE WHEN d.PAOPRIV IS NULL OR d.PAOPRIV = 'R' THEN '1' ELSE '0' END AS PRIVATO_NEW,
          coalesce(G.MAILPEC, d.MAILPEC) as MAILPEC_CLI,
          coalesce(G.MAILPEC, e.MAILPEC) as MAILPEC_DEST,
          d.MAILPEC as MAILPEC_CLI_NEW,
          e.MAILPEC as MAILPEC_DEST_NEW,
          coalesce(g.NOMEXML, ' ') AS NOMEXML,
          coalesce(g.SERVTRA, ' ') AS SERVTRA,
          coalesce(f.NUMEFATT,' ') AS NUMEFATT,
          coalesce(f.VENDACQU,'V') AS VENDACQU,
          case when a.flinfm <> ' ' AND A.FTDIFMA IN ('D','*') AND A.CDCFFM = A.CIFAFMA AND DEST.CLFOCP = 'D' AND e.CODIPA IS NOT NULL THEN '1' ELSE '0' END FORDEST,
		coalesce(f.impotot, 0) impotot,
		coalesce(f.TIPODOCU, '    ') TIPODOC,
		d.DTIPA AS DTAVVIOSERV,
		i.CISOCA AS CODICEISO,
		coalesce(S.FLGESTFTE, '') AS FLGFATTEST,
		coalesce(S.DTESTFTE, 20220101) AS DTFATTEST,
		CASE WHEN i.CISOCA = 'IT' THEN '0000000' WHEN i.CISOCA = '' THEN '' ELSE 'XXXXXXX' END AS DEFAULTIPA
   FROM &DT/FTMOVAR55V as a
	LEFT OUTER JOIN &DT/CSTAB as DD ON DD.K00001 = '01DD' CONCAT a.TDOCFM
	JOIN &DT/CGPCO00F as b ON a.CIFAFMA = b.CONTCP
	JOIN &DT/SMTABAR55V  as c ON a.GIVAFM = c.XCODTB
    LEFT OUTER JOIN &DT/FTPAE55F as d ON
         	d.CDDITTA = ''
        AND a.CIFAFMA = d.CODCLI
        AND (d.CODIPA <> '' OR d.esclusofe ='S')
 	LEFT OUTER JOIN &DT/FTPAE55F as e ON
 	    e.CDDITTA = ''
 	    AND a.CSPEFM = e.CODCLI
 		AND a.DTFTFM >= e.DTIPA
        AND e.CODIPA <> ''
        AND e.esclusofe =' '
 	LEFT OUTER JOIN &DT/FTPAF55F as f ON a.CDDTFM = f.CDDTFM
					      AND a.DTFTFM = f.DTFTFM
					      AND a.NRFTFM = f.NRFTFM
					      AND a.GIVAFM = f.GIVAFM
					      AND 'V' = f.VENDACQU
 	LEFT OUTER JOIN &DT/FTPAI55F as g ON f.PROGID = g.PROGID
 	LEFT OUTER JOIN &DT/FTPAU55V as h ON  a.CDDTFM = h.CDDTFAT
					      AND a.DTFTFM = h.DATAFAT
                          AND a.NRFTFM = h.NUMFAT
                          AND a.GIVAFM = h.GIVAFAT
                          AND '' = h.FORNFAT
   LEFT OUTER JOIN &DT/FTPAX55F as x ON (g.PROGID = x.PROGID and x.PROGRIGA = 0)
	JOIN &DT/CGANA00F as i ON i.CONTCA = b.CONTCP
	LEFT JOIN &DT/CGPCO00F DEST ON DEST.CONTCP = a.CSPEFM
	LEFT JOIN &DT/FTPSET55F S ON 1=1
   WHERE coalesce(substr(DD.F00002, 10, 1), a.TDOCFM) <> 'P'
   AND
   (f.storfm is null or f.STORFM <> 'S')
   AND
   (NOT f.nrftfm IS NULL OR
   COALESCE(d.esclusofe, ' ') = ' '
   AND ((d.DTIPA IS NULL AND a.DTFTFM >= S.datainb2b
   		OR
	(NOT d.DTIPA IS NULL AND (d.DTIPA > 0 AND a.DTFTFM >= d.DTIPA OR (d.DTIPA = 0 AND (d.PAOPRIV = ' ' OR a.DTFTFM >= S.datainb2b)))))))) AS FAT)
<TAG-SCRIPT><IFNOT-VERSION>5

CREATE VIEW &DT/FTMOV55V AS (
	SELECT FAT.*,
	CASE WHEN PRIVATO = '1' AND FORDEST = '1' THEN '1' ELSE '0' END AS PRFORDEST,
	CASE WHEN PRIVATO = '0' OR FORDEST = '1' THEN coalesce(DEST, SPACE(10)) ELSE SPACE(10) END AS CSPEFM,
	CASE WHEN DATI_STORICI = '1' THEN IPA_CLI WHEN PRIVATO = '1' AND FORDEST = '1' THEN IPA_DEST WHEN PRIVATO = '1' THEN coalesce(IPA_CLI,DEFAULTIPA) ELSE coalesce(IPA_DEST, IPA_CLI) END AS IPA,
	CASE WHEN DATI_STORICI = '1' THEN MAILPEC_CLI WHEN PRIVATO = '1' AND FORDEST = '1' THEN MAILPEC_DEST WHEN PRIVATO = '1' THEN coalesce(MAILPEC_CLI, SPACE(256)) ELSE coalesce(MAILPEC_DEST, MAILPEC_CLI) END AS MAILPEC,
	CASE WHEN PRIVATO_NEW = '1' AND FORDEST = '1' THEN IPA_DEST_NEW WHEN PRIVATO_NEW = '1' THEN coalesce(IPA_CLI_NEW,DEFAULTIPA) ELSE coalesce(IPA_DEST_NEW, IPA_CLI_NEW) END AS IPA_NEW,
	CASE WHEN PRIVATO_NEW = '1' AND FORDEST = '1' THEN MAILPEC_DEST_NEW WHEN PRIVATO_NEW = '1' THEN coalesce(MAILPEC_CLI_NEW, SPACE(256)) ELSE coalesce(MAILPEC_DEST_NEW, MAILPEC_CLI_NEW) END AS MAILPEC_NEW
	FROM (
SELECT a.DTFTFM,
          a.NRFTFM,
          CASE
              WHEN a.FLCGFM = '' THEN '0'
              WHEN a.FLCGFM = '*' THEN '1'
          END AS FLCG,
          coalesce(f.cdcffm, a.CIFAFMA) AS CDCFFM,
          a.CIFAFMA CDCFFM_NEW,
          a.CDCFFM AS f0CDCFFM,
          CSPEFM AS DEST,
          a.GIVAFM,
          a.CDDTFM,
          a.FLSFFM,
          case when G.CODIDEST IS NULL THEN '0' ELSE '1' END DATI_STORICI,
          case when G.DENOMCES IS NULL THEN b.DSCOCP WHEN G.DENOMCES = ''  THEN RTRIM(G.NOMECES) CONCAT ' ' CONCAT G.COGNOCES ELSE G.DENOMCES END AS DSCOCP,
          coalesce(CASE
          	WHEN g.STATOTRAS = 'T' and x.PROGID IS NOT NULL THEN 'E'
          	WHEN coalesce(G.EXTID, '') = '' THEN g.STATOTRAS
          	WHEN g.STATOTRAS = 'V' and x.PROGID IS NOT NULL THEN 'C'
          	ELSE g.STATOTRAS END
          	, 'B') AS STATO,
          COALESCE(G.CODIDEST, d.CODIPA) AS IPA_CLI,
          COALESCE(G.CODIDEST, e.CODIPA) AS IPA_DEST,
          d.CODIPA AS IPA_CLI_NEW,
          e.CODIPA AS IPA_DEST_NEW,
          g.PROGID,
          c.DESC_GIVA,
          coalesce(h.ALLEG, 0) AS ALLEGATO,
          coalesce(G.EXTID, '') AS EXTID,
          CASE WHEN x.PROGID IS NULL THEN '0' ELSE '1' END AS ERRORI ,
          CASE WHEN G.PAOPRIV IS NULL AND (d.PAOPRIV IS NULL OR d.PAOPRIV = 'R') OR G.PAOPRIV IS NOT NULL AND G.PAOPRIV = 'R' THEN '1' ELSE '0' END AS PRIVATO,
          CASE WHEN d.PAOPRIV IS NULL OR d.PAOPRIV = 'R' THEN '1' ELSE '0' END AS PRIVATO_NEW,
          coalesce(G.MAILPEC, d.MAILPEC) as MAILPEC_CLI,
          coalesce(G.MAILPEC, e.MAILPEC) as MAILPEC_DEST,
          d.MAILPEC as MAILPEC_CLI_NEW,
          e.MAILPEC as MAILPEC_DEST_NEW,
          coalesce(g.NOMEXML, ' ') AS NOMEXML,
          coalesce(g.SERVTRA, ' ') AS SERVTRA,
          coalesce(f.NUMEFATT,' ') AS NUMEFATT,
          coalesce(f.VENDACQU,'V') AS VENDACQU,
          case when a.flinfm <> ' ' AND A.FTDIFMA IN ('D','*') AND A.CDCFFM = A.CIFAFMA AND DEST.CLFODE IS NOT NULL AND e.CODIPA IS NOT NULL THEN '1' ELSE '0' END FORDEST,
		coalesce(f.impotot, 0) impotot,
		coalesce(f.TIPODOCU, '    ') TIPODOC,
		d.DTIPA AS DTAVVIOSERV,
		i.CISOCA AS CODICEISO,
		coalesce(S.FLGESTFTE, '') AS FLGFATTEST,
		coalesce(S.DTESTFTE, 20220101) AS DTFATTEST,
		CASE WHEN i.CISOCA = 'IT' THEN '0000000' WHEN i.CISOCA = '' THEN '' ELSE 'XXXXXXX' END AS DEFAULTIPA
   FROM &DT/FTMOVAR55V as a
	LEFT OUTER JOIN &DT/CSTAB as DD ON DD.K00001 = '01DD' CONCAT a.TDOCFM
	JOIN &DT/CGPCO00F as b ON a.CIFAFMA = b.CONTCP
	JOIN &DT/SMTABAR55V  as c ON a.GIVAFM = c.XCODTB
    LEFT OUTER JOIN &DT/FTPAE55F as d ON
         	d.CDDITTA = ''
        AND a.CIFAFMA = d.CODCLI
        AND (d.CODIPA <> '' OR d.esclusofe ='S')
 	LEFT OUTER JOIN &DT/FTPAE55F as e ON
 	    e.CDDITTA = ''
 	    AND a.CSPEFM = e.CODCLI
 		AND a.DTFTFM >= e.DTIPA
        AND e.CODIPA <> ''
        AND e.esclusofe =' '
 	LEFT OUTER JOIN &DT/FTPAF55F as f ON a.CDDTFM = f.CDDTFM
					      AND a.DTFTFM = f.DTFTFM
					      AND a.NRFTFM = f.NRFTFM
					      AND a.GIVAFM = f.GIVAFM
					      AND 'V' = f.VENDACQU
 	LEFT OUTER JOIN &DT/FTPAI55F as g ON f.PROGID = g.PROGID
 	LEFT OUTER JOIN &DT/FTPAU55V as h ON  a.CDDTFM = h.CDDTFAT
					      AND a.DTFTFM = h.DATAFAT
                          AND a.NRFTFM = h.NUMFAT
                          AND a.GIVAFM = h.GIVAFAT
                          AND '' = h.FORNFAT
   LEFT OUTER JOIN &DT/FTPAX55F as x ON (g.PROGID = x.PROGID and x.PROGRIGA = 0)
	JOIN &DT/CGANA00F as i ON i.CONTCA = b.CONTCP
	LEFT JOIN &DT/CGADE00F DEST ON DEST.CONTDE = a.CSPEFM
	LEFT JOIN &DT/FTPSET55F S ON 1=1
   WHERE coalesce(substr(DD.F00002, 10, 1), a.TDOCFM) <> 'P'
   AND
   (f.storfm is null or f.STORFM <> 'S')
   AND
   (NOT f.nrftfm IS NULL OR
   COALESCE(d.esclusofe, ' ') = ' '
   AND ((d.DTIPA IS NULL AND a.DTFTFM >= S.datainb2b
   		OR
	(NOT d.DTIPA IS NULL AND (d.DTIPA > 0 AND a.DTFTFM >= d.DTIPA OR (d.DTIPA = 0 AND (d.PAOPRIV = ' ' OR a.DTFTFM >= S.datainb2b)))))))) AS FAT)
<TAG-SCRIPT><IF-VERSION>5

LABEL ON TABLE &DT/FTMOV55V IS 'Art. 55 VIEW ATTUALI'
<TAG-SCRIPT>

DROP VIEW &DT/FTBKM55V
<TAG-SCRIPT>

CREATE VIEW &DT/FTBKM55V AS (
	SELECT FAT.*,
	CASE WHEN PRIVATO = '1' AND FORDEST = '1' THEN '1' ELSE '0' END AS PRFORDEST,
	CASE WHEN PRIVATO = '0' OR FORDEST = '1' THEN coalesce(DEST, SPACE(10)) ELSE SPACE(10) END AS CSPEFM,
	CASE WHEN DATI_STORICI = '1' THEN IPA_CLI WHEN PRIVATO = '1' AND FORDEST = '1' THEN IPA_DEST WHEN PRIVATO = '1' THEN coalesce(IPA_CLI,DEFAULTIPA) ELSE coalesce(IPA_DEST, IPA_CLI) END AS IPA,
	CASE WHEN DATI_STORICI = '1' THEN MAILPEC_CLI WHEN PRIVATO = '1' AND FORDEST = '1' THEN MAILPEC_DEST WHEN PRIVATO = '1' THEN coalesce(MAILPEC_CLI, SPACE(256)) ELSE coalesce(MAILPEC_DEST, MAILPEC_CLI) END AS MAILPEC,
	CASE WHEN PRIVATO_NEW = '1' AND FORDEST = '1' THEN IPA_DEST_NEW WHEN PRIVATO_NEW = '1' THEN coalesce(IPA_CLI_NEW,DEFAULTIPA) ELSE coalesce(IPA_DEST_NEW, IPA_CLI_NEW) END AS IPA_NEW,
	CASE WHEN PRIVATO_NEW = '1' AND FORDEST = '1' THEN MAILPEC_DEST_NEW WHEN PRIVATO_NEW = '1' THEN coalesce(MAILPEC_CLI_NEW, SPACE(256)) ELSE coalesce(MAILPEC_DEST_NEW, MAILPEC_CLI_NEW) END AS MAILPEC_NEW
	FROM (
SELECT a.DTFTFM,
          a.NRFTFM,
          CASE
              WHEN a.FLCGFM = '' THEN '0'
              WHEN a.FLCGFM = '*' THEN '1'
          END AS FLCG,
          coalesce(f.cdcffm, a.CIFAFMA) AS CDCFFM,
          a.CIFAFMA CDCFFM_NEW,
          a.CDCFFM AS f0CDCFFM,
          CSPEFM AS DEST,
          a.GIVAFM,
          a.CDDTFM,
          a.FLSFFM,
          case when G.CODIDEST IS NULL THEN '0' ELSE '1' END DATI_STORICI,
          case when G.DENOMCES IS NULL THEN b.DSCOCP WHEN G.DENOMCES = ''  THEN RTRIM(G.NOMECES) CONCAT ' ' CONCAT G.COGNOCES ELSE G.DENOMCES END AS DSCOCP,
          coalesce(CASE
          	WHEN g.STATOTRAS = 'T' and x.PROGID IS NOT NULL THEN 'E'
          	WHEN coalesce(G.EXTID, '') = '' THEN g.STATOTRAS
          	WHEN g.STATOTRAS = 'V' and x.PROGID IS NOT NULL THEN 'C'
          	ELSE g.STATOTRAS END
          	, 'B') AS STATO,
          COALESCE(G.CODIDEST, d.CODIPA) AS IPA_CLI,
          COALESCE(G.CODIDEST, e.CODIPA) AS IPA_DEST,
          d.CODIPA AS IPA_CLI_NEW,
          e.CODIPA AS IPA_DEST_NEW,
          g.PROGID,
          c.DESC_GIVA,
          coalesce(h.ALLEG, 0) AS ALLEGATO,
          coalesce(G.EXTID, '') AS EXTID,
          CASE WHEN x.PROGID IS NULL THEN '0' ELSE '1' END AS ERRORI ,
          CASE WHEN G.PAOPRIV IS NULL AND (d.PAOPRIV IS NULL OR d.PAOPRIV = 'R') OR G.PAOPRIV IS NOT NULL AND G.PAOPRIV = 'R' THEN '1' ELSE '0' END AS PRIVATO,
          CASE WHEN d.PAOPRIV IS NULL OR d.PAOPRIV = 'R' THEN '1' ELSE '0' END AS PRIVATO_NEW,
          coalesce(G.MAILPEC, d.MAILPEC) as MAILPEC_CLI,
          coalesce(G.MAILPEC, e.MAILPEC) as MAILPEC_DEST,
          d.MAILPEC as MAILPEC_CLI_NEW,
          e.MAILPEC as MAILPEC_DEST_NEW,
          coalesce(g.NOMEXML, ' ') AS NOMEXML,
          coalesce(g.SERVTRA, ' ') AS SERVTRA,
          coalesce(f.NUMEFATT,' ') AS NUMEFATT,
          coalesce(f.VENDACQU,'V') AS VENDACQU,
          case when a.flinfm <> ' ' AND A.FTDIFMA IN ('D','*') AND A.CDCFFM = A.CIFAFMA AND DEST.CLFOCP = 'D' AND e.CODIPA IS NOT NULL THEN '1' ELSE '0' END FORDEST,
		coalesce(f.impotot, 0) impotot,
		coalesce(f.TIPODOCU, '    ') TIPODOC,
		d.DTIPA AS DTAVVIOSERV,
		i.CISOCA AS CODICEISO,
		coalesce(S.FLGESTFTE, '') AS FLGFATTEST,
		coalesce(S.DTESTFTE, 20220101) AS DTFATTEST,
		CASE WHEN i.CISOCA = 'IT' THEN '0000000' WHEN i.CISOCA = '' THEN '' ELSE 'XXXXXXX' END AS DEFAULTIPA
   FROM &DT/FTBKMAR55V as a
	LEFT OUTER JOIN &DT/CSTAB as DD ON DD.K00001 = '01DD' CONCAT a.TDOCFM
	JOIN &DT/CGPCO00F as b ON a.CIFAFMA = b.CONTCP
	JOIN &DT/SMTABAR55V  as c ON a.GIVAFM = c.XCODTB
    LEFT OUTER JOIN &DT/FTPAE55F as d ON
         	d.CDDITTA = ''
        AND a.CIFAFMA = d.CODCLI
        AND (d.CODIPA <> '' OR d.esclusofe ='S')
 	LEFT OUTER JOIN &DT/FTPAE55F as e ON
 	    e.CDDITTA = ''
 	    AND a.CSPEFM = e.CODCLI
 		AND a.DTFTFM >= e.DTIPA
        AND e.CODIPA <> ''
        AND e.esclusofe =' '
 	LEFT OUTER JOIN &DT/FTPAF55F as f ON a.CDDTFM = f.CDDTFM
					      AND a.DTFTFM = f.DTFTFM
					      AND a.NRFTFM = f.NRFTFM
					      AND a.GIVAFM = f.GIVAFM
					      AND 'V' = f.VENDACQU
 	LEFT OUTER JOIN &DT/FTPAI55F as g ON f.PROGID = g.PROGID
 	LEFT OUTER JOIN &DT/FTPAU55V as h ON  a.CDDTFM = h.CDDTFAT
					      AND a.DTFTFM = h.DATAFAT
                          AND a.NRFTFM = h.NUMFAT
                          AND a.GIVAFM = h.GIVAFAT
                          AND '' = h.FORNFAT
   LEFT OUTER JOIN &DT/FTPAX55F as x ON (g.PROGID = x.PROGID and x.PROGRIGA = 0)
	JOIN &DT/CGANA00F as i ON i.CONTCA = b.CONTCP
	LEFT JOIN &DT/CGPCO00F DEST ON DEST.CONTCP = a.CSPEFM
	LEFT JOIN &DT/FTPSET55F S ON 1=1
   WHERE coalesce(substr(DD.F00002, 10, 1), a.TDOCFM) <> 'P'
   AND
   (f.storfm is null or f.STORFM <> 'S')
   AND
   (NOT f.nrftfm IS NULL OR
   COALESCE(d.esclusofe, ' ') = ' '
   AND ((d.DTIPA IS NULL AND a.DTFTFM >= S.datainb2b
   		OR
	(NOT d.DTIPA IS NULL AND (d.DTIPA > 0 AND a.DTFTFM >= d.DTIPA OR (d.DTIPA = 0 AND (d.PAOPRIV = ' ' OR a.DTFTFM >= S.datainb2b)))))))) AS FAT)
<TAG-SCRIPT><IFNOT-VERSION>5

CREATE VIEW &DT/FTBKM55V AS (
	SELECT FAT.*,
	CASE WHEN PRIVATO = '1' AND FORDEST = '1' THEN '1' ELSE '0' END AS PRFORDEST,
	CASE WHEN PRIVATO = '0' OR FORDEST = '1' THEN coalesce(DEST, SPACE(10)) ELSE SPACE(10) END AS CSPEFM,
	CASE WHEN DATI_STORICI = '1' THEN IPA_CLI WHEN PRIVATO = '1' AND FORDEST = '1' THEN IPA_DEST WHEN PRIVATO = '1' THEN coalesce(IPA_CLI,DEFAULTIPA) ELSE coalesce(IPA_DEST, IPA_CLI) END AS IPA,
	CASE WHEN DATI_STORICI = '1' THEN MAILPEC_CLI WHEN PRIVATO = '1' AND FORDEST = '1' THEN MAILPEC_DEST WHEN PRIVATO = '1' THEN coalesce(MAILPEC_CLI, SPACE(256)) ELSE coalesce(MAILPEC_DEST, MAILPEC_CLI) END AS MAILPEC,
	CASE WHEN PRIVATO_NEW = '1' AND FORDEST = '1' THEN IPA_DEST_NEW WHEN PRIVATO_NEW = '1' THEN coalesce(IPA_CLI_NEW,DEFAULTIPA) ELSE coalesce(IPA_DEST_NEW, IPA_CLI_NEW) END AS IPA_NEW,
	CASE WHEN PRIVATO_NEW = '1' AND FORDEST = '1' THEN MAILPEC_DEST_NEW WHEN PRIVATO_NEW = '1' THEN coalesce(MAILPEC_CLI_NEW, SPACE(256)) ELSE coalesce(MAILPEC_DEST_NEW, MAILPEC_CLI_NEW) END AS MAILPEC_NEW
	FROM (
SELECT a.DTFTFM,
          a.NRFTFM,
          CASE
              WHEN a.FLCGFM = '' THEN '0'
              WHEN a.FLCGFM = '*' THEN '1'
          END AS FLCG,
          coalesce(f.cdcffm, a.CIFAFMA) AS CDCFFM,
          a.CIFAFMA CDCFFM_NEW,
          a.CDCFFM AS f0CDCFFM,
          CSPEFM AS DEST,
          a.GIVAFM,
          a.CDDTFM,
          a.FLSFFM,
          case when G.CODIDEST IS NULL THEN '0' ELSE '1' END DATI_STORICI,
          case when G.DENOMCES IS NULL THEN b.DSCOCP WHEN G.DENOMCES = ''  THEN RTRIM(G.NOMECES) CONCAT ' ' CONCAT G.COGNOCES ELSE G.DENOMCES END AS DSCOCP,
          coalesce(CASE
          	WHEN g.STATOTRAS = 'T' and x.PROGID IS NOT NULL THEN 'E'
          	WHEN coalesce(G.EXTID, '') = '' THEN g.STATOTRAS
          	WHEN g.STATOTRAS = 'V' and x.PROGID IS NOT NULL THEN 'C'
          	ELSE g.STATOTRAS END
          	, 'B') AS STATO,
          COALESCE(G.CODIDEST, d.CODIPA) AS IPA_CLI,
          COALESCE(G.CODIDEST, e.CODIPA) AS IPA_DEST,
          d.CODIPA AS IPA_CLI_NEW,
          e.CODIPA AS IPA_DEST_NEW,
          g.PROGID,
          c.DESC_GIVA,
          coalesce(h.ALLEG, 0) AS ALLEGATO,
          coalesce(G.EXTID, '') AS EXTID,
          CASE WHEN x.PROGID IS NULL THEN '0' ELSE '1' END AS ERRORI ,
          CASE WHEN G.PAOPRIV IS NULL AND (d.PAOPRIV IS NULL OR d.PAOPRIV = 'R') OR G.PAOPRIV IS NOT NULL AND G.PAOPRIV = 'R' THEN '1' ELSE '0' END AS PRIVATO,
          CASE WHEN d.PAOPRIV IS NULL OR d.PAOPRIV = 'R' THEN '1' ELSE '0' END AS PRIVATO_NEW,
          coalesce(G.MAILPEC, d.MAILPEC) as MAILPEC_CLI,
          coalesce(G.MAILPEC, e.MAILPEC) as MAILPEC_DEST,
          d.MAILPEC as MAILPEC_CLI_NEW,
          e.MAILPEC as MAILPEC_DEST_NEW,
          coalesce(g.NOMEXML, ' ') AS NOMEXML,
          coalesce(g.SERVTRA, ' ') AS SERVTRA,
          coalesce(f.NUMEFATT,' ') AS NUMEFATT,
          coalesce(f.VENDACQU,'V') AS VENDACQU,
          case when a.flinfm <> ' ' AND A.FTDIFMA IN ('D','*') AND A.CDCFFM = A.CIFAFMA AND DEST.CLFODE IS NOT NULL AND e.CODIPA IS NOT NULL THEN '1' ELSE '0' END FORDEST,
		coalesce(f.impotot, 0) impotot,
		coalesce(f.TIPODOCU, '    ') TIPODOC,
		d.DTIPA AS DTAVVIOSERV,
		i.CISOCA AS CODICEISO,
		coalesce(S.FLGESTFTE, '') AS FLGFATTEST,
		coalesce(S.DTESTFTE, 20220101) AS DTFATTEST,
		CASE WHEN i.CISOCA = 'IT' THEN '0000000' WHEN i.CISOCA = '' THEN '' ELSE 'XXXXXXX' END AS DEFAULTIPA
   FROM &DT/FTBKMAR55V as a
	LEFT OUTER JOIN &DT/CSTAB as DD ON DD.K00001 = '01DD' CONCAT a.TDOCFM
	JOIN &DT/CGPCO00F as b ON a.CIFAFMA = b.CONTCP
	JOIN &DT/SMTABAR55V  as c ON a.GIVAFM = c.XCODTB
    LEFT OUTER JOIN &DT/FTPAE55F as d ON
         	d.CDDITTA = ''
        AND a.CIFAFMA = d.CODCLI
        AND (d.CODIPA <> '' OR d.esclusofe ='S')
 	LEFT OUTER JOIN &DT/FTPAE55F as e ON
 	    e.CDDITTA = ''
 	    AND a.CSPEFM = e.CODCLI
 		AND a.DTFTFM >= e.DTIPA
        AND e.CODIPA <> ''
        AND e.esclusofe =' '
 	LEFT OUTER JOIN &DT/FTPAF55F as f ON a.CDDTFM = f.CDDTFM
					      AND a.DTFTFM = f.DTFTFM
					      AND a.NRFTFM = f.NRFTFM
					      AND a.GIVAFM = f.GIVAFM
					      AND 'V' = f.VENDACQU
 	LEFT OUTER JOIN &DT/FTPAI55F as g ON f.PROGID = g.PROGID
 	LEFT OUTER JOIN &DT/FTPAU55V as h ON  a.CDDTFM = h.CDDTFAT
					      AND a.DTFTFM = h.DATAFAT
                          AND a.NRFTFM = h.NUMFAT
                          AND a.GIVAFM = h.GIVAFAT
                          AND '' = h.FORNFAT
   LEFT OUTER JOIN &DT/FTPAX55F as x ON (g.PROGID = x.PROGID and x.PROGRIGA = 0)
	JOIN &DT/CGANA00F as i ON i.CONTCA = b.CONTCP
	LEFT JOIN &DT/CGADE00F DEST ON DEST.CONTDE = a.CSPEFM
	LEFT JOIN &DT/FTPSET55F S ON 1=1
   WHERE coalesce(substr(DD.F00002, 10, 1), a.TDOCFM) <> 'P'
   AND
   (f.storfm is null or f.STORFM <> 'S')
   AND
   (NOT f.nrftfm IS NULL OR
   COALESCE(d.esclusofe, ' ') = ' '
   AND ((d.DTIPA IS NULL AND a.DTFTFM >= S.datainb2b
   		OR
	(NOT d.DTIPA IS NULL AND (d.DTIPA > 0 AND a.DTFTFM >= d.DTIPA OR (d.DTIPA = 0 AND (d.PAOPRIV = ' ' OR a.DTFTFM >= S.datainb2b)))))))) AS FAT)
<TAG-SCRIPT><IF-VERSION>5

LABEL ON TABLE &DT/FTBKM55V IS 'Art. 55 VIEW STORICI'
<TAG-SCRIPT>

DROP VIEW &DT/FTFTE55V
<TAG-SCRIPT>

CREATE VIEW &DT/FTFTE55V AS (
	SELECT FAT.*,
	CASE WHEN PRIVATO = '1' AND FORDEST = '1' THEN '1' ELSE '0' END AS PRFORDEST,
	CASE WHEN PRIVATO = '0' OR FORDEST = '1' THEN coalesce(DEST, SPACE(10)) ELSE SPACE(10) END AS CSPEFM,
	CASE WHEN DATI_STORICI = '1' THEN IPA_CLI WHEN PRIVATO = '1' AND FORDEST = '1' THEN IPA_DEST WHEN PRIVATO = '1' THEN coalesce(IPA_CLI,DEFAULTIPA) ELSE coalesce(IPA_DEST, IPA_CLI) END AS IPA,
	CASE WHEN DATI_STORICI = '1' THEN MAILPEC_CLI WHEN PRIVATO = '1' AND FORDEST = '1' THEN MAILPEC_DEST WHEN PRIVATO = '1' THEN coalesce(MAILPEC_CLI, SPACE(256)) ELSE coalesce(MAILPEC_DEST, MAILPEC_CLI) END AS MAILPEC,
	CASE WHEN PRIVATO_NEW = '1' AND FORDEST = '1' THEN IPA_DEST_NEW WHEN PRIVATO_NEW = '1' THEN coalesce(IPA_CLI_NEW,DEFAULTIPA) ELSE coalesce(IPA_DEST_NEW, IPA_CLI_NEW) END AS IPA_NEW,
	CASE WHEN PRIVATO_NEW = '1' AND FORDEST = '1' THEN MAILPEC_DEST_NEW WHEN PRIVATO_NEW = '1' THEN coalesce(MAILPEC_CLI_NEW, SPACE(256)) ELSE coalesce(MAILPEC_DEST_NEW, MAILPEC_CLI_NEW) END AS MAILPEC_NEW
	FROM (
SELECT a.DTFTFM,
          a.NRFTFM,
          CASE
              WHEN a.FLCGFM = '' THEN '0'
              WHEN a.FLCGFM = '*' THEN '1'
          END AS FLCG,
          coalesce(f.cdcffm, a.CIFAFMA) AS CDCFFM,
          a.CIFAFMA CDCFFM_NEW,
          a.CDCFFM AS f0CDCFFM,
          CSPEFM AS DEST,
          a.GIVAFM,
          a.CDDTFM,
          a.FLSFFM,
          case when G.CODIDEST IS NULL THEN '0' ELSE '1' END DATI_STORICI,
          case when G.DENOMCES IS NULL THEN b.DSCOCP WHEN G.DENOMCES = ''  THEN RTRIM(G.NOMECES) CONCAT ' ' CONCAT G.COGNOCES ELSE G.DENOMCES END AS DSCOCP,
          coalesce(CASE
          	WHEN g.STATOTRAS = 'T' and x.PROGID IS NOT NULL THEN 'E'
          	WHEN coalesce(G.EXTID, '') = '' THEN g.STATOTRAS
          	WHEN g.STATOTRAS = 'V' and x.PROGID IS NOT NULL THEN 'C'
          	ELSE g.STATOTRAS END
          	, 'B') AS STATO,
          COALESCE(G.CODIDEST, d.CODIPA) AS IPA_CLI,
          COALESCE(G.CODIDEST, e.CODIPA) AS IPA_DEST,
          d.CODIPA AS IPA_CLI_NEW,
          e.CODIPA AS IPA_DEST_NEW,
          g.PROGID,
          c.DESC_GIVA,
          coalesce(h.ALLEG, 0) AS ALLEGATO,
          coalesce(G.EXTID, '') AS EXTID,
          CASE WHEN x.PROGID IS NULL THEN '0' ELSE '1' END AS ERRORI ,
          CASE WHEN G.PAOPRIV IS NULL AND (d.PAOPRIV IS NULL OR d.PAOPRIV = 'R') OR G.PAOPRIV IS NOT NULL AND G.PAOPRIV = 'R' THEN '1' ELSE '0' END AS PRIVATO,
          CASE WHEN d.PAOPRIV IS NULL OR d.PAOPRIV = 'R' THEN '1' ELSE '0' END AS PRIVATO_NEW,
          coalesce(G.MAILPEC, d.MAILPEC) as MAILPEC_CLI,
          coalesce(G.MAILPEC, e.MAILPEC) as MAILPEC_DEST,
          d.MAILPEC as MAILPEC_CLI_NEW,
          e.MAILPEC as MAILPEC_DEST_NEW,
          coalesce(g.NOMEXML, ' ') AS NOMEXML,
          coalesce(g.SERVTRA, ' ') AS SERVTRA,
          coalesce(f.NUMEFATT,' ') AS NUMEFATT,
          coalesce(f.VENDACQU,'V') AS VENDACQU,
          case when a.flinfm <> ' ' AND A.FTDIFMA IN ('D','*') AND A.CDCFFM = A.CIFAFMA AND DEST.CLFOCP = 'D' AND e.CODIPA IS NOT NULL THEN '1' ELSE '0' END FORDEST,
		  coalesce(f.impotot, 0) impotot,
		  coalesce(f.TIPODOCU, '    ') TIPODOC,
		  d.DTIPA AS DTAVVIOSERV,
		  i.CISOCA AS CODICEISO,
		  coalesce(S.FLGESTFTE, '') AS FLGFATTEST,
		  coalesce(S.DTESTFTE, 20220101) AS DTFATTEST,
		  CASE WHEN i.CISOCA = 'IT' THEN '0000000' WHEN i.CISOCA = '' THEN '' ELSE 'XXXXXXX' END AS DEFAULTIPA
   FROM &DT/FTPAFE55F as a
	LEFT OUTER JOIN &DT/CSTAB as DD ON DD.K00001 = '01DD' CONCAT a.TDOCFM
	JOIN &DT/CGPCO00F as b ON a.CIFAFMA = b.CONTCP
	JOIN &DT/SMTABAR55V  as c ON a.GIVAFM = c.XCODTB
    LEFT OUTER JOIN &DT/FTPAE55F as d ON
         	d.CDDITTA = ''
        AND a.CIFAFMA = d.CODCLI
        AND (d.CODIPA <> '' OR d.esclusofe ='S')
 	LEFT OUTER JOIN &DT/FTPAE55F as e ON
 	    e.CDDITTA = ''
 	    AND a.CSPEFM = e.CODCLI
 		AND a.DTFTFM >= e.DTIPA
        AND e.CODIPA <> ''
        AND e.esclusofe =' '
 	LEFT OUTER JOIN &DT/FTPAF55F as f ON a.CDDTFM = f.CDDTFM
					      AND a.DTFTFM = f.DTFTFM
					      AND a.NRFTFM = f.NRFTFM
					      AND a.GIVAFM = f.GIVAFM
					      AND 'V' = f.VENDACQU
 	LEFT OUTER JOIN &DT/FTPAI55F as g ON f.PROGID = g.PROGID
 	LEFT OUTER JOIN &DT/FTPAU55V as h ON  a.CDDTFM = h.CDDTFAT
					      AND a.DTFTFM = h.DATAFAT
                          AND a.NRFTFM = h.NUMFAT
                          AND a.GIVAFM = h.GIVAFAT
                          AND '' = h.FORNFAT
   LEFT OUTER JOIN &DT/FTPAX55F as x ON (g.PROGID = x.PROGID and x.PROGRIGA = 0)
	JOIN &DT/CGANA00F as i ON i.CONTCA = b.CONTCP
	LEFT JOIN &DT/CGPCO00F DEST ON DEST.CONTCP = a.CSPEFM
	LEFT JOIN &DT/FTPSET55F S ON 1=1
   WHERE coalesce(substr(DD.F00002, 10, 1), a.TDOCFM) <> 'P'
   AND
   (f.storfm is null or f.STORFM <> 'S')
   AND
   (NOT f.nrftfm IS NULL OR
   COALESCE(d.esclusofe, ' ') = ' '
   AND ((d.DTIPA IS NULL AND a.DTFTFM >= S.datainb2b
   		OR
	(NOT d.DTIPA IS NULL AND (d.DTIPA > 0 AND a.DTFTFM >= d.DTIPA OR (d.DTIPA = 0 AND (d.PAOPRIV = ' ' OR a.DTFTFM >= S.datainb2b)))))))) AS FAT)
<TAG-SCRIPT><IFNOT-VERSION>5

CREATE VIEW &DT/FTFTE55V AS (
	SELECT FAT.*,
	CASE WHEN PRIVATO = '1' AND FORDEST = '1' THEN '1' ELSE '0' END AS PRFORDEST,
	CASE WHEN PRIVATO = '0' OR FORDEST = '1' THEN coalesce(DEST, SPACE(10)) ELSE SPACE(10) END AS CSPEFM,
	CASE WHEN DATI_STORICI = '1' THEN IPA_CLI WHEN PRIVATO = '1' AND FORDEST = '1' THEN IPA_DEST WHEN PRIVATO = '1' THEN coalesce(IPA_CLI,DEFAULTIPA) ELSE coalesce(IPA_DEST, IPA_CLI) END AS IPA,
	CASE WHEN DATI_STORICI = '1' THEN MAILPEC_CLI WHEN PRIVATO = '1' AND FORDEST = '1' THEN MAILPEC_DEST WHEN PRIVATO = '1' THEN coalesce(MAILPEC_CLI, SPACE(256)) ELSE coalesce(MAILPEC_DEST, MAILPEC_CLI) END AS MAILPEC,
	CASE WHEN PRIVATO_NEW = '1' AND FORDEST = '1' THEN IPA_DEST_NEW WHEN PRIVATO_NEW = '1' THEN coalesce(IPA_CLI_NEW,DEFAULTIPA) ELSE coalesce(IPA_DEST_NEW, IPA_CLI_NEW) END AS IPA_NEW,
	CASE WHEN PRIVATO_NEW = '1' AND FORDEST = '1' THEN MAILPEC_DEST_NEW WHEN PRIVATO_NEW = '1' THEN coalesce(MAILPEC_CLI_NEW, SPACE(256)) ELSE coalesce(MAILPEC_DEST_NEW, MAILPEC_CLI_NEW) END AS MAILPEC_NEW
	FROM (
SELECT a.DTFTFM,
          a.NRFTFM,
          CASE
              WHEN a.FLCGFM = '' THEN '0'
              WHEN a.FLCGFM = '*' THEN '1'
          END AS FLCG,
          coalesce(f.cdcffm, a.CIFAFMA) AS CDCFFM,
          a.CIFAFMA CDCFFM_NEW,
          a.CDCFFM AS f0CDCFFM,
          CSPEFM AS DEST,
          a.GIVAFM,
          a.CDDTFM,
          a.FLSFFM,
          case when G.CODIDEST IS NULL THEN '0' ELSE '1' END DATI_STORICI,
          case when G.DENOMCES IS NULL THEN b.DSCOCP WHEN G.DENOMCES = ''  THEN RTRIM(G.NOMECES) CONCAT ' ' CONCAT G.COGNOCES ELSE G.DENOMCES END AS DSCOCP,
          coalesce(CASE
          	WHEN g.STATOTRAS = 'T' and x.PROGID IS NOT NULL THEN 'E'
          	WHEN coalesce(G.EXTID, '') = '' THEN g.STATOTRAS
          	WHEN g.STATOTRAS = 'V' and x.PROGID IS NOT NULL THEN 'C'
          	ELSE g.STATOTRAS END
          	, 'B') AS STATO,
          COALESCE(G.CODIDEST, d.CODIPA) AS IPA_CLI,
          COALESCE(G.CODIDEST, e.CODIPA) AS IPA_DEST,
          d.CODIPA AS IPA_CLI_NEW,
          e.CODIPA AS IPA_DEST_NEW,
          g.PROGID,
          c.DESC_GIVA,
          coalesce(h.ALLEG, 0) AS ALLEGATO,
          coalesce(G.EXTID, '') AS EXTID,
          CASE WHEN x.PROGID IS NULL THEN '0' ELSE '1' END AS ERRORI ,
          CASE WHEN G.PAOPRIV IS NULL AND (d.PAOPRIV IS NULL OR d.PAOPRIV = 'R') OR G.PAOPRIV IS NOT NULL AND G.PAOPRIV = 'R' THEN '1' ELSE '0' END AS PRIVATO,
          CASE WHEN d.PAOPRIV IS NULL OR d.PAOPRIV = 'R' THEN '1' ELSE '0' END AS PRIVATO_NEW,
          coalesce(G.MAILPEC, d.MAILPEC) as MAILPEC_CLI,
          coalesce(G.MAILPEC, e.MAILPEC) as MAILPEC_DEST,
          d.MAILPEC as MAILPEC_CLI_NEW,
          e.MAILPEC as MAILPEC_DEST_NEW,
          coalesce(g.NOMEXML, ' ') AS NOMEXML,
          coalesce(g.SERVTRA, ' ') AS SERVTRA,
          coalesce(f.NUMEFATT,' ') AS NUMEFATT,
          coalesce(f.VENDACQU,'V') AS VENDACQU,
          case when a.flinfm <> ' ' AND A.FTDIFMA IN ('D','*') AND A.CDCFFM = A.CIFAFMA AND DEST.CLFODE IS NOT NULL AND e.CODIPA IS NOT NULL THEN '1' ELSE '0' END FORDEST,
		coalesce(f.impotot, 0) impotot,
		coalesce(f.TIPODOCU, '    ') TIPODOC,
		d.DTIPA AS DTAVVIOSERV,
		i.CISOCA AS CODICEISO,
		coalesce(S.FLGESTFTE, '') AS FLGFATTEST,
		coalesce(S.DTESTFTE, 20220101) AS DTFATTEST,
		CASE WHEN i.CISOCA = 'IT' THEN '0000000' WHEN i.CISOCA = '' THEN '' ELSE 'XXXXXXX' END AS DEFAULTIPA
   FROM &DT/FTPAFE55F as a
	LEFT OUTER JOIN &DT/CSTAB as DD ON DD.K00001 = '01DD' CONCAT a.TDOCFM
	JOIN &DT/CGPCO00F as b ON a.CIFAFMA = b.CONTCP
	JOIN &DT/SMTABAR55V  as c ON a.GIVAFM = c.XCODTB
    LEFT OUTER JOIN &DT/FTPAE55F as d ON
         	d.CDDITTA = ''
        AND a.CIFAFMA = d.CODCLI
        AND (d.CODIPA <> '' OR d.esclusofe ='S')
  	LEFT OUTER JOIN &DT/FTPAE55F as e ON
 	    e.CDDITTA = ''
 	    AND a.CSPEFM = e.CODCLI
 		AND a.DTFTFM >= e.DTIPA
        AND e.CODIPA <> ''
        AND e.esclusofe =' '
 	LEFT OUTER JOIN &DT/FTPAF55F as f ON a.CDDTFM = f.CDDTFM
					      AND a.DTFTFM = f.DTFTFM
					      AND a.NRFTFM = f.NRFTFM
					      AND a.GIVAFM = f.GIVAFM
					      AND 'V' = f.VENDACQU
 	LEFT OUTER JOIN &DT/FTPAI55F as g ON f.PROGID = g.PROGID
 	LEFT OUTER JOIN &DT/FTPAU55V as h ON  a.CDDTFM = h.CDDTFAT
					      AND a.DTFTFM = h.DATAFAT
                          AND a.NRFTFM = h.NUMFAT
                          AND a.GIVAFM = h.GIVAFAT
                          AND '' = h.FORNFAT
   LEFT OUTER JOIN &DT/FTPAX55F as x ON (g.PROGID = x.PROGID and x.PROGRIGA = 0)
	JOIN &DT/CGANA00F as i ON i.CONTCA = b.CONTCP
	LEFT JOIN &DT/CGADE00F DEST ON DEST.CONTDE = a.CSPEFM
	LEFT JOIN &DT/FTPSET55F S ON 1=1
   WHERE coalesce(substr(DD.F00002, 10, 1), a.TDOCFM) <> 'P'
   AND
   (f.storfm is null or f.STORFM <> 'S')
   AND
   (NOT f.nrftfm IS NULL OR
   COALESCE(d.esclusofe, ' ') = ' '
   AND ((d.DTIPA IS NULL AND a.DTFTFM >= S.datainb2b
   		OR
	(NOT d.DTIPA IS NULL AND (d.DTIPA > 0 AND a.DTFTFM >= d.DTIPA OR (d.DTIPA = 0 AND (d.PAOPRIV = ' ' OR a.DTFTFM >= S.datainb2b)))))))) AS FAT)
<TAG-SCRIPT><IF-VERSION>5

LABEL ON TABLE &DT/FTFTE55V IS 'Art. 55 VIEW FATTURE STORICHE E ATTUALI'
<TAG-SCRIPT>

<TAG-VERSIONE-17.4.0>
<TAG-SCRIPT>

<TAG-VERSIONE-17.5.0>
<TAG-SCRIPT>

<TAG-VERSIONE-17.6.0>
<TAG-SCRIPT>

<TAG-VERSIONE-17.7.0>
<TAG-SCRIPT>

DROP VIEW &DT/FTBKPEP55V
<TAG-SCRIPT>

CREATE VIEW &DT/FTBKPEP55V AS
(
  SELECT a.DTBOFM,
          a.NRBOFM,
          CASE
              WHEN a.FLCGFM = '' THEN '0'
              WHEN a.FLCGFM = '*' THEN '1'
          END AS FLCG,
          a.CDCFFM,
          a.CSPEFM,
          a.CDBOFM,
          a.CDDTFM,
          a.FLSBFM,
          b.DSCOCP ,
          coalesce(f.STATOTEI, 'B') AS STATO,
          coalesce(g.CODIPAEF, coalesce(e.CODIPA, d.CODIPA)) AS IPA,
          f.PROGID,
          c.DESC_CDBO,
		  a.TDOCFM,
		  a.NRDFFM
   FROM &DT/FTBKMPE55V as a
	JOIN &DT/CGPCO00F as b ON a.CDCFFM = b.CONTCP
	JOIN &DT/CSTABDB55V  as c ON a.CDBOFM = c.CDBO
    LEFT OUTER JOIN &DT/FTPAE55F as d ON a.CDCFFM = d.CODCLI 
    	AND a.DTBOFM >= d.DTIPEPPOL AND d.PEPPOL = 'S'
 	LEFT OUTER JOIN &DT/FTPAE55F as e ON a.CSPEFM = e.CODCLI 
 		AND a.DTBOFM >= e.DTIPEPPOL	AND d.PEPPOL = 'S'	
	LEFT OUTER JOIN &DT/FTPEI55F as f ON a.TDOCFM = f.TDOCFM
	AND a.NRDFFM = f.NRDFFM
	LEFT OUTER JOIN &DT/FTPEF55F as g ON f.PROGID = g.PROGID
   WHERE (f.IDSTOREI is null or f.IDSTOREI <> 'S')
     AND coalesce(g.CODIPAEF, coalesce(e.CODIPA, d.CODIPA)) IS NOT NULL
)
<TAG-SCRIPT>

LABEL ON TABLE &DT/FTBKPEP55V 
	IS 'PEPPOL VIEW STORICI'
<TAG-SCRIPT>

DROP VIEW &DT/FTPEP55V
<TAG-SCRIPT>

CREATE VIEW &DT/FTPEP55V AS
(
  SELECT a.DTBOFM,
          a.NRBOFM,
          CASE
              WHEN a.FLCGFM = '' THEN '0'
              WHEN a.FLCGFM = '*' THEN '1'
          END AS FLCG,
          a.CDCFFM,
          a.CSPEFM,
          a.CDBOFM,
          a.CDDTFM,
          a.FLSBFM,
          b.DSCOCP ,
          coalesce(f.STATOTEI, 'B') AS STATO,
          coalesce(g.CODIPAEF, coalesce(e.CODIPA, d.CODIPA)) AS IPA,
          f.PROGID,
          c.DESC_CDBO,
		  a.TDOCFM,
		  a.NRDFFM
   FROM &DT/FTMOVPE55V as a
	JOIN &DT/CGPCO00F as b ON a.CDCFFM = b.CONTCP
	JOIN &DT/CSTABDB55V  as c ON a.CDBOFM = c.CDBO
    LEFT OUTER JOIN &DT/FTPAE55F as d ON a.CDCFFM = d.CODCLI 
    	AND a.DTBOFM >= d.DTIPEPPOL AND d.PEPPOL = 'S'
 	LEFT OUTER JOIN &DT/FTPAE55F as e ON a.CSPEFM = e.CODCLI 
 		AND a.DTBOFM >= e.DTIPEPPOL	AND d.PEPPOL = 'S'	
	LEFT OUTER JOIN &DT/FTPEI55F as f ON a.TDOCFM = f.TDOCFM
	AND a.NRDFFM = f.NRDFFM
	LEFT OUTER JOIN &DT/FTPEF55F as g ON f.PROGID = g.PROGID
   WHERE (f.IDSTOREI is null or f.IDSTOREI <> 'S')
     AND coalesce(g.CODIPAEF, coalesce(e.CODIPA, d.CODIPA)) IS NOT NULL
)
<TAG-SCRIPT>

LABEL ON TABLE &DT/FTPEP55V 
	IS 'PEPPOL VIEW ATTUALI'
<TAG-SCRIPT>

<TAG-VERSIONE-17.8.0>
<TAG-SCRIPT>

<TAG-VERSIONE-17.9.0>
<TAG-SCRIPT>

<TAG-VERSIONE-17.10.0>
<TAG-SCRIPT>

<CONDITION>EXISTS (SELECT 1 FROM QSYS2.SYSTABLES WHERE TABLE_SCHEMA = '&DT' AND TABLE_NAME = 'FTLMOV00F')</CONDITION>
CREATE VIEW &DT/FTLMOAR55V as
(
   SELECT *
   FROM &DT/ftlmov00f
   WHERE NRFTFM > 0
   AND NRFTFM <> 9999999
   AND DTFTFM >= 20140601
   AND FLSFFM = '*'
)
<TAG-SCRIPT>

<CONDITION>EXISTS (SELECT 1 FROM QSYS2.SYSTABLES WHERE TABLE_SCHEMA = '&DT' AND TABLE_NAME = 'FTLMOV00F')</CONDITION>
LABEL ON TABLE &DT/FTLMOAR55V 
	IS 'Art. 55 VIEW FTLMOV00F' 
<TAG-SCRIPT>

<CONDITION>EXISTS (SELECT 1 FROM QSYS2.SYSTABLES WHERE TABLE_SCHEMA = '&DT' AND TABLE_NAME = 'FTLMOV00F')</CONDITION>
 CREATE VIEW &DT/FTLBKAR55V as (            
  SELECT * FROM &DT/ftlbkm00f                
  WHERE NRFTFM > 0                                
      AND NRFTFM <> 9999999                       
      AND DTFTFM >= 20140601                      
      AND FLSFFM = '*')     
<TAG-SCRIPT>

<CONDITION>EXISTS (SELECT 1 FROM QSYS2.SYSTABLES WHERE TABLE_SCHEMA = '&DT' AND TABLE_NAME = 'FTLMOV00F')</CONDITION>
LABEL ON TABLE &DT/FTLBKAR55V 
	IS 'Art. 55 VIEW FTLBKM00F' 	
<TAG-SCRIPT>

<CONDITION>EXISTS (SELECT 1 FROM QSYS2.SYSTABLES WHERE TABLE_SCHEMA = '&DT' AND TABLE_NAME = 'FTLMOV00F')</CONDITION>
CREATE VIEW &DT/FTLFTE55V AS (
	SELECT FAT.*,
	CASE WHEN PRIVATO = '1' AND FORDEST = '1' THEN '1' ELSE '0' END AS PRFORDEST,
	CASE WHEN PRIVATO = '0' OR FORDEST = '1' THEN coalesce(DEST, SPACE(10)) ELSE SPACE(10) END AS CSPEFM,
	CASE WHEN DATI_STORICI = '1' THEN IPA_CLI WHEN PRIVATO = '1' AND FORDEST = '1' THEN IPA_DEST WHEN PRIVATO = '1' THEN coalesce(IPA_CLI,DEFAULTIPA) ELSE coalesce(IPA_DEST, IPA_CLI) END AS IPA,
	CASE WHEN DATI_STORICI = '1' THEN MAILPEC_CLI WHEN PRIVATO = '1' AND FORDEST = '1' THEN MAILPEC_DEST WHEN PRIVATO = '1' THEN coalesce(MAILPEC_CLI, SPACE(256)) ELSE coalesce(MAILPEC_DEST, MAILPEC_CLI) END AS MAILPEC,
	CASE WHEN PRIVATO_NEW = '1' AND FORDEST = '1' THEN IPA_DEST_NEW WHEN PRIVATO_NEW = '1' THEN coalesce(IPA_CLI_NEW,DEFAULTIPA) ELSE coalesce(IPA_DEST_NEW, IPA_CLI_NEW) END AS IPA_NEW,
	CASE WHEN PRIVATO_NEW = '1' AND FORDEST = '1' THEN MAILPEC_DEST_NEW WHEN PRIVATO_NEW = '1' THEN coalesce(MAILPEC_CLI_NEW, SPACE(256)) ELSE coalesce(MAILPEC_DEST_NEW, MAILPEC_CLI_NEW) END AS MAILPEC_NEW
	FROM (
	SELECT a.DTFTFM,
			a.NRFTFM,
			CASE
				WHEN a.FLCGFM = '' THEN '0'
				WHEN a.FLCGFM = '*' THEN '1'
			END AS FLCG,
			coalesce(f.cdcffm, a.CDCFFM) AS CDCFFM,
			a.CDCFFM AS CDCFFM_NEW,
			CSPEFM AS DEST,
			a.GIVAFM,
			'01' as cddtfm,
			a.FLSFFM,
          case when G.CODIDEST IS NULL THEN '0' ELSE '1' END DATI_STORICI,
          case when G.DENOMCES IS NULL THEN b.DSCOCP WHEN G.DENOMCES = ''  THEN RTRIM(G.NOMECES) CONCAT ' ' CONCAT G.COGNOCES ELSE G.DENOMCES END AS DSCOCP,
			coalesce(CASE
				WHEN g.STATOTRAS = 'T' and x.PROGID IS NOT NULL THEN 'E'
				WHEN coalesce(G.EXTID, '') = '' THEN g.STATOTRAS
				WHEN g.STATOTRAS = 'V' and x.PROGID IS NOT NULL THEN 'C'
				ELSE g.STATOTRAS END , 'B') AS STATO,
          COALESCE(G.CODIDEST, d.CODIPA) AS IPA_CLI,
          COALESCE(G.CODIDEST, e.CODIPA) AS IPA_DEST,
          d.CODIPA AS IPA_CLI_NEW,
          e.CODIPA AS IPA_DEST_NEW,
			g.PROGID,
			c.DESC_GIVA,
			coalesce(h.ALLEG, 0) AS ALLEGATO,
			coalesce(G.EXTID, '') AS EXTID,
			CASE WHEN x.PROGID IS NULL THEN '0' ELSE '1' END AS ERRORI ,
          CASE WHEN G.PAOPRIV IS NULL AND (d.PAOPRIV IS NULL OR d.PAOPRIV = 'R') OR G.PAOPRIV IS NOT NULL AND G.PAOPRIV = 'R' THEN '1' ELSE '0' END AS PRIVATO,
          CASE WHEN d.PAOPRIV IS NULL OR d.PAOPRIV = 'R' THEN '1' ELSE '0' END AS PRIVATO_NEW,
          coalesce(G.MAILPEC, d.MAILPEC) as MAILPEC_CLI,
          coalesce(G.MAILPEC, e.MAILPEC) as MAILPEC_DEST,
          d.MAILPEC as MAILPEC_CLI_NEW,
          e.MAILPEC as MAILPEC_DEST_NEW,
			coalesce(g.NOMEXML, ' ') AS NOMEXML,
			coalesce(g.SERVTRA, ' ') AS SERVTRA,
			coalesce(f.NUMEFATT,' ') AS NUMEFATT,
			coalesce(f.VENDACQU,'V') AS VENDACQU,
			case when (d.PAOPRIV IS NULL OR d.PAOPRIV = 'R') AND DEST.CLFOCP = 'D' AND A3.CONTAD IS NOT NULL AND e.CODIPA IS NOT NULL THEN '1' ELSE '0' END FORDEST,
			coalesce(f.IMPOTOT, 0) AS IMPOTOT,
		  coalesce(f.TIPODOCU, '    ') TIPODOC,
		  d.DTIPA AS DTAVVIOSERV,
		  i.CISOCA AS CODICEISO,
		  coalesce(S.FLGESTFTE, '') AS FLGFATTEST,
		  coalesce(S.DTESTFTE, 20220101) AS DTFATTEST,
		  CASE WHEN i.CISOCA = 'IT' THEN '0000000' WHEN i.CISOCA = '' THEN '' ELSE 'XXXXXXX' END AS DEFAULTIPA
     FROM &DT/FTPAFM55F as a
   JOIN &DT/CGPCO00F as b ON a.CDCFFM = b.CONTCP
   LEFT JOIN &DT/SMTABAR55V  as c ON a.GIVAFM = c.XCODTB
       LEFT OUTER JOIN &DT/FTPAE55F as d ON
        d.CDDITTA = ''
        AND a.CDCFFM = d.CODCLI
        AND (d.CODIPA <> '' OR d.esclusofe ='S')
     LEFT OUTER JOIN &DT/FTPAE55F as e ON
        e.CDDITTA = ''
        AND a.CSPEFM = e.CODCLI
        AND a.DTFTFM >= e.DTIPA
        AND e.CODIPA <> ''
        AND e.esclusofe =' '
   LEFT OUTER JOIN &DT/FTPAF55F as f ON f.CDDTFM = '01'
	AND a.DTFTFM = f.DTFTFM
	AND a.NRFTFM = f.NRFTFM
	AND a.GIVAFM = f.GIVAFM
	AND 'V' = f.VENDACQU
  LEFT OUTER JOIN &DT/FTPAI55F as g ON f.PROGID = g.PROGID
  LEFT OUTER JOIN &DT/FTPAU55V as h ON  h.CDDTFat= '01'
		AND a.DTFTFM = h.DATAFAT
		AND a.NRFTFM = h.NUMFAT
		AND a.GIVAFM = h.GIVAFAT
		AND '' = h.FORNFAT
   LEFT OUTER JOIN &DT/FTPAX55F as x ON (g.PROGID = x.PROGID and x.PROGRIGA = 0)
	JOIN &DT/CGANA00F as i ON i.CONTCA = b.CONTCP
	LEFT JOIN &DT/CGPCO00F DEST ON DEST.CONTCP = a.CSPEFM
	LEFT JOIN &DT/CGANA03F as a3 ON a3.CONTAD = a.CSPEFM AND a3.CDGCAD = a.CDCFFM
	LEFT JOIN &DT/FTPSET55F S ON 1=1
   WHERE A.TPDOFM <> 'P'
   AND
   (f.storfm is null or f.STORFM <> 'S')
   AND
   (NOT f.nrftfm IS NULL OR
   COALESCE(d.esclusofe, ' ') = ' '
   AND ((d.DTIPA IS NULL AND a.DTFTFM >= S.datainb2b
   		OR
	(NOT d.DTIPA IS NULL AND (d.DTIPA > 0 AND a.DTFTFM >= d.DTIPA OR (d.DTIPA = 0 AND (d.PAOPRIV = ' ' OR a.DTFTFM >= S.datainb2b)))))))) AS FAT)
<TAG-SCRIPT>

<CONDITION>EXISTS (SELECT 1 FROM QSYS2.SYSTABLES WHERE TABLE_SCHEMA = '&DT' AND TABLE_NAME = 'FTLMOV00F')</CONDITION>
LABEL ON TABLE &DT/FTLFTE55V IS 'Art. 55 VIEW FATTURE STORICHE E ATTUALI'
<TAG-SCRIPT>

<CONDITION>EXISTS (SELECT 1 FROM QSYS2.SYSTABLES WHERE TABLE_SCHEMA = '&DT' AND TABLE_NAME = 'FTLMOV00F')</CONDITION>
CREATE VIEW &DT/FTLMOV55V AS (
	SELECT FAT.*,
	CASE WHEN PRIVATO = '1' AND FORDEST = '1' THEN '1' ELSE '0' END AS PRFORDEST,
	CASE WHEN PRIVATO = '0' OR FORDEST = '1' THEN coalesce(DEST, SPACE(10)) ELSE SPACE(10) END AS CSPEFM,
	CASE WHEN DATI_STORICI = '1' THEN IPA_CLI WHEN PRIVATO = '1' AND FORDEST = '1' THEN IPA_DEST WHEN PRIVATO = '1' THEN coalesce(IPA_CLI,DEFAULTIPA) ELSE coalesce(IPA_DEST, IPA_CLI) END AS IPA,
	CASE WHEN DATI_STORICI = '1' THEN MAILPEC_CLI WHEN PRIVATO = '1' AND FORDEST = '1' THEN MAILPEC_DEST WHEN PRIVATO = '1' THEN coalesce(MAILPEC_CLI, SPACE(256)) ELSE coalesce(MAILPEC_DEST, MAILPEC_CLI) END AS MAILPEC,
	CASE WHEN PRIVATO_NEW = '1' AND FORDEST = '1' THEN IPA_DEST_NEW WHEN PRIVATO_NEW = '1' THEN coalesce(IPA_CLI_NEW,DEFAULTIPA) ELSE coalesce(IPA_DEST_NEW, IPA_CLI_NEW) END AS IPA_NEW,
	CASE WHEN PRIVATO_NEW = '1' AND FORDEST = '1' THEN MAILPEC_DEST_NEW WHEN PRIVATO_NEW = '1' THEN coalesce(MAILPEC_CLI_NEW, SPACE(256)) ELSE coalesce(MAILPEC_DEST_NEW, MAILPEC_CLI_NEW) END AS MAILPEC_NEW
	FROM (
	SELECT a.DTFTFM,
			a.NRFTFM,
			CASE
				WHEN a.FLCGFM = '' THEN '0'
				WHEN a.FLCGFM = '*' THEN '1'
			END AS FLCG,
			coalesce(f.cdcffm, a.CDCFFM) AS CDCFFM,
			a.CDCFFM AS CDCFFM_NEW,
			CSPEFM AS DEST,
			a.GIVAFM,
			'01' as cddtfm,
			a.FLSFFM,
          case when G.CODIDEST IS NULL THEN '0' ELSE '1' END DATI_STORICI,
          case when G.DENOMCES IS NULL THEN b.DSCOCP WHEN G.DENOMCES = ''  THEN RTRIM(G.NOMECES) CONCAT ' ' CONCAT G.COGNOCES ELSE G.DENOMCES END AS DSCOCP,
			coalesce(CASE
				WHEN g.STATOTRAS = 'T' and x.PROGID IS NOT NULL THEN 'E'
				WHEN coalesce(G.EXTID, '') = '' THEN g.STATOTRAS
				WHEN g.STATOTRAS = 'V' and x.PROGID IS NOT NULL THEN 'C'
				ELSE g.STATOTRAS END , 'B') AS STATO,
          COALESCE(G.CODIDEST, d.CODIPA) AS IPA_CLI,
          COALESCE(G.CODIDEST, e.CODIPA) AS IPA_DEST,
          d.CODIPA AS IPA_CLI_NEW,
          e.CODIPA AS IPA_DEST_NEW,
			g.PROGID,
			c.DESC_GIVA,
			coalesce(h.ALLEG, 0) AS ALLEGATO,
			coalesce(G.EXTID, '') AS EXTID,
			CASE WHEN x.PROGID IS NULL THEN '0' ELSE '1' END AS ERRORI ,
          CASE WHEN G.PAOPRIV IS NULL AND (d.PAOPRIV IS NULL OR d.PAOPRIV = 'R') OR G.PAOPRIV IS NOT NULL AND G.PAOPRIV = 'R' THEN '1' ELSE '0' END AS PRIVATO,
          CASE WHEN d.PAOPRIV IS NULL OR d.PAOPRIV = 'R' THEN '1' ELSE '0' END AS PRIVATO_NEW,
          coalesce(G.MAILPEC, d.MAILPEC) as MAILPEC_CLI,
          coalesce(G.MAILPEC, e.MAILPEC) as MAILPEC_DEST,
          d.MAILPEC as MAILPEC_CLI_NEW,
          e.MAILPEC as MAILPEC_DEST_NEW,
			coalesce(g.NOMEXML, ' ') AS NOMEXML,
			coalesce(g.SERVTRA, ' ') AS SERVTRA,
			coalesce(f.NUMEFATT,' ') AS NUMEFATT,
			coalesce(f.VENDACQU,'V') AS VENDACQU,
			case when (d.PAOPRIV IS NULL OR d.PAOPRIV = 'R') AND DEST.CLFOCP = 'D' AND A3.CONTAD IS NOT NULL AND e.CODIPA IS NOT NULL THEN '1' ELSE '0' END FORDEST,
			coalesce(f.IMPOTOT, 0) AS IMPOTOT,
		  coalesce(f.TIPODOCU, '    ') TIPODOC,
		  d.DTIPA AS DTAVVIOSERV,
		  i.CISOCA AS CODICEISO,
		  coalesce(S.FLGESTFTE, '') AS FLGFATTEST,
		  coalesce(S.DTESTFTE, 20220101) AS DTFATTEST,
		  CASE WHEN i.CISOCA = 'IT' THEN '0000000' WHEN i.CISOCA = '' THEN '' ELSE 'XXXXXXX' END AS DEFAULTIPA
     FROM &DT/FTLMOAR55V as a
   JOIN &DT/CGPCO00F as b ON a.CDCFFM = b.CONTCP
   LEFT JOIN &DT/SMTABAR55V  as c ON a.GIVAFM = c.XCODTB
       LEFT OUTER JOIN &DT/FTPAE55F as d ON
        d.CDDITTA = ''
        AND a.CDCFFM = d.CODCLI
        AND (d.CODIPA <> '' OR d.esclusofe ='S')
     LEFT OUTER JOIN &DT/FTPAE55F as e ON
        e.CDDITTA = ''
        AND a.CSPEFM = e.CODCLI
        AND a.DTFTFM >= e.DTIPA
        AND e.CODIPA <> ''
        AND e.esclusofe =' '
   LEFT OUTER JOIN &DT/FTPAF55F as f ON f.CDDTFM = '01'
	AND a.DTFTFM = f.DTFTFM
	AND a.NRFTFM = f.NRFTFM
	AND a.GIVAFM = f.GIVAFM
	AND 'V' = f.VENDACQU
  LEFT OUTER JOIN &DT/FTPAI55F as g ON f.PROGID = g.PROGID
  LEFT OUTER JOIN &DT/FTPAU55V as h ON  h.CDDTFat= '01'
		AND a.DTFTFM = h.DATAFAT
		AND a.NRFTFM = h.NUMFAT
		AND a.GIVAFM = h.GIVAFAT
		AND '' = h.FORNFAT
   LEFT OUTER JOIN &DT/FTPAX55F as x ON (g.PROGID = x.PROGID and x.PROGRIGA = 0)
	JOIN &DT/CGANA00F as i ON i.CONTCA = b.CONTCP
	LEFT JOIN &DT/CGPCO00F DEST ON DEST.CONTCP = a.CSPEFM
	LEFT JOIN &DT/CGANA03F as a3 ON a3.CONTAD = a.CSPEFM AND a3.CDGCAD = a.CDCFFM
	LEFT JOIN &DT/FTPSET55F S ON 1=1
   WHERE A.tpdofm <> 'P'
   AND
   (f.storfm is null or f.STORFM <> 'S')
   AND
   (NOT f.nrftfm IS NULL OR
   COALESCE(d.esclusofe, ' ') = ' '
   AND ((d.DTIPA IS NULL AND a.DTFTFM >= S.datainb2b
   		OR
	(NOT d.DTIPA IS NULL AND (d.DTIPA > 0 AND a.DTFTFM >= d.DTIPA OR (d.DTIPA = 0 AND (d.PAOPRIV = ' ' OR a.DTFTFM >= S.datainb2b)))))))) AS FAT)
<TAG-SCRIPT>

<CONDITION>EXISTS (SELECT 1 FROM QSYS2.SYSTABLES WHERE TABLE_SCHEMA = '&DT' AND TABLE_NAME = 'FTLMOV00F')</CONDITION>
LABEL ON TABLE &DT/FTLMOV55V IS 'Art. 55 VIEW ATTUALI'
<TAG-SCRIPT>

<CONDITION>EXISTS (SELECT 1 FROM QSYS2.SYSTABLES WHERE TABLE_SCHEMA = '&DT' AND TABLE_NAME = 'FTLMOV00F')</CONDITION>
CREATE VIEW &DT/FTLBKM55V AS (
	SELECT FAT.*,
	CASE WHEN PRIVATO = '1' AND FORDEST = '1' THEN '1' ELSE '0' END AS PRFORDEST,
	CASE WHEN PRIVATO = '0' OR FORDEST = '1' THEN coalesce(DEST, SPACE(10)) ELSE SPACE(10) END AS CSPEFM,
	CASE WHEN DATI_STORICI = '1' THEN IPA_CLI WHEN PRIVATO = '1' AND FORDEST = '1' THEN IPA_DEST WHEN PRIVATO = '1' THEN coalesce(IPA_CLI,DEFAULTIPA) ELSE coalesce(IPA_DEST, IPA_CLI) END AS IPA,
	CASE WHEN DATI_STORICI = '1' THEN MAILPEC_CLI WHEN PRIVATO = '1' AND FORDEST = '1' THEN MAILPEC_DEST WHEN PRIVATO = '1' THEN coalesce(MAILPEC_CLI, SPACE(256)) ELSE coalesce(MAILPEC_DEST, MAILPEC_CLI) END AS MAILPEC,
	CASE WHEN PRIVATO_NEW = '1' AND FORDEST = '1' THEN IPA_DEST_NEW WHEN PRIVATO_NEW = '1' THEN coalesce(IPA_CLI_NEW,DEFAULTIPA) ELSE coalesce(IPA_DEST_NEW, IPA_CLI_NEW) END AS IPA_NEW,
	CASE WHEN PRIVATO_NEW = '1' AND FORDEST = '1' THEN MAILPEC_DEST_NEW WHEN PRIVATO_NEW = '1' THEN coalesce(MAILPEC_CLI_NEW, SPACE(256)) ELSE coalesce(MAILPEC_DEST_NEW, MAILPEC_CLI_NEW) END AS MAILPEC_NEW
	FROM (
	SELECT a.DTFTFM,
			a.NRFTFM,
			CASE
				WHEN a.FLCGFM = '' THEN '0'
				WHEN a.FLCGFM = '*' THEN '1'
			END AS FLCG,
			coalesce(f.cdcffm, a.CDCFFM) AS CDCFFM,
			a.CDCFFM AS CDCFFM_NEW,
			CSPEFM AS DEST,
			a.GIVAFM,
			'01' as cddtfm,
			a.FLSFFM,
          case when G.CODIDEST IS NULL THEN '0' ELSE '1' END DATI_STORICI,
          case when G.DENOMCES IS NULL THEN b.DSCOCP WHEN G.DENOMCES = ''  THEN RTRIM(G.NOMECES) CONCAT ' ' CONCAT G.COGNOCES ELSE G.DENOMCES END AS DSCOCP,
			coalesce(CASE
				WHEN g.STATOTRAS = 'T' and x.PROGID IS NOT NULL THEN 'E'
				WHEN coalesce(G.EXTID, '') = '' THEN g.STATOTRAS
				WHEN g.STATOTRAS = 'V' and x.PROGID IS NOT NULL THEN 'C'
				ELSE g.STATOTRAS END , 'B') AS STATO,
          COALESCE(G.CODIDEST, d.CODIPA) AS IPA_CLI,
          COALESCE(G.CODIDEST, e.CODIPA) AS IPA_DEST,
          d.CODIPA AS IPA_CLI_NEW,
          e.CODIPA AS IPA_DEST_NEW,
			g.PROGID,
			c.DESC_GIVA,
			coalesce(h.ALLEG, 0) AS ALLEGATO,
			coalesce(G.EXTID, '') AS EXTID,
			CASE WHEN x.PROGID IS NULL THEN '0' ELSE '1' END AS ERRORI ,
          CASE WHEN G.PAOPRIV IS NULL AND (d.PAOPRIV IS NULL OR d.PAOPRIV = 'R') OR G.PAOPRIV IS NOT NULL AND G.PAOPRIV = 'R' THEN '1' ELSE '0' END AS PRIVATO,
          CASE WHEN d.PAOPRIV IS NULL OR d.PAOPRIV = 'R' THEN '1' ELSE '0' END AS PRIVATO_NEW,
          coalesce(G.MAILPEC, d.MAILPEC) as MAILPEC_CLI,
          coalesce(G.MAILPEC, e.MAILPEC) as MAILPEC_DEST,
          d.MAILPEC as MAILPEC_CLI_NEW,
          e.MAILPEC as MAILPEC_DEST_NEW,
			coalesce(g.NOMEXML, ' ') AS NOMEXML,
			coalesce(g.SERVTRA, ' ') AS SERVTRA,
			coalesce(f.NUMEFATT,' ') AS NUMEFATT,
			coalesce(f.VENDACQU,'V') AS VENDACQU,
			case when (d.PAOPRIV IS NULL OR d.PAOPRIV = 'R') AND DEST.CLFOCP = 'D' AND A3.CONTAD IS NOT NULL AND e.CODIPA IS NOT NULL THEN '1' ELSE '0' END FORDEST,
			coalesce(f.IMPOTOT, 0) AS IMPOTOT,
		  coalesce(f.TIPODOCU, '    ') TIPODOC,
		  d.DTIPA AS DTAVVIOSERV,
		  i.CISOCA AS CODICEISO,
		  coalesce(S.FLGESTFTE, '') AS FLGFATTEST,
		  coalesce(S.DTESTFTE, 20220101) AS DTFATTEST,
		  CASE WHEN i.CISOCA = 'IT' THEN '0000000' WHEN i.CISOCA = '' THEN '' ELSE 'XXXXXXX' END AS DEFAULTIPA
     FROM &DT/FTLBKAR55V as a
   JOIN &DT/CGPCO00F as b ON a.CDCFFM = b.CONTCP
   LEFT JOIN &DT/SMTABAR55V  as c ON a.GIVAFM = c.XCODTB
       LEFT OUTER JOIN &DT/FTPAE55F as d ON
        d.CDDITTA = ''
        AND a.CDCFFM = d.CODCLI
        AND (d.CODIPA <> '' OR d.esclusofe ='S')
     LEFT OUTER JOIN &DT/FTPAE55F as e ON
        e.CDDITTA = ''
        AND a.CSPEFM = e.CODCLI
        AND a.DTFTFM >= e.DTIPA
        AND e.CODIPA <> ''
        AND e.esclusofe =' '
   LEFT OUTER JOIN &DT/FTPAF55F as f ON f.CDDTFM = '01'
	AND a.DTFTFM = f.DTFTFM
	AND a.NRFTFM = f.NRFTFM
	AND a.GIVAFM = f.GIVAFM
	AND 'V' = f.VENDACQU
  LEFT OUTER JOIN &DT/FTPAI55F as g ON f.PROGID = g.PROGID
  LEFT OUTER JOIN &DT/FTPAU55V as h ON  h.CDDTFat= '01'
		AND a.DTFTFM = h.DATAFAT
		AND a.NRFTFM = h.NUMFAT
		AND a.GIVAFM = h.GIVAFAT
		AND '' = h.FORNFAT
   LEFT OUTER JOIN &DT/FTPAX55F as x ON (g.PROGID = x.PROGID and x.PROGRIGA = 0)
	JOIN &DT/CGANA00F as i ON i.CONTCA = b.CONTCP
	LEFT JOIN &DT/CGPCO00F DEST ON DEST.CONTCP = a.CSPEFM
	LEFT JOIN &DT/CGANA03F as a3 ON a3.CONTAD = a.CSPEFM AND a3.CDGCAD = a.CDCFFM
	LEFT JOIN &DT/FTPSET55F S ON 1=1
   WHERE A.tpdofm <> 'P'
   AND
   (f.storfm is null or f.STORFM <> 'S')
   AND
   (NOT f.nrftfm IS NULL OR
   COALESCE(d.esclusofe, ' ') = ' '
   AND ((d.DTIPA IS NULL AND a.DTFTFM >= S.datainb2b
   		OR
	(NOT d.DTIPA IS NULL AND (d.DTIPA > 0 AND a.DTFTFM >= d.DTIPA OR (d.DTIPA = 0 AND (d.PAOPRIV = ' ' OR a.DTFTFM >= S.datainb2b)))))))) AS FAT)
<TAG-SCRIPT>

<CONDITION>EXISTS (SELECT 1 FROM QSYS2.SYSTABLES WHERE TABLE_SCHEMA = '&DT' AND TABLE_NAME = 'FTLMOV00F')</CONDITION>
LABEL ON TABLE &DT/FTLBKM55V IS 'Art. 55 VIEW STORICI'
<TAG-SCRIPT>

<TAG-VERSIONE-18.0.0>
<TAG-SCRIPT>