2802 lines
126 KiB
Plaintext
2802 lines
126 KiB
Plaintext
<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> |