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

<CONDITION>EXISTS (SELECT 1 FROM QSYS2.SYSCOLUMNS WHERE TABLE_SCHEMA = '&MDT' AND TABLE_NAME = 'FTMOV00F' AND COLUMN_NAME = 'GIVAFM')</CONDITION>
CREATE VIEW &MDT/FTMOVAR55V as
(
   SELECT *
   FROM &MDT/ftmov00f
   WHERE NRFTFM > 0
   AND NRFTFM <> 9999999
   AND DTFTFM >= 20140601
   AND FLSFFM = '*'
)
<TAG-SCRIPT>

<CONDITION>NOT EXISTS (SELECT 1 FROM QSYS2.SYSCOLUMNS WHERE TABLE_SCHEMA = '&MDT' AND TABLE_NAME = 'FTMOV00F' AND COLUMN_NAME = 'GIVAFM')</CONDITION>
CREATE VIEW &MDT/FTMOVAR55V as
(
   SELECT F.*, ' ' AS GIVAFM 
   FROM &MDT/ftmov00f F
   WHERE NRFTFM > 0
   AND NRFTFM <> 9999999
   AND DTFTFM >= 20140601
   AND FLSFFM = '*'
)
<TAG-SCRIPT>

LABEL ON TABLE &MDT/FTMOVAR55V 
	IS 'Art. 55 VIEW FTMOV00F' 

<TAG-SCRIPT>

CREATE VIEW &MDT/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,
             '01' as 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 &MDT/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 f.cddtfm = '01'        
                                     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   h.CDDTFAT    ='01'     
                                     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 &MDT/FTMOV55V     
 IS 'Art. 55 VIEW ATTUALI'            

<TAG-SCRIPT>

<CONDITION>EXISTS (SELECT 1 FROM QSYS2.SYSCOLUMNS WHERE TABLE_SCHEMA = '&MDT' AND TABLE_NAME = 'FTMOV00F' AND COLUMN_NAME = 'GIVAFM')</CONDITION>
 CREATE VIEW &MDT/FTBKMAR55V as (            
  SELECT * FROM &MDT/ftbkm00f                
  WHERE NRFTFM > 0                                
      AND NRFTFM <> 9999999                       
      AND DTFTFM >= 20140601                      
      AND FLSFFM = '*')     

<TAG-SCRIPT>

<CONDITION>NOT EXISTS (SELECT 1 FROM QSYS2.SYSCOLUMNS WHERE TABLE_SCHEMA = '&MDT' AND TABLE_NAME = 'FTMOV00F' AND COLUMN_NAME = 'GIVAFM')</CONDITION>
CREATE VIEW &MDT/FTBKMAR55V as
(
   SELECT F.*, ' ' AS GIVAFM 
   FROM &MDT/ftbkm00f F
   WHERE NRFTFM > 0
   AND NRFTFM <> 9999999
   AND DTFTFM >= 20140601
   AND FLSFFM = '*'
)
<TAG-SCRIPT>

LABEL ON TABLE &MDT/FTBKMAR55V 
	IS 'Art. 55 VIEW FTBKM00F' 	

<TAG-SCRIPT>

CREATE VIEW &MDT/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,                                     
          '01' as 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 &MDT/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 f.CDDTFM = '01'           
     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  h.CDDTFat= '01'         
           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 &MDT/FTBKM55V 
 IS 'Art. 55 VIEW STORICI'        
 
<TAG-SCRIPT>

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

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

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

DROP VIEW &MDT/FTMOV55V
<TAG-SCRIPT>

CREATE VIEW &MDT/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,
             '01' as 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 &MDT/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 f.cddtfm = '01'        
                                     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   h.CDDTFAT    ='01'     
                                     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 &MDT/FTMOV55V     
 IS 'Art. 55 VIEW ATTUALI'            
<TAG-SCRIPT>

DROP VIEW &MDT/FTBKM55V
<TAG-SCRIPT>

CREATE VIEW &MDT/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,                                     
          '01' as 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 &MDT/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 f.CDDTFM = '01'           
     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  h.CDDTFat= '01'         
           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 &MDT/FTBKM55V 
 IS 'Art. 55 VIEW STORICI'        
<TAG-SCRIPT>

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

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

DROP VIEW &MDT/FTMOV55V
<TAG-SCRIPT>

CREATE VIEW &MDT/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,
             '01' as 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(d.PAOPRIV, ' ') = 'R' THEN '1' ELSE '0' END AS PRIVATO,
          coalesce(e.MAILPEC, d.MAILPEC) as MAILPEC,          
          coalesce(g.NOMEXML, ' ') AS NOMEXML
     FROM &MDT/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 f.cddtfm = '01'        
                                     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   h.CDDTFAT    ='01'     
                                     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 &MDT/FTMOV55V     
 IS 'Art. 55 VIEW ATTUALI'            
<TAG-SCRIPT>

DROP VIEW &MDT/FTBKM55V
<TAG-SCRIPT>

CREATE VIEW &MDT/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,                                     
          '01' as 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(d.PAOPRIV, ' ') = 'R' THEN '1' ELSE '0' END AS PRIVATO,
          coalesce(e.MAILPEC, d.MAILPEC) as MAILPEC,          
          coalesce(g.NOMEXML, ' ') AS NOMEXML
      FROM &MDT/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 f.CDDTFM = '01'           
     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  h.CDDTFat= '01'         
           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 &MDT/FTBKM55V 
 IS 'Art. 55 VIEW STORICI'        
<TAG-SCRIPT>

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

DROP VIEW &MDT/FTMOV55V
<TAG-SCRIPT>

CREATE VIEW &MDT/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,
             '01' as 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 &MDT/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 f.cddtfm = '01'        
                                     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   h.CDDTFAT    ='01'     
                                     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 &MDT/FTMOV55V     
 IS 'Art. 55 VIEW ATTUALI'            
<TAG-SCRIPT>

DROP VIEW &MDT/FTBKM55V
<TAG-SCRIPT>

CREATE VIEW &MDT/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,                                     
          '01' as 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 &MDT/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 f.CDDTFM = '01'           
     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  h.CDDTFat= '01'         
           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 &MDT/FTBKM55V 
 IS 'Art. 55 VIEW STORICI'        
<TAG-SCRIPT>

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

<TAG-VERSIONE-14.0.0>
<TAG-SCRIPT>
<TAG-VERSIONE-14.1.0>
<TAG-SCRIPT>
DROP VIEW &MDT/FTMOV55V
<TAG-SCRIPT>

CREATE VIEW &MDT/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,
             '01' as 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 &MDT/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 f.cddtfm = '01'        
                                     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   h.CDDTFAT    ='01'     
                                     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 &MDT/FTMOV55V     
 IS 'Art. 55 VIEW ATTUALI'            
<TAG-SCRIPT>

DROP VIEW &MDT/FTBKM55V
<TAG-SCRIPT>

CREATE VIEW &MDT/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,                                     
          '01' as 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 &MDT/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 f.CDDTFM = '01'           
     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  h.CDDTFat= '01'         
           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 &MDT/FTBKM55V 
 IS 'Art. 55 VIEW STORICI'        
<TAG-SCRIPT>

CREATE VIEW &MDT/FTMOVNE55V 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,
          '01' CDDTFM,
          a.FLSFFM,
          b.DSCOCP ,
          d.CISOCA ,
          d.PIVACA ,
          d.CDFICA ,
          c.DESC_GIVA
   FROM &MDT/FTMOVAR55V as a
	JOIN &DT/CGPCO00F as b ON a.CDCFFM = b.CONTCP
	LEFT 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.CDCFFM = 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 &MDT/FTMOVNE55V 
	IS 'Art. 55 VIEW ATTUALI NON ESTRAIBILI' 	
<TAG-SCRIPT>

CREATE VIEW &MDT/FTBKMNE55V 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,
          '01' CDDTFM,
          a.FLSFFM,
          b.DSCOCP ,
          d.CISOCA ,
          d.PIVACA ,
          d.CDFICA ,
          c.DESC_GIVA
   FROM &MDT/FTBKMAR55V as a
	JOIN &DT/CGPCO00F as b ON a.CDCFFM = b.CONTCP
	LEFT 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.CDCFFM = 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 &MDT/FTBKMNE55V 
	IS 'Art. 55 VIEW STORICI NON ESTRAIBILI' 	
<TAG-SCRIPT>

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

DROP VIEW &MDT/FTMOV55V
<TAG-SCRIPT>

CREATE VIEW &MDT/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,
             '01' as 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 &MDT/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   
     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 f.cddtfm = '01'        
                                     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   h.CDDTFAT    ='01'     
                                     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 &MDT/FTMOV55V     
 IS 'Art. 55 VIEW ATTUALI'            
<TAG-SCRIPT>

DROP VIEW &MDT/FTBKM55V
<TAG-SCRIPT>

CREATE VIEW &MDT/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,                                     
          '01' as 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 &MDT/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   
     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 f.CDDTFM = '01'           
     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  h.CDDTFat= '01'         
           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 &MDT/FTBKM55V 
 IS 'Art. 55 VIEW STORICI'        
<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 &MDT/FTMOV55V
<TAG-SCRIPT>

CREATE VIEW &MDT/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,
             '01' as 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 &MDT/FTMOVAR55V 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   
     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 f.cddtfm = '01'        
                                     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   h.CDDTFAT    ='01'     
                                     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 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 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 &MDT/FTMOV55V     
 IS 'Art. 55 VIEW ATTUALI'            
<TAG-SCRIPT>

DROP VIEW &MDT/FTBKM55V
<TAG-SCRIPT>

CREATE VIEW &MDT/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,                                     
          '01' as 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 &MDT/FTBKMAR55V 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   
     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 f.CDDTFM = '01'           
     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  h.CDDTFat= '01'         
           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 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 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 &MDT/FTBKM55V 
 IS 'Art. 55 VIEW STORICI'        
<TAG-SCRIPT>

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

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

<TAG-OPTIONAL>
DROP VIEW &MDT/FTMOV55V
<TAG-SCRIPT>

CREATE VIEW &MDT/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,
             '01' as 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 &MDT/FTMOVAR55V 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   
     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 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/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 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 &MDT/FTMOV55V     
 IS 'Art. 55 VIEW ATTUALI'            
<TAG-SCRIPT>

<TAG-OPTIONAL>
DROP VIEW &MDT/FTBKM55V
<TAG-SCRIPT>

CREATE VIEW &MDT/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,                                     
          '01' as 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 &MDT/FTBKMAR55V 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   
     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 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/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 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 &MDT/FTBKM55V 
 IS 'Art. 55 VIEW STORICI'        
<TAG-SCRIPT>

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

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

<TAG-OPTIONAL>
DROP VIEW &MDT/FTMOV55V
<TAG-SCRIPT>

CREATE VIEW &MDT/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.CDCFFM,                                     
			CSPEFM AS DEST,
			a.GIVAFM,
			'01' as 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 (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
     FROM &MDT/FTMOVAR55V 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   
     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 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 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>

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

<TAG-OPTIONAL>
DROP VIEW &MDT/FTBKM55V
<TAG-SCRIPT>

CREATE VIEW &MDT/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.CDCFFM,                                     
			CSPEFM AS DEST,
			a.GIVAFM,
			'01' as 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 (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
     FROM &MDT/FTBKMAR55V 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   
     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 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 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>

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

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

CREATE TABLE &MDT/FTPAFM55F ( 
	ANNOFM DECIMAL(4, 0) NOT NULL DEFAULT 0 ,  
	TPDOFM CHAR(1) NOT NULL DEFAULT '' , 
	NRDFFM DECIMAL(7, 0) NOT NULL DEFAULT 0 , 
	CDCFFM CHAR(10) NOT NULL DEFAULT '' , 
	CSPEFM CHAR(10) NOT NULL DEFAULT '' , 
	DTFTFM DECIMAL(8, 0) NOT NULL DEFAULT 0 , 
	NRFTFM DECIMAL(7, 0) NOT NULL DEFAULT 0 , 
	GIVAFM CHAR(1) NOT NULL DEFAULT '' , 
	FLCGFM CHAR(1) NOT NULL DEFAULT '' , 
	FLSFFM CHAR(1) NOT NULL DEFAULT '' , 
	PRIMARY KEY( ANNOFM , TPDOFM , NRDFFM) )
<TAG-SCRIPT>

LABEL ON TABLE &MDT/FTPAFM55F IS 'Art. 55 ELENCO FATTURE MODA' 	
<TAG-SCRIPT>

LABEL ON COLUMN &MDT/FTPAFM55F ( 
	ANNOFM TEXT IS 'Anno' , 
	TPDOFM TEXT IS 'Tipo Documento' , 
	NRDFFM TEXT IS 'Numero Doc.Fatturaz.' , 
	CDCFFM TEXT IS 'Codice Cliente/Fornitore' , 
	CSPEFM TEXT IS 'Codice Cliente Spedizione' , 
	DTFTFM TEXT IS 'Data Fattura' , 
	NRFTFM TEXT IS 'Numero Fattura' , 
	GIVAFM TEXT IS 'Nr. Registro IVA' , 
	FLCGFM TEXT IS 'Flag Colleg. Contabilità' ,
	FLSFFM TEXT IS 'Flag Fattura Stampata')
<TAG-SCRIPT>

CREATE VIEW &MDT/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.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
     FROM &MDT/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 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-OPTIONAL>
DROP VIEW &MDT/FTMOV55V
<TAG-SCRIPT>

CREATE VIEW &MDT/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.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
     FROM &MDT/FTMOVAR55V 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 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>

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

<TAG-OPTIONAL>
DROP VIEW &MDT/FTBKM55V
<TAG-SCRIPT>

CREATE VIEW &MDT/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.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
     FROM &MDT/FTBKMAR55V 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 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>

LABEL ON TABLE &MDT/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 &MDT/FTFTE55V
<TAG-SCRIPT>

CREATE VIEW &MDT/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.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
     FROM &MDT/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 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-OPTIONAL>
DROP VIEW &MDT/FTMOV55V
<TAG-SCRIPT>

CREATE VIEW &MDT/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.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
     FROM &MDT/FTMOVAR55V 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 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>

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

<TAG-OPTIONAL>
DROP VIEW &MDT/FTBKM55V
<TAG-SCRIPT>

CREATE VIEW &MDT/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.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
     FROM &MDT/FTBKMAR55V 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 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>

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

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

<TAG-OPTIONAL>
DROP VIEW &MDT/FTFTE55V
<TAG-SCRIPT>

CREATE VIEW &MDT/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.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
     FROM &MDT/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 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-OPTIONAL>
DROP VIEW &MDT/FTMOV55V
<TAG-SCRIPT>

CREATE VIEW &MDT/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.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
     FROM &MDT/FTMOVAR55V 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 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>

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

<TAG-OPTIONAL>
DROP VIEW &MDT/FTBKM55V
<TAG-SCRIPT>

CREATE VIEW &MDT/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.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
     FROM &MDT/FTBKMAR55V 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 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>

LABEL ON TABLE &MDT/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>

<TAG-OPTIONAL>
DROP VIEW &MDT/FTFTE55V
<TAG-SCRIPT>

CREATE VIEW &MDT/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.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
     FROM &MDT/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 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-OPTIONAL>
DROP VIEW &MDT/FTMOV55V
<TAG-SCRIPT>

CREATE VIEW &MDT/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.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
     FROM &MDT/FTMOVAR55V 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 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>

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

<TAG-OPTIONAL>
DROP VIEW &MDT/FTBKM55V
<TAG-SCRIPT>

CREATE VIEW &MDT/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.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
     FROM &MDT/FTBKMAR55V 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 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>

LABEL ON TABLE &MDT/FTBKM55V IS 'Art. 55 VIEW STORICI'
<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>

<TAG-OPTIONAL>
DROP VIEW &MDT/FTFTE55V
<TAG-SCRIPT>

CREATE VIEW &MDT/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.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 &MDT/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>

<TAG-OPTIONAL>
DROP VIEW &MDT/FTMOV55V
<TAG-SCRIPT>

CREATE VIEW &MDT/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.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 &MDT/FTMOVAR55V 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>

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

<TAG-OPTIONAL>
DROP VIEW &MDT/FTBKM55V
<TAG-SCRIPT>

CREATE VIEW &MDT/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.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 &MDT/FTBKMAR55V 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>

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

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