5486 lines
241 KiB
Plaintext
Executable File
5486 lines
241 KiB
Plaintext
Executable File
<TAG-VERSIONE-1.0.0>
|
|
<TAG-SCRIPT>
|
|
|
|
CREATE VIEW &DT/SMTABAR55V AS
|
|
(SELECT XCODTB,
|
|
coalesce(substr(XDATTB, 9, 20), '') as DESC_GIVA
|
|
FROM &DT/SMTAB00F
|
|
WHERE XTIPTB = '01GI')
|
|
<TAG-SCRIPT>
|
|
|
|
LABEL ON TABLE &DT/SMTABAR55V
|
|
IS 'Art. 55 VIEW SMTAB GI'
|
|
<TAG-SCRIPT>
|
|
|
|
CREATE VIEW &DT/FTPAU55V as (
|
|
select DISTINCT CDDTFAT,DATAFAT,NUMFAT,GIVAFAT, 1 as ALLEG from &DT/ftpau55f
|
|
)
|
|
<TAG-SCRIPT>
|
|
|
|
LABEL ON TABLE &DT/FTPAU55V
|
|
IS 'Art. 55 VIEW FILE ALLEGATI'
|
|
<TAG-SCRIPT>
|
|
|
|
CREATE VIEW &DT/FTBKMAR55V as (
|
|
SELECT * FROM &DT/ftbkm00f
|
|
WHERE NRFTFM > 0
|
|
AND NRFTFM <> 9999999
|
|
AND DTFTFM >= 20140601
|
|
AND FLSFFM = '*')
|
|
<TAG-SCRIPT>
|
|
|
|
LABEL ON TABLE &DT/FTBKMAR55V
|
|
IS 'Art. 55 VIEW FTBKM00F'
|
|
<TAG-SCRIPT>
|
|
|
|
CREATE VIEW &DT/FTMOVAR55V as (
|
|
SELECT * FROM &DT/ftmov00f
|
|
WHERE NRFTFM > 0
|
|
AND NRFTFM <> 9999999
|
|
AND DTFTFM >= 20140601
|
|
AND FLSFFM = '*')
|
|
<TAG-SCRIPT>
|
|
|
|
LABEL ON TABLE &DT/FTMOVAR55V
|
|
IS 'Art. 55 VIEW FTMOV00F'
|
|
<TAG-SCRIPT>
|
|
|
|
CREATE VIEW &DT/FTBKM55V AS
|
|
(
|
|
SELECT a.DTFTFM,
|
|
a.NRFTFM,
|
|
CASE
|
|
WHEN a.FLCGFM = '' THEN '0'
|
|
WHEN a.FLCGFM = '*' THEN '1'
|
|
END AS FLCG,
|
|
a.CDCFFM,
|
|
a.CSPEFM,
|
|
a.GIVAFM,
|
|
a.CDDTFM,
|
|
a.FLSFFM,
|
|
b.DSCOCP ,
|
|
coalesce(g.STATOTRAS, 'B') AS STATO,
|
|
coalesce(e.CODIPA, d.CODIPA) AS IPA,
|
|
g.PROGID,
|
|
c.DESC_GIVA,
|
|
coalesce(h.ALLEG, 0) AS ALLEGATO
|
|
FROM &DT/FTBKMAR55V as a
|
|
JOIN &DT/CGPCO00F as b ON a.CDCFFM = b.CONTCP
|
|
JOIN &DT/SMTABAR55V as c ON a.GIVAFM = c.XCODTB
|
|
LEFT OUTER JOIN &DT/FTPAE55F as d ON a.CDCFFM = d.CODCLI
|
|
AND a.DTFTFM >= d.DTIPA
|
|
LEFT OUTER JOIN &DT/FTPAE55F as e ON a.CSPEFM = e.CODCLI
|
|
AND a.DTFTFM >= e.DTIPA
|
|
LEFT OUTER JOIN &DT/FTPAF55F as f ON a.CDDTFM = f.CDDTFM
|
|
AND a.DTFTFM = f.DTFTFM
|
|
AND a.NRFTFM = f.NRFTFM
|
|
AND a.GIVAFM = f.GIVAFM
|
|
LEFT OUTER JOIN &DT/FTPAI55F as g ON f.PROGID = g.PROGID
|
|
LEFT OUTER JOIN &DT/FTPAU55V as h ON a.CDDTFM = h.CDDTFAT
|
|
AND a.DTFTFM = h.DATAFAT
|
|
AND a.NRFTFM = h.NUMFAT
|
|
AND a.GIVAFM = h.GIVAFAT
|
|
WHERE (f.storfm is null or f.STORFM <> 'S')
|
|
AND coalesce(e.CODIPA, d.CODIPA) IS NOT NULL
|
|
)
|
|
<TAG-SCRIPT>
|
|
|
|
LABEL ON TABLE &DT/FTBKM55V
|
|
IS 'Art. 55 VIEW STORICI'
|
|
<TAG-SCRIPT>
|
|
|
|
CREATE VIEW &DT/FTMOV55V AS
|
|
(
|
|
SELECT a.DTFTFM,
|
|
a.NRFTFM,
|
|
CASE
|
|
WHEN a.FLCGFM = '' THEN '0'
|
|
WHEN a.FLCGFM = '*' THEN '1'
|
|
END AS FLCG,
|
|
a.CDCFFM,
|
|
a.CSPEFM,
|
|
a.GIVAFM,
|
|
a.CDDTFM,
|
|
a.FLSFFM,
|
|
b.DSCOCP ,
|
|
coalesce(g.STATOTRAS, 'B') AS STATO,
|
|
coalesce(e.CODIPA, d.CODIPA) AS IPA,
|
|
g.PROGID,
|
|
c.DESC_GIVA,
|
|
coalesce(h.ALLEG, 0) AS ALLEGATO
|
|
FROM &DT/FTMOVAR55V as a
|
|
JOIN &DT/CGPCO00F as b ON a.CDCFFM = b.CONTCP
|
|
JOIN &DT/SMTABAR55V as c ON a.GIVAFM = c.XCODTB
|
|
LEFT OUTER JOIN &DT/FTPAE55F as d ON a.CDCFFM = d.CODCLI
|
|
AND a.DTFTFM >= d.DTIPA
|
|
LEFT OUTER JOIN &DT/FTPAE55F as e ON a.CSPEFM = e.CODCLI
|
|
AND a.DTFTFM >= e.DTIPA
|
|
LEFT OUTER JOIN &DT/FTPAF55F as f ON a.CDDTFM = f.CDDTFM
|
|
AND a.DTFTFM = f.DTFTFM
|
|
AND a.NRFTFM = f.NRFTFM
|
|
AND a.GIVAFM = f.GIVAFM
|
|
LEFT OUTER JOIN &DT/FTPAI55F as g ON f.PROGID = g.PROGID
|
|
LEFT OUTER JOIN &DT/FTPAU55V as h ON a.CDDTFM = h.CDDTFAT
|
|
AND a.DTFTFM = h.DATAFAT
|
|
AND a.NRFTFM = h.NUMFAT
|
|
AND a.GIVAFM = h.GIVAFAT
|
|
WHERE (f.storfm is null or f.STORFM <> 'S')
|
|
AND coalesce(e.CODIPA, d.CODIPA) IS NOT NULL
|
|
)
|
|
<TAG-SCRIPT>
|
|
|
|
LABEL ON TABLE &DT/FTMOV55V
|
|
IS 'Art. 55 VIEW ATTUALI'
|
|
<TAG-SCRIPT>
|
|
|
|
<TAG-VERSIONE-1.0.1>
|
|
<TAG-SCRIPT>
|
|
|
|
CREATE VIEW &DT/ABFIS15V AS
|
|
(SELECT coalesce(substr(DATIF1, 1, 6), '') as ATTIF1,
|
|
coalesce(substr(DATIF1, 7, 1), '') as FLNRF1,
|
|
coalesce(substr(DATIF1, 8, 1), '') as FIDIF1,
|
|
coalesce(substr(DATIF1, 9, 20), '') as CDFSF1,
|
|
coalesce(substr(DATIF1, 29, 20) , '') as CFITF1,
|
|
coalesce(substr(DATIF1, 49, 5), '') as NRIAF1,
|
|
coalesce(substr(DATIF1, 54, 8), '') as DTPRF1,
|
|
coalesce(substr(DATIF1, 62, 1), '') as ITTCF1,
|
|
coalesce(substr(DATIF1, 63, 1), '') as FIINF1,
|
|
coalesce(substr(DATIF1, 64, 1), '') as INAVF1,
|
|
coalesce(substr(DATIF1, 65, 1), '') as RIAVF1,
|
|
coalesce(substr(DATIF1, 66, 20), '') as CFDCF1,
|
|
coalesce(substr(DATIF1, 86, 20), '') as CDFCF1,
|
|
coalesce(substr(DATIF1, 106, 20), '') as CDFPF1,
|
|
coalesce(substr(DATIF1, 126, 1), '') as FLFQF1,
|
|
coalesce(substr(DATIF1, 127, 20), '') as CDDIF1,
|
|
coalesce(substr(DATIF1, 147, 3), '') as SERPF1,
|
|
coalesce(substr(DATIF1, 150, 24), '') as SFRPF1,
|
|
coalesce(substr(DATIF1, 174, 24), '') as LOPRF1,
|
|
coalesce(substr(DATIF1, 198, 35), '') as IERPF1
|
|
FROM &DT/ABFIS01F)
|
|
|
|
<TAG-SCRIPT>
|
|
|
|
LABEL ON TABLE &DT/ABFIS15V
|
|
IS 'View separazione dati abfis01f'
|
|
|
|
<TAG-SCRIPT>
|
|
|
|
LABEL ON COLUMN &DT/ABFIS15V (
|
|
ATTIF1 TEXT IS 'Codice attività ' ,
|
|
FLNRF1 TEXT IS 'Flag cf non regis. in anagr. ' ,
|
|
FIDIF1 TEXT IS 'Firma dichiarante ' ,
|
|
CDFSF1 TEXT IS 'Cf soggetto obbligato ' ,
|
|
CFITF1 TEXT IS 'Cf intermediario ' ,
|
|
NRIAF1 TEXT IS 'Nr. iscr. albo caf ' ,
|
|
DTPRF1 TEXT IS 'Data impegno ' ,
|
|
ITTCF1 TEXT IS 'Impegno trasm. telematica 1/2 ' ,
|
|
FIINF1 TEXT IS 'Firma intermediario ' ,
|
|
INAVF1 TEXT IS 'Invio avviso telem. interm. ' ,
|
|
RIAVF1 TEXT IS 'Ricez. avviso telem. interm. ' ,
|
|
CFDCF1 TEXT IS 'Cf responsabile caf ' ,
|
|
CDFCF1 TEXT IS 'Cf caf ' ,
|
|
CDFPF1 TEXT IS 'Cf professionista ' ,
|
|
FLFQF1 TEXT IS 'Firma riquadro ' ,
|
|
CDDIF1 TEXT IS 'Cf soc. o ente dichiarante ' ,
|
|
SERPF1 TEXT IS 'Codice stato estero ' ,
|
|
SFRPF1 TEXT IS 'Stato federato/contea ' ,
|
|
LOPRF1 TEXT IS 'Località estera ' ,
|
|
IERPF1 TEXT IS 'Indirizzo estero ' )
|
|
<TAG-SCRIPT>
|
|
|
|
<TAG-VERSIONE-2.0.0>
|
|
<TAG-SCRIPT>
|
|
|
|
<TAG-VERSIONE-2.0.1>
|
|
<TAG-SCRIPT>
|
|
|
|
<TAG-VERSIONE-3.0.0>
|
|
<TAG-SCRIPT>
|
|
|
|
<TAG-VERSIONE-4.0.0>
|
|
<TAG-SCRIPT>
|
|
|
|
<TAG-VERSIONE-5.0.0>
|
|
<TAG-SCRIPT>
|
|
|
|
<TAG-VERSIONE-6.0.0>
|
|
<TAG-SCRIPT>
|
|
|
|
<TAG-VERSIONE-7.0.0>
|
|
<TAG-SCRIPT>
|
|
|
|
<TAG-VERSIONE-8.0.0>
|
|
<TAG-SCRIPT>
|
|
|
|
<TAG-VERSIONE-9.0.0>
|
|
<TAG-SCRIPT>
|
|
|
|
CREATE VIEW &DT/CSTABDB55V AS
|
|
(SELECT substr(K00001, 5, 3) as CDBO,
|
|
coalesce(substr(F00002, 9, 20), '') as DESC_CDBO
|
|
FROM &DT/CSTAB
|
|
WHERE K00001 LIKE '01DB%')
|
|
<TAG-SCRIPT>
|
|
|
|
LABEL ON TABLE &DT/CSTABDB55V
|
|
IS 'PEPPOL VIEW CSTAB DB'
|
|
<TAG-SCRIPT>
|
|
|
|
CREATE VIEW &DT/FTBKMPE55V as (
|
|
SELECT * FROM &DT/ftbkm00f
|
|
WHERE NRBOFM > 0
|
|
AND NRBOFM <> 9999999
|
|
AND DTBOFM >= 20160601
|
|
AND FLSBFM = '*')
|
|
<TAG-SCRIPT>
|
|
|
|
LABEL ON TABLE &DT/FTBKMPE55V
|
|
IS 'PEPPOL VIEW FTBKM00F'
|
|
<TAG-SCRIPT>
|
|
|
|
CREATE VIEW &DT/FTMOVPE55V as (
|
|
SELECT * FROM &DT/ftmov00f
|
|
WHERE NRBOFM > 0
|
|
AND NRBOFM <> 9999999
|
|
AND DTBOFM >= 20160601
|
|
AND FLSBFM = '*')
|
|
<TAG-SCRIPT>
|
|
|
|
LABEL ON TABLE &DT/FTMOVPE55V
|
|
IS 'PEPPOL VIEW FTMOV00F'
|
|
<TAG-SCRIPT>
|
|
|
|
CREATE VIEW &DT/FTBKPEP55V AS
|
|
(
|
|
SELECT a.DTBOFM,
|
|
a.NRBOFM,
|
|
CASE
|
|
WHEN a.FLCGFM = '' THEN '0'
|
|
WHEN a.FLCGFM = '*' THEN '1'
|
|
END AS FLCG,
|
|
a.CDCFFM,
|
|
a.CSPEFM,
|
|
a.CDBOFM,
|
|
a.CDDTFM,
|
|
a.FLSBFM,
|
|
b.DSCOCP ,
|
|
coalesce(f.STATOTEI, 'B') AS STATO,
|
|
coalesce(e.CODIPA, d.CODIPA) AS IPA,
|
|
f.PROGID,
|
|
c.DESC_CDBO,
|
|
a.TDOCFM,
|
|
a.NRDFFM
|
|
FROM &DT/FTBKMPE55V as a
|
|
JOIN &DT/CGPCO00F as b ON a.CDCFFM = b.CONTCP
|
|
JOIN &DT/CSTABDB55V as c ON a.CDBOFM = c.CDBO
|
|
LEFT OUTER JOIN &DT/FTPAE55F as d ON a.CDCFFM = d.CODCLI
|
|
AND a.DTBOFM >= d.DTIPEPPOL AND d.PEPPOL = 'S'
|
|
LEFT OUTER JOIN &DT/FTPAE55F as e ON a.CSPEFM = e.CODCLI
|
|
AND a.DTBOFM >= e.DTIPEPPOL AND d.PEPPOL = 'S'
|
|
LEFT OUTER JOIN &DT/FTPEI55F as f ON a.TDOCFM = f.TDOCFM
|
|
AND a.NRDFFM = f.NRDFFM
|
|
WHERE (f.IDSTOREI is null or f.IDSTOREI <> 'S')
|
|
AND coalesce(e.CODIPA, d.CODIPA) IS NOT NULL
|
|
)
|
|
<TAG-SCRIPT>
|
|
|
|
LABEL ON TABLE &DT/FTBKPEP55V
|
|
IS 'PEPPOL VIEW STORICI'
|
|
<TAG-SCRIPT>
|
|
|
|
CREATE VIEW &DT/FTPEP55V AS
|
|
(
|
|
SELECT a.DTBOFM,
|
|
a.NRBOFM,
|
|
CASE
|
|
WHEN a.FLCGFM = '' THEN '0'
|
|
WHEN a.FLCGFM = '*' THEN '1'
|
|
END AS FLCG,
|
|
a.CDCFFM,
|
|
a.CSPEFM,
|
|
a.CDBOFM,
|
|
a.CDDTFM,
|
|
a.FLSBFM,
|
|
b.DSCOCP ,
|
|
coalesce(f.STATOTEI, 'B') AS STATO,
|
|
coalesce(e.CODIPA, d.CODIPA) AS IPA,
|
|
f.PROGID,
|
|
c.DESC_CDBO,
|
|
a.TDOCFM,
|
|
a.NRDFFM
|
|
FROM &DT/FTMOVPE55V as a
|
|
JOIN &DT/CGPCO00F as b ON a.CDCFFM = b.CONTCP
|
|
JOIN &DT/CSTABDB55V as c ON a.CDBOFM = c.CDBO
|
|
LEFT OUTER JOIN &DT/FTPAE55F as d ON a.CDCFFM = d.CODCLI
|
|
AND a.DTBOFM >= d.DTIPEPPOL AND d.PEPPOL = 'S'
|
|
LEFT OUTER JOIN &DT/FTPAE55F as e ON a.CSPEFM = e.CODCLI
|
|
AND a.DTBOFM >= e.DTIPEPPOL AND d.PEPPOL = 'S'
|
|
LEFT OUTER JOIN &DT/FTPEI55F as f ON a.TDOCFM = f.TDOCFM
|
|
AND a.NRDFFM = f.NRDFFM
|
|
WHERE (f.IDSTOREI is null or f.IDSTOREI <> 'S')
|
|
AND coalesce(e.CODIPA, d.CODIPA) IS NOT NULL
|
|
)
|
|
<TAG-SCRIPT>
|
|
|
|
DROP VIEW &DT/FTBKM55V
|
|
<TAG-SCRIPT>
|
|
|
|
CREATE VIEW &DT/FTBKM55V AS
|
|
(
|
|
SELECT a.DTFTFM,
|
|
a.NRFTFM,
|
|
CASE
|
|
WHEN a.FLCGFM = '' THEN '0'
|
|
WHEN a.FLCGFM = '*' THEN '1'
|
|
END AS FLCG,
|
|
a.CDCFFM,
|
|
a.CSPEFM,
|
|
a.GIVAFM,
|
|
a.CDDTFM,
|
|
a.FLSFFM,
|
|
b.DSCOCP ,
|
|
coalesce(g.STATOTRAS, 'B') AS STATO,
|
|
coalesce(e.CODIPA, d.CODIPA) AS IPA,
|
|
g.PROGID,
|
|
c.DESC_GIVA,
|
|
coalesce(h.ALLEG, 0) AS ALLEGATO,
|
|
coalesce(G.EXTID, '') AS EXTID
|
|
FROM &DT/FTBKMAR55V as a
|
|
JOIN &DT/CGPCO00F as b ON a.CDCFFM = b.CONTCP
|
|
JOIN &DT/SMTABAR55V as c ON a.GIVAFM = c.XCODTB
|
|
LEFT OUTER JOIN &DT/FTPAE55F as d ON a.CDCFFM = d.CODCLI
|
|
AND a.DTFTFM >= d.DTIPA
|
|
LEFT OUTER JOIN &DT/FTPAE55F as e ON a.CSPEFM = e.CODCLI
|
|
AND a.DTFTFM >= e.DTIPA
|
|
LEFT OUTER JOIN &DT/FTPAF55F as f ON a.CDDTFM = f.CDDTFM
|
|
AND a.DTFTFM = f.DTFTFM
|
|
AND a.NRFTFM = f.NRFTFM
|
|
AND a.GIVAFM = f.GIVAFM
|
|
LEFT OUTER JOIN &DT/FTPAI55F as g ON f.PROGID = g.PROGID
|
|
LEFT OUTER JOIN &DT/FTPAU55V as h ON a.CDDTFM = h.CDDTFAT
|
|
AND a.DTFTFM = h.DATAFAT
|
|
AND a.NRFTFM = h.NUMFAT
|
|
AND a.GIVAFM = h.GIVAFAT
|
|
WHERE (f.storfm is null or f.STORFM <> 'S')
|
|
AND coalesce(e.CODIPA, d.CODIPA) IS NOT NULL
|
|
)
|
|
<TAG-SCRIPT>
|
|
|
|
LABEL ON TABLE &DT/FTBKM55V
|
|
IS 'Art. 55 VIEW STORICI'
|
|
<TAG-SCRIPT>
|
|
|
|
DROP VIEW &DT/FTMOV55V
|
|
<TAG-SCRIPT>
|
|
|
|
CREATE VIEW &DT/FTMOV55V AS
|
|
(
|
|
SELECT a.DTFTFM,
|
|
a.NRFTFM,
|
|
CASE
|
|
WHEN a.FLCGFM = '' THEN '0'
|
|
WHEN a.FLCGFM = '*' THEN '1'
|
|
END AS FLCG,
|
|
a.CDCFFM,
|
|
a.CSPEFM,
|
|
a.GIVAFM,
|
|
a.CDDTFM,
|
|
a.FLSFFM,
|
|
b.DSCOCP ,
|
|
coalesce(g.STATOTRAS, 'B') AS STATO,
|
|
coalesce(e.CODIPA, d.CODIPA) AS IPA,
|
|
g.PROGID,
|
|
c.DESC_GIVA,
|
|
coalesce(h.ALLEG, 0) AS ALLEGATO,
|
|
coalesce(G.EXTID, '') AS EXTID
|
|
FROM &DT/FTMOVAR55V as a
|
|
JOIN &DT/CGPCO00F as b ON a.CDCFFM = b.CONTCP
|
|
JOIN &DT/SMTABAR55V as c ON a.GIVAFM = c.XCODTB
|
|
LEFT OUTER JOIN &DT/FTPAE55F as d ON a.CDCFFM = d.CODCLI
|
|
AND a.DTFTFM >= d.DTIPA
|
|
LEFT OUTER JOIN &DT/FTPAE55F as e ON a.CSPEFM = e.CODCLI
|
|
AND a.DTFTFM >= e.DTIPA
|
|
LEFT OUTER JOIN &DT/FTPAF55F as f ON a.CDDTFM = f.CDDTFM
|
|
AND a.DTFTFM = f.DTFTFM
|
|
AND a.NRFTFM = f.NRFTFM
|
|
AND a.GIVAFM = f.GIVAFM
|
|
LEFT OUTER JOIN &DT/FTPAI55F as g ON f.PROGID = g.PROGID
|
|
LEFT OUTER JOIN &DT/FTPAU55V as h ON a.CDDTFM = h.CDDTFAT
|
|
AND a.DTFTFM = h.DATAFAT
|
|
AND a.NRFTFM = h.NUMFAT
|
|
AND a.GIVAFM = h.GIVAFAT
|
|
WHERE (f.storfm is null or f.STORFM <> 'S')
|
|
AND coalesce(e.CODIPA, d.CODIPA) IS NOT NULL
|
|
)
|
|
<TAG-SCRIPT>
|
|
|
|
LABEL ON TABLE &DT/FTMOV55V
|
|
IS 'Art. 55 VIEW ATTUALI'
|
|
|
|
<TAG-SCRIPT>
|
|
|
|
<TAG-VERSIONE-10.0.0>
|
|
<TAG-SCRIPT>
|
|
|
|
<TAG-VERSIONE-11.0.0>
|
|
<TAG-SCRIPT>
|
|
|
|
DROP VIEW &DT/FTBKM55V
|
|
<TAG-SCRIPT>
|
|
|
|
CREATE VIEW &DT/FTBKM55V AS
|
|
(
|
|
SELECT a.DTFTFM,
|
|
a.NRFTFM,
|
|
CASE
|
|
WHEN a.FLCGFM = '' THEN '0'
|
|
WHEN a.FLCGFM = '*' THEN '1'
|
|
END AS FLCG,
|
|
a.CDCFFM,
|
|
a.CSPEFM,
|
|
a.GIVAFM,
|
|
a.CDDTFM,
|
|
a.FLSFFM,
|
|
b.DSCOCP ,
|
|
coalesce(CASE WHEN coalesce(G.EXTID, '') = '' THEN g.STATOTRAS
|
|
WHEN g.STATOTRAS = 'V' and x.PROGID IS NOT NULL THEN 'C'
|
|
ELSE g.STATOTRAS END
|
|
, 'B') AS STATO,
|
|
coalesce(e.CODIPA, d.CODIPA) AS IPA,
|
|
g.PROGID,
|
|
c.DESC_GIVA,
|
|
coalesce(h.ALLEG, 0) AS ALLEGATO,
|
|
coalesce(G.EXTID, '') AS EXTID,
|
|
CASE WHEN x.PROGID IS NULL THEN '0' ELSE '1' END AS ERRORI ,
|
|
CASE WHEN coalesce(e.PAOPRIV, d.PAOPRIV) = 'R' THEN '1' ELSE '0' END AS PRIVATO,
|
|
coalesce(e.MAILPEC, d.MAILPEC) as MAILPEC,
|
|
coalesce(g.NOMEXML, ' ') AS NOMEXML
|
|
FROM &DT/FTBKMAR55V as a
|
|
JOIN &DT/CGPCO00F as b ON a.CDCFFM = b.CONTCP
|
|
JOIN &DT/SMTABAR55V as c ON a.GIVAFM = c.XCODTB
|
|
LEFT OUTER JOIN &DT/FTPAE55F as d ON a.CDCFFM = d.CODCLI
|
|
AND a.DTFTFM >= d.DTIPA
|
|
LEFT OUTER JOIN &DT/FTPAE55F as e ON a.CSPEFM = e.CODCLI
|
|
AND a.DTFTFM >= e.DTIPA
|
|
LEFT OUTER JOIN &DT/FTPAF55F as f ON a.CDDTFM = f.CDDTFM
|
|
AND a.DTFTFM = f.DTFTFM
|
|
AND a.NRFTFM = f.NRFTFM
|
|
AND a.GIVAFM = f.GIVAFM
|
|
LEFT OUTER JOIN &DT/FTPAI55F as g ON f.PROGID = g.PROGID
|
|
LEFT OUTER JOIN &DT/FTPAU55V as h ON a.CDDTFM = h.CDDTFAT
|
|
AND a.DTFTFM = h.DATAFAT
|
|
AND a.NRFTFM = h.NUMFAT
|
|
AND a.GIVAFM = h.GIVAFAT
|
|
LEFT OUTER JOIN &DT/FTPAX55F as x ON (g.PROGID = x.PROGID and x.PROGRIGA = 0)
|
|
WHERE (f.storfm is null or f.STORFM <> 'S')
|
|
AND coalesce(e.CODIPA, d.CODIPA) IS NOT NULL
|
|
)
|
|
|
|
<TAG-SCRIPT>
|
|
|
|
LABEL ON TABLE &DT/FTBKM55V
|
|
IS 'Art. 55 VIEW STORICI'
|
|
<TAG-SCRIPT>
|
|
|
|
DROP VIEW &DT/FTMOV55V
|
|
<TAG-SCRIPT>
|
|
|
|
CREATE VIEW &DT/FTMOV55V AS
|
|
(
|
|
SELECT a.DTFTFM,
|
|
a.NRFTFM,
|
|
CASE
|
|
WHEN a.FLCGFM = '' THEN '0'
|
|
WHEN a.FLCGFM = '*' THEN '1'
|
|
END AS FLCG,
|
|
a.CDCFFM,
|
|
a.CSPEFM,
|
|
a.GIVAFM,
|
|
a.CDDTFM,
|
|
a.FLSFFM,
|
|
b.DSCOCP ,
|
|
coalesce(CASE WHEN coalesce(G.EXTID, '') = '' THEN g.STATOTRAS
|
|
WHEN g.STATOTRAS = 'V' and x.PROGID IS NOT NULL THEN 'C'
|
|
ELSE g.STATOTRAS END
|
|
, 'B') AS STATO,
|
|
coalesce(e.CODIPA, d.CODIPA) AS IPA,
|
|
g.PROGID,
|
|
c.DESC_GIVA,
|
|
coalesce(h.ALLEG, 0) AS ALLEGATO,
|
|
coalesce(G.EXTID, '') AS EXTID,
|
|
CASE WHEN x.PROGID IS NULL THEN '0' ELSE '1' END AS ERRORI ,
|
|
CASE WHEN coalesce(e.PAOPRIV, d.PAOPRIV) = 'R' THEN '1' ELSE '0' END AS PRIVATO,
|
|
coalesce(e.MAILPEC, d.MAILPEC) as MAILPEC,
|
|
coalesce(g.NOMEXML, ' ') AS NOMEXML
|
|
FROM &DT/FTMOVAR55V as a
|
|
JOIN &DT/CGPCO00F as b ON a.CDCFFM = b.CONTCP
|
|
JOIN &DT/SMTABAR55V as c ON a.GIVAFM = c.XCODTB
|
|
LEFT OUTER JOIN &DT/FTPAE55F as d ON a.CDCFFM = d.CODCLI
|
|
AND a.DTFTFM >= d.DTIPA
|
|
LEFT OUTER JOIN &DT/FTPAE55F as e ON a.CSPEFM = e.CODCLI
|
|
AND a.DTFTFM >= e.DTIPA
|
|
LEFT OUTER JOIN &DT/FTPAF55F as f ON a.CDDTFM = f.CDDTFM
|
|
AND a.DTFTFM = f.DTFTFM
|
|
AND a.NRFTFM = f.NRFTFM
|
|
AND a.GIVAFM = f.GIVAFM
|
|
LEFT OUTER JOIN &DT/FTPAI55F as g ON f.PROGID = g.PROGID
|
|
LEFT OUTER JOIN &DT/FTPAU55V as h ON a.CDDTFM = h.CDDTFAT
|
|
AND a.DTFTFM = h.DATAFAT
|
|
AND a.NRFTFM = h.NUMFAT
|
|
AND a.GIVAFM = h.GIVAFAT
|
|
LEFT OUTER JOIN &DT/FTPAX55F as x ON (g.PROGID = x.PROGID and x.PROGRIGA = 0)
|
|
WHERE (f.storfm is null or f.STORFM <> 'S')
|
|
AND coalesce(e.CODIPA, d.CODIPA) IS NOT NULL
|
|
)
|
|
|
|
<TAG-SCRIPT>
|
|
|
|
LABEL ON TABLE &DT/FTMOV55V
|
|
IS 'Art. 55 VIEW ATTUALI'
|
|
<TAG-SCRIPT>
|
|
|
|
<TAG-VERSIONE-12.0.0>
|
|
<TAG-SCRIPT>
|
|
|
|
DROP VIEW &DT/FTBKM55V
|
|
<TAG-SCRIPT>
|
|
|
|
CREATE VIEW &DT/FTBKM55V AS
|
|
(
|
|
SELECT a.DTFTFM,
|
|
a.NRFTFM,
|
|
CASE
|
|
WHEN a.FLCGFM = '' THEN '0'
|
|
WHEN a.FLCGFM = '*' THEN '1'
|
|
END AS FLCG,
|
|
a.CDCFFM,
|
|
a.CSPEFM,
|
|
a.GIVAFM,
|
|
a.CDDTFM,
|
|
a.FLSFFM,
|
|
b.DSCOCP ,
|
|
coalesce(CASE WHEN coalesce(G.EXTID, '') = '' THEN g.STATOTRAS
|
|
WHEN g.STATOTRAS = 'V' and x.PROGID IS NOT NULL THEN 'C'
|
|
ELSE g.STATOTRAS END
|
|
, 'B') AS STATO,
|
|
case when coalesce(d.PAOPRIV ,'') = 'R' THEN d.CODIPA ELSE coalesce(e.CODIPA, d.CODIPA) END AS IPA ,
|
|
g.PROGID,
|
|
c.DESC_GIVA,
|
|
coalesce(h.ALLEG, 0) AS ALLEGATO,
|
|
coalesce(G.EXTID, '') AS EXTID,
|
|
CASE WHEN x.PROGID IS NULL THEN '0' ELSE '1' END AS ERRORI ,
|
|
CASE WHEN coalesce(d.PAOPRIV, '') = 'R' THEN '1' ELSE '0' END AS PRIVATO,
|
|
coalesce(d.MAILPEC, SPACE(256)) as MAILPEC,
|
|
coalesce(g.NOMEXML, ' ') AS NOMEXML
|
|
FROM &DT/FTBKMAR55V as a
|
|
JOIN &DT/CGPCO00F as b ON a.CDCFFM = b.CONTCP
|
|
JOIN &DT/SMTABAR55V as c ON a.GIVAFM = c.XCODTB
|
|
LEFT OUTER JOIN &DT/FTPAE55F as d ON
|
|
d.CDDITTA = ''
|
|
AND a.CDCFFM = d.CODCLI
|
|
AND a.DTFTFM >= d.DTIPA
|
|
LEFT OUTER JOIN &DT/FTPAE55F as e ON
|
|
e.CDDITTA = ''
|
|
AND a.CSPEFM = e.CODCLI
|
|
AND e.PAOPRIV = ' '
|
|
AND a.DTFTFM >= e.DTIPA
|
|
LEFT OUTER JOIN &DT/FTPAF55F as f ON a.CDDTFM = f.CDDTFM
|
|
AND a.DTFTFM = f.DTFTFM
|
|
AND a.NRFTFM = f.NRFTFM
|
|
AND a.GIVAFM = f.GIVAFM
|
|
LEFT OUTER JOIN &DT/FTPAI55F as g ON f.PROGID = g.PROGID
|
|
LEFT OUTER JOIN &DT/FTPAU55V as h ON a.CDDTFM = h.CDDTFAT
|
|
AND a.DTFTFM = h.DATAFAT
|
|
AND a.NRFTFM = h.NUMFAT
|
|
AND a.GIVAFM = h.GIVAFAT
|
|
LEFT OUTER JOIN &DT/FTPAX55F as x ON (g.PROGID = x.PROGID and x.PROGRIGA = 0)
|
|
WHERE (f.storfm is null or f.STORFM <> 'S')
|
|
AND coalesce(e.CODIPA, d.CODIPA) IS NOT NULL
|
|
)
|
|
<TAG-SCRIPT>
|
|
|
|
LABEL ON TABLE &DT/FTBKM55V
|
|
IS 'Art. 55 VIEW STORICI'
|
|
<TAG-SCRIPT>
|
|
|
|
DROP VIEW &DT/FTMOV55V
|
|
<TAG-SCRIPT>
|
|
|
|
CREATE VIEW &DT/FTMOV55V AS
|
|
(
|
|
SELECT a.DTFTFM,
|
|
a.NRFTFM,
|
|
CASE
|
|
WHEN a.FLCGFM = '' THEN '0'
|
|
WHEN a.FLCGFM = '*' THEN '1'
|
|
END AS FLCG,
|
|
a.CDCFFM,
|
|
a.CSPEFM,
|
|
a.GIVAFM,
|
|
a.CDDTFM,
|
|
a.FLSFFM,
|
|
b.DSCOCP ,
|
|
coalesce(CASE WHEN coalesce(G.EXTID, '') = '' THEN g.STATOTRAS
|
|
WHEN g.STATOTRAS = 'V' and x.PROGID IS NOT NULL THEN 'C'
|
|
ELSE g.STATOTRAS END
|
|
, 'B') AS STATO,
|
|
case when coalesce(d.PAOPRIV ,'') = 'R' THEN d.CODIPA ELSE coalesce(e.CODIPA, d.CODIPA) END AS IPA ,
|
|
g.PROGID,
|
|
c.DESC_GIVA,
|
|
coalesce(h.ALLEG, 0) AS ALLEGATO,
|
|
coalesce(G.EXTID, '') AS EXTID,
|
|
CASE WHEN x.PROGID IS NULL THEN '0' ELSE '1' END AS ERRORI ,
|
|
CASE WHEN coalesce(d.PAOPRIV, '') = 'R' THEN '1' ELSE '0' END AS PRIVATO,
|
|
coalesce(d.MAILPEC, SPACE(256)) as MAILPEC,
|
|
coalesce(g.NOMEXML, ' ') AS NOMEXML
|
|
FROM &DT/FTMOVAR55V as a
|
|
JOIN &DT/CGPCO00F as b ON a.CDCFFM = b.CONTCP
|
|
JOIN &DT/SMTABAR55V as c ON a.GIVAFM = c.XCODTB
|
|
LEFT OUTER JOIN &DT/FTPAE55F as d ON
|
|
d.CDDITTA = ''
|
|
AND a.CDCFFM = d.CODCLI
|
|
AND a.DTFTFM >= d.DTIPA
|
|
LEFT OUTER JOIN &DT/FTPAE55F as e ON
|
|
e.CDDITTA = ''
|
|
AND a.CSPEFM = e.CODCLI
|
|
AND e.PAOPRIV = ' '
|
|
AND a.DTFTFM >= e.DTIPA
|
|
LEFT OUTER JOIN &DT/FTPAF55F as f ON a.CDDTFM = f.CDDTFM
|
|
AND a.DTFTFM = f.DTFTFM
|
|
AND a.NRFTFM = f.NRFTFM
|
|
AND a.GIVAFM = f.GIVAFM
|
|
LEFT OUTER JOIN &DT/FTPAI55F as g ON f.PROGID = g.PROGID
|
|
LEFT OUTER JOIN &DT/FTPAU55V as h ON a.CDDTFM = h.CDDTFAT
|
|
AND a.DTFTFM = h.DATAFAT
|
|
AND a.NRFTFM = h.NUMFAT
|
|
AND a.GIVAFM = h.GIVAFAT
|
|
LEFT OUTER JOIN &DT/FTPAX55F as x ON (g.PROGID = x.PROGID and x.PROGRIGA = 0)
|
|
WHERE (f.storfm is null or f.STORFM <> 'S')
|
|
AND coalesce(e.CODIPA, d.CODIPA) IS NOT NULL
|
|
)
|
|
<TAG-SCRIPT>
|
|
|
|
LABEL ON TABLE &DT/FTMOV55V
|
|
IS 'Art. 55 VIEW ATTUALI'
|
|
<TAG-SCRIPT>
|
|
|
|
<TAG-VERSIONE-13.0.0>
|
|
<TAG-SCRIPT>
|
|
|
|
DROP VIEW &DT/FTBKM55V
|
|
<TAG-SCRIPT>
|
|
|
|
DROP VIEW &DT/FTBKMAR55V
|
|
<TAG-SCRIPT>
|
|
|
|
CREATE VIEW &DT/FTBKMAR55V as (
|
|
SELECT f.*,
|
|
CASE WHEN coalesce(af.CIFAFMA , '') = '' THEN f.CDCFFM ELSE af.CIFAFMA END AS CIFAFMA
|
|
FROM &DT/ftbkm00f AS F
|
|
LEFT JOIN &DT/FTBKMA0F AS af ON
|
|
f.CDDTFM = af.CDDTFMA AND
|
|
f.TDOCFM = af.TDOCFMA AND
|
|
f.NRDFFM = af.NRDFFMA AND
|
|
f.NRRGFM = af.NRRGFMA AND
|
|
f.NSRGFM = af.NSRGFMA
|
|
WHERE f.CDDTFM ='01' AND f.NRFTFM > 0
|
|
AND f.NRFTFM <> 9999999
|
|
AND f.DTFTFM >= 20140601
|
|
AND f.FLSFFM = '*')
|
|
<TAG-SCRIPT>
|
|
|
|
LABEL ON TABLE &DT/FTBKMAR55V
|
|
IS 'Art. 55 VIEW FTBKM00F'
|
|
<TAG-SCRIPT>
|
|
|
|
CREATE VIEW &DT/FTBKM55V AS
|
|
(
|
|
SELECT a.DTFTFM,
|
|
a.NRFTFM,
|
|
CASE
|
|
WHEN a.FLCGFM = '' THEN '0'
|
|
WHEN a.FLCGFM = '*' THEN '1'
|
|
END AS FLCG,
|
|
a.CIFAFMA AS CDCFFM,
|
|
a.CDCFFM AS f0CDCFFM,
|
|
a.CSPEFM,
|
|
a.GIVAFM,
|
|
a.CDDTFM,
|
|
a.FLSFFM,
|
|
b.DSCOCP ,
|
|
coalesce(CASE WHEN coalesce(G.EXTID, '') = '' THEN g.STATOTRAS
|
|
WHEN g.STATOTRAS = 'V' and x.PROGID IS NOT NULL THEN 'C'
|
|
ELSE g.STATOTRAS END
|
|
, 'B') AS STATO,
|
|
case when coalesce(d.PAOPRIV ,'') = 'R' THEN d.CODIPA ELSE coalesce(e.CODIPA, d.CODIPA) END AS IPA ,
|
|
g.PROGID,
|
|
c.DESC_GIVA,
|
|
coalesce(h.ALLEG, 0) AS ALLEGATO,
|
|
coalesce(G.EXTID, '') AS EXTID,
|
|
CASE WHEN x.PROGID IS NULL THEN '0' ELSE '1' END AS ERRORI ,
|
|
CASE WHEN coalesce(d.PAOPRIV, '') = 'R' THEN '1' ELSE '0' END AS PRIVATO,
|
|
coalesce(d.MAILPEC, SPACE(256)) as MAILPEC,
|
|
coalesce(g.NOMEXML, ' ') AS NOMEXML
|
|
FROM &DT/FTBKMAR55V as a
|
|
JOIN &DT/CGPCO00F as b ON a.CIFAFMA = b.CONTCP
|
|
JOIN &DT/SMTABAR55V as c ON a.GIVAFM = c.XCODTB
|
|
LEFT OUTER JOIN &DT/FTPAE55F as d ON
|
|
d.CDDITTA = ''
|
|
AND a.CIFAFMA = d.CODCLI
|
|
AND a.DTFTFM >= d.DTIPA
|
|
LEFT OUTER JOIN &DT/FTPAE55F as e ON
|
|
e.CDDITTA = ''
|
|
AND a.CSPEFM = e.CODCLI
|
|
AND e.PAOPRIV = ' '
|
|
AND a.DTFTFM >= e.DTIPA
|
|
LEFT OUTER JOIN &DT/FTPAF55F as f ON a.CDDTFM = f.CDDTFM
|
|
AND a.DTFTFM = f.DTFTFM
|
|
AND a.NRFTFM = f.NRFTFM
|
|
AND a.GIVAFM = f.GIVAFM
|
|
LEFT OUTER JOIN &DT/FTPAI55F as g ON f.PROGID = g.PROGID
|
|
LEFT OUTER JOIN &DT/FTPAU55V as h ON a.CDDTFM = h.CDDTFAT
|
|
AND a.DTFTFM = h.DATAFAT
|
|
AND a.NRFTFM = h.NUMFAT
|
|
AND a.GIVAFM = h.GIVAFAT
|
|
LEFT OUTER JOIN &DT/FTPAX55F as x ON (g.PROGID = x.PROGID and x.PROGRIGA = 0)
|
|
WHERE (f.storfm is null or f.STORFM <> 'S')
|
|
AND coalesce(e.CODIPA, d.CODIPA) IS NOT NULL
|
|
)
|
|
<TAG-SCRIPT>
|
|
|
|
LABEL ON TABLE &DT/FTBKM55V
|
|
IS 'Art. 55 VIEW STORICI'
|
|
<TAG-SCRIPT>
|
|
|
|
DROP VIEW &DT/FTMOV55V
|
|
<TAG-SCRIPT>
|
|
|
|
DROP VIEW &DT/FTMOVAR55V
|
|
<TAG-SCRIPT>
|
|
|
|
CREATE VIEW &DT/FTMOVAR55V as (
|
|
SELECT f.*,
|
|
CASE WHEN coalesce(af.CIFAFMA , '') = '' THEN f.CDCFFM ELSE af.CIFAFMA END AS CIFAFMA
|
|
FROM &DT/ftmov00f AS f
|
|
LEFT JOIN &DT/FTMOVA0F AS af ON
|
|
f.CDDTFM = af.CDDTFMA AND
|
|
f.TDOCFM = af.TDOCFMA AND
|
|
f.NRDFFM = af.NRDFFMA AND
|
|
f.NRRGFM = af.NRRGFMA AND
|
|
f.NSRGFM = af.NSRGFMA
|
|
WHERE f.CDDTFM ='01' AND f.NRFTFM > 0
|
|
AND f.NRFTFM <> 9999999
|
|
AND f.DTFTFM >= 20140601
|
|
AND f.FLSFFM = '*')
|
|
<TAG-SCRIPT>
|
|
|
|
LABEL ON TABLE &DT/FTMOVAR55V
|
|
IS 'Art. 55 VIEW FTMOV00F'
|
|
<TAG-SCRIPT>
|
|
|
|
CREATE VIEW &DT/FTMOV55V AS
|
|
(
|
|
SELECT a.DTFTFM,
|
|
a.NRFTFM,
|
|
CASE
|
|
WHEN a.FLCGFM = '' THEN '0'
|
|
WHEN a.FLCGFM = '*' THEN '1'
|
|
END AS FLCG,
|
|
a.CIFAFMA AS CDCFFM,
|
|
a.CDCFFM AS f0CDCFFM,
|
|
a.CSPEFM,
|
|
a.GIVAFM,
|
|
a.CDDTFM,
|
|
a.FLSFFM,
|
|
b.DSCOCP ,
|
|
coalesce(CASE WHEN coalesce(G.EXTID, '') = '' THEN g.STATOTRAS
|
|
WHEN g.STATOTRAS = 'V' and x.PROGID IS NOT NULL THEN 'C'
|
|
ELSE g.STATOTRAS END
|
|
, 'B') AS STATO,
|
|
case when coalesce(d.PAOPRIV ,'') = 'R' THEN d.CODIPA ELSE coalesce(e.CODIPA, d.CODIPA) END AS IPA ,
|
|
g.PROGID,
|
|
c.DESC_GIVA,
|
|
coalesce(h.ALLEG, 0) AS ALLEGATO,
|
|
coalesce(G.EXTID, '') AS EXTID,
|
|
CASE WHEN x.PROGID IS NULL THEN '0' ELSE '1' END AS ERRORI ,
|
|
CASE WHEN coalesce(d.PAOPRIV, '') = 'R' THEN '1' ELSE '0' END AS PRIVATO,
|
|
coalesce(d.MAILPEC, SPACE(256)) as MAILPEC,
|
|
coalesce(g.NOMEXML, ' ') AS NOMEXML
|
|
FROM &DT/FTMOVAR55V as a
|
|
JOIN &DT/CGPCO00F as b ON a.CIFAFMA = b.CONTCP
|
|
JOIN &DT/SMTABAR55V as c ON a.GIVAFM = c.XCODTB
|
|
LEFT OUTER JOIN &DT/FTPAE55F as d ON
|
|
d.CDDITTA = ''
|
|
AND a.CIFAFMA = d.CODCLI
|
|
AND a.DTFTFM >= d.DTIPA
|
|
LEFT OUTER JOIN &DT/FTPAE55F as e ON
|
|
e.CDDITTA = ''
|
|
AND a.CSPEFM = e.CODCLI
|
|
AND e.PAOPRIV = ' '
|
|
AND a.DTFTFM >= e.DTIPA
|
|
LEFT OUTER JOIN &DT/FTPAF55F as f ON a.CDDTFM = f.CDDTFM
|
|
AND a.DTFTFM = f.DTFTFM
|
|
AND a.NRFTFM = f.NRFTFM
|
|
AND a.GIVAFM = f.GIVAFM
|
|
LEFT OUTER JOIN &DT/FTPAI55F as g ON f.PROGID = g.PROGID
|
|
LEFT OUTER JOIN &DT/FTPAU55V as h ON a.CDDTFM = h.CDDTFAT
|
|
AND a.DTFTFM = h.DATAFAT
|
|
AND a.NRFTFM = h.NUMFAT
|
|
AND a.GIVAFM = h.GIVAFAT
|
|
LEFT OUTER JOIN &DT/FTPAX55F as x ON (g.PROGID = x.PROGID and x.PROGRIGA = 0)
|
|
WHERE (f.storfm is null or f.STORFM <> 'S')
|
|
AND coalesce(e.CODIPA, d.CODIPA) IS NOT NULL
|
|
)
|
|
<TAG-SCRIPT>
|
|
|
|
LABEL ON TABLE &DT/FTMOV55V
|
|
IS 'Art. 55 VIEW ATTUALI'
|
|
<TAG-SCRIPT>
|
|
|
|
<TAG-VERSIONE-14.0.0>
|
|
<TAG-SCRIPT>
|
|
<TAG-VERSIONE-14.1.0>
|
|
<TAG-SCRIPT>
|
|
|
|
DROP VIEW &DT/FTBKM55V
|
|
<TAG-SCRIPT>
|
|
|
|
CREATE VIEW &DT/FTBKM55V AS
|
|
(
|
|
SELECT a.DTFTFM,
|
|
a.NRFTFM,
|
|
CASE
|
|
WHEN a.FLCGFM = '' THEN '0'
|
|
WHEN a.FLCGFM = '*' THEN '1'
|
|
END AS FLCG,
|
|
a.CIFAFMA AS CDCFFM,
|
|
a.CDCFFM AS f0CDCFFM,
|
|
a.CSPEFM,
|
|
a.GIVAFM,
|
|
a.CDDTFM,
|
|
a.FLSFFM,
|
|
b.DSCOCP ,
|
|
coalesce(CASE
|
|
WHEN g.STATOTRAS = 'T' and x.PROGID IS NOT NULL THEN 'E'
|
|
WHEN coalesce(G.EXTID, '') = '' THEN g.STATOTRAS
|
|
WHEN g.STATOTRAS = 'V' and x.PROGID IS NOT NULL THEN 'C'
|
|
ELSE g.STATOTRAS END
|
|
, 'B') AS STATO,
|
|
case when coalesce(d.PAOPRIV ,'') = 'R' THEN d.CODIPA ELSE coalesce(e.CODIPA, d.CODIPA) END AS IPA ,
|
|
g.PROGID,
|
|
c.DESC_GIVA,
|
|
coalesce(h.ALLEG, 0) AS ALLEGATO,
|
|
coalesce(G.EXTID, '') AS EXTID,
|
|
CASE WHEN x.PROGID IS NULL THEN '0' ELSE '1' END AS ERRORI ,
|
|
CASE WHEN coalesce(d.PAOPRIV, '') = 'R' THEN '1' ELSE '0' END AS PRIVATO,
|
|
coalesce(d.MAILPEC, SPACE(256)) as MAILPEC,
|
|
coalesce(g.NOMEXML, ' ') AS NOMEXML,
|
|
coalesce(g.SERVTRA, ' ') AS SERVTRA,
|
|
coalesce(f.NUMEFATT,' ') AS NUMEFATT
|
|
FROM &DT/FTBKMAR55V as a
|
|
JOIN &DT/CGPCO00F as b ON a.CIFAFMA = b.CONTCP
|
|
JOIN &DT/SMTABAR55V as c ON a.GIVAFM = c.XCODTB
|
|
LEFT OUTER JOIN &DT/FTPAE55F as d ON
|
|
d.CDDITTA = ''
|
|
AND a.CIFAFMA = d.CODCLI
|
|
AND a.DTFTFM >= d.DTIPA
|
|
LEFT OUTER JOIN &DT/FTPAE55F as e ON
|
|
e.CDDITTA = ''
|
|
AND a.CSPEFM = e.CODCLI
|
|
AND e.PAOPRIV = ' '
|
|
AND a.DTFTFM >= e.DTIPA
|
|
LEFT OUTER JOIN &DT/FTPAF55F as f ON a.CDDTFM = f.CDDTFM
|
|
AND a.DTFTFM = f.DTFTFM
|
|
AND a.NRFTFM = f.NRFTFM
|
|
AND a.GIVAFM = f.GIVAFM
|
|
LEFT OUTER JOIN &DT/FTPAI55F as g ON f.PROGID = g.PROGID
|
|
LEFT OUTER JOIN &DT/FTPAU55V as h ON a.CDDTFM = h.CDDTFAT
|
|
AND a.DTFTFM = h.DATAFAT
|
|
AND a.NRFTFM = h.NUMFAT
|
|
AND a.GIVAFM = h.GIVAFAT
|
|
LEFT OUTER JOIN &DT/FTPAX55F as x ON (g.PROGID = x.PROGID and x.PROGRIGA = 0)
|
|
WHERE (f.storfm is null or f.STORFM <> 'S')
|
|
AND coalesce(e.CODIPA, d.CODIPA) IS NOT NULL
|
|
)
|
|
<TAG-SCRIPT>
|
|
|
|
LABEL ON TABLE &DT/FTBKM55V
|
|
IS 'Art. 55 VIEW STORICI'
|
|
<TAG-SCRIPT>
|
|
|
|
DROP VIEW &DT/FTMOV55V
|
|
<TAG-SCRIPT>
|
|
|
|
CREATE VIEW &DT/FTMOV55V AS
|
|
(
|
|
SELECT a.DTFTFM,
|
|
a.NRFTFM,
|
|
CASE
|
|
WHEN a.FLCGFM = '' THEN '0'
|
|
WHEN a.FLCGFM = '*' THEN '1'
|
|
END AS FLCG,
|
|
a.CIFAFMA AS CDCFFM,
|
|
a.CDCFFM AS f0CDCFFM,
|
|
a.CSPEFM,
|
|
a.GIVAFM,
|
|
a.CDDTFM,
|
|
a.FLSFFM,
|
|
b.DSCOCP ,
|
|
coalesce(CASE
|
|
WHEN g.STATOTRAS = 'T' and x.PROGID IS NOT NULL THEN 'E'
|
|
WHEN coalesce(G.EXTID, '') = '' THEN g.STATOTRAS
|
|
WHEN g.STATOTRAS = 'V' and x.PROGID IS NOT NULL THEN 'C'
|
|
ELSE g.STATOTRAS END
|
|
, 'B') AS STATO,
|
|
case when coalesce(d.PAOPRIV ,'') = 'R' THEN d.CODIPA ELSE coalesce(e.CODIPA, d.CODIPA) END AS IPA ,
|
|
g.PROGID,
|
|
c.DESC_GIVA,
|
|
coalesce(h.ALLEG, 0) AS ALLEGATO,
|
|
coalesce(G.EXTID, '') AS EXTID,
|
|
CASE WHEN x.PROGID IS NULL THEN '0' ELSE '1' END AS ERRORI ,
|
|
CASE WHEN coalesce(d.PAOPRIV, '') = 'R' THEN '1' ELSE '0' END AS PRIVATO,
|
|
coalesce(d.MAILPEC, SPACE(256)) as MAILPEC,
|
|
coalesce(g.NOMEXML, ' ') AS NOMEXML,
|
|
coalesce(g.SERVTRA, ' ') AS SERVTRA,
|
|
coalesce(f.NUMEFATT,' ') AS NUMEFATT
|
|
FROM &DT/FTMOVAR55V as a
|
|
JOIN &DT/CGPCO00F as b ON a.CIFAFMA = b.CONTCP
|
|
JOIN &DT/SMTABAR55V as c ON a.GIVAFM = c.XCODTB
|
|
LEFT OUTER JOIN &DT/FTPAE55F as d ON
|
|
d.CDDITTA = ''
|
|
AND a.CIFAFMA = d.CODCLI
|
|
AND a.DTFTFM >= d.DTIPA
|
|
LEFT OUTER JOIN &DT/FTPAE55F as e ON
|
|
e.CDDITTA = ''
|
|
AND a.CSPEFM = e.CODCLI
|
|
AND e.PAOPRIV = ' '
|
|
AND a.DTFTFM >= e.DTIPA
|
|
LEFT OUTER JOIN &DT/FTPAF55F as f ON a.CDDTFM = f.CDDTFM
|
|
AND a.DTFTFM = f.DTFTFM
|
|
AND a.NRFTFM = f.NRFTFM
|
|
AND a.GIVAFM = f.GIVAFM
|
|
LEFT OUTER JOIN &DT/FTPAI55F as g ON f.PROGID = g.PROGID
|
|
LEFT OUTER JOIN &DT/FTPAU55V as h ON a.CDDTFM = h.CDDTFAT
|
|
AND a.DTFTFM = h.DATAFAT
|
|
AND a.NRFTFM = h.NUMFAT
|
|
AND a.GIVAFM = h.GIVAFAT
|
|
LEFT OUTER JOIN &DT/FTPAX55F as x ON (g.PROGID = x.PROGID and x.PROGRIGA = 0)
|
|
WHERE (f.storfm is null or f.STORFM <> 'S')
|
|
AND coalesce(e.CODIPA, d.CODIPA) IS NOT NULL
|
|
)
|
|
<TAG-SCRIPT>
|
|
|
|
LABEL ON TABLE &DT/FTMOV55V
|
|
IS 'Art. 55 VIEW ATTUALI'
|
|
<TAG-SCRIPT>
|
|
|
|
CREATE VIEW &DT/FTMOVNE55V AS
|
|
(
|
|
SELECT a.DTFTFM,
|
|
a.NRFTFM,
|
|
CASE
|
|
WHEN a.FLCGFM = '' THEN '0'
|
|
WHEN a.FLCGFM = '*' THEN '1'
|
|
END AS FLCG,
|
|
a.CIFAFMA AS CDCFFM,
|
|
a.CDCFFM AS f0CDCFFM,
|
|
a.CSPEFM,
|
|
a.GIVAFM,
|
|
a.CDDTFM,
|
|
a.FLSFFM,
|
|
b.DSCOCP ,
|
|
d.CISOCA ,
|
|
d.PIVACA ,
|
|
d.CDFICA ,
|
|
c.DESC_GIVA
|
|
FROM &DT/FTMOVAR55V as a
|
|
JOIN &DT/CGPCO00F as b ON a.CIFAFMA = b.CONTCP
|
|
JOIN &DT/SMTABAR55V as c ON a.GIVAFM = c.XCODTB
|
|
JOIN &DT/CGANA00F as d ON d.CONTCA = b.CONTCP
|
|
EXCEPTION JOIN &DT/FTPAE55F as e ON
|
|
e.CDDITTA = ''
|
|
AND a.CIFAFMA = e.CODCLI
|
|
EXCEPTION JOIN &DT/FTPAE55F as f ON
|
|
f.CDDITTA = ''
|
|
AND a.CSPEFM = f.CODCLI
|
|
AND f.PAOPRIV = ' '
|
|
WHERE (a.FLCGFM = '*')
|
|
)
|
|
<TAG-SCRIPT>
|
|
|
|
LABEL ON TABLE &DT/FTMOVNE55V
|
|
IS 'Art. 55 VIEW ATTUALI NON ESTRAIBILI'
|
|
<TAG-SCRIPT>
|
|
|
|
CREATE VIEW &DT/FTBKMNE55V AS
|
|
(
|
|
SELECT a.DTFTFM,
|
|
a.NRFTFM,
|
|
CASE
|
|
WHEN a.FLCGFM = '' THEN '0'
|
|
WHEN a.FLCGFM = '*' THEN '1'
|
|
END AS FLCG,
|
|
a.CIFAFMA AS CDCFFM,
|
|
a.CDCFFM AS f0CDCFFM,
|
|
a.CSPEFM,
|
|
a.GIVAFM,
|
|
a.CDDTFM,
|
|
a.FLSFFM,
|
|
b.DSCOCP ,
|
|
d.CISOCA ,
|
|
d.PIVACA ,
|
|
d.CDFICA ,
|
|
c.DESC_GIVA
|
|
FROM &DT/FTBKMAR55V as a
|
|
JOIN &DT/CGPCO00F as b ON a.CIFAFMA = b.CONTCP
|
|
JOIN &DT/SMTABAR55V as c ON a.GIVAFM = c.XCODTB
|
|
JOIN &DT/CGANA00F as d ON d.CONTCA = b.CONTCP
|
|
EXCEPTION JOIN &DT/FTPAE55F as e ON
|
|
e.CDDITTA = ''
|
|
AND a.CIFAFMA = e.CODCLI
|
|
EXCEPTION JOIN &DT/FTPAE55F as f ON
|
|
f.CDDITTA = ''
|
|
AND a.CSPEFM = f.CODCLI
|
|
AND f.PAOPRIV = ' '
|
|
WHERE (a.FLCGFM = '*')
|
|
)
|
|
<TAG-SCRIPT>
|
|
|
|
LABEL ON TABLE &DT/FTBKMNE55V
|
|
IS 'Art. 55 VIEW STORICI NON ESTRAIBILI'
|
|
<TAG-SCRIPT>
|
|
|
|
<TAG-VERSIONE-15.0.0>
|
|
<TAG-SCRIPT>
|
|
|
|
DROP VIEW &DT/FTBKM55V
|
|
<TAG-SCRIPT>
|
|
|
|
CREATE VIEW &DT/FTBKM55V AS
|
|
(
|
|
SELECT a.DTFTFM,
|
|
a.NRFTFM,
|
|
CASE
|
|
WHEN a.FLCGFM = '' THEN '0'
|
|
WHEN a.FLCGFM = '*' THEN '1'
|
|
END AS FLCG,
|
|
a.CIFAFMA AS CDCFFM,
|
|
a.CDCFFM AS f0CDCFFM,
|
|
a.CSPEFM,
|
|
a.GIVAFM,
|
|
a.CDDTFM,
|
|
a.FLSFFM,
|
|
b.DSCOCP ,
|
|
coalesce(CASE
|
|
WHEN g.STATOTRAS = 'T' and x.PROGID IS NOT NULL THEN 'E'
|
|
WHEN coalesce(G.EXTID, '') = '' THEN g.STATOTRAS
|
|
WHEN g.STATOTRAS = 'V' and x.PROGID IS NOT NULL THEN 'C'
|
|
ELSE g.STATOTRAS END
|
|
, 'B') AS STATO,
|
|
case when d.PAOPRIV IS NULL THEN '0000000' WHEN d.PAOPRIV = 'R' THEN d.CODIPA ELSE coalesce(e.CODIPA, d.CODIPA) END AS IPA,
|
|
g.PROGID,
|
|
c.DESC_GIVA,
|
|
coalesce(h.ALLEG, 0) AS ALLEGATO,
|
|
coalesce(G.EXTID, '') AS EXTID,
|
|
CASE WHEN x.PROGID IS NULL THEN '0' ELSE '1' END AS ERRORI ,
|
|
CASE WHEN d.PAOPRIV IS NULL OR d.PAOPRIV = 'R' THEN '1' ELSE '0' END AS PRIVATO,
|
|
coalesce(d.MAILPEC, SPACE(256)) as MAILPEC,
|
|
coalesce(g.NOMEXML, ' ') AS NOMEXML,
|
|
coalesce(g.SERVTRA, ' ') AS SERVTRA,
|
|
coalesce(f.NUMEFATT,' ') AS NUMEFATT
|
|
FROM &DT/FTBKMAR55V as a
|
|
JOIN &DT/CGPCO00F as b ON a.CIFAFMA = b.CONTCP
|
|
JOIN &DT/SMTABAR55V as c ON a.GIVAFM = c.XCODTB
|
|
LEFT OUTER JOIN &DT/FTPAE55F as d ON
|
|
d.CDDITTA = ''
|
|
AND a.CIFAFMA = d.CODCLI
|
|
LEFT OUTER JOIN &DT/FTPAE55F as e ON
|
|
e.CDDITTA = ''
|
|
AND a.CSPEFM = e.CODCLI
|
|
AND e.PAOPRIV = ' '
|
|
AND a.DTFTFM >= e.DTIPA
|
|
LEFT OUTER JOIN &DT/FTPAF55F as f ON a.CDDTFM = f.CDDTFM
|
|
AND a.DTFTFM = f.DTFTFM
|
|
AND a.NRFTFM = f.NRFTFM
|
|
AND a.GIVAFM = f.GIVAFM
|
|
LEFT OUTER JOIN &DT/FTPAI55F as g ON f.PROGID = g.PROGID
|
|
LEFT OUTER JOIN &DT/FTPAU55V as h ON a.CDDTFM = h.CDDTFAT
|
|
AND a.DTFTFM = h.DATAFAT
|
|
AND a.NRFTFM = h.NUMFAT
|
|
AND a.GIVAFM = h.GIVAFAT
|
|
LEFT OUTER JOIN &DT/FTPAX55F as x ON (g.PROGID = x.PROGID and x.PROGRIGA = 0)
|
|
JOIN &DT/CGANA00F as i ON i.CONTCA = b.CONTCP
|
|
LEFT JOIN &DT/FTPSET55F S ON 1=1
|
|
WHERE
|
|
(f.storfm is null or f.STORFM <> 'S')
|
|
AND
|
|
(NOT f.nrftfm IS NULL OR
|
|
COALESCE(d.esclusofe, ' ') = ' '
|
|
AND ((d.DTIPA IS NULL AND i.cisoca = 'IT' AND a.DTFTFM >= S.datainb2b
|
|
OR
|
|
(NOT d.DTIPA IS NULL AND (d.DTIPA > 0 AND a.DTFTFM >= d.DTIPA OR (d.DTIPA = 0 AND (d.PAOPRIV = ' ' OR a.DTFTFM >= S.datainb2b)))))))
|
|
)
|
|
<TAG-SCRIPT>
|
|
|
|
LABEL ON TABLE &DT/FTBKM55V
|
|
IS 'Art. 55 VIEW STORICI'
|
|
<TAG-SCRIPT>
|
|
|
|
DROP VIEW &DT/FTMOV55V
|
|
<TAG-SCRIPT>
|
|
|
|
CREATE VIEW &DT/FTMOV55V AS
|
|
(
|
|
SELECT a.DTFTFM,
|
|
a.NRFTFM,
|
|
CASE
|
|
WHEN a.FLCGFM = '' THEN '0'
|
|
WHEN a.FLCGFM = '*' THEN '1'
|
|
END AS FLCG,
|
|
a.CIFAFMA AS CDCFFM,
|
|
a.CDCFFM AS f0CDCFFM,
|
|
a.CSPEFM,
|
|
a.GIVAFM,
|
|
a.CDDTFM,
|
|
a.FLSFFM,
|
|
b.DSCOCP ,
|
|
coalesce(CASE
|
|
WHEN g.STATOTRAS = 'T' and x.PROGID IS NOT NULL THEN 'E'
|
|
WHEN coalesce(G.EXTID, '') = '' THEN g.STATOTRAS
|
|
WHEN g.STATOTRAS = 'V' and x.PROGID IS NOT NULL THEN 'C'
|
|
ELSE g.STATOTRAS END
|
|
, 'B') AS STATO,
|
|
case when d.PAOPRIV IS NULL THEN '0000000' WHEN d.PAOPRIV = 'R' THEN d.CODIPA ELSE coalesce(e.CODIPA, d.CODIPA) END AS IPA,
|
|
g.PROGID,
|
|
c.DESC_GIVA,
|
|
coalesce(h.ALLEG, 0) AS ALLEGATO,
|
|
coalesce(G.EXTID, '') AS EXTID,
|
|
CASE WHEN x.PROGID IS NULL THEN '0' ELSE '1' END AS ERRORI ,
|
|
CASE WHEN d.PAOPRIV IS NULL OR d.PAOPRIV = 'R' THEN '1' ELSE '0' END AS PRIVATO,
|
|
coalesce(d.MAILPEC, SPACE(256)) as MAILPEC,
|
|
coalesce(g.NOMEXML, ' ') AS NOMEXML,
|
|
coalesce(g.SERVTRA, ' ') AS SERVTRA,
|
|
coalesce(f.NUMEFATT,' ') AS NUMEFATT
|
|
FROM &DT/FTMOVAR55V as a
|
|
JOIN &DT/CGPCO00F as b ON a.CIFAFMA = b.CONTCP
|
|
JOIN &DT/SMTABAR55V as c ON a.GIVAFM = c.XCODTB
|
|
LEFT OUTER JOIN &DT/FTPAE55F as d ON
|
|
d.CDDITTA = ''
|
|
AND a.CIFAFMA = d.CODCLI
|
|
LEFT OUTER JOIN &DT/FTPAE55F as e ON
|
|
e.CDDITTA = ''
|
|
AND a.CSPEFM = e.CODCLI
|
|
AND e.PAOPRIV = ' '
|
|
AND a.DTFTFM >= e.DTIPA
|
|
LEFT OUTER JOIN &DT/FTPAF55F as f ON a.CDDTFM = f.CDDTFM
|
|
AND a.DTFTFM = f.DTFTFM
|
|
AND a.NRFTFM = f.NRFTFM
|
|
AND a.GIVAFM = f.GIVAFM
|
|
LEFT OUTER JOIN &DT/FTPAI55F as g ON f.PROGID = g.PROGID
|
|
LEFT OUTER JOIN &DT/FTPAU55V as h ON a.CDDTFM = h.CDDTFAT
|
|
AND a.DTFTFM = h.DATAFAT
|
|
AND a.NRFTFM = h.NUMFAT
|
|
AND a.GIVAFM = h.GIVAFAT
|
|
LEFT OUTER JOIN &DT/FTPAX55F as x ON (g.PROGID = x.PROGID and x.PROGRIGA = 0)
|
|
JOIN &DT/CGANA00F as i ON i.CONTCA = b.CONTCP
|
|
LEFT JOIN &DT/FTPSET55F S ON 1=1
|
|
WHERE
|
|
(f.storfm is null or f.STORFM <> 'S')
|
|
AND
|
|
(NOT f.nrftfm IS NULL OR
|
|
COALESCE(d.esclusofe, ' ') = ' '
|
|
AND ((d.DTIPA IS NULL AND i.cisoca = 'IT' AND a.DTFTFM >= S.datainb2b
|
|
OR
|
|
(NOT d.DTIPA IS NULL AND (d.DTIPA > 0 AND a.DTFTFM >= d.DTIPA OR (d.DTIPA = 0 AND (d.PAOPRIV = ' ' OR a.DTFTFM >= S.datainb2b)))))))
|
|
)
|
|
<TAG-SCRIPT>
|
|
|
|
LABEL ON TABLE &DT/FTMOV55V
|
|
IS 'Art. 55 VIEW ATTUALI'
|
|
<TAG-SCRIPT>
|
|
|
|
<TAG-VERSIONE-15.1.0>
|
|
<TAG-SCRIPT>
|
|
|
|
<TAG-VERSIONE-15.2.0>
|
|
<TAG-SCRIPT>
|
|
|
|
<TAG-VERSIONE-15.3.0>
|
|
<TAG-SCRIPT>
|
|
|
|
<TAG-VERSIONE-15.4.0>
|
|
<TAG-SCRIPT>
|
|
|
|
<TAG-VERSIONE-15.5.0>
|
|
<TAG-SCRIPT>
|
|
|
|
DROP VIEW &DT/FTBKM55V
|
|
<TAG-SCRIPT>
|
|
|
|
CREATE VIEW &DT/FTBKM55V AS
|
|
(
|
|
SELECT a.DTFTFM,
|
|
a.NRFTFM,
|
|
CASE
|
|
WHEN a.FLCGFM = '' THEN '0'
|
|
WHEN a.FLCGFM = '*' THEN '1'
|
|
END AS FLCG,
|
|
a.CIFAFMA AS CDCFFM,
|
|
a.CDCFFM AS f0CDCFFM,
|
|
a.CSPEFM,
|
|
a.GIVAFM,
|
|
a.CDDTFM,
|
|
a.FLSFFM,
|
|
b.DSCOCP ,
|
|
coalesce(CASE
|
|
WHEN g.STATOTRAS = 'T' and x.PROGID IS NOT NULL THEN 'E'
|
|
WHEN coalesce(G.EXTID, '') = '' THEN g.STATOTRAS
|
|
WHEN g.STATOTRAS = 'V' and x.PROGID IS NOT NULL THEN 'C'
|
|
ELSE g.STATOTRAS END
|
|
, 'B') AS STATO,
|
|
case when d.PAOPRIV IS NULL THEN '0000000' WHEN d.PAOPRIV = 'R' THEN d.CODIPA ELSE coalesce(e.CODIPA, d.CODIPA) END AS IPA,
|
|
g.PROGID,
|
|
c.DESC_GIVA,
|
|
coalesce(h.ALLEG, 0) AS ALLEGATO,
|
|
coalesce(G.EXTID, '') AS EXTID,
|
|
CASE WHEN x.PROGID IS NULL THEN '0' ELSE '1' END AS ERRORI ,
|
|
CASE WHEN d.PAOPRIV IS NULL OR d.PAOPRIV = 'R' THEN '1' ELSE '0' END AS PRIVATO,
|
|
coalesce(d.MAILPEC, SPACE(256)) as MAILPEC,
|
|
coalesce(g.NOMEXML, ' ') AS NOMEXML,
|
|
coalesce(g.SERVTRA, ' ') AS SERVTRA,
|
|
coalesce(f.NUMEFATT,' ') AS NUMEFATT
|
|
FROM &DT/FTBKMAR55V as a
|
|
LEFT OUTER JOIN &DT/CSTAB as DD ON DD.K00001 = '01DD' CONCAT a.TDOCFM
|
|
JOIN &DT/CGPCO00F as b ON a.CIFAFMA = b.CONTCP
|
|
JOIN &DT/SMTABAR55V as c ON a.GIVAFM = c.XCODTB
|
|
LEFT OUTER JOIN &DT/FTPAE55F as d ON
|
|
d.CDDITTA = ''
|
|
AND a.CIFAFMA = d.CODCLI
|
|
LEFT OUTER JOIN &DT/FTPAE55F as e ON
|
|
e.CDDITTA = ''
|
|
AND a.CSPEFM = e.CODCLI
|
|
AND e.PAOPRIV = ' '
|
|
AND a.DTFTFM >= e.DTIPA
|
|
LEFT OUTER JOIN &DT/FTPAF55F as f ON a.CDDTFM = f.CDDTFM
|
|
AND a.DTFTFM = f.DTFTFM
|
|
AND a.NRFTFM = f.NRFTFM
|
|
AND a.GIVAFM = f.GIVAFM
|
|
LEFT OUTER JOIN &DT/FTPAI55F as g ON f.PROGID = g.PROGID
|
|
LEFT OUTER JOIN &DT/FTPAU55V as h ON a.CDDTFM = h.CDDTFAT
|
|
AND a.DTFTFM = h.DATAFAT
|
|
AND a.NRFTFM = h.NUMFAT
|
|
AND a.GIVAFM = h.GIVAFAT
|
|
LEFT OUTER JOIN &DT/FTPAX55F as x ON (g.PROGID = x.PROGID and x.PROGRIGA = 0)
|
|
JOIN &DT/CGANA00F as i ON i.CONTCA = b.CONTCP
|
|
LEFT JOIN &DT/FTPSET55F S ON 1=1
|
|
WHERE coalesce(substr(DD.F00002, 10, 1), a.TDOCFM) <> 'P'
|
|
AND
|
|
(f.storfm is null or f.STORFM <> 'S')
|
|
AND
|
|
(NOT f.nrftfm IS NULL OR
|
|
COALESCE(d.esclusofe, ' ') = ' '
|
|
AND ((d.DTIPA IS NULL AND i.cisoca = 'IT' AND a.DTFTFM >= S.datainb2b
|
|
OR
|
|
(NOT d.DTIPA IS NULL AND (d.DTIPA > 0 AND a.DTFTFM >= d.DTIPA OR (d.DTIPA = 0 AND (d.PAOPRIV = ' ' OR a.DTFTFM >= S.datainb2b)))))))
|
|
)
|
|
<TAG-SCRIPT>
|
|
|
|
LABEL ON TABLE &DT/FTBKM55V
|
|
IS 'Art. 55 VIEW STORICI'
|
|
<TAG-SCRIPT>
|
|
|
|
DROP VIEW &DT/FTMOV55V
|
|
<TAG-SCRIPT>
|
|
|
|
CREATE VIEW &DT/FTMOV55V AS
|
|
(
|
|
SELECT a.DTFTFM,
|
|
a.NRFTFM,
|
|
CASE
|
|
WHEN a.FLCGFM = '' THEN '0'
|
|
WHEN a.FLCGFM = '*' THEN '1'
|
|
END AS FLCG,
|
|
a.CIFAFMA AS CDCFFM,
|
|
a.CDCFFM AS f0CDCFFM,
|
|
a.CSPEFM,
|
|
a.GIVAFM,
|
|
a.CDDTFM,
|
|
a.FLSFFM,
|
|
b.DSCOCP ,
|
|
coalesce(CASE
|
|
WHEN g.STATOTRAS = 'T' and x.PROGID IS NOT NULL THEN 'E'
|
|
WHEN coalesce(G.EXTID, '') = '' THEN g.STATOTRAS
|
|
WHEN g.STATOTRAS = 'V' and x.PROGID IS NOT NULL THEN 'C'
|
|
ELSE g.STATOTRAS END
|
|
, 'B') AS STATO,
|
|
case when d.PAOPRIV IS NULL THEN '0000000' WHEN d.PAOPRIV = 'R' THEN d.CODIPA ELSE coalesce(e.CODIPA, d.CODIPA) END AS IPA,
|
|
g.PROGID,
|
|
c.DESC_GIVA,
|
|
coalesce(h.ALLEG, 0) AS ALLEGATO,
|
|
coalesce(G.EXTID, '') AS EXTID,
|
|
CASE WHEN x.PROGID IS NULL THEN '0' ELSE '1' END AS ERRORI ,
|
|
CASE WHEN d.PAOPRIV IS NULL OR d.PAOPRIV = 'R' THEN '1' ELSE '0' END AS PRIVATO,
|
|
coalesce(d.MAILPEC, SPACE(256)) as MAILPEC,
|
|
coalesce(g.NOMEXML, ' ') AS NOMEXML,
|
|
coalesce(g.SERVTRA, ' ') AS SERVTRA,
|
|
coalesce(f.NUMEFATT,' ') AS NUMEFATT
|
|
FROM &DT/FTMOVAR55V as a
|
|
LEFT OUTER JOIN &DT/CSTAB as DD ON DD.K00001 = '01DD' CONCAT a.TDOCFM
|
|
JOIN &DT/CGPCO00F as b ON a.CIFAFMA = b.CONTCP
|
|
JOIN &DT/SMTABAR55V as c ON a.GIVAFM = c.XCODTB
|
|
LEFT OUTER JOIN &DT/FTPAE55F as d ON
|
|
d.CDDITTA = ''
|
|
AND a.CIFAFMA = d.CODCLI
|
|
LEFT OUTER JOIN &DT/FTPAE55F as e ON
|
|
e.CDDITTA = ''
|
|
AND a.CSPEFM = e.CODCLI
|
|
AND e.PAOPRIV = ' '
|
|
AND a.DTFTFM >= e.DTIPA
|
|
LEFT OUTER JOIN &DT/FTPAF55F as f ON a.CDDTFM = f.CDDTFM
|
|
AND a.DTFTFM = f.DTFTFM
|
|
AND a.NRFTFM = f.NRFTFM
|
|
AND a.GIVAFM = f.GIVAFM
|
|
LEFT OUTER JOIN &DT/FTPAI55F as g ON f.PROGID = g.PROGID
|
|
LEFT OUTER JOIN &DT/FTPAU55V as h ON a.CDDTFM = h.CDDTFAT
|
|
AND a.DTFTFM = h.DATAFAT
|
|
AND a.NRFTFM = h.NUMFAT
|
|
AND a.GIVAFM = h.GIVAFAT
|
|
LEFT OUTER JOIN &DT/FTPAX55F as x ON (g.PROGID = x.PROGID and x.PROGRIGA = 0)
|
|
JOIN &DT/CGANA00F as i ON i.CONTCA = b.CONTCP
|
|
LEFT JOIN &DT/FTPSET55F S ON 1=1
|
|
WHERE coalesce(substr(DD.F00002, 10, 1), a.TDOCFM) <> 'P'
|
|
AND
|
|
(f.storfm is null or f.STORFM <> 'S')
|
|
AND
|
|
(NOT f.nrftfm IS NULL OR
|
|
COALESCE(d.esclusofe, ' ') = ' '
|
|
AND ((d.DTIPA IS NULL AND i.cisoca = 'IT' AND a.DTFTFM >= S.datainb2b
|
|
OR
|
|
(NOT d.DTIPA IS NULL AND (d.DTIPA > 0 AND a.DTFTFM >= d.DTIPA OR (d.DTIPA = 0 AND (d.PAOPRIV = ' ' OR a.DTFTFM >= S.datainb2b)))))))
|
|
)
|
|
<TAG-SCRIPT>
|
|
|
|
LABEL ON TABLE &DT/FTMOV55V
|
|
IS 'Art. 55 VIEW ATTUALI'
|
|
<TAG-SCRIPT>
|
|
|
|
<TAG-VERSIONE-15.6.0>
|
|
<TAG-SCRIPT>
|
|
|
|
<TAG-VERSIONE-15.7.0>
|
|
<TAG-SCRIPT>
|
|
|
|
DROP VIEW &DT/FTBKM55V
|
|
<TAG-SCRIPT>
|
|
|
|
DROP VIEW &DT/FTMOV55V
|
|
<TAG-SCRIPT>
|
|
|
|
DROP VIEW &DT/FTPAU55V
|
|
<TAG-SCRIPT>
|
|
|
|
CREATE VIEW &DT/FTPAU55V as (
|
|
select DISTINCT CDDTFAT,DATAFAT,NUMFAT,GIVAFAT,FORNFAT , 1 as ALLEG from &DT/ftpau55f
|
|
)
|
|
<TAG-SCRIPT>
|
|
|
|
LABEL ON TABLE &DT/FTPAU55V
|
|
IS 'Art. 55 VIEW FILE ALLEGATI'
|
|
<TAG-SCRIPT>
|
|
|
|
CREATE VIEW &DT/FTBKM55V AS
|
|
(
|
|
SELECT a.DTFTFM,
|
|
a.NRFTFM,
|
|
CASE
|
|
WHEN a.FLCGFM = '' THEN '0'
|
|
WHEN a.FLCGFM = '*' THEN '1'
|
|
END AS FLCG,
|
|
a.CIFAFMA AS CDCFFM,
|
|
a.CDCFFM AS f0CDCFFM,
|
|
a.CSPEFM,
|
|
a.GIVAFM,
|
|
a.CDDTFM,
|
|
a.FLSFFM,
|
|
b.DSCOCP ,
|
|
coalesce(CASE
|
|
WHEN g.STATOTRAS = 'T' and x.PROGID IS NOT NULL THEN 'E'
|
|
WHEN coalesce(G.EXTID, '') = '' THEN g.STATOTRAS
|
|
WHEN g.STATOTRAS = 'V' and x.PROGID IS NOT NULL THEN 'C'
|
|
ELSE g.STATOTRAS END
|
|
, 'B') AS STATO,
|
|
case when d.PAOPRIV IS NULL THEN '0000000' WHEN d.PAOPRIV = 'R' THEN d.CODIPA ELSE coalesce(e.CODIPA, d.CODIPA) END AS IPA,
|
|
g.PROGID,
|
|
c.DESC_GIVA,
|
|
coalesce(h.ALLEG, 0) AS ALLEGATO,
|
|
coalesce(G.EXTID, '') AS EXTID,
|
|
CASE WHEN x.PROGID IS NULL THEN '0' ELSE '1' END AS ERRORI ,
|
|
CASE WHEN d.PAOPRIV IS NULL OR d.PAOPRIV = 'R' THEN '1' ELSE '0' END AS PRIVATO,
|
|
coalesce(d.MAILPEC, SPACE(256)) as MAILPEC,
|
|
coalesce(g.NOMEXML, ' ') AS NOMEXML,
|
|
coalesce(g.SERVTRA, ' ') AS SERVTRA,
|
|
coalesce(f.NUMEFATT,' ') AS NUMEFATT,
|
|
coalesce(f.VENDACQU,'V') AS VENDACQU
|
|
FROM &DT/FTBKMAR55V as a
|
|
LEFT OUTER JOIN &DT/CSTAB as DD ON DD.K00001 = '01DD' CONCAT a.TDOCFM
|
|
JOIN &DT/CGPCO00F as b ON a.CIFAFMA = b.CONTCP
|
|
JOIN &DT/SMTABAR55V as c ON a.GIVAFM = c.XCODTB
|
|
LEFT OUTER JOIN &DT/FTPAE55F as d ON
|
|
d.CDDITTA = ''
|
|
AND a.CIFAFMA = d.CODCLI
|
|
LEFT OUTER JOIN &DT/FTPAE55F as e ON
|
|
e.CDDITTA = ''
|
|
AND a.CSPEFM = e.CODCLI
|
|
AND e.PAOPRIV = ' '
|
|
AND a.DTFTFM >= e.DTIPA
|
|
LEFT OUTER JOIN &DT/FTPAF55F as f ON a.CDDTFM = f.CDDTFM
|
|
AND a.DTFTFM = f.DTFTFM
|
|
AND a.NRFTFM = f.NRFTFM
|
|
AND a.GIVAFM = f.GIVAFM
|
|
AND 'V' = f.VENDACQU
|
|
LEFT OUTER JOIN &DT/FTPAI55F as g ON f.PROGID = g.PROGID
|
|
LEFT OUTER JOIN &DT/FTPAU55V as h ON a.CDDTFM = h.CDDTFAT
|
|
AND a.DTFTFM = h.DATAFAT
|
|
AND a.NRFTFM = h.NUMFAT
|
|
AND a.GIVAFM = h.GIVAFAT
|
|
AND '' = h.FORNFAT
|
|
LEFT OUTER JOIN &DT/FTPAX55F as x ON (g.PROGID = x.PROGID and x.PROGRIGA = 0)
|
|
JOIN &DT/CGANA00F as i ON i.CONTCA = b.CONTCP
|
|
LEFT JOIN &DT/FTPSET55F S ON 1=1
|
|
WHERE coalesce(substr(DD.F00002, 10, 1), a.TDOCFM) <> 'P'
|
|
AND
|
|
(f.storfm is null or f.STORFM <> 'S')
|
|
AND
|
|
(NOT f.nrftfm IS NULL OR
|
|
COALESCE(d.esclusofe, ' ') = ' '
|
|
AND ((d.DTIPA IS NULL AND i.cisoca = 'IT' AND a.DTFTFM >= S.datainb2b
|
|
OR
|
|
(NOT d.DTIPA IS NULL AND (d.DTIPA > 0 AND a.DTFTFM >= d.DTIPA OR (d.DTIPA = 0 AND (d.PAOPRIV = ' ' OR a.DTFTFM >= S.datainb2b)))))))
|
|
)
|
|
<TAG-SCRIPT>
|
|
|
|
LABEL ON TABLE &DT/FTBKM55V
|
|
IS 'Art. 55 VIEW STORICI'
|
|
<TAG-SCRIPT>
|
|
|
|
CREATE VIEW &DT/FTMOV55V AS
|
|
(
|
|
SELECT a.DTFTFM,
|
|
a.NRFTFM,
|
|
CASE
|
|
WHEN a.FLCGFM = '' THEN '0'
|
|
WHEN a.FLCGFM = '*' THEN '1'
|
|
END AS FLCG,
|
|
a.CIFAFMA AS CDCFFM,
|
|
a.CDCFFM AS f0CDCFFM,
|
|
a.CSPEFM,
|
|
a.GIVAFM,
|
|
a.CDDTFM,
|
|
a.FLSFFM,
|
|
b.DSCOCP ,
|
|
coalesce(CASE
|
|
WHEN g.STATOTRAS = 'T' and x.PROGID IS NOT NULL THEN 'E'
|
|
WHEN coalesce(G.EXTID, '') = '' THEN g.STATOTRAS
|
|
WHEN g.STATOTRAS = 'V' and x.PROGID IS NOT NULL THEN 'C'
|
|
ELSE g.STATOTRAS END
|
|
, 'B') AS STATO,
|
|
case when d.PAOPRIV IS NULL THEN '0000000' WHEN d.PAOPRIV = 'R' THEN d.CODIPA ELSE coalesce(e.CODIPA, d.CODIPA) END AS IPA,
|
|
g.PROGID,
|
|
c.DESC_GIVA,
|
|
coalesce(h.ALLEG, 0) AS ALLEGATO,
|
|
coalesce(G.EXTID, '') AS EXTID,
|
|
CASE WHEN x.PROGID IS NULL THEN '0' ELSE '1' END AS ERRORI ,
|
|
CASE WHEN d.PAOPRIV IS NULL OR d.PAOPRIV = 'R' THEN '1' ELSE '0' END AS PRIVATO,
|
|
coalesce(d.MAILPEC, SPACE(256)) as MAILPEC,
|
|
coalesce(g.NOMEXML, ' ') AS NOMEXML,
|
|
coalesce(g.SERVTRA, ' ') AS SERVTRA,
|
|
coalesce(f.NUMEFATT,' ') AS NUMEFATT,
|
|
coalesce(f.VENDACQU,'V') AS VENDACQU
|
|
FROM &DT/FTMOVAR55V as a
|
|
LEFT OUTER JOIN &DT/CSTAB as DD ON DD.K00001 = '01DD' CONCAT a.TDOCFM
|
|
JOIN &DT/CGPCO00F as b ON a.CIFAFMA = b.CONTCP
|
|
JOIN &DT/SMTABAR55V as c ON a.GIVAFM = c.XCODTB
|
|
LEFT OUTER JOIN &DT/FTPAE55F as d ON
|
|
d.CDDITTA = ''
|
|
AND a.CIFAFMA = d.CODCLI
|
|
LEFT OUTER JOIN &DT/FTPAE55F as e ON
|
|
e.CDDITTA = ''
|
|
AND a.CSPEFM = e.CODCLI
|
|
AND e.PAOPRIV = ' '
|
|
AND a.DTFTFM >= e.DTIPA
|
|
LEFT OUTER JOIN &DT/FTPAF55F as f ON a.CDDTFM = f.CDDTFM
|
|
AND a.DTFTFM = f.DTFTFM
|
|
AND a.NRFTFM = f.NRFTFM
|
|
AND a.GIVAFM = f.GIVAFM
|
|
AND 'V' = f.VENDACQU
|
|
LEFT OUTER JOIN &DT/FTPAI55F as g ON f.PROGID = g.PROGID
|
|
LEFT OUTER JOIN &DT/FTPAU55V as h ON a.CDDTFM = h.CDDTFAT
|
|
AND a.DTFTFM = h.DATAFAT
|
|
AND a.NRFTFM = h.NUMFAT
|
|
AND a.GIVAFM = h.GIVAFAT
|
|
AND '' = h.FORNFAT
|
|
LEFT OUTER JOIN &DT/FTPAX55F as x ON (g.PROGID = x.PROGID and x.PROGRIGA = 0)
|
|
JOIN &DT/CGANA00F as i ON i.CONTCA = b.CONTCP
|
|
LEFT JOIN &DT/FTPSET55F S ON 1=1
|
|
WHERE coalesce(substr(DD.F00002, 10, 1), a.TDOCFM) <> 'P'
|
|
AND
|
|
(f.storfm is null or f.STORFM <> 'S')
|
|
AND
|
|
(NOT f.nrftfm IS NULL OR
|
|
COALESCE(d.esclusofe, ' ') = ' '
|
|
AND ((d.DTIPA IS NULL AND i.cisoca = 'IT' AND a.DTFTFM >= S.datainb2b
|
|
OR
|
|
(NOT d.DTIPA IS NULL AND (d.DTIPA > 0 AND a.DTFTFM >= d.DTIPA OR (d.DTIPA = 0 AND (d.PAOPRIV = ' ' OR a.DTFTFM >= S.datainb2b)))))))
|
|
)
|
|
<TAG-SCRIPT>
|
|
|
|
LABEL ON TABLE &DT/FTMOV55V
|
|
IS 'Art. 55 VIEW ATTUALI'
|
|
<TAG-SCRIPT>
|
|
|
|
<CONDITION>EXISTS (SELECT 1 FROM QSYS2.SYSTABLES WHERE TABLE_SCHEMA = '&DT' AND TABLE_NAME = 'MGMOF00F')</CONDITION>
|
|
CREATE VIEW &DT/MGMOF55V AS (
|
|
SELECT a.DTFTMF DTFTFM,
|
|
a.NRFTMF NRFTFM,
|
|
CASE
|
|
WHEN a.FLCGMF = '' THEN '0'
|
|
WHEN a.FLCGMF = '*' THEN '1'
|
|
END AS FLCG,
|
|
CASE WHEN a.CIFAMF = '' THEN a.CDCFMF ELSE a.CIFAMF END AS CDCFFM,
|
|
a.CDCFMF AS f0CDCFFM,
|
|
' ' CSPEFM,
|
|
a.GIVAMF GIVAFM,
|
|
a.CDDTMF CDDTFM,
|
|
a.FLSFMF FLSFFM,
|
|
b.DSCOCP ,
|
|
coalesce(CASE
|
|
WHEN g.STATOTRAS = 'T' and x.PROGID IS NOT NULL THEN 'E'
|
|
WHEN coalesce(G.EXTID, '') = '' THEN g.STATOTRAS
|
|
WHEN g.STATOTRAS = 'V' and x.PROGID IS NOT NULL THEN 'C'
|
|
ELSE g.STATOTRAS END
|
|
, 'B') AS STATO,
|
|
case when d.PAOPRIV IS NOT NULL THEN d.CODIPA WHEN F2.CODIDEST <> '' THEN F2.CODIDEST ELSE '0000000' END AS IPA,
|
|
g.PROGID,
|
|
c.DESC_GIVA,
|
|
coalesce(h.ALLEG, 0) AS ALLEGATO,
|
|
coalesce(G.EXTID, '') AS EXTID,
|
|
CASE WHEN x.PROGID IS NULL THEN '0' ELSE '1' END AS ERRORI ,
|
|
CASE WHEN d.PAOPRIV IS NULL OR d.PAOPRIV = 'R' THEN '1' ELSE '0' END AS PRIVATO,
|
|
coalesce(d.MAILPEC, F2.MAILPEC, SPACE(256)) as MAILPEC,
|
|
coalesce(g.NOMEXML, ' ') AS NOMEXML,
|
|
coalesce(g.SERVTRA, ' ') AS SERVTRA,
|
|
coalesce(f.NUMEFATT,' ') AS NUMEFATT,
|
|
coalesce(f.VENDACQU,'A') AS VENDACQU
|
|
FROM &DT/MGMOF00F as a
|
|
JOIN &DT/CSTAB as DD ON DD.K00001 = '01DD' CONCAT a.TDOCMF CONCAT 'A'
|
|
JOIN &DT/CGPCO00F as b ON a.CDCFMF = b.CONTCP
|
|
JOIN &DT/SMTABAR55V as c ON a.GIVAMF = c.XCODTB
|
|
LEFT OUTER JOIN &DT/FTPAE55F as d ON
|
|
d.CDDITTA = ''
|
|
AND a.CDCFMF = d.CODCLI
|
|
LEFT OUTER JOIN &DT/FTPAF55F as f ON a.CDDTMF = f.CDDTFM
|
|
AND a.DTFTMF = f.DTFTFM
|
|
AND a.NRFTMF = f.NRFTFM
|
|
AND a.GIVAMF = f.GIVAFM
|
|
AND a.CDCFMF = f.CDCFFM
|
|
AND 'A' = f.VENDACQU
|
|
LEFT OUTER JOIN &DT/FTPAI55F as g ON f.PROGID = g.PROGID
|
|
LEFT OUTER JOIN &DT/FTPAU55V as h ON a.CDDTMF = h.CDDTFAT
|
|
AND a.DTFTMF = h.DATAFAT
|
|
AND a.NRFTMF = h.NUMFAT
|
|
AND a.GIVAMF = h.GIVAFAT
|
|
AND CASE WHEN a.CIFAMF = '' THEN a.CDCFMF ELSE a.CIFAMF END = h.FORNFAT
|
|
LEFT OUTER JOIN &DT/FTPAX55F as x ON (g.PROGID = x.PROGID and x.PROGRIGA = 0)
|
|
JOIN &DT/CGANA00F as i ON i.CONTCA = b.CONTCP
|
|
LEFT JOIN &DT/FTPSET55F S ON 1=1
|
|
JOIN &DT/FTPA255F F2 ON F2.TABDDCOD = a.TDOCMF AND F2.tabddarea = 'A' AND F2.Fselfbil = 'S'
|
|
WHERE a.FLSFMF ='*'
|
|
AND a.FLCFMF='*'
|
|
AND a.dtftmf <> 0
|
|
AND a.NRFTMF <> 0
|
|
AND
|
|
(f.storfm is null or f.STORFM <> 'S')
|
|
AND
|
|
(NOT f.nrftfm IS NULL OR
|
|
COALESCE(d.esclusofe, ' ') = ' '
|
|
AND ((d.DTIPA IS NULL AND i.cisoca = 'IT' AND a.DTFTMF >= S.datainb2b
|
|
OR
|
|
(NOT d.DTIPA IS NULL AND (d.DTIPA > 0 AND a.DTFTMF >= d.DTIPA OR (d.DTIPA = 0 AND (a.DTFTMF >= S.datainb2b)))))))
|
|
)
|
|
<TAG-SCRIPT>
|
|
|
|
<CONDITION>EXISTS (SELECT 1 FROM QSYS2.SYSTABLES WHERE TABLE_SCHEMA = '&DT' AND TABLE_NAME = 'MGMOF00F')</CONDITION>
|
|
LABEL ON TABLE &DT/MGMOF55V IS 'Art. 55 VIEW FATTURE SELF BILLING'
|
|
<TAG-SCRIPT>
|
|
|
|
<TAG-VERSIONE-15.8.0>
|
|
<TAG-SCRIPT>
|
|
|
|
<TAG-VERSIONE-15.9.0>
|
|
<TAG-SCRIPT>
|
|
|
|
DROP VIEW &DT/FTMOV55V
|
|
<TAG-SCRIPT>
|
|
|
|
DROP VIEW &DT/FTMOVAR55V
|
|
<TAG-SCRIPT>
|
|
|
|
CREATE VIEW &DT/FTMOVAR55V as (
|
|
SELECT f.*,
|
|
CASE WHEN coalesce(af.CIFAFMA , '') = '' THEN f.CDCFFM ELSE af.CIFAFMA END AS CIFAFMA,
|
|
coalesce(af.FTDIFMA , '') FTDIFMA
|
|
FROM &DT/ftmov00f AS f
|
|
LEFT JOIN &DT/FTMOVA0F AS af ON
|
|
f.CDDTFM = af.CDDTFMA AND
|
|
f.TDOCFM = af.TDOCFMA AND
|
|
f.NRDFFM = af.NRDFFMA AND
|
|
f.NRRGFM = af.NRRGFMA AND
|
|
f.NSRGFM = af.NSRGFMA
|
|
WHERE f.CDDTFM ='01' AND f.NRFTFM > 0
|
|
AND f.NRFTFM <> 9999999
|
|
AND f.DTFTFM >= 20140601
|
|
AND f.FLSFFM = '*')
|
|
<TAG-SCRIPT>
|
|
|
|
LABEL ON TABLE &DT/FTMOVAR55V IS 'Art. 55 VIEW FTMOV00F'
|
|
<TAG-SCRIPT>
|
|
|
|
CREATE VIEW &DT/FTMOV55V AS (
|
|
SELECT FAT.*,
|
|
CASE WHEN PRIVATO = '1' AND FORDEST = '1' THEN '1' ELSE '0' END AS PRFORDEST,
|
|
CASE WHEN PRIVATO = '0' OR FORDEST = '1' THEN coalesce(DEST, SPACE(10)) ELSE SPACE(10) END AS CSPEFM,
|
|
CASE WHEN PRIVATO = '1' AND FORDEST = '1' THEN IPA_DEST WHEN PRIVATO = '1' THEN coalesce(IPA_CLI,'0000000') ELSE coalesce(IPA_DEST, IPA_CLI) END AS IPA,
|
|
CASE WHEN PRIVATO = '1' AND FORDEST = '1' THEN MAILPEC_DEST WHEN PRIVATO = '1' THEN coalesce(MAILPEC_CLI, SPACE(256)) ELSE coalesce(MAILPEC_DEST, MAILPEC_CLI) END AS MAILPEC
|
|
FROM (
|
|
SELECT a.DTFTFM,
|
|
a.NRFTFM,
|
|
CASE
|
|
WHEN a.FLCGFM = '' THEN '0'
|
|
WHEN a.FLCGFM = '*' THEN '1'
|
|
END AS FLCG,
|
|
a.CIFAFMA AS CDCFFM,
|
|
a.CDCFFM AS f0CDCFFM,
|
|
CSPEFM AS DEST,
|
|
a.GIVAFM,
|
|
a.CDDTFM,
|
|
a.FLSFFM,
|
|
b.DSCOCP ,
|
|
coalesce(CASE
|
|
WHEN g.STATOTRAS = 'T' and x.PROGID IS NOT NULL THEN 'E'
|
|
WHEN coalesce(G.EXTID, '') = '' THEN g.STATOTRAS
|
|
WHEN g.STATOTRAS = 'V' and x.PROGID IS NOT NULL THEN 'C'
|
|
ELSE g.STATOTRAS END
|
|
, 'B') AS STATO,
|
|
d.CODIPA AS IPA_CLI,
|
|
e.CODIPA AS IPA_DEST,
|
|
g.PROGID,
|
|
c.DESC_GIVA,
|
|
coalesce(h.ALLEG, 0) AS ALLEGATO,
|
|
coalesce(G.EXTID, '') AS EXTID,
|
|
CASE WHEN x.PROGID IS NULL THEN '0' ELSE '1' END AS ERRORI ,
|
|
CASE WHEN d.PAOPRIV IS NULL OR d.PAOPRIV = 'R' THEN '1' ELSE '0' END AS PRIVATO,
|
|
d.MAILPEC as MAILPEC_CLI,
|
|
e.MAILPEC as MAILPEC_DEST,
|
|
coalesce(g.NOMEXML, ' ') AS NOMEXML,
|
|
coalesce(g.SERVTRA, ' ') AS SERVTRA,
|
|
coalesce(f.NUMEFATT,' ') AS NUMEFATT,
|
|
coalesce(f.VENDACQU,'V') AS VENDACQU,
|
|
case when a.flinfm <> ' ' AND A.FTDIFMA = 'D' AND A.CDCFFM = A.CIFAFMA AND DEST.CLFOCP = 'D' AND e.CODIPA IS NOT NULL THEN '1' ELSE '0' END FORDEST
|
|
FROM &DT/FTMOVAR55V as a
|
|
LEFT OUTER JOIN &DT/CSTAB as DD ON DD.K00001 = '01DD' CONCAT a.TDOCFM
|
|
JOIN &DT/CGPCO00F as b ON a.CIFAFMA = b.CONTCP
|
|
JOIN &DT/SMTABAR55V as c ON a.GIVAFM = c.XCODTB
|
|
LEFT OUTER JOIN &DT/FTPAE55F as d ON
|
|
d.CDDITTA = ''
|
|
AND a.CIFAFMA = d.CODCLI
|
|
LEFT OUTER JOIN &DT/FTPAE55F as e ON
|
|
e.CDDITTA = ''
|
|
AND a.CSPEFM = e.CODCLI
|
|
AND a.DTFTFM >= e.DTIPA
|
|
LEFT OUTER JOIN &DT/FTPAF55F as f ON a.CDDTFM = f.CDDTFM
|
|
AND a.DTFTFM = f.DTFTFM
|
|
AND a.NRFTFM = f.NRFTFM
|
|
AND a.GIVAFM = f.GIVAFM
|
|
AND 'V' = f.VENDACQU
|
|
LEFT OUTER JOIN &DT/FTPAI55F as g ON f.PROGID = g.PROGID
|
|
LEFT OUTER JOIN &DT/FTPAU55V as h ON a.CDDTFM = h.CDDTFAT
|
|
AND a.DTFTFM = h.DATAFAT
|
|
AND a.NRFTFM = h.NUMFAT
|
|
AND a.GIVAFM = h.GIVAFAT
|
|
AND '' = h.FORNFAT
|
|
LEFT OUTER JOIN &DT/FTPAX55F as x ON (g.PROGID = x.PROGID and x.PROGRIGA = 0)
|
|
JOIN &DT/CGANA00F as i ON i.CONTCA = b.CONTCP
|
|
LEFT JOIN &DT/CGPCO00F DEST ON DEST.CONTCP = a.CSPEFM
|
|
LEFT JOIN &DT/FTPSET55F S ON 1=1
|
|
WHERE coalesce(substr(DD.F00002, 10, 1), a.TDOCFM) <> 'P'
|
|
AND
|
|
(f.storfm is null or f.STORFM <> 'S')
|
|
AND
|
|
(NOT f.nrftfm IS NULL OR
|
|
COALESCE(d.esclusofe, ' ') = ' '
|
|
AND ((d.DTIPA IS NULL AND i.cisoca = 'IT' AND a.DTFTFM >= S.datainb2b
|
|
OR
|
|
(NOT d.DTIPA IS NULL AND (d.DTIPA > 0 AND a.DTFTFM >= d.DTIPA OR (d.DTIPA = 0 AND (d.PAOPRIV = ' ' OR a.DTFTFM >= S.datainb2b)))))))) AS FAT)
|
|
<TAG-SCRIPT><TAG-SCRIPT><IFNOT-VERSION>5
|
|
|
|
CREATE VIEW &DT/FTMOV55V AS (
|
|
SELECT FAT.*,
|
|
CASE WHEN PRIVATO = '1' AND FORDEST = '1' THEN '1' ELSE '0' END AS PRFORDEST,
|
|
CASE WHEN PRIVATO = '0' OR FORDEST = '1' THEN coalesce(DEST, SPACE(10)) ELSE SPACE(10) END AS CSPEFM,
|
|
CASE WHEN PRIVATO = '1' AND FORDEST = '1' THEN IPA_DEST WHEN PRIVATO = '1' THEN coalesce(IPA_CLI,'0000000') ELSE coalesce(IPA_DEST, IPA_CLI) END AS IPA,
|
|
CASE WHEN PRIVATO = '1' AND FORDEST = '1' THEN MAILPEC_DEST WHEN PRIVATO = '1' THEN coalesce(MAILPEC_CLI, SPACE(256)) ELSE coalesce(MAILPEC_DEST, MAILPEC_CLI) END AS MAILPEC
|
|
FROM (
|
|
SELECT a.DTFTFM,
|
|
a.NRFTFM,
|
|
CASE
|
|
WHEN a.FLCGFM = '' THEN '0'
|
|
WHEN a.FLCGFM = '*' THEN '1'
|
|
END AS FLCG,
|
|
a.CIFAFMA AS CDCFFM,
|
|
a.CDCFFM AS f0CDCFFM,
|
|
CSPEFM AS DEST,
|
|
a.GIVAFM,
|
|
a.CDDTFM,
|
|
a.FLSFFM,
|
|
b.DSCOCP ,
|
|
coalesce(CASE
|
|
WHEN g.STATOTRAS = 'T' and x.PROGID IS NOT NULL THEN 'E'
|
|
WHEN coalesce(G.EXTID, '') = '' THEN g.STATOTRAS
|
|
WHEN g.STATOTRAS = 'V' and x.PROGID IS NOT NULL THEN 'C'
|
|
ELSE g.STATOTRAS END
|
|
, 'B') AS STATO,
|
|
d.CODIPA AS IPA_CLI,
|
|
e.CODIPA AS IPA_DEST,
|
|
g.PROGID,
|
|
c.DESC_GIVA,
|
|
coalesce(h.ALLEG, 0) AS ALLEGATO,
|
|
coalesce(G.EXTID, '') AS EXTID,
|
|
CASE WHEN x.PROGID IS NULL THEN '0' ELSE '1' END AS ERRORI ,
|
|
CASE WHEN d.PAOPRIV IS NULL OR d.PAOPRIV = 'R' THEN '1' ELSE '0' END AS PRIVATO,
|
|
d.MAILPEC as MAILPEC_CLI,
|
|
e.MAILPEC as MAILPEC_DEST,
|
|
coalesce(g.NOMEXML, ' ') AS NOMEXML,
|
|
coalesce(g.SERVTRA, ' ') AS SERVTRA,
|
|
coalesce(f.NUMEFATT,' ') AS NUMEFATT,
|
|
coalesce(f.VENDACQU,'V') AS VENDACQU,
|
|
case when a.flinfm <> ' ' AND A.FTDIFMA = 'D' AND A.CDCFFM = A.CIFAFMA AND DEST.CLFODE IS NOT NULL AND e.CODIPA IS NOT NULL THEN '1' ELSE '0' END FORDEST
|
|
FROM &DT/FTMOVAR55V as a
|
|
LEFT OUTER JOIN &DT/CSTAB as DD ON DD.K00001 = '01DD' CONCAT a.TDOCFM
|
|
JOIN &DT/CGPCO00F as b ON a.CIFAFMA = b.CONTCP
|
|
JOIN &DT/SMTABAR55V as c ON a.GIVAFM = c.XCODTB
|
|
LEFT OUTER JOIN &DT/FTPAE55F as d ON
|
|
d.CDDITTA = ''
|
|
AND a.CIFAFMA = d.CODCLI
|
|
LEFT OUTER JOIN &DT/FTPAE55F as e ON
|
|
e.CDDITTA = ''
|
|
AND a.CSPEFM = e.CODCLI
|
|
AND a.DTFTFM >= e.DTIPA
|
|
LEFT OUTER JOIN &DT/FTPAF55F as f ON a.CDDTFM = f.CDDTFM
|
|
AND a.DTFTFM = f.DTFTFM
|
|
AND a.NRFTFM = f.NRFTFM
|
|
AND a.GIVAFM = f.GIVAFM
|
|
AND 'V' = f.VENDACQU
|
|
LEFT OUTER JOIN &DT/FTPAI55F as g ON f.PROGID = g.PROGID
|
|
LEFT OUTER JOIN &DT/FTPAU55V as h ON a.CDDTFM = h.CDDTFAT
|
|
AND a.DTFTFM = h.DATAFAT
|
|
AND a.NRFTFM = h.NUMFAT
|
|
AND a.GIVAFM = h.GIVAFAT
|
|
AND '' = h.FORNFAT
|
|
LEFT OUTER JOIN &DT/FTPAX55F as x ON (g.PROGID = x.PROGID and x.PROGRIGA = 0)
|
|
JOIN &DT/CGANA00F as i ON i.CONTCA = b.CONTCP
|
|
LEFT JOIN &DT/CGADE00F DEST ON DEST.CONTDE = a.CSPEFM
|
|
LEFT JOIN &DT/FTPSET55F S ON 1=1
|
|
WHERE coalesce(substr(DD.F00002, 10, 1), a.TDOCFM) <> 'P'
|
|
AND
|
|
(f.storfm is null or f.STORFM <> 'S')
|
|
AND
|
|
(NOT f.nrftfm IS NULL OR
|
|
COALESCE(d.esclusofe, ' ') = ' '
|
|
AND ((d.DTIPA IS NULL AND i.cisoca = 'IT' AND a.DTFTFM >= S.datainb2b
|
|
OR
|
|
(NOT d.DTIPA IS NULL AND (d.DTIPA > 0 AND a.DTFTFM >= d.DTIPA OR (d.DTIPA = 0 AND (d.PAOPRIV = ' ' OR a.DTFTFM >= S.datainb2b)))))))) AS FAT)
|
|
<TAG-SCRIPT><TAG-SCRIPT><IF-VERSION>5
|
|
|
|
LABEL ON TABLE &DT/FTMOV55V IS 'Art. 55 VIEW ATTUALI'
|
|
<TAG-SCRIPT>
|
|
|
|
DROP VIEW &DT/FTBKM55V
|
|
<TAG-SCRIPT>
|
|
|
|
DROP VIEW &DT/FTBKMAR55V
|
|
<TAG-SCRIPT>
|
|
|
|
CREATE VIEW &DT/FTBKMAR55V as (
|
|
SELECT f.*,
|
|
CASE WHEN coalesce(af.CIFAFMA , '') = '' THEN f.CDCFFM ELSE af.CIFAFMA END AS CIFAFMA,
|
|
coalesce(af.FTDIFMA , '') FTDIFMA
|
|
FROM &DT/ftbkm00f AS F
|
|
LEFT JOIN &DT/FTBKMA0F AS af ON
|
|
f.CDDTFM = af.CDDTFMA AND
|
|
f.TDOCFM = af.TDOCFMA AND
|
|
f.NRDFFM = af.NRDFFMA AND
|
|
f.NRRGFM = af.NRRGFMA AND
|
|
f.NSRGFM = af.NSRGFMA
|
|
WHERE f.CDDTFM ='01' AND f.NRFTFM > 0
|
|
AND f.NRFTFM <> 9999999
|
|
AND f.DTFTFM >= 20140601
|
|
AND f.FLSFFM = '*')
|
|
<TAG-SCRIPT>
|
|
|
|
LABEL ON TABLE &DT/FTBKMAR55V IS 'Art. 55 VIEW FTBKM00F'
|
|
<TAG-SCRIPT>
|
|
|
|
CREATE VIEW &DT/FTBKM55V AS (
|
|
SELECT FAT.*,
|
|
CASE WHEN PRIVATO = '1' AND FORDEST = '1' THEN '1' ELSE '0' END AS PRFORDEST,
|
|
CASE WHEN PRIVATO = '0' OR FORDEST = '1' THEN coalesce(DEST, SPACE(10)) ELSE SPACE(10) END AS CSPEFM,
|
|
CASE WHEN PRIVATO = '1' AND FORDEST = '1' THEN IPA_DEST WHEN PRIVATO = '1' THEN coalesce(IPA_CLI,'0000000') ELSE coalesce(IPA_DEST, IPA_CLI) END AS IPA,
|
|
CASE WHEN PRIVATO = '1' AND FORDEST = '1' THEN MAILPEC_DEST WHEN PRIVATO = '1' THEN coalesce(MAILPEC_CLI, SPACE(256)) ELSE coalesce(MAILPEC_DEST, MAILPEC_CLI) END AS MAILPEC
|
|
FROM (
|
|
SELECT a.DTFTFM,
|
|
a.NRFTFM,
|
|
CASE
|
|
WHEN a.FLCGFM = '' THEN '0'
|
|
WHEN a.FLCGFM = '*' THEN '1'
|
|
END AS FLCG,
|
|
a.CIFAFMA AS CDCFFM,
|
|
a.CDCFFM AS f0CDCFFM,
|
|
CSPEFM AS DEST,
|
|
a.GIVAFM,
|
|
a.CDDTFM,
|
|
a.FLSFFM,
|
|
b.DSCOCP ,
|
|
coalesce(CASE
|
|
WHEN g.STATOTRAS = 'T' and x.PROGID IS NOT NULL THEN 'E'
|
|
WHEN coalesce(G.EXTID, '') = '' THEN g.STATOTRAS
|
|
WHEN g.STATOTRAS = 'V' and x.PROGID IS NOT NULL THEN 'C'
|
|
ELSE g.STATOTRAS END
|
|
, 'B') AS STATO,
|
|
d.CODIPA AS IPA_CLI,
|
|
e.CODIPA AS IPA_DEST,
|
|
g.PROGID,
|
|
c.DESC_GIVA,
|
|
coalesce(h.ALLEG, 0) AS ALLEGATO,
|
|
coalesce(G.EXTID, '') AS EXTID,
|
|
CASE WHEN x.PROGID IS NULL THEN '0' ELSE '1' END AS ERRORI ,
|
|
CASE WHEN d.PAOPRIV IS NULL OR d.PAOPRIV = 'R' THEN '1' ELSE '0' END AS PRIVATO,
|
|
d.MAILPEC as MAILPEC_CLI,
|
|
e.MAILPEC as MAILPEC_DEST,
|
|
coalesce(g.NOMEXML, ' ') AS NOMEXML,
|
|
coalesce(g.SERVTRA, ' ') AS SERVTRA,
|
|
coalesce(f.NUMEFATT,' ') AS NUMEFATT,
|
|
coalesce(f.VENDACQU,'V') AS VENDACQU,
|
|
case when a.flinfm <> ' ' AND A.FTDIFMA = 'D' AND A.CDCFFM = A.CIFAFMA AND DEST.CLFOCP = 'D' AND e.CODIPA IS NOT NULL THEN '1' ELSE '0' END FORDEST
|
|
FROM &DT/FTBKMAR55V as a
|
|
LEFT OUTER JOIN &DT/CSTAB as DD ON DD.K00001 = '01DD' CONCAT a.TDOCFM
|
|
JOIN &DT/CGPCO00F as b ON a.CIFAFMA = b.CONTCP
|
|
JOIN &DT/SMTABAR55V as c ON a.GIVAFM = c.XCODTB
|
|
LEFT OUTER JOIN &DT/FTPAE55F as d ON
|
|
d.CDDITTA = ''
|
|
AND a.CIFAFMA = d.CODCLI
|
|
LEFT OUTER JOIN &DT/FTPAE55F as e ON
|
|
e.CDDITTA = ''
|
|
AND a.CSPEFM = e.CODCLI
|
|
AND a.DTFTFM >= e.DTIPA
|
|
LEFT OUTER JOIN &DT/FTPAF55F as f ON a.CDDTFM = f.CDDTFM
|
|
AND a.DTFTFM = f.DTFTFM
|
|
AND a.NRFTFM = f.NRFTFM
|
|
AND a.GIVAFM = f.GIVAFM
|
|
AND 'V' = f.VENDACQU
|
|
LEFT OUTER JOIN &DT/FTPAI55F as g ON f.PROGID = g.PROGID
|
|
LEFT OUTER JOIN &DT/FTPAU55V as h ON a.CDDTFM = h.CDDTFAT
|
|
AND a.DTFTFM = h.DATAFAT
|
|
AND a.NRFTFM = h.NUMFAT
|
|
AND a.GIVAFM = h.GIVAFAT
|
|
AND '' = h.FORNFAT
|
|
LEFT OUTER JOIN &DT/FTPAX55F as x ON (g.PROGID = x.PROGID and x.PROGRIGA = 0)
|
|
JOIN &DT/CGANA00F as i ON i.CONTCA = b.CONTCP
|
|
LEFT JOIN &DT/CGPCO00F DEST ON DEST.CONTCP = a.CSPEFM
|
|
LEFT JOIN &DT/FTPSET55F S ON 1=1
|
|
WHERE coalesce(substr(DD.F00002, 10, 1), a.TDOCFM) <> 'P'
|
|
AND
|
|
(f.storfm is null or f.STORFM <> 'S')
|
|
AND
|
|
(NOT f.nrftfm IS NULL OR
|
|
COALESCE(d.esclusofe, ' ') = ' '
|
|
AND ((d.DTIPA IS NULL AND i.cisoca = 'IT' AND a.DTFTFM >= S.datainb2b
|
|
OR
|
|
(NOT d.DTIPA IS NULL AND (d.DTIPA > 0 AND a.DTFTFM >= d.DTIPA OR (d.DTIPA = 0 AND (d.PAOPRIV = ' ' OR a.DTFTFM >= S.datainb2b)))))))) AS FAT)
|
|
<TAG-SCRIPT><TAG-SCRIPT><IFNOT-VERSION>5
|
|
|
|
CREATE VIEW &DT/FTBKM55V AS (
|
|
SELECT FAT.*,
|
|
CASE WHEN PRIVATO = '1' AND FORDEST = '1' THEN '1' ELSE '0' END AS PRFORDEST,
|
|
CASE WHEN PRIVATO = '0' OR FORDEST = '1' THEN coalesce(DEST, SPACE(10)) ELSE SPACE(10) END AS CSPEFM,
|
|
CASE WHEN PRIVATO = '1' AND FORDEST = '1' THEN IPA_DEST WHEN PRIVATO = '1' THEN coalesce(IPA_CLI,'0000000') ELSE coalesce(IPA_DEST, IPA_CLI) END AS IPA,
|
|
CASE WHEN PRIVATO = '1' AND FORDEST = '1' THEN MAILPEC_DEST WHEN PRIVATO = '1' THEN coalesce(MAILPEC_CLI, SPACE(256)) ELSE coalesce(MAILPEC_DEST, MAILPEC_CLI) END AS MAILPEC
|
|
FROM (
|
|
SELECT a.DTFTFM,
|
|
a.NRFTFM,
|
|
CASE
|
|
WHEN a.FLCGFM = '' THEN '0'
|
|
WHEN a.FLCGFM = '*' THEN '1'
|
|
END AS FLCG,
|
|
a.CIFAFMA AS CDCFFM,
|
|
a.CDCFFM AS f0CDCFFM,
|
|
CSPEFM AS DEST,
|
|
a.GIVAFM,
|
|
a.CDDTFM,
|
|
a.FLSFFM,
|
|
b.DSCOCP ,
|
|
coalesce(CASE
|
|
WHEN g.STATOTRAS = 'T' and x.PROGID IS NOT NULL THEN 'E'
|
|
WHEN coalesce(G.EXTID, '') = '' THEN g.STATOTRAS
|
|
WHEN g.STATOTRAS = 'V' and x.PROGID IS NOT NULL THEN 'C'
|
|
ELSE g.STATOTRAS END
|
|
, 'B') AS STATO,
|
|
d.CODIPA AS IPA_CLI,
|
|
e.CODIPA AS IPA_DEST,
|
|
g.PROGID,
|
|
c.DESC_GIVA,
|
|
coalesce(h.ALLEG, 0) AS ALLEGATO,
|
|
coalesce(G.EXTID, '') AS EXTID,
|
|
CASE WHEN x.PROGID IS NULL THEN '0' ELSE '1' END AS ERRORI ,
|
|
CASE WHEN d.PAOPRIV IS NULL OR d.PAOPRIV = 'R' THEN '1' ELSE '0' END AS PRIVATO,
|
|
d.MAILPEC as MAILPEC_CLI,
|
|
e.MAILPEC as MAILPEC_DEST,
|
|
coalesce(g.NOMEXML, ' ') AS NOMEXML,
|
|
coalesce(g.SERVTRA, ' ') AS SERVTRA,
|
|
coalesce(f.NUMEFATT,' ') AS NUMEFATT,
|
|
coalesce(f.VENDACQU,'V') AS VENDACQU,
|
|
case when a.flinfm <> ' ' AND A.FTDIFMA = 'D' AND A.CDCFFM = A.CIFAFMA AND DEST.CLFODE IS NOT NULL AND e.CODIPA IS NOT NULL THEN '1' ELSE '0' END FORDEST
|
|
FROM &DT/FTBKMAR55V as a
|
|
LEFT OUTER JOIN &DT/CSTAB as DD ON DD.K00001 = '01DD' CONCAT a.TDOCFM
|
|
JOIN &DT/CGPCO00F as b ON a.CIFAFMA = b.CONTCP
|
|
JOIN &DT/SMTABAR55V as c ON a.GIVAFM = c.XCODTB
|
|
LEFT OUTER JOIN &DT/FTPAE55F as d ON
|
|
d.CDDITTA = ''
|
|
AND a.CIFAFMA = d.CODCLI
|
|
LEFT OUTER JOIN &DT/FTPAE55F as e ON
|
|
e.CDDITTA = ''
|
|
AND a.CSPEFM = e.CODCLI
|
|
AND a.DTFTFM >= e.DTIPA
|
|
LEFT OUTER JOIN &DT/FTPAF55F as f ON a.CDDTFM = f.CDDTFM
|
|
AND a.DTFTFM = f.DTFTFM
|
|
AND a.NRFTFM = f.NRFTFM
|
|
AND a.GIVAFM = f.GIVAFM
|
|
AND 'V' = f.VENDACQU
|
|
LEFT OUTER JOIN &DT/FTPAI55F as g ON f.PROGID = g.PROGID
|
|
LEFT OUTER JOIN &DT/FTPAU55V as h ON a.CDDTFM = h.CDDTFAT
|
|
AND a.DTFTFM = h.DATAFAT
|
|
AND a.NRFTFM = h.NUMFAT
|
|
AND a.GIVAFM = h.GIVAFAT
|
|
AND '' = h.FORNFAT
|
|
LEFT OUTER JOIN &DT/FTPAX55F as x ON (g.PROGID = x.PROGID and x.PROGRIGA = 0)
|
|
JOIN &DT/CGANA00F as i ON i.CONTCA = b.CONTCP
|
|
LEFT JOIN &DT/CGADE00F DEST ON DEST.CONTDE = a.CSPEFM
|
|
LEFT JOIN &DT/FTPSET55F S ON 1=1
|
|
WHERE coalesce(substr(DD.F00002, 10, 1), a.TDOCFM) <> 'P'
|
|
AND
|
|
(f.storfm is null or f.STORFM <> 'S')
|
|
AND
|
|
(NOT f.nrftfm IS NULL OR
|
|
COALESCE(d.esclusofe, ' ') = ' '
|
|
AND ((d.DTIPA IS NULL AND i.cisoca = 'IT' AND a.DTFTFM >= S.datainb2b
|
|
OR
|
|
(NOT d.DTIPA IS NULL AND (d.DTIPA > 0 AND a.DTFTFM >= d.DTIPA OR (d.DTIPA = 0 AND (d.PAOPRIV = ' ' OR a.DTFTFM >= S.datainb2b)))))))) AS FAT)
|
|
<TAG-SCRIPT><TAG-SCRIPT><IF-VERSION>5
|
|
|
|
LABEL ON TABLE &DT/FTBKM55V IS 'Art. 55 VIEW STORICI'
|
|
<TAG-SCRIPT>
|
|
|
|
<TAG-VERSIONE-15.10.0>
|
|
<TAG-SCRIPT>
|
|
|
|
CREATE VIEW &DT/FTFTE55V AS (
|
|
SELECT FAT.*,
|
|
CASE WHEN PRIVATO = '1' AND FORDEST = '1' THEN '1' ELSE '0' END AS PRFORDEST,
|
|
CASE WHEN PRIVATO = '0' OR FORDEST = '1' THEN coalesce(DEST, SPACE(10)) ELSE SPACE(10) END AS CSPEFM,
|
|
CASE WHEN DATI_STORICI = '1' THEN IPA_CLI WHEN PRIVATO = '1' AND FORDEST = '1' THEN IPA_DEST WHEN PRIVATO = '1' THEN coalesce(IPA_CLI,'0000000') ELSE coalesce(IPA_DEST, IPA_CLI) END AS IPA,
|
|
CASE WHEN DATI_STORICI = '1' THEN MAILPEC_CLI WHEN PRIVATO = '1' AND FORDEST = '1' THEN MAILPEC_DEST WHEN PRIVATO = '1' THEN coalesce(MAILPEC_CLI, SPACE(256)) ELSE coalesce(MAILPEC_DEST, MAILPEC_CLI) END AS MAILPEC,
|
|
CASE WHEN PRIVATO_NEW = '1' AND FORDEST = '1' THEN IPA_DEST_NEW WHEN PRIVATO_NEW = '1' THEN coalesce(IPA_CLI_NEW,'0000000') ELSE coalesce(IPA_DEST_NEW, IPA_CLI_NEW) END AS IPA_NEW,
|
|
CASE WHEN PRIVATO_NEW = '1' AND FORDEST = '1' THEN MAILPEC_DEST_NEW WHEN PRIVATO_NEW = '1' THEN coalesce(MAILPEC_CLI_NEW, SPACE(256)) ELSE coalesce(MAILPEC_DEST_NEW, MAILPEC_CLI_NEW) END AS MAILPEC_NEW
|
|
FROM (
|
|
SELECT a.DTFTFM,
|
|
a.NRFTFM,
|
|
CASE
|
|
WHEN a.FLCGFM = '' THEN '0'
|
|
WHEN a.FLCGFM = '*' THEN '1'
|
|
END AS FLCG,
|
|
coalesce(f.cdcffm, a.CIFAFMA) AS CDCFFM,
|
|
a.CIFAFMA CDCFFM_NEW,
|
|
a.CDCFFM AS f0CDCFFM,
|
|
CSPEFM AS DEST,
|
|
a.GIVAFM,
|
|
a.CDDTFM,
|
|
a.FLSFFM,
|
|
case when G.CODIDEST IS NULL THEN '0' ELSE '1' END DATI_STORICI,
|
|
case when G.DENOMCES IS NULL THEN b.DSCOCP WHEN G.DENOMCES = '' THEN RTRIM(G.NOMECES) CONCAT ' ' CONCAT G.COGNOCES ELSE G.DENOMCES END AS DSCOCP,
|
|
coalesce(CASE
|
|
WHEN g.STATOTRAS = 'T' and x.PROGID IS NOT NULL THEN 'E'
|
|
WHEN coalesce(G.EXTID, '') = '' THEN g.STATOTRAS
|
|
WHEN g.STATOTRAS = 'V' and x.PROGID IS NOT NULL THEN 'C'
|
|
ELSE g.STATOTRAS END
|
|
, 'B') AS STATO,
|
|
COALESCE(G.CODIDEST, d.CODIPA) AS IPA_CLI,
|
|
COALESCE(G.CODIDEST, e.CODIPA) AS IPA_DEST,
|
|
d.CODIPA AS IPA_CLI_NEW,
|
|
e.CODIPA AS IPA_DEST_NEW,
|
|
g.PROGID,
|
|
c.DESC_GIVA,
|
|
coalesce(h.ALLEG, 0) AS ALLEGATO,
|
|
coalesce(G.EXTID, '') AS EXTID,
|
|
CASE WHEN x.PROGID IS NULL THEN '0' ELSE '1' END AS ERRORI ,
|
|
CASE WHEN G.PAOPRIV IS NULL AND (d.PAOPRIV IS NULL OR d.PAOPRIV = 'R') OR G.PAOPRIV IS NOT NULL AND G.PAOPRIV = 'R' THEN '1' ELSE '0' END AS PRIVATO,
|
|
CASE WHEN d.PAOPRIV IS NULL OR d.PAOPRIV = 'R' THEN '1' ELSE '0' END AS PRIVATO_NEW,
|
|
coalesce(G.MAILPEC, d.MAILPEC) as MAILPEC_CLI,
|
|
coalesce(G.MAILPEC, e.MAILPEC) as MAILPEC_DEST,
|
|
d.MAILPEC as MAILPEC_CLI_NEW,
|
|
e.MAILPEC as MAILPEC_DEST_NEW,
|
|
coalesce(g.NOMEXML, ' ') AS NOMEXML,
|
|
coalesce(g.SERVTRA, ' ') AS SERVTRA,
|
|
coalesce(f.NUMEFATT,' ') AS NUMEFATT,
|
|
coalesce(f.VENDACQU,'V') AS VENDACQU,
|
|
case when a.flinfm <> ' ' AND A.FTDIFMA IN ('D','*') AND A.CDCFFM = A.CIFAFMA AND DEST.CLFOCP = 'D' AND e.CODIPA IS NOT NULL THEN '1' ELSE '0' END FORDEST
|
|
FROM &DT/FTPAFE55F as a
|
|
LEFT OUTER JOIN &DT/CSTAB as DD ON DD.K00001 = '01DD' CONCAT a.TDOCFM
|
|
JOIN &DT/CGPCO00F as b ON a.CIFAFMA = b.CONTCP
|
|
JOIN &DT/SMTABAR55V as c ON a.GIVAFM = c.XCODTB
|
|
LEFT OUTER JOIN &DT/FTPAE55F as d ON
|
|
d.CDDITTA = ''
|
|
AND a.CIFAFMA = d.CODCLI
|
|
AND (d.CODIPA <> '' OR d.esclusofe ='S')
|
|
LEFT OUTER JOIN &DT/FTPAE55F as e ON
|
|
e.CDDITTA = ''
|
|
AND a.CSPEFM = e.CODCLI
|
|
AND a.DTFTFM >= e.DTIPA
|
|
AND e.CODIPA <> ''
|
|
AND e.esclusofe =' '
|
|
LEFT OUTER JOIN &DT/FTPAF55F as f ON a.CDDTFM = f.CDDTFM
|
|
AND a.DTFTFM = f.DTFTFM
|
|
AND a.NRFTFM = f.NRFTFM
|
|
AND a.GIVAFM = f.GIVAFM
|
|
AND 'V' = f.VENDACQU
|
|
LEFT OUTER JOIN &DT/FTPAI55F as g ON f.PROGID = g.PROGID
|
|
LEFT OUTER JOIN &DT/FTPAU55V as h ON a.CDDTFM = h.CDDTFAT
|
|
AND a.DTFTFM = h.DATAFAT
|
|
AND a.NRFTFM = h.NUMFAT
|
|
AND a.GIVAFM = h.GIVAFAT
|
|
AND '' = h.FORNFAT
|
|
LEFT OUTER JOIN &DT/FTPAX55F as x ON (g.PROGID = x.PROGID and x.PROGRIGA = 0)
|
|
JOIN &DT/CGANA00F as i ON i.CONTCA = b.CONTCP
|
|
LEFT JOIN &DT/CGPCO00F DEST ON DEST.CONTCP = a.CSPEFM
|
|
LEFT JOIN &DT/FTPSET55F S ON 1=1
|
|
WHERE coalesce(substr(DD.F00002, 10, 1), a.TDOCFM) <> 'P'
|
|
AND
|
|
(f.storfm is null or f.STORFM <> 'S')
|
|
AND
|
|
(NOT f.nrftfm IS NULL OR
|
|
COALESCE(d.esclusofe, ' ') = ' '
|
|
AND ((d.DTIPA IS NULL AND i.cisoca = 'IT' AND a.DTFTFM >= S.datainb2b
|
|
OR
|
|
(NOT d.DTIPA IS NULL AND (d.DTIPA > 0 AND a.DTFTFM >= d.DTIPA OR (d.DTIPA = 0 AND (d.PAOPRIV = ' ' OR a.DTFTFM >= S.datainb2b)))))))) AS FAT)
|
|
<TAG-SCRIPT><IFNOT-VERSION>5
|
|
|
|
CREATE VIEW &DT/FTFTE55V AS (
|
|
SELECT FAT.*,
|
|
CASE WHEN PRIVATO = '1' AND FORDEST = '1' THEN '1' ELSE '0' END AS PRFORDEST,
|
|
CASE WHEN PRIVATO = '0' OR FORDEST = '1' THEN coalesce(DEST, SPACE(10)) ELSE SPACE(10) END AS CSPEFM,
|
|
CASE WHEN DATI_STORICI = '1' THEN IPA_CLI WHEN PRIVATO = '1' AND FORDEST = '1' THEN IPA_DEST WHEN PRIVATO = '1' THEN coalesce(IPA_CLI,'0000000') ELSE coalesce(IPA_DEST, IPA_CLI) END AS IPA,
|
|
CASE WHEN DATI_STORICI = '1' THEN MAILPEC_CLI WHEN PRIVATO = '1' AND FORDEST = '1' THEN MAILPEC_DEST WHEN PRIVATO = '1' THEN coalesce(MAILPEC_CLI, SPACE(256)) ELSE coalesce(MAILPEC_DEST, MAILPEC_CLI) END AS MAILPEC,
|
|
CASE WHEN PRIVATO_NEW = '1' AND FORDEST = '1' THEN IPA_DEST_NEW WHEN PRIVATO_NEW = '1' THEN coalesce(IPA_CLI_NEW,'0000000') ELSE coalesce(IPA_DEST_NEW, IPA_CLI_NEW) END AS IPA_NEW,
|
|
CASE WHEN PRIVATO_NEW = '1' AND FORDEST = '1' THEN MAILPEC_DEST_NEW WHEN PRIVATO_NEW = '1' THEN coalesce(MAILPEC_CLI_NEW, SPACE(256)) ELSE coalesce(MAILPEC_DEST_NEW, MAILPEC_CLI_NEW) END AS MAILPEC_NEW
|
|
FROM (
|
|
SELECT a.DTFTFM,
|
|
a.NRFTFM,
|
|
CASE
|
|
WHEN a.FLCGFM = '' THEN '0'
|
|
WHEN a.FLCGFM = '*' THEN '1'
|
|
END AS FLCG,
|
|
coalesce(f.cdcffm, a.CIFAFMA) AS CDCFFM,
|
|
a.CIFAFMA CDCFFM_NEW,
|
|
a.CDCFFM AS f0CDCFFM,
|
|
CSPEFM AS DEST,
|
|
a.GIVAFM,
|
|
a.CDDTFM,
|
|
a.FLSFFM,
|
|
case when G.CODIDEST IS NULL THEN '0' ELSE '1' END DATI_STORICI,
|
|
case when G.DENOMCES IS NULL THEN b.DSCOCP WHEN G.DENOMCES = '' THEN RTRIM(G.NOMECES) CONCAT ' ' CONCAT G.COGNOCES ELSE G.DENOMCES END AS DSCOCP,
|
|
coalesce(CASE
|
|
WHEN g.STATOTRAS = 'T' and x.PROGID IS NOT NULL THEN 'E'
|
|
WHEN coalesce(G.EXTID, '') = '' THEN g.STATOTRAS
|
|
WHEN g.STATOTRAS = 'V' and x.PROGID IS NOT NULL THEN 'C'
|
|
ELSE g.STATOTRAS END
|
|
, 'B') AS STATO,
|
|
COALESCE(G.CODIDEST, d.CODIPA) AS IPA_CLI,
|
|
COALESCE(G.CODIDEST, e.CODIPA) AS IPA_DEST,
|
|
d.CODIPA AS IPA_CLI_NEW,
|
|
e.CODIPA AS IPA_DEST_NEW,
|
|
g.PROGID,
|
|
c.DESC_GIVA,
|
|
coalesce(h.ALLEG, 0) AS ALLEGATO,
|
|
coalesce(G.EXTID, '') AS EXTID,
|
|
CASE WHEN x.PROGID IS NULL THEN '0' ELSE '1' END AS ERRORI ,
|
|
CASE WHEN G.PAOPRIV IS NULL AND (d.PAOPRIV IS NULL OR d.PAOPRIV = 'R') OR G.PAOPRIV IS NOT NULL AND G.PAOPRIV = 'R' THEN '1' ELSE '0' END AS PRIVATO,
|
|
CASE WHEN d.PAOPRIV IS NULL OR d.PAOPRIV = 'R' THEN '1' ELSE '0' END AS PRIVATO_NEW,
|
|
coalesce(G.MAILPEC, d.MAILPEC) as MAILPEC_CLI,
|
|
coalesce(G.MAILPEC, e.MAILPEC) as MAILPEC_DEST,
|
|
d.MAILPEC as MAILPEC_CLI_NEW,
|
|
e.MAILPEC as MAILPEC_DEST_NEW,
|
|
coalesce(g.NOMEXML, ' ') AS NOMEXML,
|
|
coalesce(g.SERVTRA, ' ') AS SERVTRA,
|
|
coalesce(f.NUMEFATT,' ') AS NUMEFATT,
|
|
coalesce(f.VENDACQU,'V') AS VENDACQU,
|
|
case when a.flinfm <> ' ' AND A.FTDIFMA IN ('D','*') AND A.CDCFFM = A.CIFAFMA AND DEST.CLFODE IS NOT NULL AND e.CODIPA IS NOT NULL THEN '1' ELSE '0' END FORDEST
|
|
FROM &DT/FTPAFE55F as a
|
|
LEFT OUTER JOIN &DT/CSTAB as DD ON DD.K00001 = '01DD' CONCAT a.TDOCFM
|
|
JOIN &DT/CGPCO00F as b ON a.CIFAFMA = b.CONTCP
|
|
JOIN &DT/SMTABAR55V as c ON a.GIVAFM = c.XCODTB
|
|
LEFT OUTER JOIN &DT/FTPAE55F as d ON
|
|
d.CDDITTA = ''
|
|
AND a.CIFAFMA = d.CODCLI
|
|
AND (d.CODIPA <> '' OR d.esclusofe ='S')
|
|
LEFT OUTER JOIN &DT/FTPAE55F as e ON
|
|
e.CDDITTA = ''
|
|
AND a.CSPEFM = e.CODCLI
|
|
AND a.DTFTFM >= e.DTIPA
|
|
AND e.CODIPA <> ''
|
|
AND e.esclusofe =' '
|
|
LEFT OUTER JOIN &DT/FTPAF55F as f ON a.CDDTFM = f.CDDTFM
|
|
AND a.DTFTFM = f.DTFTFM
|
|
AND a.NRFTFM = f.NRFTFM
|
|
AND a.GIVAFM = f.GIVAFM
|
|
AND 'V' = f.VENDACQU
|
|
LEFT OUTER JOIN &DT/FTPAI55F as g ON f.PROGID = g.PROGID
|
|
LEFT OUTER JOIN &DT/FTPAU55V as h ON a.CDDTFM = h.CDDTFAT
|
|
AND a.DTFTFM = h.DATAFAT
|
|
AND a.NRFTFM = h.NUMFAT
|
|
AND a.GIVAFM = h.GIVAFAT
|
|
AND '' = h.FORNFAT
|
|
LEFT OUTER JOIN &DT/FTPAX55F as x ON (g.PROGID = x.PROGID and x.PROGRIGA = 0)
|
|
JOIN &DT/CGANA00F as i ON i.CONTCA = b.CONTCP
|
|
LEFT JOIN &DT/CGADE00F DEST ON DEST.CONTDE = a.CSPEFM
|
|
LEFT JOIN &DT/FTPSET55F S ON 1=1
|
|
WHERE coalesce(substr(DD.F00002, 10, 1), a.TDOCFM) <> 'P'
|
|
AND
|
|
(f.storfm is null or f.STORFM <> 'S')
|
|
AND
|
|
(NOT f.nrftfm IS NULL OR
|
|
COALESCE(d.esclusofe, ' ') = ' '
|
|
AND ((d.DTIPA IS NULL AND i.cisoca = 'IT' AND a.DTFTFM >= S.datainb2b
|
|
OR
|
|
(NOT d.DTIPA IS NULL AND (d.DTIPA > 0 AND a.DTFTFM >= d.DTIPA OR (d.DTIPA = 0 AND (d.PAOPRIV = ' ' OR a.DTFTFM >= S.datainb2b)))))))) AS FAT)
|
|
<TAG-SCRIPT><IF-VERSION>5
|
|
|
|
LABEL ON TABLE &DT/FTFTE55V IS 'Art. 55 VIEW FATTURE STORICHE E ATTUALI'
|
|
<TAG-SCRIPT>
|
|
|
|
DROP VIEW &DT/FTMOV55V
|
|
<TAG-SCRIPT>
|
|
|
|
CREATE VIEW &DT/FTMOV55V AS (
|
|
SELECT FAT.*,
|
|
CASE WHEN PRIVATO = '1' AND FORDEST = '1' THEN '1' ELSE '0' END AS PRFORDEST,
|
|
CASE WHEN PRIVATO = '0' OR FORDEST = '1' THEN coalesce(DEST, SPACE(10)) ELSE SPACE(10) END AS CSPEFM,
|
|
CASE WHEN DATI_STORICI = '1' THEN IPA_CLI WHEN PRIVATO = '1' AND FORDEST = '1' THEN IPA_DEST WHEN PRIVATO = '1' THEN coalesce(IPA_CLI,'0000000') ELSE coalesce(IPA_DEST, IPA_CLI) END AS IPA,
|
|
CASE WHEN DATI_STORICI = '1' THEN MAILPEC_CLI WHEN PRIVATO = '1' AND FORDEST = '1' THEN MAILPEC_DEST WHEN PRIVATO = '1' THEN coalesce(MAILPEC_CLI, SPACE(256)) ELSE coalesce(MAILPEC_DEST, MAILPEC_CLI) END AS MAILPEC,
|
|
CASE WHEN PRIVATO_NEW = '1' AND FORDEST = '1' THEN IPA_DEST_NEW WHEN PRIVATO_NEW = '1' THEN coalesce(IPA_CLI_NEW,'0000000') ELSE coalesce(IPA_DEST_NEW, IPA_CLI_NEW) END AS IPA_NEW,
|
|
CASE WHEN PRIVATO_NEW = '1' AND FORDEST = '1' THEN MAILPEC_DEST_NEW WHEN PRIVATO_NEW = '1' THEN coalesce(MAILPEC_CLI_NEW, SPACE(256)) ELSE coalesce(MAILPEC_DEST_NEW, MAILPEC_CLI_NEW) END AS MAILPEC_NEW
|
|
FROM (
|
|
SELECT a.DTFTFM,
|
|
a.NRFTFM,
|
|
CASE
|
|
WHEN a.FLCGFM = '' THEN '0'
|
|
WHEN a.FLCGFM = '*' THEN '1'
|
|
END AS FLCG,
|
|
coalesce(f.cdcffm, a.CIFAFMA) AS CDCFFM,
|
|
a.CIFAFMA CDCFFM_NEW,
|
|
a.CDCFFM AS f0CDCFFM,
|
|
CSPEFM AS DEST,
|
|
a.GIVAFM,
|
|
a.CDDTFM,
|
|
a.FLSFFM,
|
|
case when G.CODIDEST IS NULL THEN '0' ELSE '1' END DATI_STORICI,
|
|
case when G.DENOMCES IS NULL THEN b.DSCOCP WHEN G.DENOMCES = '' THEN RTRIM(G.NOMECES) CONCAT ' ' CONCAT G.COGNOCES ELSE G.DENOMCES END AS DSCOCP,
|
|
coalesce(CASE
|
|
WHEN g.STATOTRAS = 'T' and x.PROGID IS NOT NULL THEN 'E'
|
|
WHEN coalesce(G.EXTID, '') = '' THEN g.STATOTRAS
|
|
WHEN g.STATOTRAS = 'V' and x.PROGID IS NOT NULL THEN 'C'
|
|
ELSE g.STATOTRAS END
|
|
, 'B') AS STATO,
|
|
COALESCE(G.CODIDEST, d.CODIPA) AS IPA_CLI,
|
|
COALESCE(G.CODIDEST, e.CODIPA) AS IPA_DEST,
|
|
d.CODIPA AS IPA_CLI_NEW,
|
|
e.CODIPA AS IPA_DEST_NEW,
|
|
g.PROGID,
|
|
c.DESC_GIVA,
|
|
coalesce(h.ALLEG, 0) AS ALLEGATO,
|
|
coalesce(G.EXTID, '') AS EXTID,
|
|
CASE WHEN x.PROGID IS NULL THEN '0' ELSE '1' END AS ERRORI ,
|
|
CASE WHEN G.PAOPRIV IS NULL AND (d.PAOPRIV IS NULL OR d.PAOPRIV = 'R') OR G.PAOPRIV IS NOT NULL AND G.PAOPRIV = 'R' THEN '1' ELSE '0' END AS PRIVATO,
|
|
CASE WHEN d.PAOPRIV IS NULL OR d.PAOPRIV = 'R' THEN '1' ELSE '0' END AS PRIVATO_NEW,
|
|
coalesce(G.MAILPEC, d.MAILPEC) as MAILPEC_CLI,
|
|
coalesce(G.MAILPEC, e.MAILPEC) as MAILPEC_DEST,
|
|
d.MAILPEC as MAILPEC_CLI_NEW,
|
|
e.MAILPEC as MAILPEC_DEST_NEW,
|
|
coalesce(g.NOMEXML, ' ') AS NOMEXML,
|
|
coalesce(g.SERVTRA, ' ') AS SERVTRA,
|
|
coalesce(f.NUMEFATT,' ') AS NUMEFATT,
|
|
coalesce(f.VENDACQU,'V') AS VENDACQU,
|
|
case when a.flinfm <> ' ' AND A.FTDIFMA IN ('D','*') AND A.CDCFFM = A.CIFAFMA AND DEST.CLFOCP = 'D' AND e.CODIPA IS NOT NULL THEN '1' ELSE '0' END FORDEST
|
|
FROM &DT/FTMOVAR55V as a
|
|
LEFT OUTER JOIN &DT/CSTAB as DD ON DD.K00001 = '01DD' CONCAT a.TDOCFM
|
|
JOIN &DT/CGPCO00F as b ON a.CIFAFMA = b.CONTCP
|
|
JOIN &DT/SMTABAR55V as c ON a.GIVAFM = c.XCODTB
|
|
LEFT OUTER JOIN &DT/FTPAE55F as d ON
|
|
d.CDDITTA = ''
|
|
AND a.CIFAFMA = d.CODCLI
|
|
AND (d.CODIPA <> '' OR d.esclusofe ='S')
|
|
LEFT OUTER JOIN &DT/FTPAE55F as e ON
|
|
e.CDDITTA = ''
|
|
AND a.CSPEFM = e.CODCLI
|
|
AND a.DTFTFM >= e.DTIPA
|
|
AND e.CODIPA <> ''
|
|
AND e.esclusofe =' '
|
|
LEFT OUTER JOIN &DT/FTPAF55F as f ON a.CDDTFM = f.CDDTFM
|
|
AND a.DTFTFM = f.DTFTFM
|
|
AND a.NRFTFM = f.NRFTFM
|
|
AND a.GIVAFM = f.GIVAFM
|
|
AND 'V' = f.VENDACQU
|
|
LEFT OUTER JOIN &DT/FTPAI55F as g ON f.PROGID = g.PROGID
|
|
LEFT OUTER JOIN &DT/FTPAU55V as h ON a.CDDTFM = h.CDDTFAT
|
|
AND a.DTFTFM = h.DATAFAT
|
|
AND a.NRFTFM = h.NUMFAT
|
|
AND a.GIVAFM = h.GIVAFAT
|
|
AND '' = h.FORNFAT
|
|
LEFT OUTER JOIN &DT/FTPAX55F as x ON (g.PROGID = x.PROGID and x.PROGRIGA = 0)
|
|
JOIN &DT/CGANA00F as i ON i.CONTCA = b.CONTCP
|
|
LEFT JOIN &DT/CGPCO00F DEST ON DEST.CONTCP = a.CSPEFM
|
|
LEFT JOIN &DT/FTPSET55F S ON 1=1
|
|
WHERE coalesce(substr(DD.F00002, 10, 1), a.TDOCFM) <> 'P'
|
|
AND
|
|
(f.storfm is null or f.STORFM <> 'S')
|
|
AND
|
|
(NOT f.nrftfm IS NULL OR
|
|
COALESCE(d.esclusofe, ' ') = ' '
|
|
AND ((d.DTIPA IS NULL AND i.cisoca = 'IT' AND a.DTFTFM >= S.datainb2b
|
|
OR
|
|
(NOT d.DTIPA IS NULL AND (d.DTIPA > 0 AND a.DTFTFM >= d.DTIPA OR (d.DTIPA = 0 AND (d.PAOPRIV = ' ' OR a.DTFTFM >= S.datainb2b)))))))) AS FAT)
|
|
<TAG-SCRIPT><IFNOT-VERSION>5
|
|
|
|
CREATE VIEW &DT/FTMOV55V AS (
|
|
SELECT FAT.*,
|
|
CASE WHEN PRIVATO = '1' AND FORDEST = '1' THEN '1' ELSE '0' END AS PRFORDEST,
|
|
CASE WHEN PRIVATO = '0' OR FORDEST = '1' THEN coalesce(DEST, SPACE(10)) ELSE SPACE(10) END AS CSPEFM,
|
|
CASE WHEN DATI_STORICI = '1' THEN IPA_CLI WHEN PRIVATO = '1' AND FORDEST = '1' THEN IPA_DEST WHEN PRIVATO = '1' THEN coalesce(IPA_CLI,'0000000') ELSE coalesce(IPA_DEST, IPA_CLI) END AS IPA,
|
|
CASE WHEN DATI_STORICI = '1' THEN MAILPEC_CLI WHEN PRIVATO = '1' AND FORDEST = '1' THEN MAILPEC_DEST WHEN PRIVATO = '1' THEN coalesce(MAILPEC_CLI, SPACE(256)) ELSE coalesce(MAILPEC_DEST, MAILPEC_CLI) END AS MAILPEC,
|
|
CASE WHEN PRIVATO_NEW = '1' AND FORDEST = '1' THEN IPA_DEST_NEW WHEN PRIVATO_NEW = '1' THEN coalesce(IPA_CLI_NEW,'0000000') ELSE coalesce(IPA_DEST_NEW, IPA_CLI_NEW) END AS IPA_NEW,
|
|
CASE WHEN PRIVATO_NEW = '1' AND FORDEST = '1' THEN MAILPEC_DEST_NEW WHEN PRIVATO_NEW = '1' THEN coalesce(MAILPEC_CLI_NEW, SPACE(256)) ELSE coalesce(MAILPEC_DEST_NEW, MAILPEC_CLI_NEW) END AS MAILPEC_NEW
|
|
FROM (
|
|
SELECT a.DTFTFM,
|
|
a.NRFTFM,
|
|
CASE
|
|
WHEN a.FLCGFM = '' THEN '0'
|
|
WHEN a.FLCGFM = '*' THEN '1'
|
|
END AS FLCG,
|
|
coalesce(f.cdcffm, a.CIFAFMA) AS CDCFFM,
|
|
a.CIFAFMA CDCFFM_NEW,
|
|
a.CDCFFM AS f0CDCFFM,
|
|
CSPEFM AS DEST,
|
|
a.GIVAFM,
|
|
a.CDDTFM,
|
|
a.FLSFFM,
|
|
case when G.CODIDEST IS NULL THEN '0' ELSE '1' END DATI_STORICI,
|
|
case when G.DENOMCES IS NULL THEN b.DSCOCP WHEN G.DENOMCES = '' THEN RTRIM(G.NOMECES) CONCAT ' ' CONCAT G.COGNOCES ELSE G.DENOMCES END AS DSCOCP,
|
|
coalesce(CASE
|
|
WHEN g.STATOTRAS = 'T' and x.PROGID IS NOT NULL THEN 'E'
|
|
WHEN coalesce(G.EXTID, '') = '' THEN g.STATOTRAS
|
|
WHEN g.STATOTRAS = 'V' and x.PROGID IS NOT NULL THEN 'C'
|
|
ELSE g.STATOTRAS END
|
|
, 'B') AS STATO,
|
|
COALESCE(G.CODIDEST, d.CODIPA) AS IPA_CLI,
|
|
COALESCE(G.CODIDEST, e.CODIPA) AS IPA_DEST,
|
|
d.CODIPA AS IPA_CLI_NEW,
|
|
e.CODIPA AS IPA_DEST_NEW,
|
|
g.PROGID,
|
|
c.DESC_GIVA,
|
|
coalesce(h.ALLEG, 0) AS ALLEGATO,
|
|
coalesce(G.EXTID, '') AS EXTID,
|
|
CASE WHEN x.PROGID IS NULL THEN '0' ELSE '1' END AS ERRORI ,
|
|
CASE WHEN G.PAOPRIV IS NULL AND (d.PAOPRIV IS NULL OR d.PAOPRIV = 'R') OR G.PAOPRIV IS NOT NULL AND G.PAOPRIV = 'R' THEN '1' ELSE '0' END AS PRIVATO,
|
|
CASE WHEN d.PAOPRIV IS NULL OR d.PAOPRIV = 'R' THEN '1' ELSE '0' END AS PRIVATO_NEW,
|
|
coalesce(G.MAILPEC, d.MAILPEC) as MAILPEC_CLI,
|
|
coalesce(G.MAILPEC, e.MAILPEC) as MAILPEC_DEST,
|
|
d.MAILPEC as MAILPEC_CLI_NEW,
|
|
e.MAILPEC as MAILPEC_DEST_NEW,
|
|
coalesce(g.NOMEXML, ' ') AS NOMEXML,
|
|
coalesce(g.SERVTRA, ' ') AS SERVTRA,
|
|
coalesce(f.NUMEFATT,' ') AS NUMEFATT,
|
|
coalesce(f.VENDACQU,'V') AS VENDACQU,
|
|
case when a.flinfm <> ' ' AND A.FTDIFMA IN ('D','*') AND A.CDCFFM = A.CIFAFMA AND DEST.CLFODE IS NOT NULL AND e.CODIPA IS NOT NULL THEN '1' ELSE '0' END FORDEST
|
|
FROM &DT/FTMOVAR55V as a
|
|
LEFT OUTER JOIN &DT/CSTAB as DD ON DD.K00001 = '01DD' CONCAT a.TDOCFM
|
|
JOIN &DT/CGPCO00F as b ON a.CIFAFMA = b.CONTCP
|
|
JOIN &DT/SMTABAR55V as c ON a.GIVAFM = c.XCODTB
|
|
LEFT OUTER JOIN &DT/FTPAE55F as d ON
|
|
d.CDDITTA = ''
|
|
AND a.CIFAFMA = d.CODCLI
|
|
AND (d.CODIPA <> '' OR d.esclusofe ='S')
|
|
LEFT OUTER JOIN &DT/FTPAE55F as e ON
|
|
e.CDDITTA = ''
|
|
AND a.CSPEFM = e.CODCLI
|
|
AND a.DTFTFM >= e.DTIPA
|
|
AND e.CODIPA <> ''
|
|
AND e.esclusofe =' '
|
|
LEFT OUTER JOIN &DT/FTPAF55F as f ON a.CDDTFM = f.CDDTFM
|
|
AND a.DTFTFM = f.DTFTFM
|
|
AND a.NRFTFM = f.NRFTFM
|
|
AND a.GIVAFM = f.GIVAFM
|
|
AND 'V' = f.VENDACQU
|
|
LEFT OUTER JOIN &DT/FTPAI55F as g ON f.PROGID = g.PROGID
|
|
LEFT OUTER JOIN &DT/FTPAU55V as h ON a.CDDTFM = h.CDDTFAT
|
|
AND a.DTFTFM = h.DATAFAT
|
|
AND a.NRFTFM = h.NUMFAT
|
|
AND a.GIVAFM = h.GIVAFAT
|
|
AND '' = h.FORNFAT
|
|
LEFT OUTER JOIN &DT/FTPAX55F as x ON (g.PROGID = x.PROGID and x.PROGRIGA = 0)
|
|
JOIN &DT/CGANA00F as i ON i.CONTCA = b.CONTCP
|
|
LEFT JOIN &DT/CGADE00F DEST ON DEST.CONTDE = a.CSPEFM
|
|
LEFT JOIN &DT/FTPSET55F S ON 1=1
|
|
WHERE coalesce(substr(DD.F00002, 10, 1), a.TDOCFM) <> 'P'
|
|
AND
|
|
(f.storfm is null or f.STORFM <> 'S')
|
|
AND
|
|
(NOT f.nrftfm IS NULL OR
|
|
COALESCE(d.esclusofe, ' ') = ' '
|
|
AND ((d.DTIPA IS NULL AND i.cisoca = 'IT' AND a.DTFTFM >= S.datainb2b
|
|
OR
|
|
(NOT d.DTIPA IS NULL AND (d.DTIPA > 0 AND a.DTFTFM >= d.DTIPA OR (d.DTIPA = 0 AND (d.PAOPRIV = ' ' OR a.DTFTFM >= S.datainb2b)))))))) AS FAT)
|
|
<TAG-SCRIPT><IF-VERSION>5
|
|
|
|
LABEL ON TABLE &DT/FTMOV55V IS 'Art. 55 VIEW ATTUALI'
|
|
<TAG-SCRIPT>
|
|
|
|
DROP VIEW &DT/FTBKM55V
|
|
<TAG-SCRIPT>
|
|
|
|
CREATE VIEW &DT/FTBKM55V AS (
|
|
SELECT FAT.*,
|
|
CASE WHEN PRIVATO = '1' AND FORDEST = '1' THEN '1' ELSE '0' END AS PRFORDEST,
|
|
CASE WHEN PRIVATO = '0' OR FORDEST = '1' THEN coalesce(DEST, SPACE(10)) ELSE SPACE(10) END AS CSPEFM,
|
|
CASE WHEN DATI_STORICI = '1' THEN IPA_CLI WHEN PRIVATO = '1' AND FORDEST = '1' THEN IPA_DEST WHEN PRIVATO = '1' THEN coalesce(IPA_CLI,'0000000') ELSE coalesce(IPA_DEST, IPA_CLI) END AS IPA,
|
|
CASE WHEN DATI_STORICI = '1' THEN MAILPEC_CLI WHEN PRIVATO = '1' AND FORDEST = '1' THEN MAILPEC_DEST WHEN PRIVATO = '1' THEN coalesce(MAILPEC_CLI, SPACE(256)) ELSE coalesce(MAILPEC_DEST, MAILPEC_CLI) END AS MAILPEC,
|
|
CASE WHEN PRIVATO_NEW = '1' AND FORDEST = '1' THEN IPA_DEST_NEW WHEN PRIVATO_NEW = '1' THEN coalesce(IPA_CLI_NEW,'0000000') ELSE coalesce(IPA_DEST_NEW, IPA_CLI_NEW) END AS IPA_NEW,
|
|
CASE WHEN PRIVATO_NEW = '1' AND FORDEST = '1' THEN MAILPEC_DEST_NEW WHEN PRIVATO_NEW = '1' THEN coalesce(MAILPEC_CLI_NEW, SPACE(256)) ELSE coalesce(MAILPEC_DEST_NEW, MAILPEC_CLI_NEW) END AS MAILPEC_NEW
|
|
FROM (
|
|
SELECT a.DTFTFM,
|
|
a.NRFTFM,
|
|
CASE
|
|
WHEN a.FLCGFM = '' THEN '0'
|
|
WHEN a.FLCGFM = '*' THEN '1'
|
|
END AS FLCG,
|
|
coalesce(f.cdcffm, a.CIFAFMA) AS CDCFFM,
|
|
a.CIFAFMA CDCFFM_NEW,
|
|
a.CDCFFM AS f0CDCFFM,
|
|
CSPEFM AS DEST,
|
|
a.GIVAFM,
|
|
a.CDDTFM,
|
|
a.FLSFFM,
|
|
case when G.CODIDEST IS NULL THEN '0' ELSE '1' END DATI_STORICI,
|
|
case when G.DENOMCES IS NULL THEN b.DSCOCP WHEN G.DENOMCES = '' THEN RTRIM(G.NOMECES) CONCAT ' ' CONCAT G.COGNOCES ELSE G.DENOMCES END AS DSCOCP,
|
|
coalesce(CASE
|
|
WHEN g.STATOTRAS = 'T' and x.PROGID IS NOT NULL THEN 'E'
|
|
WHEN coalesce(G.EXTID, '') = '' THEN g.STATOTRAS
|
|
WHEN g.STATOTRAS = 'V' and x.PROGID IS NOT NULL THEN 'C'
|
|
ELSE g.STATOTRAS END
|
|
, 'B') AS STATO,
|
|
COALESCE(G.CODIDEST, d.CODIPA) AS IPA_CLI,
|
|
COALESCE(G.CODIDEST, e.CODIPA) AS IPA_DEST,
|
|
d.CODIPA AS IPA_CLI_NEW,
|
|
e.CODIPA AS IPA_DEST_NEW,
|
|
g.PROGID,
|
|
c.DESC_GIVA,
|
|
coalesce(h.ALLEG, 0) AS ALLEGATO,
|
|
coalesce(G.EXTID, '') AS EXTID,
|
|
CASE WHEN x.PROGID IS NULL THEN '0' ELSE '1' END AS ERRORI ,
|
|
CASE WHEN G.PAOPRIV IS NULL AND (d.PAOPRIV IS NULL OR d.PAOPRIV = 'R') OR G.PAOPRIV IS NOT NULL AND G.PAOPRIV = 'R' THEN '1' ELSE '0' END AS PRIVATO,
|
|
CASE WHEN d.PAOPRIV IS NULL OR d.PAOPRIV = 'R' THEN '1' ELSE '0' END AS PRIVATO_NEW,
|
|
coalesce(G.MAILPEC, d.MAILPEC) as MAILPEC_CLI,
|
|
coalesce(G.MAILPEC, e.MAILPEC) as MAILPEC_DEST,
|
|
d.MAILPEC as MAILPEC_CLI_NEW,
|
|
e.MAILPEC as MAILPEC_DEST_NEW,
|
|
coalesce(g.NOMEXML, ' ') AS NOMEXML,
|
|
coalesce(g.SERVTRA, ' ') AS SERVTRA,
|
|
coalesce(f.NUMEFATT,' ') AS NUMEFATT,
|
|
coalesce(f.VENDACQU,'V') AS VENDACQU,
|
|
case when a.flinfm <> ' ' AND A.FTDIFMA IN ('D','*') AND A.CDCFFM = A.CIFAFMA AND DEST.CLFOCP = 'D' AND e.CODIPA IS NOT NULL THEN '1' ELSE '0' END FORDEST
|
|
FROM &DT/FTBKMAR55V as a
|
|
LEFT OUTER JOIN &DT/CSTAB as DD ON DD.K00001 = '01DD' CONCAT a.TDOCFM
|
|
JOIN &DT/CGPCO00F as b ON a.CIFAFMA = b.CONTCP
|
|
JOIN &DT/SMTABAR55V as c ON a.GIVAFM = c.XCODTB
|
|
LEFT OUTER JOIN &DT/FTPAE55F as d ON
|
|
d.CDDITTA = ''
|
|
AND a.CIFAFMA = d.CODCLI
|
|
AND (d.CODIPA <> '' OR d.esclusofe ='S')
|
|
LEFT OUTER JOIN &DT/FTPAE55F as e ON
|
|
e.CDDITTA = ''
|
|
AND a.CSPEFM = e.CODCLI
|
|
AND a.DTFTFM >= e.DTIPA
|
|
AND e.CODIPA <> ''
|
|
AND e.esclusofe =' '
|
|
LEFT OUTER JOIN &DT/FTPAF55F as f ON a.CDDTFM = f.CDDTFM
|
|
AND a.DTFTFM = f.DTFTFM
|
|
AND a.NRFTFM = f.NRFTFM
|
|
AND a.GIVAFM = f.GIVAFM
|
|
AND 'V' = f.VENDACQU
|
|
LEFT OUTER JOIN &DT/FTPAI55F as g ON f.PROGID = g.PROGID
|
|
LEFT OUTER JOIN &DT/FTPAU55V as h ON a.CDDTFM = h.CDDTFAT
|
|
AND a.DTFTFM = h.DATAFAT
|
|
AND a.NRFTFM = h.NUMFAT
|
|
AND a.GIVAFM = h.GIVAFAT
|
|
AND '' = h.FORNFAT
|
|
LEFT OUTER JOIN &DT/FTPAX55F as x ON (g.PROGID = x.PROGID and x.PROGRIGA = 0)
|
|
JOIN &DT/CGANA00F as i ON i.CONTCA = b.CONTCP
|
|
LEFT JOIN &DT/CGPCO00F DEST ON DEST.CONTCP = a.CSPEFM
|
|
LEFT JOIN &DT/FTPSET55F S ON 1=1
|
|
WHERE coalesce(substr(DD.F00002, 10, 1), a.TDOCFM) <> 'P'
|
|
AND
|
|
(f.storfm is null or f.STORFM <> 'S')
|
|
AND
|
|
(NOT f.nrftfm IS NULL OR
|
|
COALESCE(d.esclusofe, ' ') = ' '
|
|
AND ((d.DTIPA IS NULL AND i.cisoca = 'IT' AND a.DTFTFM >= S.datainb2b
|
|
OR
|
|
(NOT d.DTIPA IS NULL AND (d.DTIPA > 0 AND a.DTFTFM >= d.DTIPA OR (d.DTIPA = 0 AND (d.PAOPRIV = ' ' OR a.DTFTFM >= S.datainb2b)))))))) AS FAT)
|
|
<TAG-SCRIPT><IFNOT-VERSION>5
|
|
|
|
CREATE VIEW &DT/FTBKM55V AS (
|
|
SELECT FAT.*,
|
|
CASE WHEN PRIVATO = '1' AND FORDEST = '1' THEN '1' ELSE '0' END AS PRFORDEST,
|
|
CASE WHEN PRIVATO = '0' OR FORDEST = '1' THEN coalesce(DEST, SPACE(10)) ELSE SPACE(10) END AS CSPEFM,
|
|
CASE WHEN DATI_STORICI = '1' THEN IPA_CLI WHEN PRIVATO = '1' AND FORDEST = '1' THEN IPA_DEST WHEN PRIVATO = '1' THEN coalesce(IPA_CLI,'0000000') ELSE coalesce(IPA_DEST, IPA_CLI) END AS IPA,
|
|
CASE WHEN DATI_STORICI = '1' THEN MAILPEC_CLI WHEN PRIVATO = '1' AND FORDEST = '1' THEN MAILPEC_DEST WHEN PRIVATO = '1' THEN coalesce(MAILPEC_CLI, SPACE(256)) ELSE coalesce(MAILPEC_DEST, MAILPEC_CLI) END AS MAILPEC,
|
|
CASE WHEN PRIVATO_NEW = '1' AND FORDEST = '1' THEN IPA_DEST_NEW WHEN PRIVATO_NEW = '1' THEN coalesce(IPA_CLI_NEW,'0000000') ELSE coalesce(IPA_DEST_NEW, IPA_CLI_NEW) END AS IPA_NEW,
|
|
CASE WHEN PRIVATO_NEW = '1' AND FORDEST = '1' THEN MAILPEC_DEST_NEW WHEN PRIVATO_NEW = '1' THEN coalesce(MAILPEC_CLI_NEW, SPACE(256)) ELSE coalesce(MAILPEC_DEST_NEW, MAILPEC_CLI_NEW) END AS MAILPEC_NEW
|
|
FROM (
|
|
SELECT a.DTFTFM,
|
|
a.NRFTFM,
|
|
CASE
|
|
WHEN a.FLCGFM = '' THEN '0'
|
|
WHEN a.FLCGFM = '*' THEN '1'
|
|
END AS FLCG,
|
|
coalesce(f.cdcffm, a.CIFAFMA) AS CDCFFM,
|
|
a.CIFAFMA CDCFFM_NEW,
|
|
a.CDCFFM AS f0CDCFFM,
|
|
CSPEFM AS DEST,
|
|
a.GIVAFM,
|
|
a.CDDTFM,
|
|
a.FLSFFM,
|
|
case when G.CODIDEST IS NULL THEN '0' ELSE '1' END DATI_STORICI,
|
|
case when G.DENOMCES IS NULL THEN b.DSCOCP WHEN G.DENOMCES = '' THEN RTRIM(G.NOMECES) CONCAT ' ' CONCAT G.COGNOCES ELSE G.DENOMCES END AS DSCOCP,
|
|
coalesce(CASE
|
|
WHEN g.STATOTRAS = 'T' and x.PROGID IS NOT NULL THEN 'E'
|
|
WHEN coalesce(G.EXTID, '') = '' THEN g.STATOTRAS
|
|
WHEN g.STATOTRAS = 'V' and x.PROGID IS NOT NULL THEN 'C'
|
|
ELSE g.STATOTRAS END
|
|
, 'B') AS STATO,
|
|
COALESCE(G.CODIDEST, d.CODIPA) AS IPA_CLI,
|
|
COALESCE(G.CODIDEST, e.CODIPA) AS IPA_DEST,
|
|
d.CODIPA AS IPA_CLI_NEW,
|
|
e.CODIPA AS IPA_DEST_NEW,
|
|
g.PROGID,
|
|
c.DESC_GIVA,
|
|
coalesce(h.ALLEG, 0) AS ALLEGATO,
|
|
coalesce(G.EXTID, '') AS EXTID,
|
|
CASE WHEN x.PROGID IS NULL THEN '0' ELSE '1' END AS ERRORI ,
|
|
CASE WHEN G.PAOPRIV IS NULL AND (d.PAOPRIV IS NULL OR d.PAOPRIV = 'R') OR G.PAOPRIV IS NOT NULL AND G.PAOPRIV = 'R' THEN '1' ELSE '0' END AS PRIVATO,
|
|
CASE WHEN d.PAOPRIV IS NULL OR d.PAOPRIV = 'R' THEN '1' ELSE '0' END AS PRIVATO_NEW,
|
|
coalesce(G.MAILPEC, d.MAILPEC) as MAILPEC_CLI,
|
|
coalesce(G.MAILPEC, e.MAILPEC) as MAILPEC_DEST,
|
|
d.MAILPEC as MAILPEC_CLI_NEW,
|
|
e.MAILPEC as MAILPEC_DEST_NEW,
|
|
coalesce(g.NOMEXML, ' ') AS NOMEXML,
|
|
coalesce(g.SERVTRA, ' ') AS SERVTRA,
|
|
coalesce(f.NUMEFATT,' ') AS NUMEFATT,
|
|
coalesce(f.VENDACQU,'V') AS VENDACQU,
|
|
case when a.flinfm <> ' ' AND A.FTDIFMA IN ('D','*') AND A.CDCFFM = A.CIFAFMA AND DEST.CLFODE IS NOT NULL AND e.CODIPA IS NOT NULL THEN '1' ELSE '0' END FORDEST
|
|
FROM &DT/FTBKMAR55V as a
|
|
LEFT OUTER JOIN &DT/CSTAB as DD ON DD.K00001 = '01DD' CONCAT a.TDOCFM
|
|
JOIN &DT/CGPCO00F as b ON a.CIFAFMA = b.CONTCP
|
|
JOIN &DT/SMTABAR55V as c ON a.GIVAFM = c.XCODTB
|
|
LEFT OUTER JOIN &DT/FTPAE55F as d ON
|
|
d.CDDITTA = ''
|
|
AND a.CIFAFMA = d.CODCLI
|
|
AND (d.CODIPA <> '' OR d.esclusofe ='S')
|
|
LEFT OUTER JOIN &DT/FTPAE55F as e ON
|
|
e.CDDITTA = ''
|
|
AND a.CSPEFM = e.CODCLI
|
|
AND a.DTFTFM >= e.DTIPA
|
|
AND e.CODIPA <> ''
|
|
AND e.esclusofe =' '
|
|
LEFT OUTER JOIN &DT/FTPAF55F as f ON a.CDDTFM = f.CDDTFM
|
|
AND a.DTFTFM = f.DTFTFM
|
|
AND a.NRFTFM = f.NRFTFM
|
|
AND a.GIVAFM = f.GIVAFM
|
|
AND 'V' = f.VENDACQU
|
|
LEFT OUTER JOIN &DT/FTPAI55F as g ON f.PROGID = g.PROGID
|
|
LEFT OUTER JOIN &DT/FTPAU55V as h ON a.CDDTFM = h.CDDTFAT
|
|
AND a.DTFTFM = h.DATAFAT
|
|
AND a.NRFTFM = h.NUMFAT
|
|
AND a.GIVAFM = h.GIVAFAT
|
|
AND '' = h.FORNFAT
|
|
LEFT OUTER JOIN &DT/FTPAX55F as x ON (g.PROGID = x.PROGID and x.PROGRIGA = 0)
|
|
JOIN &DT/CGANA00F as i ON i.CONTCA = b.CONTCP
|
|
LEFT JOIN &DT/CGADE00F DEST ON DEST.CONTDE = a.CSPEFM
|
|
LEFT JOIN &DT/FTPSET55F S ON 1=1
|
|
WHERE coalesce(substr(DD.F00002, 10, 1), a.TDOCFM) <> 'P'
|
|
AND
|
|
(f.storfm is null or f.STORFM <> 'S')
|
|
AND
|
|
(NOT f.nrftfm IS NULL OR
|
|
COALESCE(d.esclusofe, ' ') = ' '
|
|
AND ((d.DTIPA IS NULL AND i.cisoca = 'IT' AND a.DTFTFM >= S.datainb2b
|
|
OR
|
|
(NOT d.DTIPA IS NULL AND (d.DTIPA > 0 AND a.DTFTFM >= d.DTIPA OR (d.DTIPA = 0 AND (d.PAOPRIV = ' ' OR a.DTFTFM >= S.datainb2b)))))))) AS FAT)
|
|
<TAG-SCRIPT><IF-VERSION>5
|
|
|
|
LABEL ON TABLE &DT/FTBKM55V IS 'Art. 55 VIEW STORICI'
|
|
<TAG-SCRIPT>
|
|
|
|
<TAG-VERSIONE-15.11.0>
|
|
<TAG-SCRIPT>
|
|
|
|
<TAG-VERSIONE-15.12.0>
|
|
<TAG-SCRIPT>
|
|
|
|
<TAG-VERSIONE-15.13.0>
|
|
<TAG-SCRIPT>
|
|
|
|
DROP VIEW &DT/FTFTE55V
|
|
<TAG-SCRIPT>
|
|
|
|
CREATE VIEW &DT/FTFTE55V AS (
|
|
SELECT FAT.*,
|
|
CASE WHEN PRIVATO = '1' AND FORDEST = '1' THEN '1' ELSE '0' END AS PRFORDEST,
|
|
CASE WHEN PRIVATO = '0' OR FORDEST = '1' THEN coalesce(DEST, SPACE(10)) ELSE SPACE(10) END AS CSPEFM,
|
|
CASE WHEN DATI_STORICI = '1' THEN IPA_CLI WHEN PRIVATO = '1' AND FORDEST = '1' THEN IPA_DEST WHEN PRIVATO = '1' THEN coalesce(IPA_CLI,'0000000') ELSE coalesce(IPA_DEST, IPA_CLI) END AS IPA,
|
|
CASE WHEN DATI_STORICI = '1' THEN MAILPEC_CLI WHEN PRIVATO = '1' AND FORDEST = '1' THEN MAILPEC_DEST WHEN PRIVATO = '1' THEN coalesce(MAILPEC_CLI, SPACE(256)) ELSE coalesce(MAILPEC_DEST, MAILPEC_CLI) END AS MAILPEC,
|
|
CASE WHEN PRIVATO_NEW = '1' AND FORDEST = '1' THEN IPA_DEST_NEW WHEN PRIVATO_NEW = '1' THEN coalesce(IPA_CLI_NEW,'0000000') ELSE coalesce(IPA_DEST_NEW, IPA_CLI_NEW) END AS IPA_NEW,
|
|
CASE WHEN PRIVATO_NEW = '1' AND FORDEST = '1' THEN MAILPEC_DEST_NEW WHEN PRIVATO_NEW = '1' THEN coalesce(MAILPEC_CLI_NEW, SPACE(256)) ELSE coalesce(MAILPEC_DEST_NEW, MAILPEC_CLI_NEW) END AS MAILPEC_NEW
|
|
FROM (
|
|
SELECT a.DTFTFM,
|
|
a.NRFTFM,
|
|
CASE
|
|
WHEN a.FLCGFM = '' THEN '0'
|
|
WHEN a.FLCGFM = '*' THEN '1'
|
|
END AS FLCG,
|
|
coalesce(f.cdcffm, a.CIFAFMA) AS CDCFFM,
|
|
a.CIFAFMA CDCFFM_NEW,
|
|
a.CDCFFM AS f0CDCFFM,
|
|
CSPEFM AS DEST,
|
|
a.GIVAFM,
|
|
a.CDDTFM,
|
|
a.FLSFFM,
|
|
case when G.CODIDEST IS NULL THEN '0' ELSE '1' END DATI_STORICI,
|
|
case when G.DENOMCES IS NULL THEN b.DSCOCP WHEN G.DENOMCES = '' THEN RTRIM(G.NOMECES) CONCAT ' ' CONCAT G.COGNOCES ELSE G.DENOMCES END AS DSCOCP,
|
|
coalesce(CASE
|
|
WHEN g.STATOTRAS = 'T' and x.PROGID IS NOT NULL THEN 'E'
|
|
WHEN coalesce(G.EXTID, '') = '' THEN g.STATOTRAS
|
|
WHEN g.STATOTRAS = 'V' and x.PROGID IS NOT NULL THEN 'C'
|
|
ELSE g.STATOTRAS END
|
|
, 'B') AS STATO,
|
|
COALESCE(G.CODIDEST, d.CODIPA) AS IPA_CLI,
|
|
COALESCE(G.CODIDEST, e.CODIPA) AS IPA_DEST,
|
|
d.CODIPA AS IPA_CLI_NEW,
|
|
e.CODIPA AS IPA_DEST_NEW,
|
|
g.PROGID,
|
|
c.DESC_GIVA,
|
|
coalesce(h.ALLEG, 0) AS ALLEGATO,
|
|
coalesce(G.EXTID, '') AS EXTID,
|
|
CASE WHEN x.PROGID IS NULL THEN '0' ELSE '1' END AS ERRORI ,
|
|
CASE WHEN G.PAOPRIV IS NULL AND (d.PAOPRIV IS NULL OR d.PAOPRIV = 'R') OR G.PAOPRIV IS NOT NULL AND G.PAOPRIV = 'R' THEN '1' ELSE '0' END AS PRIVATO,
|
|
CASE WHEN d.PAOPRIV IS NULL OR d.PAOPRIV = 'R' THEN '1' ELSE '0' END AS PRIVATO_NEW,
|
|
coalesce(G.MAILPEC, d.MAILPEC) as MAILPEC_CLI,
|
|
coalesce(G.MAILPEC, e.MAILPEC) as MAILPEC_DEST,
|
|
d.MAILPEC as MAILPEC_CLI_NEW,
|
|
e.MAILPEC as MAILPEC_DEST_NEW,
|
|
coalesce(g.NOMEXML, ' ') AS NOMEXML,
|
|
coalesce(g.SERVTRA, ' ') AS SERVTRA,
|
|
coalesce(f.NUMEFATT,' ') AS NUMEFATT,
|
|
coalesce(f.VENDACQU,'V') AS VENDACQU,
|
|
case when a.flinfm <> ' ' AND A.FTDIFMA IN ('D','*') AND A.CDCFFM = A.CIFAFMA AND DEST.CLFOCP = 'D' AND e.CODIPA IS NOT NULL THEN '1' ELSE '0' END FORDEST,
|
|
coalesce(f.impotot, 0) impotot
|
|
FROM &DT/FTPAFE55F as a
|
|
LEFT OUTER JOIN &DT/CSTAB as DD ON DD.K00001 = '01DD' CONCAT a.TDOCFM
|
|
JOIN &DT/CGPCO00F as b ON a.CIFAFMA = b.CONTCP
|
|
JOIN &DT/SMTABAR55V as c ON a.GIVAFM = c.XCODTB
|
|
LEFT OUTER JOIN &DT/FTPAE55F as d ON
|
|
d.CDDITTA = ''
|
|
AND a.CIFAFMA = d.CODCLI
|
|
AND (d.CODIPA <> '' OR d.esclusofe ='S')
|
|
LEFT OUTER JOIN &DT/FTPAE55F as e ON
|
|
e.CDDITTA = ''
|
|
AND a.CSPEFM = e.CODCLI
|
|
AND a.DTFTFM >= e.DTIPA
|
|
AND e.CODIPA <> ''
|
|
AND e.esclusofe =' '
|
|
LEFT OUTER JOIN &DT/FTPAF55F as f ON a.CDDTFM = f.CDDTFM
|
|
AND a.DTFTFM = f.DTFTFM
|
|
AND a.NRFTFM = f.NRFTFM
|
|
AND a.GIVAFM = f.GIVAFM
|
|
AND 'V' = f.VENDACQU
|
|
LEFT OUTER JOIN &DT/FTPAI55F as g ON f.PROGID = g.PROGID
|
|
LEFT OUTER JOIN &DT/FTPAU55V as h ON a.CDDTFM = h.CDDTFAT
|
|
AND a.DTFTFM = h.DATAFAT
|
|
AND a.NRFTFM = h.NUMFAT
|
|
AND a.GIVAFM = h.GIVAFAT
|
|
AND '' = h.FORNFAT
|
|
LEFT OUTER JOIN &DT/FTPAX55F as x ON (g.PROGID = x.PROGID and x.PROGRIGA = 0)
|
|
JOIN &DT/CGANA00F as i ON i.CONTCA = b.CONTCP
|
|
LEFT JOIN &DT/CGPCO00F DEST ON DEST.CONTCP = a.CSPEFM
|
|
LEFT JOIN &DT/FTPSET55F S ON 1=1
|
|
WHERE coalesce(substr(DD.F00002, 10, 1), a.TDOCFM) <> 'P'
|
|
AND
|
|
(f.storfm is null or f.STORFM <> 'S')
|
|
AND
|
|
(NOT f.nrftfm IS NULL OR
|
|
COALESCE(d.esclusofe, ' ') = ' '
|
|
AND ((d.DTIPA IS NULL AND i.cisoca = 'IT' AND a.DTFTFM >= S.datainb2b
|
|
OR
|
|
(NOT d.DTIPA IS NULL AND (d.DTIPA > 0 AND a.DTFTFM >= d.DTIPA OR (d.DTIPA = 0 AND (d.PAOPRIV = ' ' OR a.DTFTFM >= S.datainb2b)))))))) AS FAT)
|
|
<TAG-SCRIPT><IFNOT-VERSION>5
|
|
|
|
CREATE VIEW &DT/FTFTE55V AS (
|
|
SELECT FAT.*,
|
|
CASE WHEN PRIVATO = '1' AND FORDEST = '1' THEN '1' ELSE '0' END AS PRFORDEST,
|
|
CASE WHEN PRIVATO = '0' OR FORDEST = '1' THEN coalesce(DEST, SPACE(10)) ELSE SPACE(10) END AS CSPEFM,
|
|
CASE WHEN DATI_STORICI = '1' THEN IPA_CLI WHEN PRIVATO = '1' AND FORDEST = '1' THEN IPA_DEST WHEN PRIVATO = '1' THEN coalesce(IPA_CLI,'0000000') ELSE coalesce(IPA_DEST, IPA_CLI) END AS IPA,
|
|
CASE WHEN DATI_STORICI = '1' THEN MAILPEC_CLI WHEN PRIVATO = '1' AND FORDEST = '1' THEN MAILPEC_DEST WHEN PRIVATO = '1' THEN coalesce(MAILPEC_CLI, SPACE(256)) ELSE coalesce(MAILPEC_DEST, MAILPEC_CLI) END AS MAILPEC,
|
|
CASE WHEN PRIVATO_NEW = '1' AND FORDEST = '1' THEN IPA_DEST_NEW WHEN PRIVATO_NEW = '1' THEN coalesce(IPA_CLI_NEW,'0000000') ELSE coalesce(IPA_DEST_NEW, IPA_CLI_NEW) END AS IPA_NEW,
|
|
CASE WHEN PRIVATO_NEW = '1' AND FORDEST = '1' THEN MAILPEC_DEST_NEW WHEN PRIVATO_NEW = '1' THEN coalesce(MAILPEC_CLI_NEW, SPACE(256)) ELSE coalesce(MAILPEC_DEST_NEW, MAILPEC_CLI_NEW) END AS MAILPEC_NEW
|
|
FROM (
|
|
SELECT a.DTFTFM,
|
|
a.NRFTFM,
|
|
CASE
|
|
WHEN a.FLCGFM = '' THEN '0'
|
|
WHEN a.FLCGFM = '*' THEN '1'
|
|
END AS FLCG,
|
|
coalesce(f.cdcffm, a.CIFAFMA) AS CDCFFM,
|
|
a.CIFAFMA CDCFFM_NEW,
|
|
a.CDCFFM AS f0CDCFFM,
|
|
CSPEFM AS DEST,
|
|
a.GIVAFM,
|
|
a.CDDTFM,
|
|
a.FLSFFM,
|
|
case when G.CODIDEST IS NULL THEN '0' ELSE '1' END DATI_STORICI,
|
|
case when G.DENOMCES IS NULL THEN b.DSCOCP WHEN G.DENOMCES = '' THEN RTRIM(G.NOMECES) CONCAT ' ' CONCAT G.COGNOCES ELSE G.DENOMCES END AS DSCOCP,
|
|
coalesce(CASE
|
|
WHEN g.STATOTRAS = 'T' and x.PROGID IS NOT NULL THEN 'E'
|
|
WHEN coalesce(G.EXTID, '') = '' THEN g.STATOTRAS
|
|
WHEN g.STATOTRAS = 'V' and x.PROGID IS NOT NULL THEN 'C'
|
|
ELSE g.STATOTRAS END
|
|
, 'B') AS STATO,
|
|
COALESCE(G.CODIDEST, d.CODIPA) AS IPA_CLI,
|
|
COALESCE(G.CODIDEST, e.CODIPA) AS IPA_DEST,
|
|
d.CODIPA AS IPA_CLI_NEW,
|
|
e.CODIPA AS IPA_DEST_NEW,
|
|
g.PROGID,
|
|
c.DESC_GIVA,
|
|
coalesce(h.ALLEG, 0) AS ALLEGATO,
|
|
coalesce(G.EXTID, '') AS EXTID,
|
|
CASE WHEN x.PROGID IS NULL THEN '0' ELSE '1' END AS ERRORI ,
|
|
CASE WHEN G.PAOPRIV IS NULL AND (d.PAOPRIV IS NULL OR d.PAOPRIV = 'R') OR G.PAOPRIV IS NOT NULL AND G.PAOPRIV = 'R' THEN '1' ELSE '0' END AS PRIVATO,
|
|
CASE WHEN d.PAOPRIV IS NULL OR d.PAOPRIV = 'R' THEN '1' ELSE '0' END AS PRIVATO_NEW,
|
|
coalesce(G.MAILPEC, d.MAILPEC) as MAILPEC_CLI,
|
|
coalesce(G.MAILPEC, e.MAILPEC) as MAILPEC_DEST,
|
|
d.MAILPEC as MAILPEC_CLI_NEW,
|
|
e.MAILPEC as MAILPEC_DEST_NEW,
|
|
coalesce(g.NOMEXML, ' ') AS NOMEXML,
|
|
coalesce(g.SERVTRA, ' ') AS SERVTRA,
|
|
coalesce(f.NUMEFATT,' ') AS NUMEFATT,
|
|
coalesce(f.VENDACQU,'V') AS VENDACQU,
|
|
case when a.flinfm <> ' ' AND A.FTDIFMA IN ('D','*') AND A.CDCFFM = A.CIFAFMA AND DEST.CLFODE IS NOT NULL AND e.CODIPA IS NOT NULL THEN '1' ELSE '0' END FORDEST,
|
|
coalesce(f.impotot, 0) impotot
|
|
FROM &DT/FTPAFE55F as a
|
|
LEFT OUTER JOIN &DT/CSTAB as DD ON DD.K00001 = '01DD' CONCAT a.TDOCFM
|
|
JOIN &DT/CGPCO00F as b ON a.CIFAFMA = b.CONTCP
|
|
JOIN &DT/SMTABAR55V as c ON a.GIVAFM = c.XCODTB
|
|
LEFT OUTER JOIN &DT/FTPAE55F as d ON
|
|
d.CDDITTA = ''
|
|
AND a.CIFAFMA = d.CODCLI
|
|
AND (d.CODIPA <> '' OR d.esclusofe ='S')
|
|
LEFT OUTER JOIN &DT/FTPAE55F as e ON
|
|
e.CDDITTA = ''
|
|
AND a.CSPEFM = e.CODCLI
|
|
AND a.DTFTFM >= e.DTIPA
|
|
AND e.CODIPA <> ''
|
|
AND e.esclusofe =' '
|
|
LEFT OUTER JOIN &DT/FTPAF55F as f ON a.CDDTFM = f.CDDTFM
|
|
AND a.DTFTFM = f.DTFTFM
|
|
AND a.NRFTFM = f.NRFTFM
|
|
AND a.GIVAFM = f.GIVAFM
|
|
AND 'V' = f.VENDACQU
|
|
LEFT OUTER JOIN &DT/FTPAI55F as g ON f.PROGID = g.PROGID
|
|
LEFT OUTER JOIN &DT/FTPAU55V as h ON a.CDDTFM = h.CDDTFAT
|
|
AND a.DTFTFM = h.DATAFAT
|
|
AND a.NRFTFM = h.NUMFAT
|
|
AND a.GIVAFM = h.GIVAFAT
|
|
AND '' = h.FORNFAT
|
|
LEFT OUTER JOIN &DT/FTPAX55F as x ON (g.PROGID = x.PROGID and x.PROGRIGA = 0)
|
|
JOIN &DT/CGANA00F as i ON i.CONTCA = b.CONTCP
|
|
LEFT JOIN &DT/CGADE00F DEST ON DEST.CONTDE = a.CSPEFM
|
|
LEFT JOIN &DT/FTPSET55F S ON 1=1
|
|
WHERE coalesce(substr(DD.F00002, 10, 1), a.TDOCFM) <> 'P'
|
|
AND
|
|
(f.storfm is null or f.STORFM <> 'S')
|
|
AND
|
|
(NOT f.nrftfm IS NULL OR
|
|
COALESCE(d.esclusofe, ' ') = ' '
|
|
AND ((d.DTIPA IS NULL AND i.cisoca = 'IT' AND a.DTFTFM >= S.datainb2b
|
|
OR
|
|
(NOT d.DTIPA IS NULL AND (d.DTIPA > 0 AND a.DTFTFM >= d.DTIPA OR (d.DTIPA = 0 AND (d.PAOPRIV = ' ' OR a.DTFTFM >= S.datainb2b)))))))) AS FAT)
|
|
<TAG-SCRIPT><IF-VERSION>5
|
|
|
|
LABEL ON TABLE &DT/FTFTE55V IS 'Art. 55 VIEW FATTURE STORICHE E ATTUALI'
|
|
<TAG-SCRIPT>
|
|
|
|
DROP VIEW &DT/FTMOV55V
|
|
<TAG-SCRIPT>
|
|
|
|
CREATE VIEW &DT/FTMOV55V AS (
|
|
SELECT FAT.*,
|
|
CASE WHEN PRIVATO = '1' AND FORDEST = '1' THEN '1' ELSE '0' END AS PRFORDEST,
|
|
CASE WHEN PRIVATO = '0' OR FORDEST = '1' THEN coalesce(DEST, SPACE(10)) ELSE SPACE(10) END AS CSPEFM,
|
|
CASE WHEN DATI_STORICI = '1' THEN IPA_CLI WHEN PRIVATO = '1' AND FORDEST = '1' THEN IPA_DEST WHEN PRIVATO = '1' THEN coalesce(IPA_CLI,'0000000') ELSE coalesce(IPA_DEST, IPA_CLI) END AS IPA,
|
|
CASE WHEN DATI_STORICI = '1' THEN MAILPEC_CLI WHEN PRIVATO = '1' AND FORDEST = '1' THEN MAILPEC_DEST WHEN PRIVATO = '1' THEN coalesce(MAILPEC_CLI, SPACE(256)) ELSE coalesce(MAILPEC_DEST, MAILPEC_CLI) END AS MAILPEC,
|
|
CASE WHEN PRIVATO_NEW = '1' AND FORDEST = '1' THEN IPA_DEST_NEW WHEN PRIVATO_NEW = '1' THEN coalesce(IPA_CLI_NEW,'0000000') ELSE coalesce(IPA_DEST_NEW, IPA_CLI_NEW) END AS IPA_NEW,
|
|
CASE WHEN PRIVATO_NEW = '1' AND FORDEST = '1' THEN MAILPEC_DEST_NEW WHEN PRIVATO_NEW = '1' THEN coalesce(MAILPEC_CLI_NEW, SPACE(256)) ELSE coalesce(MAILPEC_DEST_NEW, MAILPEC_CLI_NEW) END AS MAILPEC_NEW
|
|
FROM (
|
|
SELECT a.DTFTFM,
|
|
a.NRFTFM,
|
|
CASE
|
|
WHEN a.FLCGFM = '' THEN '0'
|
|
WHEN a.FLCGFM = '*' THEN '1'
|
|
END AS FLCG,
|
|
coalesce(f.cdcffm, a.CIFAFMA) AS CDCFFM,
|
|
a.CIFAFMA CDCFFM_NEW,
|
|
a.CDCFFM AS f0CDCFFM,
|
|
CSPEFM AS DEST,
|
|
a.GIVAFM,
|
|
a.CDDTFM,
|
|
a.FLSFFM,
|
|
case when G.CODIDEST IS NULL THEN '0' ELSE '1' END DATI_STORICI,
|
|
case when G.DENOMCES IS NULL THEN b.DSCOCP WHEN G.DENOMCES = '' THEN RTRIM(G.NOMECES) CONCAT ' ' CONCAT G.COGNOCES ELSE G.DENOMCES END AS DSCOCP,
|
|
coalesce(CASE
|
|
WHEN g.STATOTRAS = 'T' and x.PROGID IS NOT NULL THEN 'E'
|
|
WHEN coalesce(G.EXTID, '') = '' THEN g.STATOTRAS
|
|
WHEN g.STATOTRAS = 'V' and x.PROGID IS NOT NULL THEN 'C'
|
|
ELSE g.STATOTRAS END
|
|
, 'B') AS STATO,
|
|
COALESCE(G.CODIDEST, d.CODIPA) AS IPA_CLI,
|
|
COALESCE(G.CODIDEST, e.CODIPA) AS IPA_DEST,
|
|
d.CODIPA AS IPA_CLI_NEW,
|
|
e.CODIPA AS IPA_DEST_NEW,
|
|
g.PROGID,
|
|
c.DESC_GIVA,
|
|
coalesce(h.ALLEG, 0) AS ALLEGATO,
|
|
coalesce(G.EXTID, '') AS EXTID,
|
|
CASE WHEN x.PROGID IS NULL THEN '0' ELSE '1' END AS ERRORI ,
|
|
CASE WHEN G.PAOPRIV IS NULL AND (d.PAOPRIV IS NULL OR d.PAOPRIV = 'R') OR G.PAOPRIV IS NOT NULL AND G.PAOPRIV = 'R' THEN '1' ELSE '0' END AS PRIVATO,
|
|
CASE WHEN d.PAOPRIV IS NULL OR d.PAOPRIV = 'R' THEN '1' ELSE '0' END AS PRIVATO_NEW,
|
|
coalesce(G.MAILPEC, d.MAILPEC) as MAILPEC_CLI,
|
|
coalesce(G.MAILPEC, e.MAILPEC) as MAILPEC_DEST,
|
|
d.MAILPEC as MAILPEC_CLI_NEW,
|
|
e.MAILPEC as MAILPEC_DEST_NEW,
|
|
coalesce(g.NOMEXML, ' ') AS NOMEXML,
|
|
coalesce(g.SERVTRA, ' ') AS SERVTRA,
|
|
coalesce(f.NUMEFATT,' ') AS NUMEFATT,
|
|
coalesce(f.VENDACQU,'V') AS VENDACQU,
|
|
case when a.flinfm <> ' ' AND A.FTDIFMA IN ('D','*') AND A.CDCFFM = A.CIFAFMA AND DEST.CLFOCP = 'D' AND e.CODIPA IS NOT NULL THEN '1' ELSE '0' END FORDEST,
|
|
coalesce(f.impotot, 0) impotot
|
|
FROM &DT/FTMOVAR55V as a
|
|
LEFT OUTER JOIN &DT/CSTAB as DD ON DD.K00001 = '01DD' CONCAT a.TDOCFM
|
|
JOIN &DT/CGPCO00F as b ON a.CIFAFMA = b.CONTCP
|
|
JOIN &DT/SMTABAR55V as c ON a.GIVAFM = c.XCODTB
|
|
LEFT OUTER JOIN &DT/FTPAE55F as d ON
|
|
d.CDDITTA = ''
|
|
AND a.CIFAFMA = d.CODCLI
|
|
AND (d.CODIPA <> '' OR d.esclusofe ='S')
|
|
LEFT OUTER JOIN &DT/FTPAE55F as e ON
|
|
e.CDDITTA = ''
|
|
AND a.CSPEFM = e.CODCLI
|
|
AND a.DTFTFM >= e.DTIPA
|
|
AND e.CODIPA <> ''
|
|
AND e.esclusofe =' '
|
|
LEFT OUTER JOIN &DT/FTPAF55F as f ON a.CDDTFM = f.CDDTFM
|
|
AND a.DTFTFM = f.DTFTFM
|
|
AND a.NRFTFM = f.NRFTFM
|
|
AND a.GIVAFM = f.GIVAFM
|
|
AND 'V' = f.VENDACQU
|
|
LEFT OUTER JOIN &DT/FTPAI55F as g ON f.PROGID = g.PROGID
|
|
LEFT OUTER JOIN &DT/FTPAU55V as h ON a.CDDTFM = h.CDDTFAT
|
|
AND a.DTFTFM = h.DATAFAT
|
|
AND a.NRFTFM = h.NUMFAT
|
|
AND a.GIVAFM = h.GIVAFAT
|
|
AND '' = h.FORNFAT
|
|
LEFT OUTER JOIN &DT/FTPAX55F as x ON (g.PROGID = x.PROGID and x.PROGRIGA = 0)
|
|
JOIN &DT/CGANA00F as i ON i.CONTCA = b.CONTCP
|
|
LEFT JOIN &DT/CGPCO00F DEST ON DEST.CONTCP = a.CSPEFM
|
|
LEFT JOIN &DT/FTPSET55F S ON 1=1
|
|
WHERE coalesce(substr(DD.F00002, 10, 1), a.TDOCFM) <> 'P'
|
|
AND
|
|
(f.storfm is null or f.STORFM <> 'S')
|
|
AND
|
|
(NOT f.nrftfm IS NULL OR
|
|
COALESCE(d.esclusofe, ' ') = ' '
|
|
AND ((d.DTIPA IS NULL AND i.cisoca = 'IT' AND a.DTFTFM >= S.datainb2b
|
|
OR
|
|
(NOT d.DTIPA IS NULL AND (d.DTIPA > 0 AND a.DTFTFM >= d.DTIPA OR (d.DTIPA = 0 AND (d.PAOPRIV = ' ' OR a.DTFTFM >= S.datainb2b)))))))) AS FAT)
|
|
<TAG-SCRIPT><IFNOT-VERSION>5
|
|
|
|
CREATE VIEW &DT/FTMOV55V AS (
|
|
SELECT FAT.*,
|
|
CASE WHEN PRIVATO = '1' AND FORDEST = '1' THEN '1' ELSE '0' END AS PRFORDEST,
|
|
CASE WHEN PRIVATO = '0' OR FORDEST = '1' THEN coalesce(DEST, SPACE(10)) ELSE SPACE(10) END AS CSPEFM,
|
|
CASE WHEN DATI_STORICI = '1' THEN IPA_CLI WHEN PRIVATO = '1' AND FORDEST = '1' THEN IPA_DEST WHEN PRIVATO = '1' THEN coalesce(IPA_CLI,'0000000') ELSE coalesce(IPA_DEST, IPA_CLI) END AS IPA,
|
|
CASE WHEN DATI_STORICI = '1' THEN MAILPEC_CLI WHEN PRIVATO = '1' AND FORDEST = '1' THEN MAILPEC_DEST WHEN PRIVATO = '1' THEN coalesce(MAILPEC_CLI, SPACE(256)) ELSE coalesce(MAILPEC_DEST, MAILPEC_CLI) END AS MAILPEC,
|
|
CASE WHEN PRIVATO_NEW = '1' AND FORDEST = '1' THEN IPA_DEST_NEW WHEN PRIVATO_NEW = '1' THEN coalesce(IPA_CLI_NEW,'0000000') ELSE coalesce(IPA_DEST_NEW, IPA_CLI_NEW) END AS IPA_NEW,
|
|
CASE WHEN PRIVATO_NEW = '1' AND FORDEST = '1' THEN MAILPEC_DEST_NEW WHEN PRIVATO_NEW = '1' THEN coalesce(MAILPEC_CLI_NEW, SPACE(256)) ELSE coalesce(MAILPEC_DEST_NEW, MAILPEC_CLI_NEW) END AS MAILPEC_NEW
|
|
FROM (
|
|
SELECT a.DTFTFM,
|
|
a.NRFTFM,
|
|
CASE
|
|
WHEN a.FLCGFM = '' THEN '0'
|
|
WHEN a.FLCGFM = '*' THEN '1'
|
|
END AS FLCG,
|
|
coalesce(f.cdcffm, a.CIFAFMA) AS CDCFFM,
|
|
a.CIFAFMA CDCFFM_NEW,
|
|
a.CDCFFM AS f0CDCFFM,
|
|
CSPEFM AS DEST,
|
|
a.GIVAFM,
|
|
a.CDDTFM,
|
|
a.FLSFFM,
|
|
case when G.CODIDEST IS NULL THEN '0' ELSE '1' END DATI_STORICI,
|
|
case when G.DENOMCES IS NULL THEN b.DSCOCP WHEN G.DENOMCES = '' THEN RTRIM(G.NOMECES) CONCAT ' ' CONCAT G.COGNOCES ELSE G.DENOMCES END AS DSCOCP,
|
|
coalesce(CASE
|
|
WHEN g.STATOTRAS = 'T' and x.PROGID IS NOT NULL THEN 'E'
|
|
WHEN coalesce(G.EXTID, '') = '' THEN g.STATOTRAS
|
|
WHEN g.STATOTRAS = 'V' and x.PROGID IS NOT NULL THEN 'C'
|
|
ELSE g.STATOTRAS END
|
|
, 'B') AS STATO,
|
|
COALESCE(G.CODIDEST, d.CODIPA) AS IPA_CLI,
|
|
COALESCE(G.CODIDEST, e.CODIPA) AS IPA_DEST,
|
|
d.CODIPA AS IPA_CLI_NEW,
|
|
e.CODIPA AS IPA_DEST_NEW,
|
|
g.PROGID,
|
|
c.DESC_GIVA,
|
|
coalesce(h.ALLEG, 0) AS ALLEGATO,
|
|
coalesce(G.EXTID, '') AS EXTID,
|
|
CASE WHEN x.PROGID IS NULL THEN '0' ELSE '1' END AS ERRORI ,
|
|
CASE WHEN G.PAOPRIV IS NULL AND (d.PAOPRIV IS NULL OR d.PAOPRIV = 'R') OR G.PAOPRIV IS NOT NULL AND G.PAOPRIV = 'R' THEN '1' ELSE '0' END AS PRIVATO,
|
|
CASE WHEN d.PAOPRIV IS NULL OR d.PAOPRIV = 'R' THEN '1' ELSE '0' END AS PRIVATO_NEW,
|
|
coalesce(G.MAILPEC, d.MAILPEC) as MAILPEC_CLI,
|
|
coalesce(G.MAILPEC, e.MAILPEC) as MAILPEC_DEST,
|
|
d.MAILPEC as MAILPEC_CLI_NEW,
|
|
e.MAILPEC as MAILPEC_DEST_NEW,
|
|
coalesce(g.NOMEXML, ' ') AS NOMEXML,
|
|
coalesce(g.SERVTRA, ' ') AS SERVTRA,
|
|
coalesce(f.NUMEFATT,' ') AS NUMEFATT,
|
|
coalesce(f.VENDACQU,'V') AS VENDACQU,
|
|
case when a.flinfm <> ' ' AND A.FTDIFMA IN ('D','*') AND A.CDCFFM = A.CIFAFMA AND DEST.CLFODE IS NOT NULL AND e.CODIPA IS NOT NULL THEN '1' ELSE '0' END FORDEST,
|
|
coalesce(f.impotot, 0) impotot
|
|
FROM &DT/FTMOVAR55V as a
|
|
LEFT OUTER JOIN &DT/CSTAB as DD ON DD.K00001 = '01DD' CONCAT a.TDOCFM
|
|
JOIN &DT/CGPCO00F as b ON a.CIFAFMA = b.CONTCP
|
|
JOIN &DT/SMTABAR55V as c ON a.GIVAFM = c.XCODTB
|
|
LEFT OUTER JOIN &DT/FTPAE55F as d ON
|
|
d.CDDITTA = ''
|
|
AND a.CIFAFMA = d.CODCLI
|
|
AND (d.CODIPA <> '' OR d.esclusofe ='S')
|
|
LEFT OUTER JOIN &DT/FTPAE55F as e ON
|
|
e.CDDITTA = ''
|
|
AND a.CSPEFM = e.CODCLI
|
|
AND a.DTFTFM >= e.DTIPA
|
|
AND e.CODIPA <> ''
|
|
AND e.esclusofe =' '
|
|
LEFT OUTER JOIN &DT/FTPAF55F as f ON a.CDDTFM = f.CDDTFM
|
|
AND a.DTFTFM = f.DTFTFM
|
|
AND a.NRFTFM = f.NRFTFM
|
|
AND a.GIVAFM = f.GIVAFM
|
|
AND 'V' = f.VENDACQU
|
|
LEFT OUTER JOIN &DT/FTPAI55F as g ON f.PROGID = g.PROGID
|
|
LEFT OUTER JOIN &DT/FTPAU55V as h ON a.CDDTFM = h.CDDTFAT
|
|
AND a.DTFTFM = h.DATAFAT
|
|
AND a.NRFTFM = h.NUMFAT
|
|
AND a.GIVAFM = h.GIVAFAT
|
|
AND '' = h.FORNFAT
|
|
LEFT OUTER JOIN &DT/FTPAX55F as x ON (g.PROGID = x.PROGID and x.PROGRIGA = 0)
|
|
JOIN &DT/CGANA00F as i ON i.CONTCA = b.CONTCP
|
|
LEFT JOIN &DT/CGADE00F DEST ON DEST.CONTDE = a.CSPEFM
|
|
LEFT JOIN &DT/FTPSET55F S ON 1=1
|
|
WHERE coalesce(substr(DD.F00002, 10, 1), a.TDOCFM) <> 'P'
|
|
AND
|
|
(f.storfm is null or f.STORFM <> 'S')
|
|
AND
|
|
(NOT f.nrftfm IS NULL OR
|
|
COALESCE(d.esclusofe, ' ') = ' '
|
|
AND ((d.DTIPA IS NULL AND i.cisoca = 'IT' AND a.DTFTFM >= S.datainb2b
|
|
OR
|
|
(NOT d.DTIPA IS NULL AND (d.DTIPA > 0 AND a.DTFTFM >= d.DTIPA OR (d.DTIPA = 0 AND (d.PAOPRIV = ' ' OR a.DTFTFM >= S.datainb2b)))))))) AS FAT)
|
|
<TAG-SCRIPT><IF-VERSION>5
|
|
|
|
LABEL ON TABLE &DT/FTMOV55V IS 'Art. 55 VIEW ATTUALI'
|
|
<TAG-SCRIPT>
|
|
|
|
DROP VIEW &DT/FTBKM55V
|
|
<TAG-SCRIPT>
|
|
|
|
CREATE VIEW &DT/FTBKM55V AS (
|
|
SELECT FAT.*,
|
|
CASE WHEN PRIVATO = '1' AND FORDEST = '1' THEN '1' ELSE '0' END AS PRFORDEST,
|
|
CASE WHEN PRIVATO = '0' OR FORDEST = '1' THEN coalesce(DEST, SPACE(10)) ELSE SPACE(10) END AS CSPEFM,
|
|
CASE WHEN DATI_STORICI = '1' THEN IPA_CLI WHEN PRIVATO = '1' AND FORDEST = '1' THEN IPA_DEST WHEN PRIVATO = '1' THEN coalesce(IPA_CLI,'0000000') ELSE coalesce(IPA_DEST, IPA_CLI) END AS IPA,
|
|
CASE WHEN DATI_STORICI = '1' THEN MAILPEC_CLI WHEN PRIVATO = '1' AND FORDEST = '1' THEN MAILPEC_DEST WHEN PRIVATO = '1' THEN coalesce(MAILPEC_CLI, SPACE(256)) ELSE coalesce(MAILPEC_DEST, MAILPEC_CLI) END AS MAILPEC,
|
|
CASE WHEN PRIVATO_NEW = '1' AND FORDEST = '1' THEN IPA_DEST_NEW WHEN PRIVATO_NEW = '1' THEN coalesce(IPA_CLI_NEW,'0000000') ELSE coalesce(IPA_DEST_NEW, IPA_CLI_NEW) END AS IPA_NEW,
|
|
CASE WHEN PRIVATO_NEW = '1' AND FORDEST = '1' THEN MAILPEC_DEST_NEW WHEN PRIVATO_NEW = '1' THEN coalesce(MAILPEC_CLI_NEW, SPACE(256)) ELSE coalesce(MAILPEC_DEST_NEW, MAILPEC_CLI_NEW) END AS MAILPEC_NEW
|
|
FROM (
|
|
SELECT a.DTFTFM,
|
|
a.NRFTFM,
|
|
CASE
|
|
WHEN a.FLCGFM = '' THEN '0'
|
|
WHEN a.FLCGFM = '*' THEN '1'
|
|
END AS FLCG,
|
|
coalesce(f.cdcffm, a.CIFAFMA) AS CDCFFM,
|
|
a.CIFAFMA CDCFFM_NEW,
|
|
a.CDCFFM AS f0CDCFFM,
|
|
CSPEFM AS DEST,
|
|
a.GIVAFM,
|
|
a.CDDTFM,
|
|
a.FLSFFM,
|
|
case when G.CODIDEST IS NULL THEN '0' ELSE '1' END DATI_STORICI,
|
|
case when G.DENOMCES IS NULL THEN b.DSCOCP WHEN G.DENOMCES = '' THEN RTRIM(G.NOMECES) CONCAT ' ' CONCAT G.COGNOCES ELSE G.DENOMCES END AS DSCOCP,
|
|
coalesce(CASE
|
|
WHEN g.STATOTRAS = 'T' and x.PROGID IS NOT NULL THEN 'E'
|
|
WHEN coalesce(G.EXTID, '') = '' THEN g.STATOTRAS
|
|
WHEN g.STATOTRAS = 'V' and x.PROGID IS NOT NULL THEN 'C'
|
|
ELSE g.STATOTRAS END
|
|
, 'B') AS STATO,
|
|
COALESCE(G.CODIDEST, d.CODIPA) AS IPA_CLI,
|
|
COALESCE(G.CODIDEST, e.CODIPA) AS IPA_DEST,
|
|
d.CODIPA AS IPA_CLI_NEW,
|
|
e.CODIPA AS IPA_DEST_NEW,
|
|
g.PROGID,
|
|
c.DESC_GIVA,
|
|
coalesce(h.ALLEG, 0) AS ALLEGATO,
|
|
coalesce(G.EXTID, '') AS EXTID,
|
|
CASE WHEN x.PROGID IS NULL THEN '0' ELSE '1' END AS ERRORI ,
|
|
CASE WHEN G.PAOPRIV IS NULL AND (d.PAOPRIV IS NULL OR d.PAOPRIV = 'R') OR G.PAOPRIV IS NOT NULL AND G.PAOPRIV = 'R' THEN '1' ELSE '0' END AS PRIVATO,
|
|
CASE WHEN d.PAOPRIV IS NULL OR d.PAOPRIV = 'R' THEN '1' ELSE '0' END AS PRIVATO_NEW,
|
|
coalesce(G.MAILPEC, d.MAILPEC) as MAILPEC_CLI,
|
|
coalesce(G.MAILPEC, e.MAILPEC) as MAILPEC_DEST,
|
|
d.MAILPEC as MAILPEC_CLI_NEW,
|
|
e.MAILPEC as MAILPEC_DEST_NEW,
|
|
coalesce(g.NOMEXML, ' ') AS NOMEXML,
|
|
coalesce(g.SERVTRA, ' ') AS SERVTRA,
|
|
coalesce(f.NUMEFATT,' ') AS NUMEFATT,
|
|
coalesce(f.VENDACQU,'V') AS VENDACQU,
|
|
case when a.flinfm <> ' ' AND A.FTDIFMA IN ('D','*') AND A.CDCFFM = A.CIFAFMA AND DEST.CLFOCP = 'D' AND e.CODIPA IS NOT NULL THEN '1' ELSE '0' END FORDEST,
|
|
coalesce(f.impotot, 0) impotot
|
|
FROM &DT/FTBKMAR55V as a
|
|
LEFT OUTER JOIN &DT/CSTAB as DD ON DD.K00001 = '01DD' CONCAT a.TDOCFM
|
|
JOIN &DT/CGPCO00F as b ON a.CIFAFMA = b.CONTCP
|
|
JOIN &DT/SMTABAR55V as c ON a.GIVAFM = c.XCODTB
|
|
LEFT OUTER JOIN &DT/FTPAE55F as d ON
|
|
d.CDDITTA = ''
|
|
AND a.CIFAFMA = d.CODCLI
|
|
AND (d.CODIPA <> '' OR d.esclusofe ='S')
|
|
LEFT OUTER JOIN &DT/FTPAE55F as e ON
|
|
e.CDDITTA = ''
|
|
AND a.CSPEFM = e.CODCLI
|
|
AND a.DTFTFM >= e.DTIPA
|
|
AND e.CODIPA <> ''
|
|
AND e.esclusofe =' '
|
|
LEFT OUTER JOIN &DT/FTPAF55F as f ON a.CDDTFM = f.CDDTFM
|
|
AND a.DTFTFM = f.DTFTFM
|
|
AND a.NRFTFM = f.NRFTFM
|
|
AND a.GIVAFM = f.GIVAFM
|
|
AND 'V' = f.VENDACQU
|
|
LEFT OUTER JOIN &DT/FTPAI55F as g ON f.PROGID = g.PROGID
|
|
LEFT OUTER JOIN &DT/FTPAU55V as h ON a.CDDTFM = h.CDDTFAT
|
|
AND a.DTFTFM = h.DATAFAT
|
|
AND a.NRFTFM = h.NUMFAT
|
|
AND a.GIVAFM = h.GIVAFAT
|
|
AND '' = h.FORNFAT
|
|
LEFT OUTER JOIN &DT/FTPAX55F as x ON (g.PROGID = x.PROGID and x.PROGRIGA = 0)
|
|
JOIN &DT/CGANA00F as i ON i.CONTCA = b.CONTCP
|
|
LEFT JOIN &DT/CGPCO00F DEST ON DEST.CONTCP = a.CSPEFM
|
|
LEFT JOIN &DT/FTPSET55F S ON 1=1
|
|
WHERE coalesce(substr(DD.F00002, 10, 1), a.TDOCFM) <> 'P'
|
|
AND
|
|
(f.storfm is null or f.STORFM <> 'S')
|
|
AND
|
|
(NOT f.nrftfm IS NULL OR
|
|
COALESCE(d.esclusofe, ' ') = ' '
|
|
AND ((d.DTIPA IS NULL AND i.cisoca = 'IT' AND a.DTFTFM >= S.datainb2b
|
|
OR
|
|
(NOT d.DTIPA IS NULL AND (d.DTIPA > 0 AND a.DTFTFM >= d.DTIPA OR (d.DTIPA = 0 AND (d.PAOPRIV = ' ' OR a.DTFTFM >= S.datainb2b)))))))) AS FAT)
|
|
<TAG-SCRIPT><IFNOT-VERSION>5
|
|
|
|
CREATE VIEW &DT/FTBKM55V AS (
|
|
SELECT FAT.*,
|
|
CASE WHEN PRIVATO = '1' AND FORDEST = '1' THEN '1' ELSE '0' END AS PRFORDEST,
|
|
CASE WHEN PRIVATO = '0' OR FORDEST = '1' THEN coalesce(DEST, SPACE(10)) ELSE SPACE(10) END AS CSPEFM,
|
|
CASE WHEN DATI_STORICI = '1' THEN IPA_CLI WHEN PRIVATO = '1' AND FORDEST = '1' THEN IPA_DEST WHEN PRIVATO = '1' THEN coalesce(IPA_CLI,'0000000') ELSE coalesce(IPA_DEST, IPA_CLI) END AS IPA,
|
|
CASE WHEN DATI_STORICI = '1' THEN MAILPEC_CLI WHEN PRIVATO = '1' AND FORDEST = '1' THEN MAILPEC_DEST WHEN PRIVATO = '1' THEN coalesce(MAILPEC_CLI, SPACE(256)) ELSE coalesce(MAILPEC_DEST, MAILPEC_CLI) END AS MAILPEC,
|
|
CASE WHEN PRIVATO_NEW = '1' AND FORDEST = '1' THEN IPA_DEST_NEW WHEN PRIVATO_NEW = '1' THEN coalesce(IPA_CLI_NEW,'0000000') ELSE coalesce(IPA_DEST_NEW, IPA_CLI_NEW) END AS IPA_NEW,
|
|
CASE WHEN PRIVATO_NEW = '1' AND FORDEST = '1' THEN MAILPEC_DEST_NEW WHEN PRIVATO_NEW = '1' THEN coalesce(MAILPEC_CLI_NEW, SPACE(256)) ELSE coalesce(MAILPEC_DEST_NEW, MAILPEC_CLI_NEW) END AS MAILPEC_NEW
|
|
FROM (
|
|
SELECT a.DTFTFM,
|
|
a.NRFTFM,
|
|
CASE
|
|
WHEN a.FLCGFM = '' THEN '0'
|
|
WHEN a.FLCGFM = '*' THEN '1'
|
|
END AS FLCG,
|
|
coalesce(f.cdcffm, a.CIFAFMA) AS CDCFFM,
|
|
a.CIFAFMA CDCFFM_NEW,
|
|
a.CDCFFM AS f0CDCFFM,
|
|
CSPEFM AS DEST,
|
|
a.GIVAFM,
|
|
a.CDDTFM,
|
|
a.FLSFFM,
|
|
case when G.CODIDEST IS NULL THEN '0' ELSE '1' END DATI_STORICI,
|
|
case when G.DENOMCES IS NULL THEN b.DSCOCP WHEN G.DENOMCES = '' THEN RTRIM(G.NOMECES) CONCAT ' ' CONCAT G.COGNOCES ELSE G.DENOMCES END AS DSCOCP,
|
|
coalesce(CASE
|
|
WHEN g.STATOTRAS = 'T' and x.PROGID IS NOT NULL THEN 'E'
|
|
WHEN coalesce(G.EXTID, '') = '' THEN g.STATOTRAS
|
|
WHEN g.STATOTRAS = 'V' and x.PROGID IS NOT NULL THEN 'C'
|
|
ELSE g.STATOTRAS END
|
|
, 'B') AS STATO,
|
|
COALESCE(G.CODIDEST, d.CODIPA) AS IPA_CLI,
|
|
COALESCE(G.CODIDEST, e.CODIPA) AS IPA_DEST,
|
|
d.CODIPA AS IPA_CLI_NEW,
|
|
e.CODIPA AS IPA_DEST_NEW,
|
|
g.PROGID,
|
|
c.DESC_GIVA,
|
|
coalesce(h.ALLEG, 0) AS ALLEGATO,
|
|
coalesce(G.EXTID, '') AS EXTID,
|
|
CASE WHEN x.PROGID IS NULL THEN '0' ELSE '1' END AS ERRORI ,
|
|
CASE WHEN G.PAOPRIV IS NULL AND (d.PAOPRIV IS NULL OR d.PAOPRIV = 'R') OR G.PAOPRIV IS NOT NULL AND G.PAOPRIV = 'R' THEN '1' ELSE '0' END AS PRIVATO,
|
|
CASE WHEN d.PAOPRIV IS NULL OR d.PAOPRIV = 'R' THEN '1' ELSE '0' END AS PRIVATO_NEW,
|
|
coalesce(G.MAILPEC, d.MAILPEC) as MAILPEC_CLI,
|
|
coalesce(G.MAILPEC, e.MAILPEC) as MAILPEC_DEST,
|
|
d.MAILPEC as MAILPEC_CLI_NEW,
|
|
e.MAILPEC as MAILPEC_DEST_NEW,
|
|
coalesce(g.NOMEXML, ' ') AS NOMEXML,
|
|
coalesce(g.SERVTRA, ' ') AS SERVTRA,
|
|
coalesce(f.NUMEFATT,' ') AS NUMEFATT,
|
|
coalesce(f.VENDACQU,'V') AS VENDACQU,
|
|
case when a.flinfm <> ' ' AND A.FTDIFMA IN ('D','*') AND A.CDCFFM = A.CIFAFMA AND DEST.CLFODE IS NOT NULL AND e.CODIPA IS NOT NULL THEN '1' ELSE '0' END FORDEST,
|
|
coalesce(f.impotot, 0) impotot
|
|
FROM &DT/FTBKMAR55V as a
|
|
LEFT OUTER JOIN &DT/CSTAB as DD ON DD.K00001 = '01DD' CONCAT a.TDOCFM
|
|
JOIN &DT/CGPCO00F as b ON a.CIFAFMA = b.CONTCP
|
|
JOIN &DT/SMTABAR55V as c ON a.GIVAFM = c.XCODTB
|
|
LEFT OUTER JOIN &DT/FTPAE55F as d ON
|
|
d.CDDITTA = ''
|
|
AND a.CIFAFMA = d.CODCLI
|
|
AND (d.CODIPA <> '' OR d.esclusofe ='S')
|
|
LEFT OUTER JOIN &DT/FTPAE55F as e ON
|
|
e.CDDITTA = ''
|
|
AND a.CSPEFM = e.CODCLI
|
|
AND a.DTFTFM >= e.DTIPA
|
|
AND e.CODIPA <> ''
|
|
AND e.esclusofe =' '
|
|
LEFT OUTER JOIN &DT/FTPAF55F as f ON a.CDDTFM = f.CDDTFM
|
|
AND a.DTFTFM = f.DTFTFM
|
|
AND a.NRFTFM = f.NRFTFM
|
|
AND a.GIVAFM = f.GIVAFM
|
|
AND 'V' = f.VENDACQU
|
|
LEFT OUTER JOIN &DT/FTPAI55F as g ON f.PROGID = g.PROGID
|
|
LEFT OUTER JOIN &DT/FTPAU55V as h ON a.CDDTFM = h.CDDTFAT
|
|
AND a.DTFTFM = h.DATAFAT
|
|
AND a.NRFTFM = h.NUMFAT
|
|
AND a.GIVAFM = h.GIVAFAT
|
|
AND '' = h.FORNFAT
|
|
LEFT OUTER JOIN &DT/FTPAX55F as x ON (g.PROGID = x.PROGID and x.PROGRIGA = 0)
|
|
JOIN &DT/CGANA00F as i ON i.CONTCA = b.CONTCP
|
|
LEFT JOIN &DT/CGADE00F DEST ON DEST.CONTDE = a.CSPEFM
|
|
LEFT JOIN &DT/FTPSET55F S ON 1=1
|
|
WHERE coalesce(substr(DD.F00002, 10, 1), a.TDOCFM) <> 'P'
|
|
AND
|
|
(f.storfm is null or f.STORFM <> 'S')
|
|
AND
|
|
(NOT f.nrftfm IS NULL OR
|
|
COALESCE(d.esclusofe, ' ') = ' '
|
|
AND ((d.DTIPA IS NULL AND i.cisoca = 'IT' AND a.DTFTFM >= S.datainb2b
|
|
OR
|
|
(NOT d.DTIPA IS NULL AND (d.DTIPA > 0 AND a.DTFTFM >= d.DTIPA OR (d.DTIPA = 0 AND (d.PAOPRIV = ' ' OR a.DTFTFM >= S.datainb2b)))))))) AS FAT)
|
|
<TAG-SCRIPT><IF-VERSION>5
|
|
|
|
LABEL ON TABLE &DT/FTBKM55V IS 'Art. 55 VIEW STORICI'
|
|
<TAG-SCRIPT>
|
|
|
|
<CONDITION>EXISTS (SELECT 1 FROM QSYS2.SYSTABLES WHERE TABLE_SCHEMA = '&DT' AND TABLE_NAME = 'MGMOF00F')</CONDITION>
|
|
DROP VIEW &DT/MGMOF55V
|
|
<TAG-SCRIPT>
|
|
|
|
<CONDITION>EXISTS (SELECT 1 FROM QSYS2.SYSTABLES WHERE TABLE_SCHEMA = '&DT' AND TABLE_NAME = 'MGMOF00F')</CONDITION>
|
|
CREATE VIEW &DT/MGMOF55V AS (
|
|
SELECT a.DTFTMF DTFTFM,
|
|
a.NRFTMF NRFTFM,
|
|
CASE
|
|
WHEN a.FLCGMF = '' THEN '0'
|
|
WHEN a.FLCGMF = '*' THEN '1'
|
|
END AS FLCG,
|
|
CASE WHEN a.CIFAMF = '' THEN a.CDCFMF ELSE a.CIFAMF END AS CDCFFM,
|
|
a.CDCFMF AS f0CDCFFM,
|
|
' ' CSPEFM,
|
|
a.GIVAMF GIVAFM,
|
|
a.CDDTMF CDDTFM,
|
|
a.FLSFMF FLSFFM,
|
|
b.DSCOCP ,
|
|
coalesce(CASE
|
|
WHEN g.STATOTRAS = 'T' and x.PROGID IS NOT NULL THEN 'E'
|
|
WHEN coalesce(G.EXTID, '') = '' THEN g.STATOTRAS
|
|
WHEN g.STATOTRAS = 'V' and x.PROGID IS NOT NULL THEN 'C'
|
|
ELSE g.STATOTRAS END
|
|
, 'B') AS STATO,
|
|
case when d.PAOPRIV IS NOT NULL THEN d.CODIPA WHEN F2.CODIDEST <> '' THEN F2.CODIDEST ELSE '0000000' END AS IPA,
|
|
g.PROGID,
|
|
c.DESC_GIVA,
|
|
coalesce(h.ALLEG, 0) AS ALLEGATO,
|
|
coalesce(G.EXTID, '') AS EXTID,
|
|
CASE WHEN x.PROGID IS NULL THEN '0' ELSE '1' END AS ERRORI ,
|
|
CASE WHEN d.PAOPRIV IS NULL OR d.PAOPRIV = 'R' THEN '1' ELSE '0' END AS PRIVATO,
|
|
coalesce(d.MAILPEC, F2.MAILPEC, SPACE(256)) as MAILPEC,
|
|
coalesce(g.NOMEXML, ' ') AS NOMEXML,
|
|
coalesce(g.SERVTRA, ' ') AS SERVTRA,
|
|
coalesce(f.NUMEFATT,' ') AS NUMEFATT,
|
|
coalesce(f.VENDACQU,'A') AS VENDACQU,
|
|
coalesce(f.impotot, 0) AS impotot
|
|
FROM &DT/MGMOF00F as a
|
|
JOIN &DT/CSTAB as DD ON DD.K00001 = '01DD' CONCAT a.TDOCMF CONCAT 'A'
|
|
JOIN &DT/CGPCO00F as b ON a.CDCFMF = b.CONTCP
|
|
JOIN &DT/SMTABAR55V as c ON a.GIVAMF = c.XCODTB
|
|
LEFT OUTER JOIN &DT/FTPAE55F as d ON
|
|
d.CDDITTA = ''
|
|
AND a.CDCFMF = d.CODCLI
|
|
LEFT OUTER JOIN &DT/FTPAF55F as f ON a.CDDTMF = f.CDDTFM
|
|
AND a.DTFTMF = f.DTFTFM
|
|
AND a.NRFTMF = f.NRFTFM
|
|
AND a.GIVAMF = f.GIVAFM
|
|
AND a.CDCFMF = f.CDCFFM
|
|
AND 'A' = f.VENDACQU
|
|
LEFT OUTER JOIN &DT/FTPAI55F as g ON f.PROGID = g.PROGID
|
|
LEFT OUTER JOIN &DT/FTPAU55V as h ON a.CDDTMF = h.CDDTFAT
|
|
AND a.DTFTMF = h.DATAFAT
|
|
AND a.NRFTMF = h.NUMFAT
|
|
AND a.GIVAMF = h.GIVAFAT
|
|
AND CASE WHEN a.CIFAMF = '' THEN a.CDCFMF ELSE a.CIFAMF END = h.FORNFAT
|
|
LEFT OUTER JOIN &DT/FTPAX55F as x ON (g.PROGID = x.PROGID and x.PROGRIGA = 0)
|
|
JOIN &DT/CGANA00F as i ON i.CONTCA = b.CONTCP
|
|
LEFT JOIN &DT/FTPSET55F S ON 1=1
|
|
JOIN &DT/FTPA255F F2 ON F2.TABDDCOD = a.TDOCMF AND F2.tabddarea = 'A' AND F2.Fselfbil = 'S'
|
|
WHERE a.FLSFMF ='*'
|
|
AND a.FLCFMF='*'
|
|
AND a.dtftmf <> 0
|
|
AND a.NRFTMF <> 0
|
|
AND
|
|
(f.storfm is null or f.STORFM <> 'S')
|
|
AND
|
|
(NOT f.nrftfm IS NULL OR
|
|
COALESCE(d.esclusofe, ' ') = ' '
|
|
AND ((d.DTIPA IS NULL AND i.cisoca = 'IT' AND a.DTFTMF >= S.datainb2b
|
|
OR
|
|
(NOT d.DTIPA IS NULL AND (d.DTIPA > 0 AND a.DTFTMF >= d.DTIPA OR (d.DTIPA = 0 AND (a.DTFTMF >= S.datainb2b)))))))
|
|
)
|
|
<TAG-SCRIPT>
|
|
|
|
<CONDITION>EXISTS (SELECT 1 FROM QSYS2.SYSTABLES WHERE TABLE_SCHEMA = '&DT' AND TABLE_NAME = 'MGMOF00F')</CONDITION>
|
|
LABEL ON TABLE &DT/MGMOF55V IS 'Art. 55 VIEW FATTURE SELF BILLING'
|
|
<TAG-SCRIPT>
|
|
|
|
<TAG-VERSIONE-15.14.0>
|
|
<TAG-SCRIPT>
|
|
|
|
DROP VIEW &DT/FTFTE55V
|
|
<TAG-SCRIPT>
|
|
|
|
CREATE VIEW &DT/FTFTE55V AS (
|
|
SELECT FAT.*,
|
|
CASE WHEN PRIVATO = '1' AND FORDEST = '1' THEN '1' ELSE '0' END AS PRFORDEST,
|
|
CASE WHEN PRIVATO = '0' OR FORDEST = '1' THEN coalesce(DEST, SPACE(10)) ELSE SPACE(10) END AS CSPEFM,
|
|
CASE WHEN DATI_STORICI = '1' THEN IPA_CLI WHEN PRIVATO = '1' AND FORDEST = '1' THEN IPA_DEST WHEN PRIVATO = '1' THEN coalesce(IPA_CLI,'0000000') ELSE coalesce(IPA_DEST, IPA_CLI) END AS IPA,
|
|
CASE WHEN DATI_STORICI = '1' THEN MAILPEC_CLI WHEN PRIVATO = '1' AND FORDEST = '1' THEN MAILPEC_DEST WHEN PRIVATO = '1' THEN coalesce(MAILPEC_CLI, SPACE(256)) ELSE coalesce(MAILPEC_DEST, MAILPEC_CLI) END AS MAILPEC,
|
|
CASE WHEN PRIVATO_NEW = '1' AND FORDEST = '1' THEN IPA_DEST_NEW WHEN PRIVATO_NEW = '1' THEN coalesce(IPA_CLI_NEW,'0000000') ELSE coalesce(IPA_DEST_NEW, IPA_CLI_NEW) END AS IPA_NEW,
|
|
CASE WHEN PRIVATO_NEW = '1' AND FORDEST = '1' THEN MAILPEC_DEST_NEW WHEN PRIVATO_NEW = '1' THEN coalesce(MAILPEC_CLI_NEW, SPACE(256)) ELSE coalesce(MAILPEC_DEST_NEW, MAILPEC_CLI_NEW) END AS MAILPEC_NEW
|
|
FROM (
|
|
SELECT a.DTFTFM,
|
|
a.NRFTFM,
|
|
CASE
|
|
WHEN a.FLCGFM = '' THEN '0'
|
|
WHEN a.FLCGFM = '*' THEN '1'
|
|
END AS FLCG,
|
|
coalesce(f.cdcffm, a.CIFAFMA) AS CDCFFM,
|
|
a.CIFAFMA CDCFFM_NEW,
|
|
a.CDCFFM AS f0CDCFFM,
|
|
CSPEFM AS DEST,
|
|
a.GIVAFM,
|
|
a.CDDTFM,
|
|
a.FLSFFM,
|
|
case when G.CODIDEST IS NULL THEN '0' ELSE '1' END DATI_STORICI,
|
|
case when G.DENOMCES IS NULL THEN b.DSCOCP WHEN G.DENOMCES = '' THEN RTRIM(G.NOMECES) CONCAT ' ' CONCAT G.COGNOCES ELSE G.DENOMCES END AS DSCOCP,
|
|
coalesce(CASE
|
|
WHEN g.STATOTRAS = 'T' and x.PROGID IS NOT NULL THEN 'E'
|
|
WHEN coalesce(G.EXTID, '') = '' THEN g.STATOTRAS
|
|
WHEN g.STATOTRAS = 'V' and x.PROGID IS NOT NULL THEN 'C'
|
|
ELSE g.STATOTRAS END
|
|
, 'B') AS STATO,
|
|
COALESCE(G.CODIDEST, d.CODIPA) AS IPA_CLI,
|
|
COALESCE(G.CODIDEST, e.CODIPA) AS IPA_DEST,
|
|
d.CODIPA AS IPA_CLI_NEW,
|
|
e.CODIPA AS IPA_DEST_NEW,
|
|
g.PROGID,
|
|
c.DESC_GIVA,
|
|
coalesce(h.ALLEG, 0) AS ALLEGATO,
|
|
coalesce(G.EXTID, '') AS EXTID,
|
|
CASE WHEN x.PROGID IS NULL THEN '0' ELSE '1' END AS ERRORI ,
|
|
CASE WHEN G.PAOPRIV IS NULL AND (d.PAOPRIV IS NULL OR d.PAOPRIV = 'R') OR G.PAOPRIV IS NOT NULL AND G.PAOPRIV = 'R' THEN '1' ELSE '0' END AS PRIVATO,
|
|
CASE WHEN d.PAOPRIV IS NULL OR d.PAOPRIV = 'R' THEN '1' ELSE '0' END AS PRIVATO_NEW,
|
|
coalesce(G.MAILPEC, d.MAILPEC) as MAILPEC_CLI,
|
|
coalesce(G.MAILPEC, e.MAILPEC) as MAILPEC_DEST,
|
|
d.MAILPEC as MAILPEC_CLI_NEW,
|
|
e.MAILPEC as MAILPEC_DEST_NEW,
|
|
coalesce(g.NOMEXML, ' ') AS NOMEXML,
|
|
coalesce(g.SERVTRA, ' ') AS SERVTRA,
|
|
coalesce(f.NUMEFATT,' ') AS NUMEFATT,
|
|
coalesce(f.VENDACQU,'V') AS VENDACQU,
|
|
case when a.flinfm <> ' ' AND A.FTDIFMA IN ('D','*') AND A.CDCFFM = A.CIFAFMA AND DEST.CLFOCP = 'D' AND e.CODIPA IS NOT NULL THEN '1' ELSE '0' END FORDEST,
|
|
coalesce(f.impotot, 0) impotot
|
|
FROM &DT/FTPAFE55F as a
|
|
LEFT OUTER JOIN &DT/CSTAB as DD ON DD.K00001 = '01DD' CONCAT a.TDOCFM
|
|
JOIN &DT/CGPCO00F as b ON a.CIFAFMA = b.CONTCP
|
|
JOIN &DT/SMTABAR55V as c ON a.GIVAFM = c.XCODTB
|
|
LEFT OUTER JOIN &DT/FTPAE55F as d ON
|
|
d.CDDITTA = ''
|
|
AND a.CIFAFMA = d.CODCLI
|
|
AND (d.CODIPA <> '' OR d.esclusofe ='S')
|
|
LEFT OUTER JOIN &DT/FTPAE55F as e ON
|
|
e.CDDITTA = ''
|
|
AND a.CSPEFM = e.CODCLI
|
|
AND a.DTFTFM >= e.DTIPA
|
|
AND e.CODIPA <> ''
|
|
AND e.esclusofe =' '
|
|
LEFT OUTER JOIN &DT/FTPAF55F as f ON a.CDDTFM = f.CDDTFM
|
|
AND a.DTFTFM = f.DTFTFM
|
|
AND a.NRFTFM = f.NRFTFM
|
|
AND a.GIVAFM = f.GIVAFM
|
|
AND 'V' = f.VENDACQU
|
|
LEFT OUTER JOIN &DT/FTPAI55F as g ON f.PROGID = g.PROGID
|
|
LEFT OUTER JOIN &DT/FTPAU55V as h ON a.CDDTFM = h.CDDTFAT
|
|
AND a.DTFTFM = h.DATAFAT
|
|
AND a.NRFTFM = h.NUMFAT
|
|
AND a.GIVAFM = h.GIVAFAT
|
|
AND '' = h.FORNFAT
|
|
LEFT OUTER JOIN &DT/FTPAX55F as x ON (g.PROGID = x.PROGID and x.PROGRIGA = 0)
|
|
JOIN &DT/CGANA00F as i ON i.CONTCA = b.CONTCP
|
|
LEFT JOIN &DT/CGPCO00F DEST ON DEST.CONTCP = a.CSPEFM
|
|
LEFT JOIN &DT/FTPSET55F S ON 1=1
|
|
WHERE coalesce(substr(DD.F00002, 10, 1), a.TDOCFM) <> 'P'
|
|
AND
|
|
(f.storfm is null or f.STORFM <> 'S')
|
|
AND
|
|
(NOT f.nrftfm IS NULL OR
|
|
COALESCE(d.esclusofe, ' ') = ' '
|
|
AND ((d.DTIPA IS NULL AND i.cisoca IN ('IT','SM') AND a.DTFTFM >= S.datainb2b
|
|
OR
|
|
(NOT d.DTIPA IS NULL AND (d.DTIPA > 0 AND a.DTFTFM >= d.DTIPA OR (d.DTIPA = 0 AND (d.PAOPRIV = ' ' OR a.DTFTFM >= S.datainb2b)))))))) AS FAT)
|
|
<TAG-SCRIPT><IFNOT-VERSION>5
|
|
|
|
CREATE VIEW &DT/FTFTE55V AS (
|
|
SELECT FAT.*,
|
|
CASE WHEN PRIVATO = '1' AND FORDEST = '1' THEN '1' ELSE '0' END AS PRFORDEST,
|
|
CASE WHEN PRIVATO = '0' OR FORDEST = '1' THEN coalesce(DEST, SPACE(10)) ELSE SPACE(10) END AS CSPEFM,
|
|
CASE WHEN DATI_STORICI = '1' THEN IPA_CLI WHEN PRIVATO = '1' AND FORDEST = '1' THEN IPA_DEST WHEN PRIVATO = '1' THEN coalesce(IPA_CLI,'0000000') ELSE coalesce(IPA_DEST, IPA_CLI) END AS IPA,
|
|
CASE WHEN DATI_STORICI = '1' THEN MAILPEC_CLI WHEN PRIVATO = '1' AND FORDEST = '1' THEN MAILPEC_DEST WHEN PRIVATO = '1' THEN coalesce(MAILPEC_CLI, SPACE(256)) ELSE coalesce(MAILPEC_DEST, MAILPEC_CLI) END AS MAILPEC,
|
|
CASE WHEN PRIVATO_NEW = '1' AND FORDEST = '1' THEN IPA_DEST_NEW WHEN PRIVATO_NEW = '1' THEN coalesce(IPA_CLI_NEW,'0000000') ELSE coalesce(IPA_DEST_NEW, IPA_CLI_NEW) END AS IPA_NEW,
|
|
CASE WHEN PRIVATO_NEW = '1' AND FORDEST = '1' THEN MAILPEC_DEST_NEW WHEN PRIVATO_NEW = '1' THEN coalesce(MAILPEC_CLI_NEW, SPACE(256)) ELSE coalesce(MAILPEC_DEST_NEW, MAILPEC_CLI_NEW) END AS MAILPEC_NEW
|
|
FROM (
|
|
SELECT a.DTFTFM,
|
|
a.NRFTFM,
|
|
CASE
|
|
WHEN a.FLCGFM = '' THEN '0'
|
|
WHEN a.FLCGFM = '*' THEN '1'
|
|
END AS FLCG,
|
|
coalesce(f.cdcffm, a.CIFAFMA) AS CDCFFM,
|
|
a.CIFAFMA CDCFFM_NEW,
|
|
a.CDCFFM AS f0CDCFFM,
|
|
CSPEFM AS DEST,
|
|
a.GIVAFM,
|
|
a.CDDTFM,
|
|
a.FLSFFM,
|
|
case when G.CODIDEST IS NULL THEN '0' ELSE '1' END DATI_STORICI,
|
|
case when G.DENOMCES IS NULL THEN b.DSCOCP WHEN G.DENOMCES = '' THEN RTRIM(G.NOMECES) CONCAT ' ' CONCAT G.COGNOCES ELSE G.DENOMCES END AS DSCOCP,
|
|
coalesce(CASE
|
|
WHEN g.STATOTRAS = 'T' and x.PROGID IS NOT NULL THEN 'E'
|
|
WHEN coalesce(G.EXTID, '') = '' THEN g.STATOTRAS
|
|
WHEN g.STATOTRAS = 'V' and x.PROGID IS NOT NULL THEN 'C'
|
|
ELSE g.STATOTRAS END
|
|
, 'B') AS STATO,
|
|
COALESCE(G.CODIDEST, d.CODIPA) AS IPA_CLI,
|
|
COALESCE(G.CODIDEST, e.CODIPA) AS IPA_DEST,
|
|
d.CODIPA AS IPA_CLI_NEW,
|
|
e.CODIPA AS IPA_DEST_NEW,
|
|
g.PROGID,
|
|
c.DESC_GIVA,
|
|
coalesce(h.ALLEG, 0) AS ALLEGATO,
|
|
coalesce(G.EXTID, '') AS EXTID,
|
|
CASE WHEN x.PROGID IS NULL THEN '0' ELSE '1' END AS ERRORI ,
|
|
CASE WHEN G.PAOPRIV IS NULL AND (d.PAOPRIV IS NULL OR d.PAOPRIV = 'R') OR G.PAOPRIV IS NOT NULL AND G.PAOPRIV = 'R' THEN '1' ELSE '0' END AS PRIVATO,
|
|
CASE WHEN d.PAOPRIV IS NULL OR d.PAOPRIV = 'R' THEN '1' ELSE '0' END AS PRIVATO_NEW,
|
|
coalesce(G.MAILPEC, d.MAILPEC) as MAILPEC_CLI,
|
|
coalesce(G.MAILPEC, e.MAILPEC) as MAILPEC_DEST,
|
|
d.MAILPEC as MAILPEC_CLI_NEW,
|
|
e.MAILPEC as MAILPEC_DEST_NEW,
|
|
coalesce(g.NOMEXML, ' ') AS NOMEXML,
|
|
coalesce(g.SERVTRA, ' ') AS SERVTRA,
|
|
coalesce(f.NUMEFATT,' ') AS NUMEFATT,
|
|
coalesce(f.VENDACQU,'V') AS VENDACQU,
|
|
case when a.flinfm <> ' ' AND A.FTDIFMA IN ('D','*') AND A.CDCFFM = A.CIFAFMA AND DEST.CLFODE IS NOT NULL AND e.CODIPA IS NOT NULL THEN '1' ELSE '0' END FORDEST,
|
|
coalesce(f.impotot, 0) impotot
|
|
FROM &DT/FTPAFE55F as a
|
|
LEFT OUTER JOIN &DT/CSTAB as DD ON DD.K00001 = '01DD' CONCAT a.TDOCFM
|
|
JOIN &DT/CGPCO00F as b ON a.CIFAFMA = b.CONTCP
|
|
JOIN &DT/SMTABAR55V as c ON a.GIVAFM = c.XCODTB
|
|
LEFT OUTER JOIN &DT/FTPAE55F as d ON
|
|
d.CDDITTA = ''
|
|
AND a.CIFAFMA = d.CODCLI
|
|
AND (d.CODIPA <> '' OR d.esclusofe ='S')
|
|
LEFT OUTER JOIN &DT/FTPAE55F as e ON
|
|
e.CDDITTA = ''
|
|
AND a.CSPEFM = e.CODCLI
|
|
AND a.DTFTFM >= e.DTIPA
|
|
AND e.CODIPA <> ''
|
|
AND e.esclusofe =' '
|
|
LEFT OUTER JOIN &DT/FTPAF55F as f ON a.CDDTFM = f.CDDTFM
|
|
AND a.DTFTFM = f.DTFTFM
|
|
AND a.NRFTFM = f.NRFTFM
|
|
AND a.GIVAFM = f.GIVAFM
|
|
AND 'V' = f.VENDACQU
|
|
LEFT OUTER JOIN &DT/FTPAI55F as g ON f.PROGID = g.PROGID
|
|
LEFT OUTER JOIN &DT/FTPAU55V as h ON a.CDDTFM = h.CDDTFAT
|
|
AND a.DTFTFM = h.DATAFAT
|
|
AND a.NRFTFM = h.NUMFAT
|
|
AND a.GIVAFM = h.GIVAFAT
|
|
AND '' = h.FORNFAT
|
|
LEFT OUTER JOIN &DT/FTPAX55F as x ON (g.PROGID = x.PROGID and x.PROGRIGA = 0)
|
|
JOIN &DT/CGANA00F as i ON i.CONTCA = b.CONTCP
|
|
LEFT JOIN &DT/CGADE00F DEST ON DEST.CONTDE = a.CSPEFM
|
|
LEFT JOIN &DT/FTPSET55F S ON 1=1
|
|
WHERE coalesce(substr(DD.F00002, 10, 1), a.TDOCFM) <> 'P'
|
|
AND
|
|
(f.storfm is null or f.STORFM <> 'S')
|
|
AND
|
|
(NOT f.nrftfm IS NULL OR
|
|
COALESCE(d.esclusofe, ' ') = ' '
|
|
AND ((d.DTIPA IS NULL AND i.cisoca IN ('IT','SM') AND a.DTFTFM >= S.datainb2b
|
|
OR
|
|
(NOT d.DTIPA IS NULL AND (d.DTIPA > 0 AND a.DTFTFM >= d.DTIPA OR (d.DTIPA = 0 AND (d.PAOPRIV = ' ' OR a.DTFTFM >= S.datainb2b)))))))) AS FAT)
|
|
<TAG-SCRIPT><IF-VERSION>5
|
|
|
|
LABEL ON TABLE &DT/FTFTE55V IS 'Art. 55 VIEW FATTURE STORICHE E ATTUALI'
|
|
<TAG-SCRIPT>
|
|
|
|
DROP VIEW &DT/FTMOV55V
|
|
<TAG-SCRIPT>
|
|
|
|
CREATE VIEW &DT/FTMOV55V AS (
|
|
SELECT FAT.*,
|
|
CASE WHEN PRIVATO = '1' AND FORDEST = '1' THEN '1' ELSE '0' END AS PRFORDEST,
|
|
CASE WHEN PRIVATO = '0' OR FORDEST = '1' THEN coalesce(DEST, SPACE(10)) ELSE SPACE(10) END AS CSPEFM,
|
|
CASE WHEN DATI_STORICI = '1' THEN IPA_CLI WHEN PRIVATO = '1' AND FORDEST = '1' THEN IPA_DEST WHEN PRIVATO = '1' THEN coalesce(IPA_CLI,'0000000') ELSE coalesce(IPA_DEST, IPA_CLI) END AS IPA,
|
|
CASE WHEN DATI_STORICI = '1' THEN MAILPEC_CLI WHEN PRIVATO = '1' AND FORDEST = '1' THEN MAILPEC_DEST WHEN PRIVATO = '1' THEN coalesce(MAILPEC_CLI, SPACE(256)) ELSE coalesce(MAILPEC_DEST, MAILPEC_CLI) END AS MAILPEC,
|
|
CASE WHEN PRIVATO_NEW = '1' AND FORDEST = '1' THEN IPA_DEST_NEW WHEN PRIVATO_NEW = '1' THEN coalesce(IPA_CLI_NEW,'0000000') ELSE coalesce(IPA_DEST_NEW, IPA_CLI_NEW) END AS IPA_NEW,
|
|
CASE WHEN PRIVATO_NEW = '1' AND FORDEST = '1' THEN MAILPEC_DEST_NEW WHEN PRIVATO_NEW = '1' THEN coalesce(MAILPEC_CLI_NEW, SPACE(256)) ELSE coalesce(MAILPEC_DEST_NEW, MAILPEC_CLI_NEW) END AS MAILPEC_NEW
|
|
FROM (
|
|
SELECT a.DTFTFM,
|
|
a.NRFTFM,
|
|
CASE
|
|
WHEN a.FLCGFM = '' THEN '0'
|
|
WHEN a.FLCGFM = '*' THEN '1'
|
|
END AS FLCG,
|
|
coalesce(f.cdcffm, a.CIFAFMA) AS CDCFFM,
|
|
a.CIFAFMA CDCFFM_NEW,
|
|
a.CDCFFM AS f0CDCFFM,
|
|
CSPEFM AS DEST,
|
|
a.GIVAFM,
|
|
a.CDDTFM,
|
|
a.FLSFFM,
|
|
case when G.CODIDEST IS NULL THEN '0' ELSE '1' END DATI_STORICI,
|
|
case when G.DENOMCES IS NULL THEN b.DSCOCP WHEN G.DENOMCES = '' THEN RTRIM(G.NOMECES) CONCAT ' ' CONCAT G.COGNOCES ELSE G.DENOMCES END AS DSCOCP,
|
|
coalesce(CASE
|
|
WHEN g.STATOTRAS = 'T' and x.PROGID IS NOT NULL THEN 'E'
|
|
WHEN coalesce(G.EXTID, '') = '' THEN g.STATOTRAS
|
|
WHEN g.STATOTRAS = 'V' and x.PROGID IS NOT NULL THEN 'C'
|
|
ELSE g.STATOTRAS END
|
|
, 'B') AS STATO,
|
|
COALESCE(G.CODIDEST, d.CODIPA) AS IPA_CLI,
|
|
COALESCE(G.CODIDEST, e.CODIPA) AS IPA_DEST,
|
|
d.CODIPA AS IPA_CLI_NEW,
|
|
e.CODIPA AS IPA_DEST_NEW,
|
|
g.PROGID,
|
|
c.DESC_GIVA,
|
|
coalesce(h.ALLEG, 0) AS ALLEGATO,
|
|
coalesce(G.EXTID, '') AS EXTID,
|
|
CASE WHEN x.PROGID IS NULL THEN '0' ELSE '1' END AS ERRORI ,
|
|
CASE WHEN G.PAOPRIV IS NULL AND (d.PAOPRIV IS NULL OR d.PAOPRIV = 'R') OR G.PAOPRIV IS NOT NULL AND G.PAOPRIV = 'R' THEN '1' ELSE '0' END AS PRIVATO,
|
|
CASE WHEN d.PAOPRIV IS NULL OR d.PAOPRIV = 'R' THEN '1' ELSE '0' END AS PRIVATO_NEW,
|
|
coalesce(G.MAILPEC, d.MAILPEC) as MAILPEC_CLI,
|
|
coalesce(G.MAILPEC, e.MAILPEC) as MAILPEC_DEST,
|
|
d.MAILPEC as MAILPEC_CLI_NEW,
|
|
e.MAILPEC as MAILPEC_DEST_NEW,
|
|
coalesce(g.NOMEXML, ' ') AS NOMEXML,
|
|
coalesce(g.SERVTRA, ' ') AS SERVTRA,
|
|
coalesce(f.NUMEFATT,' ') AS NUMEFATT,
|
|
coalesce(f.VENDACQU,'V') AS VENDACQU,
|
|
case when a.flinfm <> ' ' AND A.FTDIFMA IN ('D','*') AND A.CDCFFM = A.CIFAFMA AND DEST.CLFOCP = 'D' AND e.CODIPA IS NOT NULL THEN '1' ELSE '0' END FORDEST,
|
|
coalesce(f.impotot, 0) impotot
|
|
FROM &DT/FTMOVAR55V as a
|
|
LEFT OUTER JOIN &DT/CSTAB as DD ON DD.K00001 = '01DD' CONCAT a.TDOCFM
|
|
JOIN &DT/CGPCO00F as b ON a.CIFAFMA = b.CONTCP
|
|
JOIN &DT/SMTABAR55V as c ON a.GIVAFM = c.XCODTB
|
|
LEFT OUTER JOIN &DT/FTPAE55F as d ON
|
|
d.CDDITTA = ''
|
|
AND a.CIFAFMA = d.CODCLI
|
|
AND (d.CODIPA <> '' OR d.esclusofe ='S')
|
|
LEFT OUTER JOIN &DT/FTPAE55F as e ON
|
|
e.CDDITTA = ''
|
|
AND a.CSPEFM = e.CODCLI
|
|
AND a.DTFTFM >= e.DTIPA
|
|
AND e.CODIPA <> ''
|
|
AND e.esclusofe =' '
|
|
LEFT OUTER JOIN &DT/FTPAF55F as f ON a.CDDTFM = f.CDDTFM
|
|
AND a.DTFTFM = f.DTFTFM
|
|
AND a.NRFTFM = f.NRFTFM
|
|
AND a.GIVAFM = f.GIVAFM
|
|
AND 'V' = f.VENDACQU
|
|
LEFT OUTER JOIN &DT/FTPAI55F as g ON f.PROGID = g.PROGID
|
|
LEFT OUTER JOIN &DT/FTPAU55V as h ON a.CDDTFM = h.CDDTFAT
|
|
AND a.DTFTFM = h.DATAFAT
|
|
AND a.NRFTFM = h.NUMFAT
|
|
AND a.GIVAFM = h.GIVAFAT
|
|
AND '' = h.FORNFAT
|
|
LEFT OUTER JOIN &DT/FTPAX55F as x ON (g.PROGID = x.PROGID and x.PROGRIGA = 0)
|
|
JOIN &DT/CGANA00F as i ON i.CONTCA = b.CONTCP
|
|
LEFT JOIN &DT/CGPCO00F DEST ON DEST.CONTCP = a.CSPEFM
|
|
LEFT JOIN &DT/FTPSET55F S ON 1=1
|
|
WHERE coalesce(substr(DD.F00002, 10, 1), a.TDOCFM) <> 'P'
|
|
AND
|
|
(f.storfm is null or f.STORFM <> 'S')
|
|
AND
|
|
(NOT f.nrftfm IS NULL OR
|
|
COALESCE(d.esclusofe, ' ') = ' '
|
|
AND ((d.DTIPA IS NULL AND i.cisoca IN ('IT','SM') AND a.DTFTFM >= S.datainb2b
|
|
OR
|
|
(NOT d.DTIPA IS NULL AND (d.DTIPA > 0 AND a.DTFTFM >= d.DTIPA OR (d.DTIPA = 0 AND (d.PAOPRIV = ' ' OR a.DTFTFM >= S.datainb2b)))))))) AS FAT)
|
|
<TAG-SCRIPT><IFNOT-VERSION>5
|
|
|
|
CREATE VIEW &DT/FTMOV55V AS (
|
|
SELECT FAT.*,
|
|
CASE WHEN PRIVATO = '1' AND FORDEST = '1' THEN '1' ELSE '0' END AS PRFORDEST,
|
|
CASE WHEN PRIVATO = '0' OR FORDEST = '1' THEN coalesce(DEST, SPACE(10)) ELSE SPACE(10) END AS CSPEFM,
|
|
CASE WHEN DATI_STORICI = '1' THEN IPA_CLI WHEN PRIVATO = '1' AND FORDEST = '1' THEN IPA_DEST WHEN PRIVATO = '1' THEN coalesce(IPA_CLI,'0000000') ELSE coalesce(IPA_DEST, IPA_CLI) END AS IPA,
|
|
CASE WHEN DATI_STORICI = '1' THEN MAILPEC_CLI WHEN PRIVATO = '1' AND FORDEST = '1' THEN MAILPEC_DEST WHEN PRIVATO = '1' THEN coalesce(MAILPEC_CLI, SPACE(256)) ELSE coalesce(MAILPEC_DEST, MAILPEC_CLI) END AS MAILPEC,
|
|
CASE WHEN PRIVATO_NEW = '1' AND FORDEST = '1' THEN IPA_DEST_NEW WHEN PRIVATO_NEW = '1' THEN coalesce(IPA_CLI_NEW,'0000000') ELSE coalesce(IPA_DEST_NEW, IPA_CLI_NEW) END AS IPA_NEW,
|
|
CASE WHEN PRIVATO_NEW = '1' AND FORDEST = '1' THEN MAILPEC_DEST_NEW WHEN PRIVATO_NEW = '1' THEN coalesce(MAILPEC_CLI_NEW, SPACE(256)) ELSE coalesce(MAILPEC_DEST_NEW, MAILPEC_CLI_NEW) END AS MAILPEC_NEW
|
|
FROM (
|
|
SELECT a.DTFTFM,
|
|
a.NRFTFM,
|
|
CASE
|
|
WHEN a.FLCGFM = '' THEN '0'
|
|
WHEN a.FLCGFM = '*' THEN '1'
|
|
END AS FLCG,
|
|
coalesce(f.cdcffm, a.CIFAFMA) AS CDCFFM,
|
|
a.CIFAFMA CDCFFM_NEW,
|
|
a.CDCFFM AS f0CDCFFM,
|
|
CSPEFM AS DEST,
|
|
a.GIVAFM,
|
|
a.CDDTFM,
|
|
a.FLSFFM,
|
|
case when G.CODIDEST IS NULL THEN '0' ELSE '1' END DATI_STORICI,
|
|
case when G.DENOMCES IS NULL THEN b.DSCOCP WHEN G.DENOMCES = '' THEN RTRIM(G.NOMECES) CONCAT ' ' CONCAT G.COGNOCES ELSE G.DENOMCES END AS DSCOCP,
|
|
coalesce(CASE
|
|
WHEN g.STATOTRAS = 'T' and x.PROGID IS NOT NULL THEN 'E'
|
|
WHEN coalesce(G.EXTID, '') = '' THEN g.STATOTRAS
|
|
WHEN g.STATOTRAS = 'V' and x.PROGID IS NOT NULL THEN 'C'
|
|
ELSE g.STATOTRAS END
|
|
, 'B') AS STATO,
|
|
COALESCE(G.CODIDEST, d.CODIPA) AS IPA_CLI,
|
|
COALESCE(G.CODIDEST, e.CODIPA) AS IPA_DEST,
|
|
d.CODIPA AS IPA_CLI_NEW,
|
|
e.CODIPA AS IPA_DEST_NEW,
|
|
g.PROGID,
|
|
c.DESC_GIVA,
|
|
coalesce(h.ALLEG, 0) AS ALLEGATO,
|
|
coalesce(G.EXTID, '') AS EXTID,
|
|
CASE WHEN x.PROGID IS NULL THEN '0' ELSE '1' END AS ERRORI ,
|
|
CASE WHEN G.PAOPRIV IS NULL AND (d.PAOPRIV IS NULL OR d.PAOPRIV = 'R') OR G.PAOPRIV IS NOT NULL AND G.PAOPRIV = 'R' THEN '1' ELSE '0' END AS PRIVATO,
|
|
CASE WHEN d.PAOPRIV IS NULL OR d.PAOPRIV = 'R' THEN '1' ELSE '0' END AS PRIVATO_NEW,
|
|
coalesce(G.MAILPEC, d.MAILPEC) as MAILPEC_CLI,
|
|
coalesce(G.MAILPEC, e.MAILPEC) as MAILPEC_DEST,
|
|
d.MAILPEC as MAILPEC_CLI_NEW,
|
|
e.MAILPEC as MAILPEC_DEST_NEW,
|
|
coalesce(g.NOMEXML, ' ') AS NOMEXML,
|
|
coalesce(g.SERVTRA, ' ') AS SERVTRA,
|
|
coalesce(f.NUMEFATT,' ') AS NUMEFATT,
|
|
coalesce(f.VENDACQU,'V') AS VENDACQU,
|
|
case when a.flinfm <> ' ' AND A.FTDIFMA IN ('D','*') AND A.CDCFFM = A.CIFAFMA AND DEST.CLFODE IS NOT NULL AND e.CODIPA IS NOT NULL THEN '1' ELSE '0' END FORDEST,
|
|
coalesce(f.impotot, 0) impotot
|
|
FROM &DT/FTMOVAR55V as a
|
|
LEFT OUTER JOIN &DT/CSTAB as DD ON DD.K00001 = '01DD' CONCAT a.TDOCFM
|
|
JOIN &DT/CGPCO00F as b ON a.CIFAFMA = b.CONTCP
|
|
JOIN &DT/SMTABAR55V as c ON a.GIVAFM = c.XCODTB
|
|
LEFT OUTER JOIN &DT/FTPAE55F as d ON
|
|
d.CDDITTA = ''
|
|
AND a.CIFAFMA = d.CODCLI
|
|
AND (d.CODIPA <> '' OR d.esclusofe ='S')
|
|
LEFT OUTER JOIN &DT/FTPAE55F as e ON
|
|
e.CDDITTA = ''
|
|
AND a.CSPEFM = e.CODCLI
|
|
AND a.DTFTFM >= e.DTIPA
|
|
AND e.CODIPA <> ''
|
|
AND e.esclusofe =' '
|
|
LEFT OUTER JOIN &DT/FTPAF55F as f ON a.CDDTFM = f.CDDTFM
|
|
AND a.DTFTFM = f.DTFTFM
|
|
AND a.NRFTFM = f.NRFTFM
|
|
AND a.GIVAFM = f.GIVAFM
|
|
AND 'V' = f.VENDACQU
|
|
LEFT OUTER JOIN &DT/FTPAI55F as g ON f.PROGID = g.PROGID
|
|
LEFT OUTER JOIN &DT/FTPAU55V as h ON a.CDDTFM = h.CDDTFAT
|
|
AND a.DTFTFM = h.DATAFAT
|
|
AND a.NRFTFM = h.NUMFAT
|
|
AND a.GIVAFM = h.GIVAFAT
|
|
AND '' = h.FORNFAT
|
|
LEFT OUTER JOIN &DT/FTPAX55F as x ON (g.PROGID = x.PROGID and x.PROGRIGA = 0)
|
|
JOIN &DT/CGANA00F as i ON i.CONTCA = b.CONTCP
|
|
LEFT JOIN &DT/CGADE00F DEST ON DEST.CONTDE = a.CSPEFM
|
|
LEFT JOIN &DT/FTPSET55F S ON 1=1
|
|
WHERE coalesce(substr(DD.F00002, 10, 1), a.TDOCFM) <> 'P'
|
|
AND
|
|
(f.storfm is null or f.STORFM <> 'S')
|
|
AND
|
|
(NOT f.nrftfm IS NULL OR
|
|
COALESCE(d.esclusofe, ' ') = ' '
|
|
AND ((d.DTIPA IS NULL AND i.cisoca IN ('IT','SM') AND a.DTFTFM >= S.datainb2b
|
|
OR
|
|
(NOT d.DTIPA IS NULL AND (d.DTIPA > 0 AND a.DTFTFM >= d.DTIPA OR (d.DTIPA = 0 AND (d.PAOPRIV = ' ' OR a.DTFTFM >= S.datainb2b)))))))) AS FAT)
|
|
<TAG-SCRIPT><IF-VERSION>5
|
|
|
|
LABEL ON TABLE &DT/FTMOV55V IS 'Art. 55 VIEW ATTUALI'
|
|
<TAG-SCRIPT>
|
|
|
|
DROP VIEW &DT/FTBKM55V
|
|
<TAG-SCRIPT>
|
|
|
|
CREATE VIEW &DT/FTBKM55V AS (
|
|
SELECT FAT.*,
|
|
CASE WHEN PRIVATO = '1' AND FORDEST = '1' THEN '1' ELSE '0' END AS PRFORDEST,
|
|
CASE WHEN PRIVATO = '0' OR FORDEST = '1' THEN coalesce(DEST, SPACE(10)) ELSE SPACE(10) END AS CSPEFM,
|
|
CASE WHEN DATI_STORICI = '1' THEN IPA_CLI WHEN PRIVATO = '1' AND FORDEST = '1' THEN IPA_DEST WHEN PRIVATO = '1' THEN coalesce(IPA_CLI,'0000000') ELSE coalesce(IPA_DEST, IPA_CLI) END AS IPA,
|
|
CASE WHEN DATI_STORICI = '1' THEN MAILPEC_CLI WHEN PRIVATO = '1' AND FORDEST = '1' THEN MAILPEC_DEST WHEN PRIVATO = '1' THEN coalesce(MAILPEC_CLI, SPACE(256)) ELSE coalesce(MAILPEC_DEST, MAILPEC_CLI) END AS MAILPEC,
|
|
CASE WHEN PRIVATO_NEW = '1' AND FORDEST = '1' THEN IPA_DEST_NEW WHEN PRIVATO_NEW = '1' THEN coalesce(IPA_CLI_NEW,'0000000') ELSE coalesce(IPA_DEST_NEW, IPA_CLI_NEW) END AS IPA_NEW,
|
|
CASE WHEN PRIVATO_NEW = '1' AND FORDEST = '1' THEN MAILPEC_DEST_NEW WHEN PRIVATO_NEW = '1' THEN coalesce(MAILPEC_CLI_NEW, SPACE(256)) ELSE coalesce(MAILPEC_DEST_NEW, MAILPEC_CLI_NEW) END AS MAILPEC_NEW
|
|
FROM (
|
|
SELECT a.DTFTFM,
|
|
a.NRFTFM,
|
|
CASE
|
|
WHEN a.FLCGFM = '' THEN '0'
|
|
WHEN a.FLCGFM = '*' THEN '1'
|
|
END AS FLCG,
|
|
coalesce(f.cdcffm, a.CIFAFMA) AS CDCFFM,
|
|
a.CIFAFMA CDCFFM_NEW,
|
|
a.CDCFFM AS f0CDCFFM,
|
|
CSPEFM AS DEST,
|
|
a.GIVAFM,
|
|
a.CDDTFM,
|
|
a.FLSFFM,
|
|
case when G.CODIDEST IS NULL THEN '0' ELSE '1' END DATI_STORICI,
|
|
case when G.DENOMCES IS NULL THEN b.DSCOCP WHEN G.DENOMCES = '' THEN RTRIM(G.NOMECES) CONCAT ' ' CONCAT G.COGNOCES ELSE G.DENOMCES END AS DSCOCP,
|
|
coalesce(CASE
|
|
WHEN g.STATOTRAS = 'T' and x.PROGID IS NOT NULL THEN 'E'
|
|
WHEN coalesce(G.EXTID, '') = '' THEN g.STATOTRAS
|
|
WHEN g.STATOTRAS = 'V' and x.PROGID IS NOT NULL THEN 'C'
|
|
ELSE g.STATOTRAS END
|
|
, 'B') AS STATO,
|
|
COALESCE(G.CODIDEST, d.CODIPA) AS IPA_CLI,
|
|
COALESCE(G.CODIDEST, e.CODIPA) AS IPA_DEST,
|
|
d.CODIPA AS IPA_CLI_NEW,
|
|
e.CODIPA AS IPA_DEST_NEW,
|
|
g.PROGID,
|
|
c.DESC_GIVA,
|
|
coalesce(h.ALLEG, 0) AS ALLEGATO,
|
|
coalesce(G.EXTID, '') AS EXTID,
|
|
CASE WHEN x.PROGID IS NULL THEN '0' ELSE '1' END AS ERRORI ,
|
|
CASE WHEN G.PAOPRIV IS NULL AND (d.PAOPRIV IS NULL OR d.PAOPRIV = 'R') OR G.PAOPRIV IS NOT NULL AND G.PAOPRIV = 'R' THEN '1' ELSE '0' END AS PRIVATO,
|
|
CASE WHEN d.PAOPRIV IS NULL OR d.PAOPRIV = 'R' THEN '1' ELSE '0' END AS PRIVATO_NEW,
|
|
coalesce(G.MAILPEC, d.MAILPEC) as MAILPEC_CLI,
|
|
coalesce(G.MAILPEC, e.MAILPEC) as MAILPEC_DEST,
|
|
d.MAILPEC as MAILPEC_CLI_NEW,
|
|
e.MAILPEC as MAILPEC_DEST_NEW,
|
|
coalesce(g.NOMEXML, ' ') AS NOMEXML,
|
|
coalesce(g.SERVTRA, ' ') AS SERVTRA,
|
|
coalesce(f.NUMEFATT,' ') AS NUMEFATT,
|
|
coalesce(f.VENDACQU,'V') AS VENDACQU,
|
|
case when a.flinfm <> ' ' AND A.FTDIFMA IN ('D','*') AND A.CDCFFM = A.CIFAFMA AND DEST.CLFOCP = 'D' AND e.CODIPA IS NOT NULL THEN '1' ELSE '0' END FORDEST,
|
|
coalesce(f.impotot, 0) impotot
|
|
FROM &DT/FTBKMAR55V as a
|
|
LEFT OUTER JOIN &DT/CSTAB as DD ON DD.K00001 = '01DD' CONCAT a.TDOCFM
|
|
JOIN &DT/CGPCO00F as b ON a.CIFAFMA = b.CONTCP
|
|
JOIN &DT/SMTABAR55V as c ON a.GIVAFM = c.XCODTB
|
|
LEFT OUTER JOIN &DT/FTPAE55F as d ON
|
|
d.CDDITTA = ''
|
|
AND a.CIFAFMA = d.CODCLI
|
|
AND (d.CODIPA <> '' OR d.esclusofe ='S')
|
|
LEFT OUTER JOIN &DT/FTPAE55F as e ON
|
|
e.CDDITTA = ''
|
|
AND a.CSPEFM = e.CODCLI
|
|
AND a.DTFTFM >= e.DTIPA
|
|
AND e.CODIPA <> ''
|
|
AND e.esclusofe =' '
|
|
LEFT OUTER JOIN &DT/FTPAF55F as f ON a.CDDTFM = f.CDDTFM
|
|
AND a.DTFTFM = f.DTFTFM
|
|
AND a.NRFTFM = f.NRFTFM
|
|
AND a.GIVAFM = f.GIVAFM
|
|
AND 'V' = f.VENDACQU
|
|
LEFT OUTER JOIN &DT/FTPAI55F as g ON f.PROGID = g.PROGID
|
|
LEFT OUTER JOIN &DT/FTPAU55V as h ON a.CDDTFM = h.CDDTFAT
|
|
AND a.DTFTFM = h.DATAFAT
|
|
AND a.NRFTFM = h.NUMFAT
|
|
AND a.GIVAFM = h.GIVAFAT
|
|
AND '' = h.FORNFAT
|
|
LEFT OUTER JOIN &DT/FTPAX55F as x ON (g.PROGID = x.PROGID and x.PROGRIGA = 0)
|
|
JOIN &DT/CGANA00F as i ON i.CONTCA = b.CONTCP
|
|
LEFT JOIN &DT/CGPCO00F DEST ON DEST.CONTCP = a.CSPEFM
|
|
LEFT JOIN &DT/FTPSET55F S ON 1=1
|
|
WHERE coalesce(substr(DD.F00002, 10, 1), a.TDOCFM) <> 'P'
|
|
AND
|
|
(f.storfm is null or f.STORFM <> 'S')
|
|
AND
|
|
(NOT f.nrftfm IS NULL OR
|
|
COALESCE(d.esclusofe, ' ') = ' '
|
|
AND ((d.DTIPA IS NULL AND i.cisoca IN ('IT','SM') AND a.DTFTFM >= S.datainb2b
|
|
OR
|
|
(NOT d.DTIPA IS NULL AND (d.DTIPA > 0 AND a.DTFTFM >= d.DTIPA OR (d.DTIPA = 0 AND (d.PAOPRIV = ' ' OR a.DTFTFM >= S.datainb2b)))))))) AS FAT)
|
|
<TAG-SCRIPT><IFNOT-VERSION>5
|
|
|
|
CREATE VIEW &DT/FTBKM55V AS (
|
|
SELECT FAT.*,
|
|
CASE WHEN PRIVATO = '1' AND FORDEST = '1' THEN '1' ELSE '0' END AS PRFORDEST,
|
|
CASE WHEN PRIVATO = '0' OR FORDEST = '1' THEN coalesce(DEST, SPACE(10)) ELSE SPACE(10) END AS CSPEFM,
|
|
CASE WHEN DATI_STORICI = '1' THEN IPA_CLI WHEN PRIVATO = '1' AND FORDEST = '1' THEN IPA_DEST WHEN PRIVATO = '1' THEN coalesce(IPA_CLI,'0000000') ELSE coalesce(IPA_DEST, IPA_CLI) END AS IPA,
|
|
CASE WHEN DATI_STORICI = '1' THEN MAILPEC_CLI WHEN PRIVATO = '1' AND FORDEST = '1' THEN MAILPEC_DEST WHEN PRIVATO = '1' THEN coalesce(MAILPEC_CLI, SPACE(256)) ELSE coalesce(MAILPEC_DEST, MAILPEC_CLI) END AS MAILPEC,
|
|
CASE WHEN PRIVATO_NEW = '1' AND FORDEST = '1' THEN IPA_DEST_NEW WHEN PRIVATO_NEW = '1' THEN coalesce(IPA_CLI_NEW,'0000000') ELSE coalesce(IPA_DEST_NEW, IPA_CLI_NEW) END AS IPA_NEW,
|
|
CASE WHEN PRIVATO_NEW = '1' AND FORDEST = '1' THEN MAILPEC_DEST_NEW WHEN PRIVATO_NEW = '1' THEN coalesce(MAILPEC_CLI_NEW, SPACE(256)) ELSE coalesce(MAILPEC_DEST_NEW, MAILPEC_CLI_NEW) END AS MAILPEC_NEW
|
|
FROM (
|
|
SELECT a.DTFTFM,
|
|
a.NRFTFM,
|
|
CASE
|
|
WHEN a.FLCGFM = '' THEN '0'
|
|
WHEN a.FLCGFM = '*' THEN '1'
|
|
END AS FLCG,
|
|
coalesce(f.cdcffm, a.CIFAFMA) AS CDCFFM,
|
|
a.CIFAFMA CDCFFM_NEW,
|
|
a.CDCFFM AS f0CDCFFM,
|
|
CSPEFM AS DEST,
|
|
a.GIVAFM,
|
|
a.CDDTFM,
|
|
a.FLSFFM,
|
|
case when G.CODIDEST IS NULL THEN '0' ELSE '1' END DATI_STORICI,
|
|
case when G.DENOMCES IS NULL THEN b.DSCOCP WHEN G.DENOMCES = '' THEN RTRIM(G.NOMECES) CONCAT ' ' CONCAT G.COGNOCES ELSE G.DENOMCES END AS DSCOCP,
|
|
coalesce(CASE
|
|
WHEN g.STATOTRAS = 'T' and x.PROGID IS NOT NULL THEN 'E'
|
|
WHEN coalesce(G.EXTID, '') = '' THEN g.STATOTRAS
|
|
WHEN g.STATOTRAS = 'V' and x.PROGID IS NOT NULL THEN 'C'
|
|
ELSE g.STATOTRAS END
|
|
, 'B') AS STATO,
|
|
COALESCE(G.CODIDEST, d.CODIPA) AS IPA_CLI,
|
|
COALESCE(G.CODIDEST, e.CODIPA) AS IPA_DEST,
|
|
d.CODIPA AS IPA_CLI_NEW,
|
|
e.CODIPA AS IPA_DEST_NEW,
|
|
g.PROGID,
|
|
c.DESC_GIVA,
|
|
coalesce(h.ALLEG, 0) AS ALLEGATO,
|
|
coalesce(G.EXTID, '') AS EXTID,
|
|
CASE WHEN x.PROGID IS NULL THEN '0' ELSE '1' END AS ERRORI ,
|
|
CASE WHEN G.PAOPRIV IS NULL AND (d.PAOPRIV IS NULL OR d.PAOPRIV = 'R') OR G.PAOPRIV IS NOT NULL AND G.PAOPRIV = 'R' THEN '1' ELSE '0' END AS PRIVATO,
|
|
CASE WHEN d.PAOPRIV IS NULL OR d.PAOPRIV = 'R' THEN '1' ELSE '0' END AS PRIVATO_NEW,
|
|
coalesce(G.MAILPEC, d.MAILPEC) as MAILPEC_CLI,
|
|
coalesce(G.MAILPEC, e.MAILPEC) as MAILPEC_DEST,
|
|
d.MAILPEC as MAILPEC_CLI_NEW,
|
|
e.MAILPEC as MAILPEC_DEST_NEW,
|
|
coalesce(g.NOMEXML, ' ') AS NOMEXML,
|
|
coalesce(g.SERVTRA, ' ') AS SERVTRA,
|
|
coalesce(f.NUMEFATT,' ') AS NUMEFATT,
|
|
coalesce(f.VENDACQU,'V') AS VENDACQU,
|
|
case when a.flinfm <> ' ' AND A.FTDIFMA IN ('D','*') AND A.CDCFFM = A.CIFAFMA AND DEST.CLFODE IS NOT NULL AND e.CODIPA IS NOT NULL THEN '1' ELSE '0' END FORDEST,
|
|
coalesce(f.impotot, 0) impotot
|
|
FROM &DT/FTBKMAR55V as a
|
|
LEFT OUTER JOIN &DT/CSTAB as DD ON DD.K00001 = '01DD' CONCAT a.TDOCFM
|
|
JOIN &DT/CGPCO00F as b ON a.CIFAFMA = b.CONTCP
|
|
JOIN &DT/SMTABAR55V as c ON a.GIVAFM = c.XCODTB
|
|
LEFT OUTER JOIN &DT/FTPAE55F as d ON
|
|
d.CDDITTA = ''
|
|
AND a.CIFAFMA = d.CODCLI
|
|
AND (d.CODIPA <> '' OR d.esclusofe ='S')
|
|
LEFT OUTER JOIN &DT/FTPAE55F as e ON
|
|
e.CDDITTA = ''
|
|
AND a.CSPEFM = e.CODCLI
|
|
AND a.DTFTFM >= e.DTIPA
|
|
AND e.CODIPA <> ''
|
|
AND e.esclusofe =' '
|
|
LEFT OUTER JOIN &DT/FTPAF55F as f ON a.CDDTFM = f.CDDTFM
|
|
AND a.DTFTFM = f.DTFTFM
|
|
AND a.NRFTFM = f.NRFTFM
|
|
AND a.GIVAFM = f.GIVAFM
|
|
AND 'V' = f.VENDACQU
|
|
LEFT OUTER JOIN &DT/FTPAI55F as g ON f.PROGID = g.PROGID
|
|
LEFT OUTER JOIN &DT/FTPAU55V as h ON a.CDDTFM = h.CDDTFAT
|
|
AND a.DTFTFM = h.DATAFAT
|
|
AND a.NRFTFM = h.NUMFAT
|
|
AND a.GIVAFM = h.GIVAFAT
|
|
AND '' = h.FORNFAT
|
|
LEFT OUTER JOIN &DT/FTPAX55F as x ON (g.PROGID = x.PROGID and x.PROGRIGA = 0)
|
|
JOIN &DT/CGANA00F as i ON i.CONTCA = b.CONTCP
|
|
LEFT JOIN &DT/CGADE00F DEST ON DEST.CONTDE = a.CSPEFM
|
|
LEFT JOIN &DT/FTPSET55F S ON 1=1
|
|
WHERE coalesce(substr(DD.F00002, 10, 1), a.TDOCFM) <> 'P'
|
|
AND
|
|
(f.storfm is null or f.STORFM <> 'S')
|
|
AND
|
|
(NOT f.nrftfm IS NULL OR
|
|
COALESCE(d.esclusofe, ' ') = ' '
|
|
AND ((d.DTIPA IS NULL AND i.cisoca IN ('IT','SM') AND a.DTFTFM >= S.datainb2b
|
|
OR
|
|
(NOT d.DTIPA IS NULL AND (d.DTIPA > 0 AND a.DTFTFM >= d.DTIPA OR (d.DTIPA = 0 AND (d.PAOPRIV = ' ' OR a.DTFTFM >= S.datainb2b)))))))) AS FAT)
|
|
<TAG-SCRIPT><IF-VERSION>5
|
|
|
|
LABEL ON TABLE &DT/FTBKM55V IS 'Art. 55 VIEW STORICI'
|
|
<TAG-SCRIPT>
|
|
|
|
<TAG-VERSIONE-15.15.0>
|
|
<TAG-SCRIPT>
|
|
|
|
<TAG-VERSIONE-15.16.0>
|
|
<TAG-SCRIPT>
|
|
|
|
<TAG-VERSIONE-15.17.0>
|
|
<TAG-SCRIPT>
|
|
|
|
<TAG-VERSIONE-15.18.0>
|
|
<TAG-SCRIPT>
|
|
|
|
DROP VIEW &DT/FTFTE55V
|
|
<TAG-SCRIPT>
|
|
|
|
CREATE VIEW &DT/FTFTE55V AS (
|
|
SELECT FAT.*,
|
|
CASE WHEN PRIVATO = '1' AND FORDEST = '1' THEN '1' ELSE '0' END AS PRFORDEST,
|
|
CASE WHEN PRIVATO = '0' OR FORDEST = '1' THEN coalesce(DEST, SPACE(10)) ELSE SPACE(10) END AS CSPEFM,
|
|
CASE WHEN DATI_STORICI = '1' THEN IPA_CLI WHEN PRIVATO = '1' AND FORDEST = '1' THEN IPA_DEST WHEN PRIVATO = '1' THEN coalesce(IPA_CLI,'0000000') ELSE coalesce(IPA_DEST, IPA_CLI) END AS IPA,
|
|
CASE WHEN DATI_STORICI = '1' THEN MAILPEC_CLI WHEN PRIVATO = '1' AND FORDEST = '1' THEN MAILPEC_DEST WHEN PRIVATO = '1' THEN coalesce(MAILPEC_CLI, SPACE(256)) ELSE coalesce(MAILPEC_DEST, MAILPEC_CLI) END AS MAILPEC,
|
|
CASE WHEN PRIVATO_NEW = '1' AND FORDEST = '1' THEN IPA_DEST_NEW WHEN PRIVATO_NEW = '1' THEN coalesce(IPA_CLI_NEW,'0000000') ELSE coalesce(IPA_DEST_NEW, IPA_CLI_NEW) END AS IPA_NEW,
|
|
CASE WHEN PRIVATO_NEW = '1' AND FORDEST = '1' THEN MAILPEC_DEST_NEW WHEN PRIVATO_NEW = '1' THEN coalesce(MAILPEC_CLI_NEW, SPACE(256)) ELSE coalesce(MAILPEC_DEST_NEW, MAILPEC_CLI_NEW) END AS MAILPEC_NEW
|
|
FROM (
|
|
SELECT a.DTFTFM,
|
|
a.NRFTFM,
|
|
CASE
|
|
WHEN a.FLCGFM = '' THEN '0'
|
|
WHEN a.FLCGFM = '*' THEN '1'
|
|
END AS FLCG,
|
|
coalesce(f.cdcffm, a.CIFAFMA) AS CDCFFM,
|
|
a.CIFAFMA CDCFFM_NEW,
|
|
a.CDCFFM AS f0CDCFFM,
|
|
CSPEFM AS DEST,
|
|
a.GIVAFM,
|
|
a.CDDTFM,
|
|
a.FLSFFM,
|
|
case when G.CODIDEST IS NULL THEN '0' ELSE '1' END DATI_STORICI,
|
|
case when G.DENOMCES IS NULL THEN b.DSCOCP WHEN G.DENOMCES = '' THEN RTRIM(G.NOMECES) CONCAT ' ' CONCAT G.COGNOCES ELSE G.DENOMCES END AS DSCOCP,
|
|
coalesce(CASE
|
|
WHEN g.STATOTRAS = 'T' and x.PROGID IS NOT NULL THEN 'E'
|
|
WHEN coalesce(G.EXTID, '') = '' THEN g.STATOTRAS
|
|
WHEN g.STATOTRAS = 'V' and x.PROGID IS NOT NULL THEN 'C'
|
|
ELSE g.STATOTRAS END
|
|
, 'B') AS STATO,
|
|
COALESCE(G.CODIDEST, d.CODIPA) AS IPA_CLI,
|
|
COALESCE(G.CODIDEST, e.CODIPA) AS IPA_DEST,
|
|
d.CODIPA AS IPA_CLI_NEW,
|
|
e.CODIPA AS IPA_DEST_NEW,
|
|
g.PROGID,
|
|
c.DESC_GIVA,
|
|
coalesce(h.ALLEG, 0) AS ALLEGATO,
|
|
coalesce(G.EXTID, '') AS EXTID,
|
|
CASE WHEN x.PROGID IS NULL THEN '0' ELSE '1' END AS ERRORI ,
|
|
CASE WHEN G.PAOPRIV IS NULL AND (d.PAOPRIV IS NULL OR d.PAOPRIV = 'R') OR G.PAOPRIV IS NOT NULL AND G.PAOPRIV = 'R' THEN '1' ELSE '0' END AS PRIVATO,
|
|
CASE WHEN d.PAOPRIV IS NULL OR d.PAOPRIV = 'R' THEN '1' ELSE '0' END AS PRIVATO_NEW,
|
|
coalesce(G.MAILPEC, d.MAILPEC) as MAILPEC_CLI,
|
|
coalesce(G.MAILPEC, e.MAILPEC) as MAILPEC_DEST,
|
|
d.MAILPEC as MAILPEC_CLI_NEW,
|
|
e.MAILPEC as MAILPEC_DEST_NEW,
|
|
coalesce(g.NOMEXML, ' ') AS NOMEXML,
|
|
coalesce(g.SERVTRA, ' ') AS SERVTRA,
|
|
coalesce(f.NUMEFATT,' ') AS NUMEFATT,
|
|
coalesce(f.VENDACQU,'V') AS VENDACQU,
|
|
case when a.flinfm <> ' ' AND A.FTDIFMA IN ('D','*') AND A.CDCFFM = A.CIFAFMA AND DEST.CLFOCP = 'D' AND e.CODIPA IS NOT NULL THEN '1' ELSE '0' END FORDEST,
|
|
coalesce(f.impotot, 0) impotot,
|
|
coalesce(f.TIPODOCU, ' ') TIPODOC
|
|
FROM &DT/FTPAFE55F as a
|
|
LEFT OUTER JOIN &DT/CSTAB as DD ON DD.K00001 = '01DD' CONCAT a.TDOCFM
|
|
JOIN &DT/CGPCO00F as b ON a.CIFAFMA = b.CONTCP
|
|
JOIN &DT/SMTABAR55V as c ON a.GIVAFM = c.XCODTB
|
|
LEFT OUTER JOIN &DT/FTPAE55F as d ON
|
|
d.CDDITTA = ''
|
|
AND a.CIFAFMA = d.CODCLI
|
|
AND (d.CODIPA <> '' OR d.esclusofe ='S')
|
|
LEFT OUTER JOIN &DT/FTPAE55F as e ON
|
|
e.CDDITTA = ''
|
|
AND a.CSPEFM = e.CODCLI
|
|
AND a.DTFTFM >= e.DTIPA
|
|
AND e.CODIPA <> ''
|
|
AND e.esclusofe =' '
|
|
LEFT OUTER JOIN &DT/FTPAF55F as f ON a.CDDTFM = f.CDDTFM
|
|
AND a.DTFTFM = f.DTFTFM
|
|
AND a.NRFTFM = f.NRFTFM
|
|
AND a.GIVAFM = f.GIVAFM
|
|
AND 'V' = f.VENDACQU
|
|
LEFT OUTER JOIN &DT/FTPAI55F as g ON f.PROGID = g.PROGID
|
|
LEFT OUTER JOIN &DT/FTPAU55V as h ON a.CDDTFM = h.CDDTFAT
|
|
AND a.DTFTFM = h.DATAFAT
|
|
AND a.NRFTFM = h.NUMFAT
|
|
AND a.GIVAFM = h.GIVAFAT
|
|
AND '' = h.FORNFAT
|
|
LEFT OUTER JOIN &DT/FTPAX55F as x ON (g.PROGID = x.PROGID and x.PROGRIGA = 0)
|
|
JOIN &DT/CGANA00F as i ON i.CONTCA = b.CONTCP
|
|
LEFT JOIN &DT/CGPCO00F DEST ON DEST.CONTCP = a.CSPEFM
|
|
LEFT JOIN &DT/FTPSET55F S ON 1=1
|
|
WHERE coalesce(substr(DD.F00002, 10, 1), a.TDOCFM) <> 'P'
|
|
AND
|
|
(f.storfm is null or f.STORFM <> 'S')
|
|
AND
|
|
(NOT f.nrftfm IS NULL OR
|
|
COALESCE(d.esclusofe, ' ') = ' '
|
|
AND ((d.DTIPA IS NULL AND i.cisoca IN ('IT','SM') AND a.DTFTFM >= S.datainb2b
|
|
OR
|
|
(NOT d.DTIPA IS NULL AND (d.DTIPA > 0 AND a.DTFTFM >= d.DTIPA OR (d.DTIPA = 0 AND (d.PAOPRIV = ' ' OR a.DTFTFM >= S.datainb2b)))))))) AS FAT)
|
|
<TAG-SCRIPT><IFNOT-VERSION>5
|
|
|
|
CREATE VIEW &DT/FTFTE55V AS (
|
|
SELECT FAT.*,
|
|
CASE WHEN PRIVATO = '1' AND FORDEST = '1' THEN '1' ELSE '0' END AS PRFORDEST,
|
|
CASE WHEN PRIVATO = '0' OR FORDEST = '1' THEN coalesce(DEST, SPACE(10)) ELSE SPACE(10) END AS CSPEFM,
|
|
CASE WHEN DATI_STORICI = '1' THEN IPA_CLI WHEN PRIVATO = '1' AND FORDEST = '1' THEN IPA_DEST WHEN PRIVATO = '1' THEN coalesce(IPA_CLI,'0000000') ELSE coalesce(IPA_DEST, IPA_CLI) END AS IPA,
|
|
CASE WHEN DATI_STORICI = '1' THEN MAILPEC_CLI WHEN PRIVATO = '1' AND FORDEST = '1' THEN MAILPEC_DEST WHEN PRIVATO = '1' THEN coalesce(MAILPEC_CLI, SPACE(256)) ELSE coalesce(MAILPEC_DEST, MAILPEC_CLI) END AS MAILPEC,
|
|
CASE WHEN PRIVATO_NEW = '1' AND FORDEST = '1' THEN IPA_DEST_NEW WHEN PRIVATO_NEW = '1' THEN coalesce(IPA_CLI_NEW,'0000000') ELSE coalesce(IPA_DEST_NEW, IPA_CLI_NEW) END AS IPA_NEW,
|
|
CASE WHEN PRIVATO_NEW = '1' AND FORDEST = '1' THEN MAILPEC_DEST_NEW WHEN PRIVATO_NEW = '1' THEN coalesce(MAILPEC_CLI_NEW, SPACE(256)) ELSE coalesce(MAILPEC_DEST_NEW, MAILPEC_CLI_NEW) END AS MAILPEC_NEW
|
|
FROM (
|
|
SELECT a.DTFTFM,
|
|
a.NRFTFM,
|
|
CASE
|
|
WHEN a.FLCGFM = '' THEN '0'
|
|
WHEN a.FLCGFM = '*' THEN '1'
|
|
END AS FLCG,
|
|
coalesce(f.cdcffm, a.CIFAFMA) AS CDCFFM,
|
|
a.CIFAFMA CDCFFM_NEW,
|
|
a.CDCFFM AS f0CDCFFM,
|
|
CSPEFM AS DEST,
|
|
a.GIVAFM,
|
|
a.CDDTFM,
|
|
a.FLSFFM,
|
|
case when G.CODIDEST IS NULL THEN '0' ELSE '1' END DATI_STORICI,
|
|
case when G.DENOMCES IS NULL THEN b.DSCOCP WHEN G.DENOMCES = '' THEN RTRIM(G.NOMECES) CONCAT ' ' CONCAT G.COGNOCES ELSE G.DENOMCES END AS DSCOCP,
|
|
coalesce(CASE
|
|
WHEN g.STATOTRAS = 'T' and x.PROGID IS NOT NULL THEN 'E'
|
|
WHEN coalesce(G.EXTID, '') = '' THEN g.STATOTRAS
|
|
WHEN g.STATOTRAS = 'V' and x.PROGID IS NOT NULL THEN 'C'
|
|
ELSE g.STATOTRAS END
|
|
, 'B') AS STATO,
|
|
COALESCE(G.CODIDEST, d.CODIPA) AS IPA_CLI,
|
|
COALESCE(G.CODIDEST, e.CODIPA) AS IPA_DEST,
|
|
d.CODIPA AS IPA_CLI_NEW,
|
|
e.CODIPA AS IPA_DEST_NEW,
|
|
g.PROGID,
|
|
c.DESC_GIVA,
|
|
coalesce(h.ALLEG, 0) AS ALLEGATO,
|
|
coalesce(G.EXTID, '') AS EXTID,
|
|
CASE WHEN x.PROGID IS NULL THEN '0' ELSE '1' END AS ERRORI ,
|
|
CASE WHEN G.PAOPRIV IS NULL AND (d.PAOPRIV IS NULL OR d.PAOPRIV = 'R') OR G.PAOPRIV IS NOT NULL AND G.PAOPRIV = 'R' THEN '1' ELSE '0' END AS PRIVATO,
|
|
CASE WHEN d.PAOPRIV IS NULL OR d.PAOPRIV = 'R' THEN '1' ELSE '0' END AS PRIVATO_NEW,
|
|
coalesce(G.MAILPEC, d.MAILPEC) as MAILPEC_CLI,
|
|
coalesce(G.MAILPEC, e.MAILPEC) as MAILPEC_DEST,
|
|
d.MAILPEC as MAILPEC_CLI_NEW,
|
|
e.MAILPEC as MAILPEC_DEST_NEW,
|
|
coalesce(g.NOMEXML, ' ') AS NOMEXML,
|
|
coalesce(g.SERVTRA, ' ') AS SERVTRA,
|
|
coalesce(f.NUMEFATT,' ') AS NUMEFATT,
|
|
coalesce(f.VENDACQU,'V') AS VENDACQU,
|
|
case when a.flinfm <> ' ' AND A.FTDIFMA IN ('D','*') AND A.CDCFFM = A.CIFAFMA AND DEST.CLFODE IS NOT NULL AND e.CODIPA IS NOT NULL THEN '1' ELSE '0' END FORDEST,
|
|
coalesce(f.impotot, 0) impotot,
|
|
coalesce(f.TIPODOCU, ' ') TIPODOC
|
|
FROM &DT/FTPAFE55F as a
|
|
LEFT OUTER JOIN &DT/CSTAB as DD ON DD.K00001 = '01DD' CONCAT a.TDOCFM
|
|
JOIN &DT/CGPCO00F as b ON a.CIFAFMA = b.CONTCP
|
|
JOIN &DT/SMTABAR55V as c ON a.GIVAFM = c.XCODTB
|
|
LEFT OUTER JOIN &DT/FTPAE55F as d ON
|
|
d.CDDITTA = ''
|
|
AND a.CIFAFMA = d.CODCLI
|
|
AND (d.CODIPA <> '' OR d.esclusofe ='S')
|
|
LEFT OUTER JOIN &DT/FTPAE55F as e ON
|
|
e.CDDITTA = ''
|
|
AND a.CSPEFM = e.CODCLI
|
|
AND a.DTFTFM >= e.DTIPA
|
|
AND e.CODIPA <> ''
|
|
AND e.esclusofe =' '
|
|
LEFT OUTER JOIN &DT/FTPAF55F as f ON a.CDDTFM = f.CDDTFM
|
|
AND a.DTFTFM = f.DTFTFM
|
|
AND a.NRFTFM = f.NRFTFM
|
|
AND a.GIVAFM = f.GIVAFM
|
|
AND 'V' = f.VENDACQU
|
|
LEFT OUTER JOIN &DT/FTPAI55F as g ON f.PROGID = g.PROGID
|
|
LEFT OUTER JOIN &DT/FTPAU55V as h ON a.CDDTFM = h.CDDTFAT
|
|
AND a.DTFTFM = h.DATAFAT
|
|
AND a.NRFTFM = h.NUMFAT
|
|
AND a.GIVAFM = h.GIVAFAT
|
|
AND '' = h.FORNFAT
|
|
LEFT OUTER JOIN &DT/FTPAX55F as x ON (g.PROGID = x.PROGID and x.PROGRIGA = 0)
|
|
JOIN &DT/CGANA00F as i ON i.CONTCA = b.CONTCP
|
|
LEFT JOIN &DT/CGADE00F DEST ON DEST.CONTDE = a.CSPEFM
|
|
LEFT JOIN &DT/FTPSET55F S ON 1=1
|
|
WHERE coalesce(substr(DD.F00002, 10, 1), a.TDOCFM) <> 'P'
|
|
AND
|
|
(f.storfm is null or f.STORFM <> 'S')
|
|
AND
|
|
(NOT f.nrftfm IS NULL OR
|
|
COALESCE(d.esclusofe, ' ') = ' '
|
|
AND ((d.DTIPA IS NULL AND i.cisoca IN ('IT','SM') AND a.DTFTFM >= S.datainb2b
|
|
OR
|
|
(NOT d.DTIPA IS NULL AND (d.DTIPA > 0 AND a.DTFTFM >= d.DTIPA OR (d.DTIPA = 0 AND (d.PAOPRIV = ' ' OR a.DTFTFM >= S.datainb2b)))))))) AS FAT)
|
|
<TAG-SCRIPT><IF-VERSION>5
|
|
|
|
LABEL ON TABLE &DT/FTFTE55V IS 'Art. 55 VIEW FATTURE STORICHE E ATTUALI'
|
|
<TAG-SCRIPT>
|
|
|
|
DROP VIEW &DT/FTMOV55V
|
|
<TAG-SCRIPT>
|
|
|
|
CREATE VIEW &DT/FTMOV55V AS (
|
|
SELECT FAT.*,
|
|
CASE WHEN PRIVATO = '1' AND FORDEST = '1' THEN '1' ELSE '0' END AS PRFORDEST,
|
|
CASE WHEN PRIVATO = '0' OR FORDEST = '1' THEN coalesce(DEST, SPACE(10)) ELSE SPACE(10) END AS CSPEFM,
|
|
CASE WHEN DATI_STORICI = '1' THEN IPA_CLI WHEN PRIVATO = '1' AND FORDEST = '1' THEN IPA_DEST WHEN PRIVATO = '1' THEN coalesce(IPA_CLI,'0000000') ELSE coalesce(IPA_DEST, IPA_CLI) END AS IPA,
|
|
CASE WHEN DATI_STORICI = '1' THEN MAILPEC_CLI WHEN PRIVATO = '1' AND FORDEST = '1' THEN MAILPEC_DEST WHEN PRIVATO = '1' THEN coalesce(MAILPEC_CLI, SPACE(256)) ELSE coalesce(MAILPEC_DEST, MAILPEC_CLI) END AS MAILPEC,
|
|
CASE WHEN PRIVATO_NEW = '1' AND FORDEST = '1' THEN IPA_DEST_NEW WHEN PRIVATO_NEW = '1' THEN coalesce(IPA_CLI_NEW,'0000000') ELSE coalesce(IPA_DEST_NEW, IPA_CLI_NEW) END AS IPA_NEW,
|
|
CASE WHEN PRIVATO_NEW = '1' AND FORDEST = '1' THEN MAILPEC_DEST_NEW WHEN PRIVATO_NEW = '1' THEN coalesce(MAILPEC_CLI_NEW, SPACE(256)) ELSE coalesce(MAILPEC_DEST_NEW, MAILPEC_CLI_NEW) END AS MAILPEC_NEW
|
|
FROM (
|
|
SELECT a.DTFTFM,
|
|
a.NRFTFM,
|
|
CASE
|
|
WHEN a.FLCGFM = '' THEN '0'
|
|
WHEN a.FLCGFM = '*' THEN '1'
|
|
END AS FLCG,
|
|
coalesce(f.cdcffm, a.CIFAFMA) AS CDCFFM,
|
|
a.CIFAFMA CDCFFM_NEW,
|
|
a.CDCFFM AS f0CDCFFM,
|
|
CSPEFM AS DEST,
|
|
a.GIVAFM,
|
|
a.CDDTFM,
|
|
a.FLSFFM,
|
|
case when G.CODIDEST IS NULL THEN '0' ELSE '1' END DATI_STORICI,
|
|
case when G.DENOMCES IS NULL THEN b.DSCOCP WHEN G.DENOMCES = '' THEN RTRIM(G.NOMECES) CONCAT ' ' CONCAT G.COGNOCES ELSE G.DENOMCES END AS DSCOCP,
|
|
coalesce(CASE
|
|
WHEN g.STATOTRAS = 'T' and x.PROGID IS NOT NULL THEN 'E'
|
|
WHEN coalesce(G.EXTID, '') = '' THEN g.STATOTRAS
|
|
WHEN g.STATOTRAS = 'V' and x.PROGID IS NOT NULL THEN 'C'
|
|
ELSE g.STATOTRAS END
|
|
, 'B') AS STATO,
|
|
COALESCE(G.CODIDEST, d.CODIPA) AS IPA_CLI,
|
|
COALESCE(G.CODIDEST, e.CODIPA) AS IPA_DEST,
|
|
d.CODIPA AS IPA_CLI_NEW,
|
|
e.CODIPA AS IPA_DEST_NEW,
|
|
g.PROGID,
|
|
c.DESC_GIVA,
|
|
coalesce(h.ALLEG, 0) AS ALLEGATO,
|
|
coalesce(G.EXTID, '') AS EXTID,
|
|
CASE WHEN x.PROGID IS NULL THEN '0' ELSE '1' END AS ERRORI ,
|
|
CASE WHEN G.PAOPRIV IS NULL AND (d.PAOPRIV IS NULL OR d.PAOPRIV = 'R') OR G.PAOPRIV IS NOT NULL AND G.PAOPRIV = 'R' THEN '1' ELSE '0' END AS PRIVATO,
|
|
CASE WHEN d.PAOPRIV IS NULL OR d.PAOPRIV = 'R' THEN '1' ELSE '0' END AS PRIVATO_NEW,
|
|
coalesce(G.MAILPEC, d.MAILPEC) as MAILPEC_CLI,
|
|
coalesce(G.MAILPEC, e.MAILPEC) as MAILPEC_DEST,
|
|
d.MAILPEC as MAILPEC_CLI_NEW,
|
|
e.MAILPEC as MAILPEC_DEST_NEW,
|
|
coalesce(g.NOMEXML, ' ') AS NOMEXML,
|
|
coalesce(g.SERVTRA, ' ') AS SERVTRA,
|
|
coalesce(f.NUMEFATT,' ') AS NUMEFATT,
|
|
coalesce(f.VENDACQU,'V') AS VENDACQU,
|
|
case when a.flinfm <> ' ' AND A.FTDIFMA IN ('D','*') AND A.CDCFFM = A.CIFAFMA AND DEST.CLFOCP = 'D' AND e.CODIPA IS NOT NULL THEN '1' ELSE '0' END FORDEST,
|
|
coalesce(f.impotot, 0) impotot,
|
|
coalesce(f.TIPODOCU, ' ') TIPODOC
|
|
FROM &DT/FTMOVAR55V as a
|
|
LEFT OUTER JOIN &DT/CSTAB as DD ON DD.K00001 = '01DD' CONCAT a.TDOCFM
|
|
JOIN &DT/CGPCO00F as b ON a.CIFAFMA = b.CONTCP
|
|
JOIN &DT/SMTABAR55V as c ON a.GIVAFM = c.XCODTB
|
|
LEFT OUTER JOIN &DT/FTPAE55F as d ON
|
|
d.CDDITTA = ''
|
|
AND a.CIFAFMA = d.CODCLI
|
|
AND (d.CODIPA <> '' OR d.esclusofe ='S')
|
|
LEFT OUTER JOIN &DT/FTPAE55F as e ON
|
|
e.CDDITTA = ''
|
|
AND a.CSPEFM = e.CODCLI
|
|
AND a.DTFTFM >= e.DTIPA
|
|
AND e.CODIPA <> ''
|
|
AND e.esclusofe =' '
|
|
LEFT OUTER JOIN &DT/FTPAF55F as f ON a.CDDTFM = f.CDDTFM
|
|
AND a.DTFTFM = f.DTFTFM
|
|
AND a.NRFTFM = f.NRFTFM
|
|
AND a.GIVAFM = f.GIVAFM
|
|
AND 'V' = f.VENDACQU
|
|
LEFT OUTER JOIN &DT/FTPAI55F as g ON f.PROGID = g.PROGID
|
|
LEFT OUTER JOIN &DT/FTPAU55V as h ON a.CDDTFM = h.CDDTFAT
|
|
AND a.DTFTFM = h.DATAFAT
|
|
AND a.NRFTFM = h.NUMFAT
|
|
AND a.GIVAFM = h.GIVAFAT
|
|
AND '' = h.FORNFAT
|
|
LEFT OUTER JOIN &DT/FTPAX55F as x ON (g.PROGID = x.PROGID and x.PROGRIGA = 0)
|
|
JOIN &DT/CGANA00F as i ON i.CONTCA = b.CONTCP
|
|
LEFT JOIN &DT/CGPCO00F DEST ON DEST.CONTCP = a.CSPEFM
|
|
LEFT JOIN &DT/FTPSET55F S ON 1=1
|
|
WHERE coalesce(substr(DD.F00002, 10, 1), a.TDOCFM) <> 'P'
|
|
AND
|
|
(f.storfm is null or f.STORFM <> 'S')
|
|
AND
|
|
(NOT f.nrftfm IS NULL OR
|
|
COALESCE(d.esclusofe, ' ') = ' '
|
|
AND ((d.DTIPA IS NULL AND i.cisoca IN ('IT','SM') AND a.DTFTFM >= S.datainb2b
|
|
OR
|
|
(NOT d.DTIPA IS NULL AND (d.DTIPA > 0 AND a.DTFTFM >= d.DTIPA OR (d.DTIPA = 0 AND (d.PAOPRIV = ' ' OR a.DTFTFM >= S.datainb2b)))))))) AS FAT)
|
|
<TAG-SCRIPT><IFNOT-VERSION>5
|
|
|
|
CREATE VIEW &DT/FTMOV55V AS (
|
|
SELECT FAT.*,
|
|
CASE WHEN PRIVATO = '1' AND FORDEST = '1' THEN '1' ELSE '0' END AS PRFORDEST,
|
|
CASE WHEN PRIVATO = '0' OR FORDEST = '1' THEN coalesce(DEST, SPACE(10)) ELSE SPACE(10) END AS CSPEFM,
|
|
CASE WHEN DATI_STORICI = '1' THEN IPA_CLI WHEN PRIVATO = '1' AND FORDEST = '1' THEN IPA_DEST WHEN PRIVATO = '1' THEN coalesce(IPA_CLI,'0000000') ELSE coalesce(IPA_DEST, IPA_CLI) END AS IPA,
|
|
CASE WHEN DATI_STORICI = '1' THEN MAILPEC_CLI WHEN PRIVATO = '1' AND FORDEST = '1' THEN MAILPEC_DEST WHEN PRIVATO = '1' THEN coalesce(MAILPEC_CLI, SPACE(256)) ELSE coalesce(MAILPEC_DEST, MAILPEC_CLI) END AS MAILPEC,
|
|
CASE WHEN PRIVATO_NEW = '1' AND FORDEST = '1' THEN IPA_DEST_NEW WHEN PRIVATO_NEW = '1' THEN coalesce(IPA_CLI_NEW,'0000000') ELSE coalesce(IPA_DEST_NEW, IPA_CLI_NEW) END AS IPA_NEW,
|
|
CASE WHEN PRIVATO_NEW = '1' AND FORDEST = '1' THEN MAILPEC_DEST_NEW WHEN PRIVATO_NEW = '1' THEN coalesce(MAILPEC_CLI_NEW, SPACE(256)) ELSE coalesce(MAILPEC_DEST_NEW, MAILPEC_CLI_NEW) END AS MAILPEC_NEW
|
|
FROM (
|
|
SELECT a.DTFTFM,
|
|
a.NRFTFM,
|
|
CASE
|
|
WHEN a.FLCGFM = '' THEN '0'
|
|
WHEN a.FLCGFM = '*' THEN '1'
|
|
END AS FLCG,
|
|
coalesce(f.cdcffm, a.CIFAFMA) AS CDCFFM,
|
|
a.CIFAFMA CDCFFM_NEW,
|
|
a.CDCFFM AS f0CDCFFM,
|
|
CSPEFM AS DEST,
|
|
a.GIVAFM,
|
|
a.CDDTFM,
|
|
a.FLSFFM,
|
|
case when G.CODIDEST IS NULL THEN '0' ELSE '1' END DATI_STORICI,
|
|
case when G.DENOMCES IS NULL THEN b.DSCOCP WHEN G.DENOMCES = '' THEN RTRIM(G.NOMECES) CONCAT ' ' CONCAT G.COGNOCES ELSE G.DENOMCES END AS DSCOCP,
|
|
coalesce(CASE
|
|
WHEN g.STATOTRAS = 'T' and x.PROGID IS NOT NULL THEN 'E'
|
|
WHEN coalesce(G.EXTID, '') = '' THEN g.STATOTRAS
|
|
WHEN g.STATOTRAS = 'V' and x.PROGID IS NOT NULL THEN 'C'
|
|
ELSE g.STATOTRAS END
|
|
, 'B') AS STATO,
|
|
COALESCE(G.CODIDEST, d.CODIPA) AS IPA_CLI,
|
|
COALESCE(G.CODIDEST, e.CODIPA) AS IPA_DEST,
|
|
d.CODIPA AS IPA_CLI_NEW,
|
|
e.CODIPA AS IPA_DEST_NEW,
|
|
g.PROGID,
|
|
c.DESC_GIVA,
|
|
coalesce(h.ALLEG, 0) AS ALLEGATO,
|
|
coalesce(G.EXTID, '') AS EXTID,
|
|
CASE WHEN x.PROGID IS NULL THEN '0' ELSE '1' END AS ERRORI ,
|
|
CASE WHEN G.PAOPRIV IS NULL AND (d.PAOPRIV IS NULL OR d.PAOPRIV = 'R') OR G.PAOPRIV IS NOT NULL AND G.PAOPRIV = 'R' THEN '1' ELSE '0' END AS PRIVATO,
|
|
CASE WHEN d.PAOPRIV IS NULL OR d.PAOPRIV = 'R' THEN '1' ELSE '0' END AS PRIVATO_NEW,
|
|
coalesce(G.MAILPEC, d.MAILPEC) as MAILPEC_CLI,
|
|
coalesce(G.MAILPEC, e.MAILPEC) as MAILPEC_DEST,
|
|
d.MAILPEC as MAILPEC_CLI_NEW,
|
|
e.MAILPEC as MAILPEC_DEST_NEW,
|
|
coalesce(g.NOMEXML, ' ') AS NOMEXML,
|
|
coalesce(g.SERVTRA, ' ') AS SERVTRA,
|
|
coalesce(f.NUMEFATT,' ') AS NUMEFATT,
|
|
coalesce(f.VENDACQU,'V') AS VENDACQU,
|
|
case when a.flinfm <> ' ' AND A.FTDIFMA IN ('D','*') AND A.CDCFFM = A.CIFAFMA AND DEST.CLFODE IS NOT NULL AND e.CODIPA IS NOT NULL THEN '1' ELSE '0' END FORDEST,
|
|
coalesce(f.impotot, 0) impotot,
|
|
coalesce(f.TIPODOCU, ' ') TIPODOC
|
|
FROM &DT/FTMOVAR55V as a
|
|
LEFT OUTER JOIN &DT/CSTAB as DD ON DD.K00001 = '01DD' CONCAT a.TDOCFM
|
|
JOIN &DT/CGPCO00F as b ON a.CIFAFMA = b.CONTCP
|
|
JOIN &DT/SMTABAR55V as c ON a.GIVAFM = c.XCODTB
|
|
LEFT OUTER JOIN &DT/FTPAE55F as d ON
|
|
d.CDDITTA = ''
|
|
AND a.CIFAFMA = d.CODCLI
|
|
AND (d.CODIPA <> '' OR d.esclusofe ='S')
|
|
LEFT OUTER JOIN &DT/FTPAE55F as e ON
|
|
e.CDDITTA = ''
|
|
AND a.CSPEFM = e.CODCLI
|
|
AND a.DTFTFM >= e.DTIPA
|
|
AND e.CODIPA <> ''
|
|
AND e.esclusofe =' '
|
|
LEFT OUTER JOIN &DT/FTPAF55F as f ON a.CDDTFM = f.CDDTFM
|
|
AND a.DTFTFM = f.DTFTFM
|
|
AND a.NRFTFM = f.NRFTFM
|
|
AND a.GIVAFM = f.GIVAFM
|
|
AND 'V' = f.VENDACQU
|
|
LEFT OUTER JOIN &DT/FTPAI55F as g ON f.PROGID = g.PROGID
|
|
LEFT OUTER JOIN &DT/FTPAU55V as h ON a.CDDTFM = h.CDDTFAT
|
|
AND a.DTFTFM = h.DATAFAT
|
|
AND a.NRFTFM = h.NUMFAT
|
|
AND a.GIVAFM = h.GIVAFAT
|
|
AND '' = h.FORNFAT
|
|
LEFT OUTER JOIN &DT/FTPAX55F as x ON (g.PROGID = x.PROGID and x.PROGRIGA = 0)
|
|
JOIN &DT/CGANA00F as i ON i.CONTCA = b.CONTCP
|
|
LEFT JOIN &DT/CGADE00F DEST ON DEST.CONTDE = a.CSPEFM
|
|
LEFT JOIN &DT/FTPSET55F S ON 1=1
|
|
WHERE coalesce(substr(DD.F00002, 10, 1), a.TDOCFM) <> 'P'
|
|
AND
|
|
(f.storfm is null or f.STORFM <> 'S')
|
|
AND
|
|
(NOT f.nrftfm IS NULL OR
|
|
COALESCE(d.esclusofe, ' ') = ' '
|
|
AND ((d.DTIPA IS NULL AND i.cisoca IN ('IT','SM') AND a.DTFTFM >= S.datainb2b
|
|
OR
|
|
(NOT d.DTIPA IS NULL AND (d.DTIPA > 0 AND a.DTFTFM >= d.DTIPA OR (d.DTIPA = 0 AND (d.PAOPRIV = ' ' OR a.DTFTFM >= S.datainb2b)))))))) AS FAT)
|
|
<TAG-SCRIPT><IF-VERSION>5
|
|
|
|
LABEL ON TABLE &DT/FTMOV55V IS 'Art. 55 VIEW ATTUALI'
|
|
<TAG-SCRIPT>
|
|
|
|
DROP VIEW &DT/FTBKM55V
|
|
<TAG-SCRIPT>
|
|
|
|
CREATE VIEW &DT/FTBKM55V AS (
|
|
SELECT FAT.*,
|
|
CASE WHEN PRIVATO = '1' AND FORDEST = '1' THEN '1' ELSE '0' END AS PRFORDEST,
|
|
CASE WHEN PRIVATO = '0' OR FORDEST = '1' THEN coalesce(DEST, SPACE(10)) ELSE SPACE(10) END AS CSPEFM,
|
|
CASE WHEN DATI_STORICI = '1' THEN IPA_CLI WHEN PRIVATO = '1' AND FORDEST = '1' THEN IPA_DEST WHEN PRIVATO = '1' THEN coalesce(IPA_CLI,'0000000') ELSE coalesce(IPA_DEST, IPA_CLI) END AS IPA,
|
|
CASE WHEN DATI_STORICI = '1' THEN MAILPEC_CLI WHEN PRIVATO = '1' AND FORDEST = '1' THEN MAILPEC_DEST WHEN PRIVATO = '1' THEN coalesce(MAILPEC_CLI, SPACE(256)) ELSE coalesce(MAILPEC_DEST, MAILPEC_CLI) END AS MAILPEC,
|
|
CASE WHEN PRIVATO_NEW = '1' AND FORDEST = '1' THEN IPA_DEST_NEW WHEN PRIVATO_NEW = '1' THEN coalesce(IPA_CLI_NEW,'0000000') ELSE coalesce(IPA_DEST_NEW, IPA_CLI_NEW) END AS IPA_NEW,
|
|
CASE WHEN PRIVATO_NEW = '1' AND FORDEST = '1' THEN MAILPEC_DEST_NEW WHEN PRIVATO_NEW = '1' THEN coalesce(MAILPEC_CLI_NEW, SPACE(256)) ELSE coalesce(MAILPEC_DEST_NEW, MAILPEC_CLI_NEW) END AS MAILPEC_NEW
|
|
FROM (
|
|
SELECT a.DTFTFM,
|
|
a.NRFTFM,
|
|
CASE
|
|
WHEN a.FLCGFM = '' THEN '0'
|
|
WHEN a.FLCGFM = '*' THEN '1'
|
|
END AS FLCG,
|
|
coalesce(f.cdcffm, a.CIFAFMA) AS CDCFFM,
|
|
a.CIFAFMA CDCFFM_NEW,
|
|
a.CDCFFM AS f0CDCFFM,
|
|
CSPEFM AS DEST,
|
|
a.GIVAFM,
|
|
a.CDDTFM,
|
|
a.FLSFFM,
|
|
case when G.CODIDEST IS NULL THEN '0' ELSE '1' END DATI_STORICI,
|
|
case when G.DENOMCES IS NULL THEN b.DSCOCP WHEN G.DENOMCES = '' THEN RTRIM(G.NOMECES) CONCAT ' ' CONCAT G.COGNOCES ELSE G.DENOMCES END AS DSCOCP,
|
|
coalesce(CASE
|
|
WHEN g.STATOTRAS = 'T' and x.PROGID IS NOT NULL THEN 'E'
|
|
WHEN coalesce(G.EXTID, '') = '' THEN g.STATOTRAS
|
|
WHEN g.STATOTRAS = 'V' and x.PROGID IS NOT NULL THEN 'C'
|
|
ELSE g.STATOTRAS END
|
|
, 'B') AS STATO,
|
|
COALESCE(G.CODIDEST, d.CODIPA) AS IPA_CLI,
|
|
COALESCE(G.CODIDEST, e.CODIPA) AS IPA_DEST,
|
|
d.CODIPA AS IPA_CLI_NEW,
|
|
e.CODIPA AS IPA_DEST_NEW,
|
|
g.PROGID,
|
|
c.DESC_GIVA,
|
|
coalesce(h.ALLEG, 0) AS ALLEGATO,
|
|
coalesce(G.EXTID, '') AS EXTID,
|
|
CASE WHEN x.PROGID IS NULL THEN '0' ELSE '1' END AS ERRORI ,
|
|
CASE WHEN G.PAOPRIV IS NULL AND (d.PAOPRIV IS NULL OR d.PAOPRIV = 'R') OR G.PAOPRIV IS NOT NULL AND G.PAOPRIV = 'R' THEN '1' ELSE '0' END AS PRIVATO,
|
|
CASE WHEN d.PAOPRIV IS NULL OR d.PAOPRIV = 'R' THEN '1' ELSE '0' END AS PRIVATO_NEW,
|
|
coalesce(G.MAILPEC, d.MAILPEC) as MAILPEC_CLI,
|
|
coalesce(G.MAILPEC, e.MAILPEC) as MAILPEC_DEST,
|
|
d.MAILPEC as MAILPEC_CLI_NEW,
|
|
e.MAILPEC as MAILPEC_DEST_NEW,
|
|
coalesce(g.NOMEXML, ' ') AS NOMEXML,
|
|
coalesce(g.SERVTRA, ' ') AS SERVTRA,
|
|
coalesce(f.NUMEFATT,' ') AS NUMEFATT,
|
|
coalesce(f.VENDACQU,'V') AS VENDACQU,
|
|
case when a.flinfm <> ' ' AND A.FTDIFMA IN ('D','*') AND A.CDCFFM = A.CIFAFMA AND DEST.CLFOCP = 'D' AND e.CODIPA IS NOT NULL THEN '1' ELSE '0' END FORDEST,
|
|
coalesce(f.impotot, 0) impotot,
|
|
coalesce(f.TIPODOCU, ' ') TIPODOC
|
|
FROM &DT/FTBKMAR55V as a
|
|
LEFT OUTER JOIN &DT/CSTAB as DD ON DD.K00001 = '01DD' CONCAT a.TDOCFM
|
|
JOIN &DT/CGPCO00F as b ON a.CIFAFMA = b.CONTCP
|
|
JOIN &DT/SMTABAR55V as c ON a.GIVAFM = c.XCODTB
|
|
LEFT OUTER JOIN &DT/FTPAE55F as d ON
|
|
d.CDDITTA = ''
|
|
AND a.CIFAFMA = d.CODCLI
|
|
AND (d.CODIPA <> '' OR d.esclusofe ='S')
|
|
LEFT OUTER JOIN &DT/FTPAE55F as e ON
|
|
e.CDDITTA = ''
|
|
AND a.CSPEFM = e.CODCLI
|
|
AND a.DTFTFM >= e.DTIPA
|
|
AND e.CODIPA <> ''
|
|
AND e.esclusofe =' '
|
|
LEFT OUTER JOIN &DT/FTPAF55F as f ON a.CDDTFM = f.CDDTFM
|
|
AND a.DTFTFM = f.DTFTFM
|
|
AND a.NRFTFM = f.NRFTFM
|
|
AND a.GIVAFM = f.GIVAFM
|
|
AND 'V' = f.VENDACQU
|
|
LEFT OUTER JOIN &DT/FTPAI55F as g ON f.PROGID = g.PROGID
|
|
LEFT OUTER JOIN &DT/FTPAU55V as h ON a.CDDTFM = h.CDDTFAT
|
|
AND a.DTFTFM = h.DATAFAT
|
|
AND a.NRFTFM = h.NUMFAT
|
|
AND a.GIVAFM = h.GIVAFAT
|
|
AND '' = h.FORNFAT
|
|
LEFT OUTER JOIN &DT/FTPAX55F as x ON (g.PROGID = x.PROGID and x.PROGRIGA = 0)
|
|
JOIN &DT/CGANA00F as i ON i.CONTCA = b.CONTCP
|
|
LEFT JOIN &DT/CGPCO00F DEST ON DEST.CONTCP = a.CSPEFM
|
|
LEFT JOIN &DT/FTPSET55F S ON 1=1
|
|
WHERE coalesce(substr(DD.F00002, 10, 1), a.TDOCFM) <> 'P'
|
|
AND
|
|
(f.storfm is null or f.STORFM <> 'S')
|
|
AND
|
|
(NOT f.nrftfm IS NULL OR
|
|
COALESCE(d.esclusofe, ' ') = ' '
|
|
AND ((d.DTIPA IS NULL AND i.cisoca IN ('IT','SM') AND a.DTFTFM >= S.datainb2b
|
|
OR
|
|
(NOT d.DTIPA IS NULL AND (d.DTIPA > 0 AND a.DTFTFM >= d.DTIPA OR (d.DTIPA = 0 AND (d.PAOPRIV = ' ' OR a.DTFTFM >= S.datainb2b)))))))) AS FAT)
|
|
<TAG-SCRIPT><IFNOT-VERSION>5
|
|
|
|
CREATE VIEW &DT/FTBKM55V AS (
|
|
SELECT FAT.*,
|
|
CASE WHEN PRIVATO = '1' AND FORDEST = '1' THEN '1' ELSE '0' END AS PRFORDEST,
|
|
CASE WHEN PRIVATO = '0' OR FORDEST = '1' THEN coalesce(DEST, SPACE(10)) ELSE SPACE(10) END AS CSPEFM,
|
|
CASE WHEN DATI_STORICI = '1' THEN IPA_CLI WHEN PRIVATO = '1' AND FORDEST = '1' THEN IPA_DEST WHEN PRIVATO = '1' THEN coalesce(IPA_CLI,'0000000') ELSE coalesce(IPA_DEST, IPA_CLI) END AS IPA,
|
|
CASE WHEN DATI_STORICI = '1' THEN MAILPEC_CLI WHEN PRIVATO = '1' AND FORDEST = '1' THEN MAILPEC_DEST WHEN PRIVATO = '1' THEN coalesce(MAILPEC_CLI, SPACE(256)) ELSE coalesce(MAILPEC_DEST, MAILPEC_CLI) END AS MAILPEC,
|
|
CASE WHEN PRIVATO_NEW = '1' AND FORDEST = '1' THEN IPA_DEST_NEW WHEN PRIVATO_NEW = '1' THEN coalesce(IPA_CLI_NEW,'0000000') ELSE coalesce(IPA_DEST_NEW, IPA_CLI_NEW) END AS IPA_NEW,
|
|
CASE WHEN PRIVATO_NEW = '1' AND FORDEST = '1' THEN MAILPEC_DEST_NEW WHEN PRIVATO_NEW = '1' THEN coalesce(MAILPEC_CLI_NEW, SPACE(256)) ELSE coalesce(MAILPEC_DEST_NEW, MAILPEC_CLI_NEW) END AS MAILPEC_NEW
|
|
FROM (
|
|
SELECT a.DTFTFM,
|
|
a.NRFTFM,
|
|
CASE
|
|
WHEN a.FLCGFM = '' THEN '0'
|
|
WHEN a.FLCGFM = '*' THEN '1'
|
|
END AS FLCG,
|
|
coalesce(f.cdcffm, a.CIFAFMA) AS CDCFFM,
|
|
a.CIFAFMA CDCFFM_NEW,
|
|
a.CDCFFM AS f0CDCFFM,
|
|
CSPEFM AS DEST,
|
|
a.GIVAFM,
|
|
a.CDDTFM,
|
|
a.FLSFFM,
|
|
case when G.CODIDEST IS NULL THEN '0' ELSE '1' END DATI_STORICI,
|
|
case when G.DENOMCES IS NULL THEN b.DSCOCP WHEN G.DENOMCES = '' THEN RTRIM(G.NOMECES) CONCAT ' ' CONCAT G.COGNOCES ELSE G.DENOMCES END AS DSCOCP,
|
|
coalesce(CASE
|
|
WHEN g.STATOTRAS = 'T' and x.PROGID IS NOT NULL THEN 'E'
|
|
WHEN coalesce(G.EXTID, '') = '' THEN g.STATOTRAS
|
|
WHEN g.STATOTRAS = 'V' and x.PROGID IS NOT NULL THEN 'C'
|
|
ELSE g.STATOTRAS END
|
|
, 'B') AS STATO,
|
|
COALESCE(G.CODIDEST, d.CODIPA) AS IPA_CLI,
|
|
COALESCE(G.CODIDEST, e.CODIPA) AS IPA_DEST,
|
|
d.CODIPA AS IPA_CLI_NEW,
|
|
e.CODIPA AS IPA_DEST_NEW,
|
|
g.PROGID,
|
|
c.DESC_GIVA,
|
|
coalesce(h.ALLEG, 0) AS ALLEGATO,
|
|
coalesce(G.EXTID, '') AS EXTID,
|
|
CASE WHEN x.PROGID IS NULL THEN '0' ELSE '1' END AS ERRORI ,
|
|
CASE WHEN G.PAOPRIV IS NULL AND (d.PAOPRIV IS NULL OR d.PAOPRIV = 'R') OR G.PAOPRIV IS NOT NULL AND G.PAOPRIV = 'R' THEN '1' ELSE '0' END AS PRIVATO,
|
|
CASE WHEN d.PAOPRIV IS NULL OR d.PAOPRIV = 'R' THEN '1' ELSE '0' END AS PRIVATO_NEW,
|
|
coalesce(G.MAILPEC, d.MAILPEC) as MAILPEC_CLI,
|
|
coalesce(G.MAILPEC, e.MAILPEC) as MAILPEC_DEST,
|
|
d.MAILPEC as MAILPEC_CLI_NEW,
|
|
e.MAILPEC as MAILPEC_DEST_NEW,
|
|
coalesce(g.NOMEXML, ' ') AS NOMEXML,
|
|
coalesce(g.SERVTRA, ' ') AS SERVTRA,
|
|
coalesce(f.NUMEFATT,' ') AS NUMEFATT,
|
|
coalesce(f.VENDACQU,'V') AS VENDACQU,
|
|
case when a.flinfm <> ' ' AND A.FTDIFMA IN ('D','*') AND A.CDCFFM = A.CIFAFMA AND DEST.CLFODE IS NOT NULL AND e.CODIPA IS NOT NULL THEN '1' ELSE '0' END FORDEST,
|
|
coalesce(f.impotot, 0) impotot,
|
|
coalesce(f.TIPODOCU, ' ') TIPODOC
|
|
FROM &DT/FTBKMAR55V as a
|
|
LEFT OUTER JOIN &DT/CSTAB as DD ON DD.K00001 = '01DD' CONCAT a.TDOCFM
|
|
JOIN &DT/CGPCO00F as b ON a.CIFAFMA = b.CONTCP
|
|
JOIN &DT/SMTABAR55V as c ON a.GIVAFM = c.XCODTB
|
|
LEFT OUTER JOIN &DT/FTPAE55F as d ON
|
|
d.CDDITTA = ''
|
|
AND a.CIFAFMA = d.CODCLI
|
|
AND (d.CODIPA <> '' OR d.esclusofe ='S')
|
|
LEFT OUTER JOIN &DT/FTPAE55F as e ON
|
|
e.CDDITTA = ''
|
|
AND a.CSPEFM = e.CODCLI
|
|
AND a.DTFTFM >= e.DTIPA
|
|
AND e.CODIPA <> ''
|
|
AND e.esclusofe =' '
|
|
LEFT OUTER JOIN &DT/FTPAF55F as f ON a.CDDTFM = f.CDDTFM
|
|
AND a.DTFTFM = f.DTFTFM
|
|
AND a.NRFTFM = f.NRFTFM
|
|
AND a.GIVAFM = f.GIVAFM
|
|
AND 'V' = f.VENDACQU
|
|
LEFT OUTER JOIN &DT/FTPAI55F as g ON f.PROGID = g.PROGID
|
|
LEFT OUTER JOIN &DT/FTPAU55V as h ON a.CDDTFM = h.CDDTFAT
|
|
AND a.DTFTFM = h.DATAFAT
|
|
AND a.NRFTFM = h.NUMFAT
|
|
AND a.GIVAFM = h.GIVAFAT
|
|
AND '' = h.FORNFAT
|
|
LEFT OUTER JOIN &DT/FTPAX55F as x ON (g.PROGID = x.PROGID and x.PROGRIGA = 0)
|
|
JOIN &DT/CGANA00F as i ON i.CONTCA = b.CONTCP
|
|
LEFT JOIN &DT/CGADE00F DEST ON DEST.CONTDE = a.CSPEFM
|
|
LEFT JOIN &DT/FTPSET55F S ON 1=1
|
|
WHERE coalesce(substr(DD.F00002, 10, 1), a.TDOCFM) <> 'P'
|
|
AND
|
|
(f.storfm is null or f.STORFM <> 'S')
|
|
AND
|
|
(NOT f.nrftfm IS NULL OR
|
|
COALESCE(d.esclusofe, ' ') = ' '
|
|
AND ((d.DTIPA IS NULL AND i.cisoca IN ('IT','SM') AND a.DTFTFM >= S.datainb2b
|
|
OR
|
|
(NOT d.DTIPA IS NULL AND (d.DTIPA > 0 AND a.DTFTFM >= d.DTIPA OR (d.DTIPA = 0 AND (d.PAOPRIV = ' ' OR a.DTFTFM >= S.datainb2b)))))))) AS FAT)
|
|
<TAG-SCRIPT><IF-VERSION>5
|
|
|
|
LABEL ON TABLE &DT/FTBKM55V IS 'Art. 55 VIEW STORICI'
|
|
<TAG-SCRIPT>
|
|
|
|
<CONDITION>EXISTS (SELECT 1 FROM QSYS2.SYSTABLES WHERE TABLE_SCHEMA = '&DT' AND TABLE_NAME = 'MGMOF00F')</CONDITION>
|
|
DROP VIEW &DT/MGMOF55V
|
|
<TAG-SCRIPT>
|
|
|
|
<CONDITION>EXISTS (SELECT 1 FROM QSYS2.SYSTABLES WHERE TABLE_SCHEMA = '&DT' AND TABLE_NAME = 'MGMOF00F')</CONDITION>
|
|
CREATE VIEW &DT/MGMOF55V AS (
|
|
SELECT a.DTFTMF DTFTFM,
|
|
a.NRFTMF NRFTFM,
|
|
CASE
|
|
WHEN a.FLCGMF = '' THEN '0'
|
|
WHEN a.FLCGMF = '*' THEN '1'
|
|
END AS FLCG,
|
|
CASE WHEN a.CIFAMF = '' THEN a.CDCFMF ELSE a.CIFAMF END AS CDCFFM,
|
|
a.CDCFMF AS f0CDCFFM,
|
|
' ' CSPEFM,
|
|
a.GIVAMF GIVAFM,
|
|
a.CDDTMF CDDTFM,
|
|
a.FLSFMF FLSFFM,
|
|
b.DSCOCP ,
|
|
coalesce(CASE
|
|
WHEN g.STATOTRAS = 'T' and x.PROGID IS NOT NULL THEN 'E'
|
|
WHEN coalesce(G.EXTID, '') = '' THEN g.STATOTRAS
|
|
WHEN g.STATOTRAS = 'V' and x.PROGID IS NOT NULL THEN 'C'
|
|
ELSE g.STATOTRAS END
|
|
, 'B') AS STATO,
|
|
case when d.PAOPRIV IS NOT NULL THEN d.CODIPA WHEN F2.CODIDEST <> '' THEN F2.CODIDEST ELSE '0000000' END AS IPA,
|
|
g.PROGID,
|
|
c.DESC_GIVA,
|
|
coalesce(h.ALLEG, 0) AS ALLEGATO,
|
|
coalesce(G.EXTID, '') AS EXTID,
|
|
CASE WHEN x.PROGID IS NULL THEN '0' ELSE '1' END AS ERRORI ,
|
|
CASE WHEN d.PAOPRIV IS NULL OR d.PAOPRIV = 'R' THEN '1' ELSE '0' END AS PRIVATO,
|
|
coalesce(d.MAILPEC, F2.MAILPEC, SPACE(256)) as MAILPEC,
|
|
coalesce(g.NOMEXML, ' ') AS NOMEXML,
|
|
coalesce(g.SERVTRA, ' ') AS SERVTRA,
|
|
coalesce(f.NUMEFATT,' ') AS NUMEFATT,
|
|
coalesce(f.VENDACQU,'A') AS VENDACQU,
|
|
coalesce(f.impotot, 0) AS impotot,
|
|
coalesce(f.TIPODOCU, ' ') TIPODOC
|
|
FROM &DT/MGMOF00F as a
|
|
JOIN &DT/CSTAB as DD ON DD.K00001 = '01DD' CONCAT a.TDOCMF CONCAT 'A'
|
|
JOIN &DT/CGPCO00F as b ON a.CDCFMF = b.CONTCP
|
|
JOIN &DT/SMTABAR55V as c ON a.GIVAMF = c.XCODTB
|
|
LEFT OUTER JOIN &DT/FTPAE55F as d ON
|
|
d.CDDITTA = ''
|
|
AND a.CDCFMF = d.CODCLI
|
|
LEFT OUTER JOIN &DT/FTPAF55F as f ON a.CDDTMF = f.CDDTFM
|
|
AND a.DTFTMF = f.DTFTFM
|
|
AND a.NRFTMF = f.NRFTFM
|
|
AND a.GIVAMF = f.GIVAFM
|
|
AND a.CDCFMF = f.CDCFFM
|
|
AND 'A' = f.VENDACQU
|
|
LEFT OUTER JOIN &DT/FTPAI55F as g ON f.PROGID = g.PROGID
|
|
LEFT OUTER JOIN &DT/FTPAU55V as h ON a.CDDTMF = h.CDDTFAT
|
|
AND a.DTFTMF = h.DATAFAT
|
|
AND a.NRFTMF = h.NUMFAT
|
|
AND a.GIVAMF = h.GIVAFAT
|
|
AND CASE WHEN a.CIFAMF = '' THEN a.CDCFMF ELSE a.CIFAMF END = h.FORNFAT
|
|
LEFT OUTER JOIN &DT/FTPAX55F as x ON (g.PROGID = x.PROGID and x.PROGRIGA = 0)
|
|
JOIN &DT/CGANA00F as i ON i.CONTCA = b.CONTCP
|
|
LEFT JOIN &DT/FTPSET55F S ON 1=1
|
|
JOIN &DT/FTPA255F F2 ON F2.TABDDCOD = a.TDOCMF AND F2.tabddarea = 'A' AND F2.Fselfbil = 'S'
|
|
WHERE a.FLSFMF ='*'
|
|
AND a.FLCFMF='*'
|
|
AND a.dtftmf <> 0
|
|
AND a.NRFTMF <> 0
|
|
AND
|
|
(f.storfm is null or f.STORFM <> 'S')
|
|
AND
|
|
(NOT f.nrftfm IS NULL OR
|
|
COALESCE(d.esclusofe, ' ') = ' '
|
|
AND ((d.DTIPA IS NULL AND i.cisoca = 'IT' AND a.DTFTMF >= S.datainb2b
|
|
OR
|
|
(NOT d.DTIPA IS NULL AND (d.DTIPA > 0 AND a.DTFTMF >= d.DTIPA OR (d.DTIPA = 0 AND (a.DTFTMF >= S.datainb2b)))))))
|
|
)
|
|
<TAG-SCRIPT>
|
|
|
|
<CONDITION>EXISTS (SELECT 1 FROM QSYS2.SYSTABLES WHERE TABLE_SCHEMA = '&DT' AND TABLE_NAME = 'MGMOF00F')</CONDITION>
|
|
LABEL ON TABLE &DT/MGMOF55V IS 'Art. 55 VIEW FATTURE SELF BILLING'
|
|
<TAG-SCRIPT>
|
|
|
|
<TAG-VERSIONE-16.0.0>
|
|
<TAG-SCRIPT>
|
|
|
|
<TAG-VERSIONE-17.0.0>
|
|
<TAG-SCRIPT>
|
|
|
|
<TAG-VERSIONE-17.1.0>
|
|
<TAG-SCRIPT>
|
|
|
|
<TAG-VERSIONE-17.2.0>
|
|
<TAG-SCRIPT>
|
|
|
|
<TAG-VERSIONE-17.3.0>
|
|
<TAG-SCRIPT>
|
|
|
|
DROP VIEW &DT/FTMOV55V
|
|
<TAG-SCRIPT>
|
|
|
|
CREATE VIEW &DT/FTMOV55V AS (
|
|
SELECT FAT.*,
|
|
CASE WHEN PRIVATO = '1' AND FORDEST = '1' THEN '1' ELSE '0' END AS PRFORDEST,
|
|
CASE WHEN PRIVATO = '0' OR FORDEST = '1' THEN coalesce(DEST, SPACE(10)) ELSE SPACE(10) END AS CSPEFM,
|
|
CASE WHEN DATI_STORICI = '1' THEN IPA_CLI WHEN PRIVATO = '1' AND FORDEST = '1' THEN IPA_DEST WHEN PRIVATO = '1' THEN coalesce(IPA_CLI,DEFAULTIPA) ELSE coalesce(IPA_DEST, IPA_CLI) END AS IPA,
|
|
CASE WHEN DATI_STORICI = '1' THEN MAILPEC_CLI WHEN PRIVATO = '1' AND FORDEST = '1' THEN MAILPEC_DEST WHEN PRIVATO = '1' THEN coalesce(MAILPEC_CLI, SPACE(256)) ELSE coalesce(MAILPEC_DEST, MAILPEC_CLI) END AS MAILPEC,
|
|
CASE WHEN PRIVATO_NEW = '1' AND FORDEST = '1' THEN IPA_DEST_NEW WHEN PRIVATO_NEW = '1' THEN coalesce(IPA_CLI_NEW,DEFAULTIPA) ELSE coalesce(IPA_DEST_NEW, IPA_CLI_NEW) END AS IPA_NEW,
|
|
CASE WHEN PRIVATO_NEW = '1' AND FORDEST = '1' THEN MAILPEC_DEST_NEW WHEN PRIVATO_NEW = '1' THEN coalesce(MAILPEC_CLI_NEW, SPACE(256)) ELSE coalesce(MAILPEC_DEST_NEW, MAILPEC_CLI_NEW) END AS MAILPEC_NEW
|
|
FROM (
|
|
SELECT a.DTFTFM,
|
|
a.NRFTFM,
|
|
CASE
|
|
WHEN a.FLCGFM = '' THEN '0'
|
|
WHEN a.FLCGFM = '*' THEN '1'
|
|
END AS FLCG,
|
|
coalesce(f.cdcffm, a.CIFAFMA) AS CDCFFM,
|
|
a.CIFAFMA CDCFFM_NEW,
|
|
a.CDCFFM AS f0CDCFFM,
|
|
CSPEFM AS DEST,
|
|
a.GIVAFM,
|
|
a.CDDTFM,
|
|
a.FLSFFM,
|
|
case when G.CODIDEST IS NULL THEN '0' ELSE '1' END DATI_STORICI,
|
|
case when G.DENOMCES IS NULL THEN b.DSCOCP WHEN G.DENOMCES = '' THEN RTRIM(G.NOMECES) CONCAT ' ' CONCAT G.COGNOCES ELSE G.DENOMCES END AS DSCOCP,
|
|
coalesce(CASE
|
|
WHEN g.STATOTRAS = 'T' and x.PROGID IS NOT NULL THEN 'E'
|
|
WHEN coalesce(G.EXTID, '') = '' THEN g.STATOTRAS
|
|
WHEN g.STATOTRAS = 'V' and x.PROGID IS NOT NULL THEN 'C'
|
|
ELSE g.STATOTRAS END
|
|
, 'B') AS STATO,
|
|
COALESCE(G.CODIDEST, d.CODIPA) AS IPA_CLI,
|
|
COALESCE(G.CODIDEST, e.CODIPA) AS IPA_DEST,
|
|
d.CODIPA AS IPA_CLI_NEW,
|
|
e.CODIPA AS IPA_DEST_NEW,
|
|
g.PROGID,
|
|
c.DESC_GIVA,
|
|
coalesce(h.ALLEG, 0) AS ALLEGATO,
|
|
coalesce(G.EXTID, '') AS EXTID,
|
|
CASE WHEN x.PROGID IS NULL THEN '0' ELSE '1' END AS ERRORI ,
|
|
CASE WHEN G.PAOPRIV IS NULL AND (d.PAOPRIV IS NULL OR d.PAOPRIV = 'R') OR G.PAOPRIV IS NOT NULL AND G.PAOPRIV = 'R' THEN '1' ELSE '0' END AS PRIVATO,
|
|
CASE WHEN d.PAOPRIV IS NULL OR d.PAOPRIV = 'R' THEN '1' ELSE '0' END AS PRIVATO_NEW,
|
|
coalesce(G.MAILPEC, d.MAILPEC) as MAILPEC_CLI,
|
|
coalesce(G.MAILPEC, e.MAILPEC) as MAILPEC_DEST,
|
|
d.MAILPEC as MAILPEC_CLI_NEW,
|
|
e.MAILPEC as MAILPEC_DEST_NEW,
|
|
coalesce(g.NOMEXML, ' ') AS NOMEXML,
|
|
coalesce(g.SERVTRA, ' ') AS SERVTRA,
|
|
coalesce(f.NUMEFATT,' ') AS NUMEFATT,
|
|
coalesce(f.VENDACQU,'V') AS VENDACQU,
|
|
case when a.flinfm <> ' ' AND A.FTDIFMA IN ('D','*') AND A.CDCFFM = A.CIFAFMA AND DEST.CLFOCP = 'D' AND e.CODIPA IS NOT NULL THEN '1' ELSE '0' END FORDEST,
|
|
coalesce(f.impotot, 0) impotot,
|
|
coalesce(f.TIPODOCU, ' ') TIPODOC,
|
|
d.DTIPA AS DTAVVIOSERV,
|
|
i.CISOCA AS CODICEISO,
|
|
coalesce(S.FLGESTFTE, '') AS FLGFATTEST,
|
|
coalesce(S.DTESTFTE, 20220101) AS DTFATTEST,
|
|
CASE WHEN i.CISOCA = 'IT' THEN '0000000' WHEN i.CISOCA = '' THEN '' ELSE 'XXXXXXX' END AS DEFAULTIPA
|
|
FROM &DT/FTMOVAR55V as a
|
|
LEFT OUTER JOIN &DT/CSTAB as DD ON DD.K00001 = '01DD' CONCAT a.TDOCFM
|
|
JOIN &DT/CGPCO00F as b ON a.CIFAFMA = b.CONTCP
|
|
JOIN &DT/SMTABAR55V as c ON a.GIVAFM = c.XCODTB
|
|
LEFT OUTER JOIN &DT/FTPAE55F as d ON
|
|
d.CDDITTA = ''
|
|
AND a.CIFAFMA = d.CODCLI
|
|
AND (d.CODIPA <> '' OR d.esclusofe ='S')
|
|
LEFT OUTER JOIN &DT/FTPAE55F as e ON
|
|
e.CDDITTA = ''
|
|
AND a.CSPEFM = e.CODCLI
|
|
AND a.DTFTFM >= e.DTIPA
|
|
AND e.CODIPA <> ''
|
|
AND e.esclusofe =' '
|
|
LEFT OUTER JOIN &DT/FTPAF55F as f ON a.CDDTFM = f.CDDTFM
|
|
AND a.DTFTFM = f.DTFTFM
|
|
AND a.NRFTFM = f.NRFTFM
|
|
AND a.GIVAFM = f.GIVAFM
|
|
AND 'V' = f.VENDACQU
|
|
LEFT OUTER JOIN &DT/FTPAI55F as g ON f.PROGID = g.PROGID
|
|
LEFT OUTER JOIN &DT/FTPAU55V as h ON a.CDDTFM = h.CDDTFAT
|
|
AND a.DTFTFM = h.DATAFAT
|
|
AND a.NRFTFM = h.NUMFAT
|
|
AND a.GIVAFM = h.GIVAFAT
|
|
AND '' = h.FORNFAT
|
|
LEFT OUTER JOIN &DT/FTPAX55F as x ON (g.PROGID = x.PROGID and x.PROGRIGA = 0)
|
|
JOIN &DT/CGANA00F as i ON i.CONTCA = b.CONTCP
|
|
LEFT JOIN &DT/CGPCO00F DEST ON DEST.CONTCP = a.CSPEFM
|
|
LEFT JOIN &DT/FTPSET55F S ON 1=1
|
|
WHERE coalesce(substr(DD.F00002, 10, 1), a.TDOCFM) <> 'P'
|
|
AND
|
|
(f.storfm is null or f.STORFM <> 'S')
|
|
AND
|
|
(NOT f.nrftfm IS NULL OR
|
|
COALESCE(d.esclusofe, ' ') = ' '
|
|
AND ((d.DTIPA IS NULL AND a.DTFTFM >= S.datainb2b
|
|
OR
|
|
(NOT d.DTIPA IS NULL AND (d.DTIPA > 0 AND a.DTFTFM >= d.DTIPA OR (d.DTIPA = 0 AND (d.PAOPRIV = ' ' OR a.DTFTFM >= S.datainb2b)))))))) AS FAT)
|
|
<TAG-SCRIPT><IFNOT-VERSION>5
|
|
|
|
CREATE VIEW &DT/FTMOV55V AS (
|
|
SELECT FAT.*,
|
|
CASE WHEN PRIVATO = '1' AND FORDEST = '1' THEN '1' ELSE '0' END AS PRFORDEST,
|
|
CASE WHEN PRIVATO = '0' OR FORDEST = '1' THEN coalesce(DEST, SPACE(10)) ELSE SPACE(10) END AS CSPEFM,
|
|
CASE WHEN DATI_STORICI = '1' THEN IPA_CLI WHEN PRIVATO = '1' AND FORDEST = '1' THEN IPA_DEST WHEN PRIVATO = '1' THEN coalesce(IPA_CLI,DEFAULTIPA) ELSE coalesce(IPA_DEST, IPA_CLI) END AS IPA,
|
|
CASE WHEN DATI_STORICI = '1' THEN MAILPEC_CLI WHEN PRIVATO = '1' AND FORDEST = '1' THEN MAILPEC_DEST WHEN PRIVATO = '1' THEN coalesce(MAILPEC_CLI, SPACE(256)) ELSE coalesce(MAILPEC_DEST, MAILPEC_CLI) END AS MAILPEC,
|
|
CASE WHEN PRIVATO_NEW = '1' AND FORDEST = '1' THEN IPA_DEST_NEW WHEN PRIVATO_NEW = '1' THEN coalesce(IPA_CLI_NEW,DEFAULTIPA) ELSE coalesce(IPA_DEST_NEW, IPA_CLI_NEW) END AS IPA_NEW,
|
|
CASE WHEN PRIVATO_NEW = '1' AND FORDEST = '1' THEN MAILPEC_DEST_NEW WHEN PRIVATO_NEW = '1' THEN coalesce(MAILPEC_CLI_NEW, SPACE(256)) ELSE coalesce(MAILPEC_DEST_NEW, MAILPEC_CLI_NEW) END AS MAILPEC_NEW
|
|
FROM (
|
|
SELECT a.DTFTFM,
|
|
a.NRFTFM,
|
|
CASE
|
|
WHEN a.FLCGFM = '' THEN '0'
|
|
WHEN a.FLCGFM = '*' THEN '1'
|
|
END AS FLCG,
|
|
coalesce(f.cdcffm, a.CIFAFMA) AS CDCFFM,
|
|
a.CIFAFMA CDCFFM_NEW,
|
|
a.CDCFFM AS f0CDCFFM,
|
|
CSPEFM AS DEST,
|
|
a.GIVAFM,
|
|
a.CDDTFM,
|
|
a.FLSFFM,
|
|
case when G.CODIDEST IS NULL THEN '0' ELSE '1' END DATI_STORICI,
|
|
case when G.DENOMCES IS NULL THEN b.DSCOCP WHEN G.DENOMCES = '' THEN RTRIM(G.NOMECES) CONCAT ' ' CONCAT G.COGNOCES ELSE G.DENOMCES END AS DSCOCP,
|
|
coalesce(CASE
|
|
WHEN g.STATOTRAS = 'T' and x.PROGID IS NOT NULL THEN 'E'
|
|
WHEN coalesce(G.EXTID, '') = '' THEN g.STATOTRAS
|
|
WHEN g.STATOTRAS = 'V' and x.PROGID IS NOT NULL THEN 'C'
|
|
ELSE g.STATOTRAS END
|
|
, 'B') AS STATO,
|
|
COALESCE(G.CODIDEST, d.CODIPA) AS IPA_CLI,
|
|
COALESCE(G.CODIDEST, e.CODIPA) AS IPA_DEST,
|
|
d.CODIPA AS IPA_CLI_NEW,
|
|
e.CODIPA AS IPA_DEST_NEW,
|
|
g.PROGID,
|
|
c.DESC_GIVA,
|
|
coalesce(h.ALLEG, 0) AS ALLEGATO,
|
|
coalesce(G.EXTID, '') AS EXTID,
|
|
CASE WHEN x.PROGID IS NULL THEN '0' ELSE '1' END AS ERRORI ,
|
|
CASE WHEN G.PAOPRIV IS NULL AND (d.PAOPRIV IS NULL OR d.PAOPRIV = 'R') OR G.PAOPRIV IS NOT NULL AND G.PAOPRIV = 'R' THEN '1' ELSE '0' END AS PRIVATO,
|
|
CASE WHEN d.PAOPRIV IS NULL OR d.PAOPRIV = 'R' THEN '1' ELSE '0' END AS PRIVATO_NEW,
|
|
coalesce(G.MAILPEC, d.MAILPEC) as MAILPEC_CLI,
|
|
coalesce(G.MAILPEC, e.MAILPEC) as MAILPEC_DEST,
|
|
d.MAILPEC as MAILPEC_CLI_NEW,
|
|
e.MAILPEC as MAILPEC_DEST_NEW,
|
|
coalesce(g.NOMEXML, ' ') AS NOMEXML,
|
|
coalesce(g.SERVTRA, ' ') AS SERVTRA,
|
|
coalesce(f.NUMEFATT,' ') AS NUMEFATT,
|
|
coalesce(f.VENDACQU,'V') AS VENDACQU,
|
|
case when a.flinfm <> ' ' AND A.FTDIFMA IN ('D','*') AND A.CDCFFM = A.CIFAFMA AND DEST.CLFODE IS NOT NULL AND e.CODIPA IS NOT NULL THEN '1' ELSE '0' END FORDEST,
|
|
coalesce(f.impotot, 0) impotot,
|
|
coalesce(f.TIPODOCU, ' ') TIPODOC,
|
|
d.DTIPA AS DTAVVIOSERV,
|
|
i.CISOCA AS CODICEISO,
|
|
coalesce(S.FLGESTFTE, '') AS FLGFATTEST,
|
|
coalesce(S.DTESTFTE, 20220101) AS DTFATTEST,
|
|
CASE WHEN i.CISOCA = 'IT' THEN '0000000' WHEN i.CISOCA = '' THEN '' ELSE 'XXXXXXX' END AS DEFAULTIPA
|
|
FROM &DT/FTMOVAR55V as a
|
|
LEFT OUTER JOIN &DT/CSTAB as DD ON DD.K00001 = '01DD' CONCAT a.TDOCFM
|
|
JOIN &DT/CGPCO00F as b ON a.CIFAFMA = b.CONTCP
|
|
JOIN &DT/SMTABAR55V as c ON a.GIVAFM = c.XCODTB
|
|
LEFT OUTER JOIN &DT/FTPAE55F as d ON
|
|
d.CDDITTA = ''
|
|
AND a.CIFAFMA = d.CODCLI
|
|
AND (d.CODIPA <> '' OR d.esclusofe ='S')
|
|
LEFT OUTER JOIN &DT/FTPAE55F as e ON
|
|
e.CDDITTA = ''
|
|
AND a.CSPEFM = e.CODCLI
|
|
AND a.DTFTFM >= e.DTIPA
|
|
AND e.CODIPA <> ''
|
|
AND e.esclusofe =' '
|
|
LEFT OUTER JOIN &DT/FTPAF55F as f ON a.CDDTFM = f.CDDTFM
|
|
AND a.DTFTFM = f.DTFTFM
|
|
AND a.NRFTFM = f.NRFTFM
|
|
AND a.GIVAFM = f.GIVAFM
|
|
AND 'V' = f.VENDACQU
|
|
LEFT OUTER JOIN &DT/FTPAI55F as g ON f.PROGID = g.PROGID
|
|
LEFT OUTER JOIN &DT/FTPAU55V as h ON a.CDDTFM = h.CDDTFAT
|
|
AND a.DTFTFM = h.DATAFAT
|
|
AND a.NRFTFM = h.NUMFAT
|
|
AND a.GIVAFM = h.GIVAFAT
|
|
AND '' = h.FORNFAT
|
|
LEFT OUTER JOIN &DT/FTPAX55F as x ON (g.PROGID = x.PROGID and x.PROGRIGA = 0)
|
|
JOIN &DT/CGANA00F as i ON i.CONTCA = b.CONTCP
|
|
LEFT JOIN &DT/CGADE00F DEST ON DEST.CONTDE = a.CSPEFM
|
|
LEFT JOIN &DT/FTPSET55F S ON 1=1
|
|
WHERE coalesce(substr(DD.F00002, 10, 1), a.TDOCFM) <> 'P'
|
|
AND
|
|
(f.storfm is null or f.STORFM <> 'S')
|
|
AND
|
|
(NOT f.nrftfm IS NULL OR
|
|
COALESCE(d.esclusofe, ' ') = ' '
|
|
AND ((d.DTIPA IS NULL AND a.DTFTFM >= S.datainb2b
|
|
OR
|
|
(NOT d.DTIPA IS NULL AND (d.DTIPA > 0 AND a.DTFTFM >= d.DTIPA OR (d.DTIPA = 0 AND (d.PAOPRIV = ' ' OR a.DTFTFM >= S.datainb2b)))))))) AS FAT)
|
|
<TAG-SCRIPT><IF-VERSION>5
|
|
|
|
LABEL ON TABLE &DT/FTMOV55V IS 'Art. 55 VIEW ATTUALI'
|
|
<TAG-SCRIPT>
|
|
|
|
DROP VIEW &DT/FTBKM55V
|
|
<TAG-SCRIPT>
|
|
|
|
CREATE VIEW &DT/FTBKM55V AS (
|
|
SELECT FAT.*,
|
|
CASE WHEN PRIVATO = '1' AND FORDEST = '1' THEN '1' ELSE '0' END AS PRFORDEST,
|
|
CASE WHEN PRIVATO = '0' OR FORDEST = '1' THEN coalesce(DEST, SPACE(10)) ELSE SPACE(10) END AS CSPEFM,
|
|
CASE WHEN DATI_STORICI = '1' THEN IPA_CLI WHEN PRIVATO = '1' AND FORDEST = '1' THEN IPA_DEST WHEN PRIVATO = '1' THEN coalesce(IPA_CLI,DEFAULTIPA) ELSE coalesce(IPA_DEST, IPA_CLI) END AS IPA,
|
|
CASE WHEN DATI_STORICI = '1' THEN MAILPEC_CLI WHEN PRIVATO = '1' AND FORDEST = '1' THEN MAILPEC_DEST WHEN PRIVATO = '1' THEN coalesce(MAILPEC_CLI, SPACE(256)) ELSE coalesce(MAILPEC_DEST, MAILPEC_CLI) END AS MAILPEC,
|
|
CASE WHEN PRIVATO_NEW = '1' AND FORDEST = '1' THEN IPA_DEST_NEW WHEN PRIVATO_NEW = '1' THEN coalesce(IPA_CLI_NEW,DEFAULTIPA) ELSE coalesce(IPA_DEST_NEW, IPA_CLI_NEW) END AS IPA_NEW,
|
|
CASE WHEN PRIVATO_NEW = '1' AND FORDEST = '1' THEN MAILPEC_DEST_NEW WHEN PRIVATO_NEW = '1' THEN coalesce(MAILPEC_CLI_NEW, SPACE(256)) ELSE coalesce(MAILPEC_DEST_NEW, MAILPEC_CLI_NEW) END AS MAILPEC_NEW
|
|
FROM (
|
|
SELECT a.DTFTFM,
|
|
a.NRFTFM,
|
|
CASE
|
|
WHEN a.FLCGFM = '' THEN '0'
|
|
WHEN a.FLCGFM = '*' THEN '1'
|
|
END AS FLCG,
|
|
coalesce(f.cdcffm, a.CIFAFMA) AS CDCFFM,
|
|
a.CIFAFMA CDCFFM_NEW,
|
|
a.CDCFFM AS f0CDCFFM,
|
|
CSPEFM AS DEST,
|
|
a.GIVAFM,
|
|
a.CDDTFM,
|
|
a.FLSFFM,
|
|
case when G.CODIDEST IS NULL THEN '0' ELSE '1' END DATI_STORICI,
|
|
case when G.DENOMCES IS NULL THEN b.DSCOCP WHEN G.DENOMCES = '' THEN RTRIM(G.NOMECES) CONCAT ' ' CONCAT G.COGNOCES ELSE G.DENOMCES END AS DSCOCP,
|
|
coalesce(CASE
|
|
WHEN g.STATOTRAS = 'T' and x.PROGID IS NOT NULL THEN 'E'
|
|
WHEN coalesce(G.EXTID, '') = '' THEN g.STATOTRAS
|
|
WHEN g.STATOTRAS = 'V' and x.PROGID IS NOT NULL THEN 'C'
|
|
ELSE g.STATOTRAS END
|
|
, 'B') AS STATO,
|
|
COALESCE(G.CODIDEST, d.CODIPA) AS IPA_CLI,
|
|
COALESCE(G.CODIDEST, e.CODIPA) AS IPA_DEST,
|
|
d.CODIPA AS IPA_CLI_NEW,
|
|
e.CODIPA AS IPA_DEST_NEW,
|
|
g.PROGID,
|
|
c.DESC_GIVA,
|
|
coalesce(h.ALLEG, 0) AS ALLEGATO,
|
|
coalesce(G.EXTID, '') AS EXTID,
|
|
CASE WHEN x.PROGID IS NULL THEN '0' ELSE '1' END AS ERRORI ,
|
|
CASE WHEN G.PAOPRIV IS NULL AND (d.PAOPRIV IS NULL OR d.PAOPRIV = 'R') OR G.PAOPRIV IS NOT NULL AND G.PAOPRIV = 'R' THEN '1' ELSE '0' END AS PRIVATO,
|
|
CASE WHEN d.PAOPRIV IS NULL OR d.PAOPRIV = 'R' THEN '1' ELSE '0' END AS PRIVATO_NEW,
|
|
coalesce(G.MAILPEC, d.MAILPEC) as MAILPEC_CLI,
|
|
coalesce(G.MAILPEC, e.MAILPEC) as MAILPEC_DEST,
|
|
d.MAILPEC as MAILPEC_CLI_NEW,
|
|
e.MAILPEC as MAILPEC_DEST_NEW,
|
|
coalesce(g.NOMEXML, ' ') AS NOMEXML,
|
|
coalesce(g.SERVTRA, ' ') AS SERVTRA,
|
|
coalesce(f.NUMEFATT,' ') AS NUMEFATT,
|
|
coalesce(f.VENDACQU,'V') AS VENDACQU,
|
|
case when a.flinfm <> ' ' AND A.FTDIFMA IN ('D','*') AND A.CDCFFM = A.CIFAFMA AND DEST.CLFOCP = 'D' AND e.CODIPA IS NOT NULL THEN '1' ELSE '0' END FORDEST,
|
|
coalesce(f.impotot, 0) impotot,
|
|
coalesce(f.TIPODOCU, ' ') TIPODOC,
|
|
d.DTIPA AS DTAVVIOSERV,
|
|
i.CISOCA AS CODICEISO,
|
|
coalesce(S.FLGESTFTE, '') AS FLGFATTEST,
|
|
coalesce(S.DTESTFTE, 20220101) AS DTFATTEST,
|
|
CASE WHEN i.CISOCA = 'IT' THEN '0000000' WHEN i.CISOCA = '' THEN '' ELSE 'XXXXXXX' END AS DEFAULTIPA
|
|
FROM &DT/FTBKMAR55V as a
|
|
LEFT OUTER JOIN &DT/CSTAB as DD ON DD.K00001 = '01DD' CONCAT a.TDOCFM
|
|
JOIN &DT/CGPCO00F as b ON a.CIFAFMA = b.CONTCP
|
|
JOIN &DT/SMTABAR55V as c ON a.GIVAFM = c.XCODTB
|
|
LEFT OUTER JOIN &DT/FTPAE55F as d ON
|
|
d.CDDITTA = ''
|
|
AND a.CIFAFMA = d.CODCLI
|
|
AND (d.CODIPA <> '' OR d.esclusofe ='S')
|
|
LEFT OUTER JOIN &DT/FTPAE55F as e ON
|
|
e.CDDITTA = ''
|
|
AND a.CSPEFM = e.CODCLI
|
|
AND a.DTFTFM >= e.DTIPA
|
|
AND e.CODIPA <> ''
|
|
AND e.esclusofe =' '
|
|
LEFT OUTER JOIN &DT/FTPAF55F as f ON a.CDDTFM = f.CDDTFM
|
|
AND a.DTFTFM = f.DTFTFM
|
|
AND a.NRFTFM = f.NRFTFM
|
|
AND a.GIVAFM = f.GIVAFM
|
|
AND 'V' = f.VENDACQU
|
|
LEFT OUTER JOIN &DT/FTPAI55F as g ON f.PROGID = g.PROGID
|
|
LEFT OUTER JOIN &DT/FTPAU55V as h ON a.CDDTFM = h.CDDTFAT
|
|
AND a.DTFTFM = h.DATAFAT
|
|
AND a.NRFTFM = h.NUMFAT
|
|
AND a.GIVAFM = h.GIVAFAT
|
|
AND '' = h.FORNFAT
|
|
LEFT OUTER JOIN &DT/FTPAX55F as x ON (g.PROGID = x.PROGID and x.PROGRIGA = 0)
|
|
JOIN &DT/CGANA00F as i ON i.CONTCA = b.CONTCP
|
|
LEFT JOIN &DT/CGPCO00F DEST ON DEST.CONTCP = a.CSPEFM
|
|
LEFT JOIN &DT/FTPSET55F S ON 1=1
|
|
WHERE coalesce(substr(DD.F00002, 10, 1), a.TDOCFM) <> 'P'
|
|
AND
|
|
(f.storfm is null or f.STORFM <> 'S')
|
|
AND
|
|
(NOT f.nrftfm IS NULL OR
|
|
COALESCE(d.esclusofe, ' ') = ' '
|
|
AND ((d.DTIPA IS NULL AND a.DTFTFM >= S.datainb2b
|
|
OR
|
|
(NOT d.DTIPA IS NULL AND (d.DTIPA > 0 AND a.DTFTFM >= d.DTIPA OR (d.DTIPA = 0 AND (d.PAOPRIV = ' ' OR a.DTFTFM >= S.datainb2b)))))))) AS FAT)
|
|
<TAG-SCRIPT><IFNOT-VERSION>5
|
|
|
|
CREATE VIEW &DT/FTBKM55V AS (
|
|
SELECT FAT.*,
|
|
CASE WHEN PRIVATO = '1' AND FORDEST = '1' THEN '1' ELSE '0' END AS PRFORDEST,
|
|
CASE WHEN PRIVATO = '0' OR FORDEST = '1' THEN coalesce(DEST, SPACE(10)) ELSE SPACE(10) END AS CSPEFM,
|
|
CASE WHEN DATI_STORICI = '1' THEN IPA_CLI WHEN PRIVATO = '1' AND FORDEST = '1' THEN IPA_DEST WHEN PRIVATO = '1' THEN coalesce(IPA_CLI,DEFAULTIPA) ELSE coalesce(IPA_DEST, IPA_CLI) END AS IPA,
|
|
CASE WHEN DATI_STORICI = '1' THEN MAILPEC_CLI WHEN PRIVATO = '1' AND FORDEST = '1' THEN MAILPEC_DEST WHEN PRIVATO = '1' THEN coalesce(MAILPEC_CLI, SPACE(256)) ELSE coalesce(MAILPEC_DEST, MAILPEC_CLI) END AS MAILPEC,
|
|
CASE WHEN PRIVATO_NEW = '1' AND FORDEST = '1' THEN IPA_DEST_NEW WHEN PRIVATO_NEW = '1' THEN coalesce(IPA_CLI_NEW,DEFAULTIPA) ELSE coalesce(IPA_DEST_NEW, IPA_CLI_NEW) END AS IPA_NEW,
|
|
CASE WHEN PRIVATO_NEW = '1' AND FORDEST = '1' THEN MAILPEC_DEST_NEW WHEN PRIVATO_NEW = '1' THEN coalesce(MAILPEC_CLI_NEW, SPACE(256)) ELSE coalesce(MAILPEC_DEST_NEW, MAILPEC_CLI_NEW) END AS MAILPEC_NEW
|
|
FROM (
|
|
SELECT a.DTFTFM,
|
|
a.NRFTFM,
|
|
CASE
|
|
WHEN a.FLCGFM = '' THEN '0'
|
|
WHEN a.FLCGFM = '*' THEN '1'
|
|
END AS FLCG,
|
|
coalesce(f.cdcffm, a.CIFAFMA) AS CDCFFM,
|
|
a.CIFAFMA CDCFFM_NEW,
|
|
a.CDCFFM AS f0CDCFFM,
|
|
CSPEFM AS DEST,
|
|
a.GIVAFM,
|
|
a.CDDTFM,
|
|
a.FLSFFM,
|
|
case when G.CODIDEST IS NULL THEN '0' ELSE '1' END DATI_STORICI,
|
|
case when G.DENOMCES IS NULL THEN b.DSCOCP WHEN G.DENOMCES = '' THEN RTRIM(G.NOMECES) CONCAT ' ' CONCAT G.COGNOCES ELSE G.DENOMCES END AS DSCOCP,
|
|
coalesce(CASE
|
|
WHEN g.STATOTRAS = 'T' and x.PROGID IS NOT NULL THEN 'E'
|
|
WHEN coalesce(G.EXTID, '') = '' THEN g.STATOTRAS
|
|
WHEN g.STATOTRAS = 'V' and x.PROGID IS NOT NULL THEN 'C'
|
|
ELSE g.STATOTRAS END
|
|
, 'B') AS STATO,
|
|
COALESCE(G.CODIDEST, d.CODIPA) AS IPA_CLI,
|
|
COALESCE(G.CODIDEST, e.CODIPA) AS IPA_DEST,
|
|
d.CODIPA AS IPA_CLI_NEW,
|
|
e.CODIPA AS IPA_DEST_NEW,
|
|
g.PROGID,
|
|
c.DESC_GIVA,
|
|
coalesce(h.ALLEG, 0) AS ALLEGATO,
|
|
coalesce(G.EXTID, '') AS EXTID,
|
|
CASE WHEN x.PROGID IS NULL THEN '0' ELSE '1' END AS ERRORI ,
|
|
CASE WHEN G.PAOPRIV IS NULL AND (d.PAOPRIV IS NULL OR d.PAOPRIV = 'R') OR G.PAOPRIV IS NOT NULL AND G.PAOPRIV = 'R' THEN '1' ELSE '0' END AS PRIVATO,
|
|
CASE WHEN d.PAOPRIV IS NULL OR d.PAOPRIV = 'R' THEN '1' ELSE '0' END AS PRIVATO_NEW,
|
|
coalesce(G.MAILPEC, d.MAILPEC) as MAILPEC_CLI,
|
|
coalesce(G.MAILPEC, e.MAILPEC) as MAILPEC_DEST,
|
|
d.MAILPEC as MAILPEC_CLI_NEW,
|
|
e.MAILPEC as MAILPEC_DEST_NEW,
|
|
coalesce(g.NOMEXML, ' ') AS NOMEXML,
|
|
coalesce(g.SERVTRA, ' ') AS SERVTRA,
|
|
coalesce(f.NUMEFATT,' ') AS NUMEFATT,
|
|
coalesce(f.VENDACQU,'V') AS VENDACQU,
|
|
case when a.flinfm <> ' ' AND A.FTDIFMA IN ('D','*') AND A.CDCFFM = A.CIFAFMA AND DEST.CLFODE IS NOT NULL AND e.CODIPA IS NOT NULL THEN '1' ELSE '0' END FORDEST,
|
|
coalesce(f.impotot, 0) impotot,
|
|
coalesce(f.TIPODOCU, ' ') TIPODOC,
|
|
d.DTIPA AS DTAVVIOSERV,
|
|
i.CISOCA AS CODICEISO,
|
|
coalesce(S.FLGESTFTE, '') AS FLGFATTEST,
|
|
coalesce(S.DTESTFTE, 20220101) AS DTFATTEST,
|
|
CASE WHEN i.CISOCA = 'IT' THEN '0000000' WHEN i.CISOCA = '' THEN '' ELSE 'XXXXXXX' END AS DEFAULTIPA
|
|
FROM &DT/FTBKMAR55V as a
|
|
LEFT OUTER JOIN &DT/CSTAB as DD ON DD.K00001 = '01DD' CONCAT a.TDOCFM
|
|
JOIN &DT/CGPCO00F as b ON a.CIFAFMA = b.CONTCP
|
|
JOIN &DT/SMTABAR55V as c ON a.GIVAFM = c.XCODTB
|
|
LEFT OUTER JOIN &DT/FTPAE55F as d ON
|
|
d.CDDITTA = ''
|
|
AND a.CIFAFMA = d.CODCLI
|
|
AND (d.CODIPA <> '' OR d.esclusofe ='S')
|
|
LEFT OUTER JOIN &DT/FTPAE55F as e ON
|
|
e.CDDITTA = ''
|
|
AND a.CSPEFM = e.CODCLI
|
|
AND a.DTFTFM >= e.DTIPA
|
|
AND e.CODIPA <> ''
|
|
AND e.esclusofe =' '
|
|
LEFT OUTER JOIN &DT/FTPAF55F as f ON a.CDDTFM = f.CDDTFM
|
|
AND a.DTFTFM = f.DTFTFM
|
|
AND a.NRFTFM = f.NRFTFM
|
|
AND a.GIVAFM = f.GIVAFM
|
|
AND 'V' = f.VENDACQU
|
|
LEFT OUTER JOIN &DT/FTPAI55F as g ON f.PROGID = g.PROGID
|
|
LEFT OUTER JOIN &DT/FTPAU55V as h ON a.CDDTFM = h.CDDTFAT
|
|
AND a.DTFTFM = h.DATAFAT
|
|
AND a.NRFTFM = h.NUMFAT
|
|
AND a.GIVAFM = h.GIVAFAT
|
|
AND '' = h.FORNFAT
|
|
LEFT OUTER JOIN &DT/FTPAX55F as x ON (g.PROGID = x.PROGID and x.PROGRIGA = 0)
|
|
JOIN &DT/CGANA00F as i ON i.CONTCA = b.CONTCP
|
|
LEFT JOIN &DT/CGADE00F DEST ON DEST.CONTDE = a.CSPEFM
|
|
LEFT JOIN &DT/FTPSET55F S ON 1=1
|
|
WHERE coalesce(substr(DD.F00002, 10, 1), a.TDOCFM) <> 'P'
|
|
AND
|
|
(f.storfm is null or f.STORFM <> 'S')
|
|
AND
|
|
(NOT f.nrftfm IS NULL OR
|
|
COALESCE(d.esclusofe, ' ') = ' '
|
|
AND ((d.DTIPA IS NULL AND a.DTFTFM >= S.datainb2b
|
|
OR
|
|
(NOT d.DTIPA IS NULL AND (d.DTIPA > 0 AND a.DTFTFM >= d.DTIPA OR (d.DTIPA = 0 AND (d.PAOPRIV = ' ' OR a.DTFTFM >= S.datainb2b)))))))) AS FAT)
|
|
<TAG-SCRIPT><IF-VERSION>5
|
|
|
|
LABEL ON TABLE &DT/FTBKM55V IS 'Art. 55 VIEW STORICI'
|
|
<TAG-SCRIPT>
|
|
|
|
DROP VIEW &DT/FTFTE55V
|
|
<TAG-SCRIPT>
|
|
|
|
CREATE VIEW &DT/FTFTE55V AS (
|
|
SELECT FAT.*,
|
|
CASE WHEN PRIVATO = '1' AND FORDEST = '1' THEN '1' ELSE '0' END AS PRFORDEST,
|
|
CASE WHEN PRIVATO = '0' OR FORDEST = '1' THEN coalesce(DEST, SPACE(10)) ELSE SPACE(10) END AS CSPEFM,
|
|
CASE WHEN DATI_STORICI = '1' THEN IPA_CLI WHEN PRIVATO = '1' AND FORDEST = '1' THEN IPA_DEST WHEN PRIVATO = '1' THEN coalesce(IPA_CLI,DEFAULTIPA) ELSE coalesce(IPA_DEST, IPA_CLI) END AS IPA,
|
|
CASE WHEN DATI_STORICI = '1' THEN MAILPEC_CLI WHEN PRIVATO = '1' AND FORDEST = '1' THEN MAILPEC_DEST WHEN PRIVATO = '1' THEN coalesce(MAILPEC_CLI, SPACE(256)) ELSE coalesce(MAILPEC_DEST, MAILPEC_CLI) END AS MAILPEC,
|
|
CASE WHEN PRIVATO_NEW = '1' AND FORDEST = '1' THEN IPA_DEST_NEW WHEN PRIVATO_NEW = '1' THEN coalesce(IPA_CLI_NEW,DEFAULTIPA) ELSE coalesce(IPA_DEST_NEW, IPA_CLI_NEW) END AS IPA_NEW,
|
|
CASE WHEN PRIVATO_NEW = '1' AND FORDEST = '1' THEN MAILPEC_DEST_NEW WHEN PRIVATO_NEW = '1' THEN coalesce(MAILPEC_CLI_NEW, SPACE(256)) ELSE coalesce(MAILPEC_DEST_NEW, MAILPEC_CLI_NEW) END AS MAILPEC_NEW
|
|
FROM (
|
|
SELECT a.DTFTFM,
|
|
a.NRFTFM,
|
|
CASE
|
|
WHEN a.FLCGFM = '' THEN '0'
|
|
WHEN a.FLCGFM = '*' THEN '1'
|
|
END AS FLCG,
|
|
coalesce(f.cdcffm, a.CIFAFMA) AS CDCFFM,
|
|
a.CIFAFMA CDCFFM_NEW,
|
|
a.CDCFFM AS f0CDCFFM,
|
|
CSPEFM AS DEST,
|
|
a.GIVAFM,
|
|
a.CDDTFM,
|
|
a.FLSFFM,
|
|
case when G.CODIDEST IS NULL THEN '0' ELSE '1' END DATI_STORICI,
|
|
case when G.DENOMCES IS NULL THEN b.DSCOCP WHEN G.DENOMCES = '' THEN RTRIM(G.NOMECES) CONCAT ' ' CONCAT G.COGNOCES ELSE G.DENOMCES END AS DSCOCP,
|
|
coalesce(CASE
|
|
WHEN g.STATOTRAS = 'T' and x.PROGID IS NOT NULL THEN 'E'
|
|
WHEN coalesce(G.EXTID, '') = '' THEN g.STATOTRAS
|
|
WHEN g.STATOTRAS = 'V' and x.PROGID IS NOT NULL THEN 'C'
|
|
ELSE g.STATOTRAS END
|
|
, 'B') AS STATO,
|
|
COALESCE(G.CODIDEST, d.CODIPA) AS IPA_CLI,
|
|
COALESCE(G.CODIDEST, e.CODIPA) AS IPA_DEST,
|
|
d.CODIPA AS IPA_CLI_NEW,
|
|
e.CODIPA AS IPA_DEST_NEW,
|
|
g.PROGID,
|
|
c.DESC_GIVA,
|
|
coalesce(h.ALLEG, 0) AS ALLEGATO,
|
|
coalesce(G.EXTID, '') AS EXTID,
|
|
CASE WHEN x.PROGID IS NULL THEN '0' ELSE '1' END AS ERRORI ,
|
|
CASE WHEN G.PAOPRIV IS NULL AND (d.PAOPRIV IS NULL OR d.PAOPRIV = 'R') OR G.PAOPRIV IS NOT NULL AND G.PAOPRIV = 'R' THEN '1' ELSE '0' END AS PRIVATO,
|
|
CASE WHEN d.PAOPRIV IS NULL OR d.PAOPRIV = 'R' THEN '1' ELSE '0' END AS PRIVATO_NEW,
|
|
coalesce(G.MAILPEC, d.MAILPEC) as MAILPEC_CLI,
|
|
coalesce(G.MAILPEC, e.MAILPEC) as MAILPEC_DEST,
|
|
d.MAILPEC as MAILPEC_CLI_NEW,
|
|
e.MAILPEC as MAILPEC_DEST_NEW,
|
|
coalesce(g.NOMEXML, ' ') AS NOMEXML,
|
|
coalesce(g.SERVTRA, ' ') AS SERVTRA,
|
|
coalesce(f.NUMEFATT,' ') AS NUMEFATT,
|
|
coalesce(f.VENDACQU,'V') AS VENDACQU,
|
|
case when a.flinfm <> ' ' AND A.FTDIFMA IN ('D','*') AND A.CDCFFM = A.CIFAFMA AND DEST.CLFOCP = 'D' AND e.CODIPA IS NOT NULL THEN '1' ELSE '0' END FORDEST,
|
|
coalesce(f.impotot, 0) impotot,
|
|
coalesce(f.TIPODOCU, ' ') TIPODOC,
|
|
d.DTIPA AS DTAVVIOSERV,
|
|
i.CISOCA AS CODICEISO,
|
|
coalesce(S.FLGESTFTE, '') AS FLGFATTEST,
|
|
coalesce(S.DTESTFTE, 20220101) AS DTFATTEST,
|
|
CASE WHEN i.CISOCA = 'IT' THEN '0000000' WHEN i.CISOCA = '' THEN '' ELSE 'XXXXXXX' END AS DEFAULTIPA
|
|
FROM &DT/FTPAFE55F as a
|
|
LEFT OUTER JOIN &DT/CSTAB as DD ON DD.K00001 = '01DD' CONCAT a.TDOCFM
|
|
JOIN &DT/CGPCO00F as b ON a.CIFAFMA = b.CONTCP
|
|
JOIN &DT/SMTABAR55V as c ON a.GIVAFM = c.XCODTB
|
|
LEFT OUTER JOIN &DT/FTPAE55F as d ON
|
|
d.CDDITTA = ''
|
|
AND a.CIFAFMA = d.CODCLI
|
|
AND (d.CODIPA <> '' OR d.esclusofe ='S')
|
|
LEFT OUTER JOIN &DT/FTPAE55F as e ON
|
|
e.CDDITTA = ''
|
|
AND a.CSPEFM = e.CODCLI
|
|
AND a.DTFTFM >= e.DTIPA
|
|
AND e.CODIPA <> ''
|
|
AND e.esclusofe =' '
|
|
LEFT OUTER JOIN &DT/FTPAF55F as f ON a.CDDTFM = f.CDDTFM
|
|
AND a.DTFTFM = f.DTFTFM
|
|
AND a.NRFTFM = f.NRFTFM
|
|
AND a.GIVAFM = f.GIVAFM
|
|
AND 'V' = f.VENDACQU
|
|
LEFT OUTER JOIN &DT/FTPAI55F as g ON f.PROGID = g.PROGID
|
|
LEFT OUTER JOIN &DT/FTPAU55V as h ON a.CDDTFM = h.CDDTFAT
|
|
AND a.DTFTFM = h.DATAFAT
|
|
AND a.NRFTFM = h.NUMFAT
|
|
AND a.GIVAFM = h.GIVAFAT
|
|
AND '' = h.FORNFAT
|
|
LEFT OUTER JOIN &DT/FTPAX55F as x ON (g.PROGID = x.PROGID and x.PROGRIGA = 0)
|
|
JOIN &DT/CGANA00F as i ON i.CONTCA = b.CONTCP
|
|
LEFT JOIN &DT/CGPCO00F DEST ON DEST.CONTCP = a.CSPEFM
|
|
LEFT JOIN &DT/FTPSET55F S ON 1=1
|
|
WHERE coalesce(substr(DD.F00002, 10, 1), a.TDOCFM) <> 'P'
|
|
AND
|
|
(f.storfm is null or f.STORFM <> 'S')
|
|
AND
|
|
(NOT f.nrftfm IS NULL OR
|
|
COALESCE(d.esclusofe, ' ') = ' '
|
|
AND ((d.DTIPA IS NULL AND a.DTFTFM >= S.datainb2b
|
|
OR
|
|
(NOT d.DTIPA IS NULL AND (d.DTIPA > 0 AND a.DTFTFM >= d.DTIPA OR (d.DTIPA = 0 AND (d.PAOPRIV = ' ' OR a.DTFTFM >= S.datainb2b)))))))) AS FAT)
|
|
<TAG-SCRIPT><IFNOT-VERSION>5
|
|
|
|
CREATE VIEW &DT/FTFTE55V AS (
|
|
SELECT FAT.*,
|
|
CASE WHEN PRIVATO = '1' AND FORDEST = '1' THEN '1' ELSE '0' END AS PRFORDEST,
|
|
CASE WHEN PRIVATO = '0' OR FORDEST = '1' THEN coalesce(DEST, SPACE(10)) ELSE SPACE(10) END AS CSPEFM,
|
|
CASE WHEN DATI_STORICI = '1' THEN IPA_CLI WHEN PRIVATO = '1' AND FORDEST = '1' THEN IPA_DEST WHEN PRIVATO = '1' THEN coalesce(IPA_CLI,DEFAULTIPA) ELSE coalesce(IPA_DEST, IPA_CLI) END AS IPA,
|
|
CASE WHEN DATI_STORICI = '1' THEN MAILPEC_CLI WHEN PRIVATO = '1' AND FORDEST = '1' THEN MAILPEC_DEST WHEN PRIVATO = '1' THEN coalesce(MAILPEC_CLI, SPACE(256)) ELSE coalesce(MAILPEC_DEST, MAILPEC_CLI) END AS MAILPEC,
|
|
CASE WHEN PRIVATO_NEW = '1' AND FORDEST = '1' THEN IPA_DEST_NEW WHEN PRIVATO_NEW = '1' THEN coalesce(IPA_CLI_NEW,DEFAULTIPA) ELSE coalesce(IPA_DEST_NEW, IPA_CLI_NEW) END AS IPA_NEW,
|
|
CASE WHEN PRIVATO_NEW = '1' AND FORDEST = '1' THEN MAILPEC_DEST_NEW WHEN PRIVATO_NEW = '1' THEN coalesce(MAILPEC_CLI_NEW, SPACE(256)) ELSE coalesce(MAILPEC_DEST_NEW, MAILPEC_CLI_NEW) END AS MAILPEC_NEW
|
|
FROM (
|
|
SELECT a.DTFTFM,
|
|
a.NRFTFM,
|
|
CASE
|
|
WHEN a.FLCGFM = '' THEN '0'
|
|
WHEN a.FLCGFM = '*' THEN '1'
|
|
END AS FLCG,
|
|
coalesce(f.cdcffm, a.CIFAFMA) AS CDCFFM,
|
|
a.CIFAFMA CDCFFM_NEW,
|
|
a.CDCFFM AS f0CDCFFM,
|
|
CSPEFM AS DEST,
|
|
a.GIVAFM,
|
|
a.CDDTFM,
|
|
a.FLSFFM,
|
|
case when G.CODIDEST IS NULL THEN '0' ELSE '1' END DATI_STORICI,
|
|
case when G.DENOMCES IS NULL THEN b.DSCOCP WHEN G.DENOMCES = '' THEN RTRIM(G.NOMECES) CONCAT ' ' CONCAT G.COGNOCES ELSE G.DENOMCES END AS DSCOCP,
|
|
coalesce(CASE
|
|
WHEN g.STATOTRAS = 'T' and x.PROGID IS NOT NULL THEN 'E'
|
|
WHEN coalesce(G.EXTID, '') = '' THEN g.STATOTRAS
|
|
WHEN g.STATOTRAS = 'V' and x.PROGID IS NOT NULL THEN 'C'
|
|
ELSE g.STATOTRAS END
|
|
, 'B') AS STATO,
|
|
COALESCE(G.CODIDEST, d.CODIPA) AS IPA_CLI,
|
|
COALESCE(G.CODIDEST, e.CODIPA) AS IPA_DEST,
|
|
d.CODIPA AS IPA_CLI_NEW,
|
|
e.CODIPA AS IPA_DEST_NEW,
|
|
g.PROGID,
|
|
c.DESC_GIVA,
|
|
coalesce(h.ALLEG, 0) AS ALLEGATO,
|
|
coalesce(G.EXTID, '') AS EXTID,
|
|
CASE WHEN x.PROGID IS NULL THEN '0' ELSE '1' END AS ERRORI ,
|
|
CASE WHEN G.PAOPRIV IS NULL AND (d.PAOPRIV IS NULL OR d.PAOPRIV = 'R') OR G.PAOPRIV IS NOT NULL AND G.PAOPRIV = 'R' THEN '1' ELSE '0' END AS PRIVATO,
|
|
CASE WHEN d.PAOPRIV IS NULL OR d.PAOPRIV = 'R' THEN '1' ELSE '0' END AS PRIVATO_NEW,
|
|
coalesce(G.MAILPEC, d.MAILPEC) as MAILPEC_CLI,
|
|
coalesce(G.MAILPEC, e.MAILPEC) as MAILPEC_DEST,
|
|
d.MAILPEC as MAILPEC_CLI_NEW,
|
|
e.MAILPEC as MAILPEC_DEST_NEW,
|
|
coalesce(g.NOMEXML, ' ') AS NOMEXML,
|
|
coalesce(g.SERVTRA, ' ') AS SERVTRA,
|
|
coalesce(f.NUMEFATT,' ') AS NUMEFATT,
|
|
coalesce(f.VENDACQU,'V') AS VENDACQU,
|
|
case when a.flinfm <> ' ' AND A.FTDIFMA IN ('D','*') AND A.CDCFFM = A.CIFAFMA AND DEST.CLFODE IS NOT NULL AND e.CODIPA IS NOT NULL THEN '1' ELSE '0' END FORDEST,
|
|
coalesce(f.impotot, 0) impotot,
|
|
coalesce(f.TIPODOCU, ' ') TIPODOC,
|
|
d.DTIPA AS DTAVVIOSERV,
|
|
i.CISOCA AS CODICEISO,
|
|
coalesce(S.FLGESTFTE, '') AS FLGFATTEST,
|
|
coalesce(S.DTESTFTE, 20220101) AS DTFATTEST,
|
|
CASE WHEN i.CISOCA = 'IT' THEN '0000000' WHEN i.CISOCA = '' THEN '' ELSE 'XXXXXXX' END AS DEFAULTIPA
|
|
FROM &DT/FTPAFE55F as a
|
|
LEFT OUTER JOIN &DT/CSTAB as DD ON DD.K00001 = '01DD' CONCAT a.TDOCFM
|
|
JOIN &DT/CGPCO00F as b ON a.CIFAFMA = b.CONTCP
|
|
JOIN &DT/SMTABAR55V as c ON a.GIVAFM = c.XCODTB
|
|
LEFT OUTER JOIN &DT/FTPAE55F as d ON
|
|
d.CDDITTA = ''
|
|
AND a.CIFAFMA = d.CODCLI
|
|
AND (d.CODIPA <> '' OR d.esclusofe ='S')
|
|
LEFT OUTER JOIN &DT/FTPAE55F as e ON
|
|
e.CDDITTA = ''
|
|
AND a.CSPEFM = e.CODCLI
|
|
AND a.DTFTFM >= e.DTIPA
|
|
AND e.CODIPA <> ''
|
|
AND e.esclusofe =' '
|
|
LEFT OUTER JOIN &DT/FTPAF55F as f ON a.CDDTFM = f.CDDTFM
|
|
AND a.DTFTFM = f.DTFTFM
|
|
AND a.NRFTFM = f.NRFTFM
|
|
AND a.GIVAFM = f.GIVAFM
|
|
AND 'V' = f.VENDACQU
|
|
LEFT OUTER JOIN &DT/FTPAI55F as g ON f.PROGID = g.PROGID
|
|
LEFT OUTER JOIN &DT/FTPAU55V as h ON a.CDDTFM = h.CDDTFAT
|
|
AND a.DTFTFM = h.DATAFAT
|
|
AND a.NRFTFM = h.NUMFAT
|
|
AND a.GIVAFM = h.GIVAFAT
|
|
AND '' = h.FORNFAT
|
|
LEFT OUTER JOIN &DT/FTPAX55F as x ON (g.PROGID = x.PROGID and x.PROGRIGA = 0)
|
|
JOIN &DT/CGANA00F as i ON i.CONTCA = b.CONTCP
|
|
LEFT JOIN &DT/CGADE00F DEST ON DEST.CONTDE = a.CSPEFM
|
|
LEFT JOIN &DT/FTPSET55F S ON 1=1
|
|
WHERE coalesce(substr(DD.F00002, 10, 1), a.TDOCFM) <> 'P'
|
|
AND
|
|
(f.storfm is null or f.STORFM <> 'S')
|
|
AND
|
|
(NOT f.nrftfm IS NULL OR
|
|
COALESCE(d.esclusofe, ' ') = ' '
|
|
AND ((d.DTIPA IS NULL AND a.DTFTFM >= S.datainb2b
|
|
OR
|
|
(NOT d.DTIPA IS NULL AND (d.DTIPA > 0 AND a.DTFTFM >= d.DTIPA OR (d.DTIPA = 0 AND (d.PAOPRIV = ' ' OR a.DTFTFM >= S.datainb2b)))))))) AS FAT)
|
|
<TAG-SCRIPT><IF-VERSION>5
|
|
|
|
LABEL ON TABLE &DT/FTFTE55V IS 'Art. 55 VIEW FATTURE STORICHE E ATTUALI'
|
|
<TAG-SCRIPT>
|
|
|
|
<TAG-VERSIONE-17.4.0>
|
|
<TAG-SCRIPT>
|
|
|
|
<TAG-VERSIONE-17.5.0>
|
|
<TAG-SCRIPT>
|
|
|
|
<TAG-VERSIONE-17.6.0>
|
|
<TAG-SCRIPT>
|
|
|
|
<TAG-VERSIONE-17.7.0>
|
|
<TAG-SCRIPT>
|
|
|
|
DROP VIEW &DT/FTBKPEP55V
|
|
<TAG-SCRIPT>
|
|
|
|
CREATE VIEW &DT/FTBKPEP55V AS
|
|
(
|
|
SELECT a.DTBOFM,
|
|
a.NRBOFM,
|
|
CASE
|
|
WHEN a.FLCGFM = '' THEN '0'
|
|
WHEN a.FLCGFM = '*' THEN '1'
|
|
END AS FLCG,
|
|
a.CDCFFM,
|
|
a.CSPEFM,
|
|
a.CDBOFM,
|
|
a.CDDTFM,
|
|
a.FLSBFM,
|
|
b.DSCOCP ,
|
|
coalesce(f.STATOTEI, 'B') AS STATO,
|
|
coalesce(g.CODIPAEF, coalesce(e.CODIPA, d.CODIPA)) AS IPA,
|
|
f.PROGID,
|
|
c.DESC_CDBO,
|
|
a.TDOCFM,
|
|
a.NRDFFM
|
|
FROM &DT/FTBKMPE55V as a
|
|
JOIN &DT/CGPCO00F as b ON a.CDCFFM = b.CONTCP
|
|
JOIN &DT/CSTABDB55V as c ON a.CDBOFM = c.CDBO
|
|
LEFT OUTER JOIN &DT/FTPAE55F as d ON a.CDCFFM = d.CODCLI
|
|
AND a.DTBOFM >= d.DTIPEPPOL AND d.PEPPOL = 'S'
|
|
LEFT OUTER JOIN &DT/FTPAE55F as e ON a.CSPEFM = e.CODCLI
|
|
AND a.DTBOFM >= e.DTIPEPPOL AND d.PEPPOL = 'S'
|
|
LEFT OUTER JOIN &DT/FTPEI55F as f ON a.TDOCFM = f.TDOCFM
|
|
AND a.NRDFFM = f.NRDFFM
|
|
LEFT OUTER JOIN &DT/FTPEF55F as g ON f.PROGID = g.PROGID
|
|
WHERE (f.IDSTOREI is null or f.IDSTOREI <> 'S')
|
|
AND coalesce(g.CODIPAEF, coalesce(e.CODIPA, d.CODIPA)) IS NOT NULL
|
|
)
|
|
<TAG-SCRIPT>
|
|
|
|
LABEL ON TABLE &DT/FTBKPEP55V
|
|
IS 'PEPPOL VIEW STORICI'
|
|
<TAG-SCRIPT>
|
|
|
|
DROP VIEW &DT/FTPEP55V
|
|
<TAG-SCRIPT>
|
|
|
|
CREATE VIEW &DT/FTPEP55V AS
|
|
(
|
|
SELECT a.DTBOFM,
|
|
a.NRBOFM,
|
|
CASE
|
|
WHEN a.FLCGFM = '' THEN '0'
|
|
WHEN a.FLCGFM = '*' THEN '1'
|
|
END AS FLCG,
|
|
a.CDCFFM,
|
|
a.CSPEFM,
|
|
a.CDBOFM,
|
|
a.CDDTFM,
|
|
a.FLSBFM,
|
|
b.DSCOCP ,
|
|
coalesce(f.STATOTEI, 'B') AS STATO,
|
|
coalesce(g.CODIPAEF, coalesce(e.CODIPA, d.CODIPA)) AS IPA,
|
|
f.PROGID,
|
|
c.DESC_CDBO,
|
|
a.TDOCFM,
|
|
a.NRDFFM
|
|
FROM &DT/FTMOVPE55V as a
|
|
JOIN &DT/CGPCO00F as b ON a.CDCFFM = b.CONTCP
|
|
JOIN &DT/CSTABDB55V as c ON a.CDBOFM = c.CDBO
|
|
LEFT OUTER JOIN &DT/FTPAE55F as d ON a.CDCFFM = d.CODCLI
|
|
AND a.DTBOFM >= d.DTIPEPPOL AND d.PEPPOL = 'S'
|
|
LEFT OUTER JOIN &DT/FTPAE55F as e ON a.CSPEFM = e.CODCLI
|
|
AND a.DTBOFM >= e.DTIPEPPOL AND d.PEPPOL = 'S'
|
|
LEFT OUTER JOIN &DT/FTPEI55F as f ON a.TDOCFM = f.TDOCFM
|
|
AND a.NRDFFM = f.NRDFFM
|
|
LEFT OUTER JOIN &DT/FTPEF55F as g ON f.PROGID = g.PROGID
|
|
WHERE (f.IDSTOREI is null or f.IDSTOREI <> 'S')
|
|
AND coalesce(g.CODIPAEF, coalesce(e.CODIPA, d.CODIPA)) IS NOT NULL
|
|
)
|
|
<TAG-SCRIPT>
|
|
|
|
LABEL ON TABLE &DT/FTPEP55V
|
|
IS 'PEPPOL VIEW ATTUALI'
|
|
<TAG-SCRIPT>
|
|
|
|
<TAG-VERSIONE-17.8.0>
|
|
<TAG-SCRIPT>
|
|
|
|
<TAG-VERSIONE-17.9.0>
|
|
<TAG-SCRIPT>
|
|
|
|
<TAG-VERSIONE-17.10.0>
|
|
<TAG-SCRIPT>
|
|
|
|
<CONDITION>EXISTS (SELECT 1 FROM QSYS2.SYSTABLES WHERE TABLE_SCHEMA = '&DT' AND TABLE_NAME = 'FTLMOV00F')</CONDITION>
|
|
CREATE VIEW &DT/FTLMOAR55V as
|
|
(
|
|
SELECT *
|
|
FROM &DT/ftlmov00f
|
|
WHERE NRFTFM > 0
|
|
AND NRFTFM <> 9999999
|
|
AND DTFTFM >= 20140601
|
|
AND FLSFFM = '*'
|
|
)
|
|
<TAG-SCRIPT>
|
|
|
|
<CONDITION>EXISTS (SELECT 1 FROM QSYS2.SYSTABLES WHERE TABLE_SCHEMA = '&DT' AND TABLE_NAME = 'FTLMOV00F')</CONDITION>
|
|
LABEL ON TABLE &DT/FTLMOAR55V
|
|
IS 'Art. 55 VIEW FTLMOV00F'
|
|
<TAG-SCRIPT>
|
|
|
|
<CONDITION>EXISTS (SELECT 1 FROM QSYS2.SYSTABLES WHERE TABLE_SCHEMA = '&DT' AND TABLE_NAME = 'FTLMOV00F')</CONDITION>
|
|
CREATE VIEW &DT/FTLBKAR55V as (
|
|
SELECT * FROM &DT/ftlbkm00f
|
|
WHERE NRFTFM > 0
|
|
AND NRFTFM <> 9999999
|
|
AND DTFTFM >= 20140601
|
|
AND FLSFFM = '*')
|
|
<TAG-SCRIPT>
|
|
|
|
<CONDITION>EXISTS (SELECT 1 FROM QSYS2.SYSTABLES WHERE TABLE_SCHEMA = '&DT' AND TABLE_NAME = 'FTLMOV00F')</CONDITION>
|
|
LABEL ON TABLE &DT/FTLBKAR55V
|
|
IS 'Art. 55 VIEW FTLBKM00F'
|
|
<TAG-SCRIPT>
|
|
|
|
<CONDITION>EXISTS (SELECT 1 FROM QSYS2.SYSTABLES WHERE TABLE_SCHEMA = '&DT' AND TABLE_NAME = 'FTLMOV00F')</CONDITION>
|
|
CREATE VIEW &DT/FTLFTE55V AS (
|
|
SELECT FAT.*,
|
|
CASE WHEN PRIVATO = '1' AND FORDEST = '1' THEN '1' ELSE '0' END AS PRFORDEST,
|
|
CASE WHEN PRIVATO = '0' OR FORDEST = '1' THEN coalesce(DEST, SPACE(10)) ELSE SPACE(10) END AS CSPEFM,
|
|
CASE WHEN DATI_STORICI = '1' THEN IPA_CLI WHEN PRIVATO = '1' AND FORDEST = '1' THEN IPA_DEST WHEN PRIVATO = '1' THEN coalesce(IPA_CLI,DEFAULTIPA) ELSE coalesce(IPA_DEST, IPA_CLI) END AS IPA,
|
|
CASE WHEN DATI_STORICI = '1' THEN MAILPEC_CLI WHEN PRIVATO = '1' AND FORDEST = '1' THEN MAILPEC_DEST WHEN PRIVATO = '1' THEN coalesce(MAILPEC_CLI, SPACE(256)) ELSE coalesce(MAILPEC_DEST, MAILPEC_CLI) END AS MAILPEC,
|
|
CASE WHEN PRIVATO_NEW = '1' AND FORDEST = '1' THEN IPA_DEST_NEW WHEN PRIVATO_NEW = '1' THEN coalesce(IPA_CLI_NEW,DEFAULTIPA) ELSE coalesce(IPA_DEST_NEW, IPA_CLI_NEW) END AS IPA_NEW,
|
|
CASE WHEN PRIVATO_NEW = '1' AND FORDEST = '1' THEN MAILPEC_DEST_NEW WHEN PRIVATO_NEW = '1' THEN coalesce(MAILPEC_CLI_NEW, SPACE(256)) ELSE coalesce(MAILPEC_DEST_NEW, MAILPEC_CLI_NEW) END AS MAILPEC_NEW
|
|
FROM (
|
|
SELECT a.DTFTFM,
|
|
a.NRFTFM,
|
|
CASE
|
|
WHEN a.FLCGFM = '' THEN '0'
|
|
WHEN a.FLCGFM = '*' THEN '1'
|
|
END AS FLCG,
|
|
coalesce(f.cdcffm, a.CDCFFM) AS CDCFFM,
|
|
a.CDCFFM AS CDCFFM_NEW,
|
|
CSPEFM AS DEST,
|
|
a.GIVAFM,
|
|
'01' as cddtfm,
|
|
a.FLSFFM,
|
|
case when G.CODIDEST IS NULL THEN '0' ELSE '1' END DATI_STORICI,
|
|
case when G.DENOMCES IS NULL THEN b.DSCOCP WHEN G.DENOMCES = '' THEN RTRIM(G.NOMECES) CONCAT ' ' CONCAT G.COGNOCES ELSE G.DENOMCES END AS DSCOCP,
|
|
coalesce(CASE
|
|
WHEN g.STATOTRAS = 'T' and x.PROGID IS NOT NULL THEN 'E'
|
|
WHEN coalesce(G.EXTID, '') = '' THEN g.STATOTRAS
|
|
WHEN g.STATOTRAS = 'V' and x.PROGID IS NOT NULL THEN 'C'
|
|
ELSE g.STATOTRAS END , 'B') AS STATO,
|
|
COALESCE(G.CODIDEST, d.CODIPA) AS IPA_CLI,
|
|
COALESCE(G.CODIDEST, e.CODIPA) AS IPA_DEST,
|
|
d.CODIPA AS IPA_CLI_NEW,
|
|
e.CODIPA AS IPA_DEST_NEW,
|
|
g.PROGID,
|
|
c.DESC_GIVA,
|
|
coalesce(h.ALLEG, 0) AS ALLEGATO,
|
|
coalesce(G.EXTID, '') AS EXTID,
|
|
CASE WHEN x.PROGID IS NULL THEN '0' ELSE '1' END AS ERRORI ,
|
|
CASE WHEN G.PAOPRIV IS NULL AND (d.PAOPRIV IS NULL OR d.PAOPRIV = 'R') OR G.PAOPRIV IS NOT NULL AND G.PAOPRIV = 'R' THEN '1' ELSE '0' END AS PRIVATO,
|
|
CASE WHEN d.PAOPRIV IS NULL OR d.PAOPRIV = 'R' THEN '1' ELSE '0' END AS PRIVATO_NEW,
|
|
coalesce(G.MAILPEC, d.MAILPEC) as MAILPEC_CLI,
|
|
coalesce(G.MAILPEC, e.MAILPEC) as MAILPEC_DEST,
|
|
d.MAILPEC as MAILPEC_CLI_NEW,
|
|
e.MAILPEC as MAILPEC_DEST_NEW,
|
|
coalesce(g.NOMEXML, ' ') AS NOMEXML,
|
|
coalesce(g.SERVTRA, ' ') AS SERVTRA,
|
|
coalesce(f.NUMEFATT,' ') AS NUMEFATT,
|
|
coalesce(f.VENDACQU,'V') AS VENDACQU,
|
|
case when (d.PAOPRIV IS NULL OR d.PAOPRIV = 'R') AND DEST.CLFOCP = 'D' AND A3.CONTAD IS NOT NULL AND e.CODIPA IS NOT NULL THEN '1' ELSE '0' END FORDEST,
|
|
coalesce(f.IMPOTOT, 0) AS IMPOTOT,
|
|
coalesce(f.TIPODOCU, ' ') TIPODOC,
|
|
d.DTIPA AS DTAVVIOSERV,
|
|
i.CISOCA AS CODICEISO,
|
|
coalesce(S.FLGESTFTE, '') AS FLGFATTEST,
|
|
coalesce(S.DTESTFTE, 20220101) AS DTFATTEST,
|
|
CASE WHEN i.CISOCA = 'IT' THEN '0000000' WHEN i.CISOCA = '' THEN '' ELSE 'XXXXXXX' END AS DEFAULTIPA
|
|
FROM &DT/FTPAFM55F as a
|
|
JOIN &DT/CGPCO00F as b ON a.CDCFFM = b.CONTCP
|
|
LEFT JOIN &DT/SMTABAR55V as c ON a.GIVAFM = c.XCODTB
|
|
LEFT OUTER JOIN &DT/FTPAE55F as d ON
|
|
d.CDDITTA = ''
|
|
AND a.CDCFFM = d.CODCLI
|
|
AND (d.CODIPA <> '' OR d.esclusofe ='S')
|
|
LEFT OUTER JOIN &DT/FTPAE55F as e ON
|
|
e.CDDITTA = ''
|
|
AND a.CSPEFM = e.CODCLI
|
|
AND a.DTFTFM >= e.DTIPA
|
|
AND e.CODIPA <> ''
|
|
AND e.esclusofe =' '
|
|
LEFT OUTER JOIN &DT/FTPAF55F as f ON f.CDDTFM = '01'
|
|
AND a.DTFTFM = f.DTFTFM
|
|
AND a.NRFTFM = f.NRFTFM
|
|
AND a.GIVAFM = f.GIVAFM
|
|
AND 'V' = f.VENDACQU
|
|
LEFT OUTER JOIN &DT/FTPAI55F as g ON f.PROGID = g.PROGID
|
|
LEFT OUTER JOIN &DT/FTPAU55V as h ON h.CDDTFat= '01'
|
|
AND a.DTFTFM = h.DATAFAT
|
|
AND a.NRFTFM = h.NUMFAT
|
|
AND a.GIVAFM = h.GIVAFAT
|
|
AND '' = h.FORNFAT
|
|
LEFT OUTER JOIN &DT/FTPAX55F as x ON (g.PROGID = x.PROGID and x.PROGRIGA = 0)
|
|
JOIN &DT/CGANA00F as i ON i.CONTCA = b.CONTCP
|
|
LEFT JOIN &DT/CGPCO00F DEST ON DEST.CONTCP = a.CSPEFM
|
|
LEFT JOIN &DT/CGANA03F as a3 ON a3.CONTAD = a.CSPEFM AND a3.CDGCAD = a.CDCFFM
|
|
LEFT JOIN &DT/FTPSET55F S ON 1=1
|
|
WHERE A.TPDOFM <> 'P'
|
|
AND
|
|
(f.storfm is null or f.STORFM <> 'S')
|
|
AND
|
|
(NOT f.nrftfm IS NULL OR
|
|
COALESCE(d.esclusofe, ' ') = ' '
|
|
AND ((d.DTIPA IS NULL AND a.DTFTFM >= S.datainb2b
|
|
OR
|
|
(NOT d.DTIPA IS NULL AND (d.DTIPA > 0 AND a.DTFTFM >= d.DTIPA OR (d.DTIPA = 0 AND (d.PAOPRIV = ' ' OR a.DTFTFM >= S.datainb2b)))))))) AS FAT)
|
|
<TAG-SCRIPT>
|
|
|
|
<CONDITION>EXISTS (SELECT 1 FROM QSYS2.SYSTABLES WHERE TABLE_SCHEMA = '&DT' AND TABLE_NAME = 'FTLMOV00F')</CONDITION>
|
|
LABEL ON TABLE &DT/FTLFTE55V IS 'Art. 55 VIEW FATTURE STORICHE E ATTUALI'
|
|
<TAG-SCRIPT>
|
|
|
|
<CONDITION>EXISTS (SELECT 1 FROM QSYS2.SYSTABLES WHERE TABLE_SCHEMA = '&DT' AND TABLE_NAME = 'FTLMOV00F')</CONDITION>
|
|
CREATE VIEW &DT/FTLMOV55V AS (
|
|
SELECT FAT.*,
|
|
CASE WHEN PRIVATO = '1' AND FORDEST = '1' THEN '1' ELSE '0' END AS PRFORDEST,
|
|
CASE WHEN PRIVATO = '0' OR FORDEST = '1' THEN coalesce(DEST, SPACE(10)) ELSE SPACE(10) END AS CSPEFM,
|
|
CASE WHEN DATI_STORICI = '1' THEN IPA_CLI WHEN PRIVATO = '1' AND FORDEST = '1' THEN IPA_DEST WHEN PRIVATO = '1' THEN coalesce(IPA_CLI,DEFAULTIPA) ELSE coalesce(IPA_DEST, IPA_CLI) END AS IPA,
|
|
CASE WHEN DATI_STORICI = '1' THEN MAILPEC_CLI WHEN PRIVATO = '1' AND FORDEST = '1' THEN MAILPEC_DEST WHEN PRIVATO = '1' THEN coalesce(MAILPEC_CLI, SPACE(256)) ELSE coalesce(MAILPEC_DEST, MAILPEC_CLI) END AS MAILPEC,
|
|
CASE WHEN PRIVATO_NEW = '1' AND FORDEST = '1' THEN IPA_DEST_NEW WHEN PRIVATO_NEW = '1' THEN coalesce(IPA_CLI_NEW,DEFAULTIPA) ELSE coalesce(IPA_DEST_NEW, IPA_CLI_NEW) END AS IPA_NEW,
|
|
CASE WHEN PRIVATO_NEW = '1' AND FORDEST = '1' THEN MAILPEC_DEST_NEW WHEN PRIVATO_NEW = '1' THEN coalesce(MAILPEC_CLI_NEW, SPACE(256)) ELSE coalesce(MAILPEC_DEST_NEW, MAILPEC_CLI_NEW) END AS MAILPEC_NEW
|
|
FROM (
|
|
SELECT a.DTFTFM,
|
|
a.NRFTFM,
|
|
CASE
|
|
WHEN a.FLCGFM = '' THEN '0'
|
|
WHEN a.FLCGFM = '*' THEN '1'
|
|
END AS FLCG,
|
|
coalesce(f.cdcffm, a.CDCFFM) AS CDCFFM,
|
|
a.CDCFFM AS CDCFFM_NEW,
|
|
CSPEFM AS DEST,
|
|
a.GIVAFM,
|
|
'01' as cddtfm,
|
|
a.FLSFFM,
|
|
case when G.CODIDEST IS NULL THEN '0' ELSE '1' END DATI_STORICI,
|
|
case when G.DENOMCES IS NULL THEN b.DSCOCP WHEN G.DENOMCES = '' THEN RTRIM(G.NOMECES) CONCAT ' ' CONCAT G.COGNOCES ELSE G.DENOMCES END AS DSCOCP,
|
|
coalesce(CASE
|
|
WHEN g.STATOTRAS = 'T' and x.PROGID IS NOT NULL THEN 'E'
|
|
WHEN coalesce(G.EXTID, '') = '' THEN g.STATOTRAS
|
|
WHEN g.STATOTRAS = 'V' and x.PROGID IS NOT NULL THEN 'C'
|
|
ELSE g.STATOTRAS END , 'B') AS STATO,
|
|
COALESCE(G.CODIDEST, d.CODIPA) AS IPA_CLI,
|
|
COALESCE(G.CODIDEST, e.CODIPA) AS IPA_DEST,
|
|
d.CODIPA AS IPA_CLI_NEW,
|
|
e.CODIPA AS IPA_DEST_NEW,
|
|
g.PROGID,
|
|
c.DESC_GIVA,
|
|
coalesce(h.ALLEG, 0) AS ALLEGATO,
|
|
coalesce(G.EXTID, '') AS EXTID,
|
|
CASE WHEN x.PROGID IS NULL THEN '0' ELSE '1' END AS ERRORI ,
|
|
CASE WHEN G.PAOPRIV IS NULL AND (d.PAOPRIV IS NULL OR d.PAOPRIV = 'R') OR G.PAOPRIV IS NOT NULL AND G.PAOPRIV = 'R' THEN '1' ELSE '0' END AS PRIVATO,
|
|
CASE WHEN d.PAOPRIV IS NULL OR d.PAOPRIV = 'R' THEN '1' ELSE '0' END AS PRIVATO_NEW,
|
|
coalesce(G.MAILPEC, d.MAILPEC) as MAILPEC_CLI,
|
|
coalesce(G.MAILPEC, e.MAILPEC) as MAILPEC_DEST,
|
|
d.MAILPEC as MAILPEC_CLI_NEW,
|
|
e.MAILPEC as MAILPEC_DEST_NEW,
|
|
coalesce(g.NOMEXML, ' ') AS NOMEXML,
|
|
coalesce(g.SERVTRA, ' ') AS SERVTRA,
|
|
coalesce(f.NUMEFATT,' ') AS NUMEFATT,
|
|
coalesce(f.VENDACQU,'V') AS VENDACQU,
|
|
case when (d.PAOPRIV IS NULL OR d.PAOPRIV = 'R') AND DEST.CLFOCP = 'D' AND A3.CONTAD IS NOT NULL AND e.CODIPA IS NOT NULL THEN '1' ELSE '0' END FORDEST,
|
|
coalesce(f.IMPOTOT, 0) AS IMPOTOT,
|
|
coalesce(f.TIPODOCU, ' ') TIPODOC,
|
|
d.DTIPA AS DTAVVIOSERV,
|
|
i.CISOCA AS CODICEISO,
|
|
coalesce(S.FLGESTFTE, '') AS FLGFATTEST,
|
|
coalesce(S.DTESTFTE, 20220101) AS DTFATTEST,
|
|
CASE WHEN i.CISOCA = 'IT' THEN '0000000' WHEN i.CISOCA = '' THEN '' ELSE 'XXXXXXX' END AS DEFAULTIPA
|
|
FROM &DT/FTLMOAR55V as a
|
|
JOIN &DT/CGPCO00F as b ON a.CDCFFM = b.CONTCP
|
|
LEFT JOIN &DT/SMTABAR55V as c ON a.GIVAFM = c.XCODTB
|
|
LEFT OUTER JOIN &DT/FTPAE55F as d ON
|
|
d.CDDITTA = ''
|
|
AND a.CDCFFM = d.CODCLI
|
|
AND (d.CODIPA <> '' OR d.esclusofe ='S')
|
|
LEFT OUTER JOIN &DT/FTPAE55F as e ON
|
|
e.CDDITTA = ''
|
|
AND a.CSPEFM = e.CODCLI
|
|
AND a.DTFTFM >= e.DTIPA
|
|
AND e.CODIPA <> ''
|
|
AND e.esclusofe =' '
|
|
LEFT OUTER JOIN &DT/FTPAF55F as f ON f.CDDTFM = '01'
|
|
AND a.DTFTFM = f.DTFTFM
|
|
AND a.NRFTFM = f.NRFTFM
|
|
AND a.GIVAFM = f.GIVAFM
|
|
AND 'V' = f.VENDACQU
|
|
LEFT OUTER JOIN &DT/FTPAI55F as g ON f.PROGID = g.PROGID
|
|
LEFT OUTER JOIN &DT/FTPAU55V as h ON h.CDDTFat= '01'
|
|
AND a.DTFTFM = h.DATAFAT
|
|
AND a.NRFTFM = h.NUMFAT
|
|
AND a.GIVAFM = h.GIVAFAT
|
|
AND '' = h.FORNFAT
|
|
LEFT OUTER JOIN &DT/FTPAX55F as x ON (g.PROGID = x.PROGID and x.PROGRIGA = 0)
|
|
JOIN &DT/CGANA00F as i ON i.CONTCA = b.CONTCP
|
|
LEFT JOIN &DT/CGPCO00F DEST ON DEST.CONTCP = a.CSPEFM
|
|
LEFT JOIN &DT/CGANA03F as a3 ON a3.CONTAD = a.CSPEFM AND a3.CDGCAD = a.CDCFFM
|
|
LEFT JOIN &DT/FTPSET55F S ON 1=1
|
|
WHERE A.tpdofm <> 'P'
|
|
AND
|
|
(f.storfm is null or f.STORFM <> 'S')
|
|
AND
|
|
(NOT f.nrftfm IS NULL OR
|
|
COALESCE(d.esclusofe, ' ') = ' '
|
|
AND ((d.DTIPA IS NULL AND a.DTFTFM >= S.datainb2b
|
|
OR
|
|
(NOT d.DTIPA IS NULL AND (d.DTIPA > 0 AND a.DTFTFM >= d.DTIPA OR (d.DTIPA = 0 AND (d.PAOPRIV = ' ' OR a.DTFTFM >= S.datainb2b)))))))) AS FAT)
|
|
<TAG-SCRIPT>
|
|
|
|
<CONDITION>EXISTS (SELECT 1 FROM QSYS2.SYSTABLES WHERE TABLE_SCHEMA = '&DT' AND TABLE_NAME = 'FTLMOV00F')</CONDITION>
|
|
LABEL ON TABLE &DT/FTLMOV55V IS 'Art. 55 VIEW ATTUALI'
|
|
<TAG-SCRIPT>
|
|
|
|
<CONDITION>EXISTS (SELECT 1 FROM QSYS2.SYSTABLES WHERE TABLE_SCHEMA = '&DT' AND TABLE_NAME = 'FTLMOV00F')</CONDITION>
|
|
CREATE VIEW &DT/FTLBKM55V AS (
|
|
SELECT FAT.*,
|
|
CASE WHEN PRIVATO = '1' AND FORDEST = '1' THEN '1' ELSE '0' END AS PRFORDEST,
|
|
CASE WHEN PRIVATO = '0' OR FORDEST = '1' THEN coalesce(DEST, SPACE(10)) ELSE SPACE(10) END AS CSPEFM,
|
|
CASE WHEN DATI_STORICI = '1' THEN IPA_CLI WHEN PRIVATO = '1' AND FORDEST = '1' THEN IPA_DEST WHEN PRIVATO = '1' THEN coalesce(IPA_CLI,DEFAULTIPA) ELSE coalesce(IPA_DEST, IPA_CLI) END AS IPA,
|
|
CASE WHEN DATI_STORICI = '1' THEN MAILPEC_CLI WHEN PRIVATO = '1' AND FORDEST = '1' THEN MAILPEC_DEST WHEN PRIVATO = '1' THEN coalesce(MAILPEC_CLI, SPACE(256)) ELSE coalesce(MAILPEC_DEST, MAILPEC_CLI) END AS MAILPEC,
|
|
CASE WHEN PRIVATO_NEW = '1' AND FORDEST = '1' THEN IPA_DEST_NEW WHEN PRIVATO_NEW = '1' THEN coalesce(IPA_CLI_NEW,DEFAULTIPA) ELSE coalesce(IPA_DEST_NEW, IPA_CLI_NEW) END AS IPA_NEW,
|
|
CASE WHEN PRIVATO_NEW = '1' AND FORDEST = '1' THEN MAILPEC_DEST_NEW WHEN PRIVATO_NEW = '1' THEN coalesce(MAILPEC_CLI_NEW, SPACE(256)) ELSE coalesce(MAILPEC_DEST_NEW, MAILPEC_CLI_NEW) END AS MAILPEC_NEW
|
|
FROM (
|
|
SELECT a.DTFTFM,
|
|
a.NRFTFM,
|
|
CASE
|
|
WHEN a.FLCGFM = '' THEN '0'
|
|
WHEN a.FLCGFM = '*' THEN '1'
|
|
END AS FLCG,
|
|
coalesce(f.cdcffm, a.CDCFFM) AS CDCFFM,
|
|
a.CDCFFM AS CDCFFM_NEW,
|
|
CSPEFM AS DEST,
|
|
a.GIVAFM,
|
|
'01' as cddtfm,
|
|
a.FLSFFM,
|
|
case when G.CODIDEST IS NULL THEN '0' ELSE '1' END DATI_STORICI,
|
|
case when G.DENOMCES IS NULL THEN b.DSCOCP WHEN G.DENOMCES = '' THEN RTRIM(G.NOMECES) CONCAT ' ' CONCAT G.COGNOCES ELSE G.DENOMCES END AS DSCOCP,
|
|
coalesce(CASE
|
|
WHEN g.STATOTRAS = 'T' and x.PROGID IS NOT NULL THEN 'E'
|
|
WHEN coalesce(G.EXTID, '') = '' THEN g.STATOTRAS
|
|
WHEN g.STATOTRAS = 'V' and x.PROGID IS NOT NULL THEN 'C'
|
|
ELSE g.STATOTRAS END , 'B') AS STATO,
|
|
COALESCE(G.CODIDEST, d.CODIPA) AS IPA_CLI,
|
|
COALESCE(G.CODIDEST, e.CODIPA) AS IPA_DEST,
|
|
d.CODIPA AS IPA_CLI_NEW,
|
|
e.CODIPA AS IPA_DEST_NEW,
|
|
g.PROGID,
|
|
c.DESC_GIVA,
|
|
coalesce(h.ALLEG, 0) AS ALLEGATO,
|
|
coalesce(G.EXTID, '') AS EXTID,
|
|
CASE WHEN x.PROGID IS NULL THEN '0' ELSE '1' END AS ERRORI ,
|
|
CASE WHEN G.PAOPRIV IS NULL AND (d.PAOPRIV IS NULL OR d.PAOPRIV = 'R') OR G.PAOPRIV IS NOT NULL AND G.PAOPRIV = 'R' THEN '1' ELSE '0' END AS PRIVATO,
|
|
CASE WHEN d.PAOPRIV IS NULL OR d.PAOPRIV = 'R' THEN '1' ELSE '0' END AS PRIVATO_NEW,
|
|
coalesce(G.MAILPEC, d.MAILPEC) as MAILPEC_CLI,
|
|
coalesce(G.MAILPEC, e.MAILPEC) as MAILPEC_DEST,
|
|
d.MAILPEC as MAILPEC_CLI_NEW,
|
|
e.MAILPEC as MAILPEC_DEST_NEW,
|
|
coalesce(g.NOMEXML, ' ') AS NOMEXML,
|
|
coalesce(g.SERVTRA, ' ') AS SERVTRA,
|
|
coalesce(f.NUMEFATT,' ') AS NUMEFATT,
|
|
coalesce(f.VENDACQU,'V') AS VENDACQU,
|
|
case when (d.PAOPRIV IS NULL OR d.PAOPRIV = 'R') AND DEST.CLFOCP = 'D' AND A3.CONTAD IS NOT NULL AND e.CODIPA IS NOT NULL THEN '1' ELSE '0' END FORDEST,
|
|
coalesce(f.IMPOTOT, 0) AS IMPOTOT,
|
|
coalesce(f.TIPODOCU, ' ') TIPODOC,
|
|
d.DTIPA AS DTAVVIOSERV,
|
|
i.CISOCA AS CODICEISO,
|
|
coalesce(S.FLGESTFTE, '') AS FLGFATTEST,
|
|
coalesce(S.DTESTFTE, 20220101) AS DTFATTEST,
|
|
CASE WHEN i.CISOCA = 'IT' THEN '0000000' WHEN i.CISOCA = '' THEN '' ELSE 'XXXXXXX' END AS DEFAULTIPA
|
|
FROM &DT/FTLBKAR55V as a
|
|
JOIN &DT/CGPCO00F as b ON a.CDCFFM = b.CONTCP
|
|
LEFT JOIN &DT/SMTABAR55V as c ON a.GIVAFM = c.XCODTB
|
|
LEFT OUTER JOIN &DT/FTPAE55F as d ON
|
|
d.CDDITTA = ''
|
|
AND a.CDCFFM = d.CODCLI
|
|
AND (d.CODIPA <> '' OR d.esclusofe ='S')
|
|
LEFT OUTER JOIN &DT/FTPAE55F as e ON
|
|
e.CDDITTA = ''
|
|
AND a.CSPEFM = e.CODCLI
|
|
AND a.DTFTFM >= e.DTIPA
|
|
AND e.CODIPA <> ''
|
|
AND e.esclusofe =' '
|
|
LEFT OUTER JOIN &DT/FTPAF55F as f ON f.CDDTFM = '01'
|
|
AND a.DTFTFM = f.DTFTFM
|
|
AND a.NRFTFM = f.NRFTFM
|
|
AND a.GIVAFM = f.GIVAFM
|
|
AND 'V' = f.VENDACQU
|
|
LEFT OUTER JOIN &DT/FTPAI55F as g ON f.PROGID = g.PROGID
|
|
LEFT OUTER JOIN &DT/FTPAU55V as h ON h.CDDTFat= '01'
|
|
AND a.DTFTFM = h.DATAFAT
|
|
AND a.NRFTFM = h.NUMFAT
|
|
AND a.GIVAFM = h.GIVAFAT
|
|
AND '' = h.FORNFAT
|
|
LEFT OUTER JOIN &DT/FTPAX55F as x ON (g.PROGID = x.PROGID and x.PROGRIGA = 0)
|
|
JOIN &DT/CGANA00F as i ON i.CONTCA = b.CONTCP
|
|
LEFT JOIN &DT/CGPCO00F DEST ON DEST.CONTCP = a.CSPEFM
|
|
LEFT JOIN &DT/CGANA03F as a3 ON a3.CONTAD = a.CSPEFM AND a3.CDGCAD = a.CDCFFM
|
|
LEFT JOIN &DT/FTPSET55F S ON 1=1
|
|
WHERE A.tpdofm <> 'P'
|
|
AND
|
|
(f.storfm is null or f.STORFM <> 'S')
|
|
AND
|
|
(NOT f.nrftfm IS NULL OR
|
|
COALESCE(d.esclusofe, ' ') = ' '
|
|
AND ((d.DTIPA IS NULL AND a.DTFTFM >= S.datainb2b
|
|
OR
|
|
(NOT d.DTIPA IS NULL AND (d.DTIPA > 0 AND a.DTFTFM >= d.DTIPA OR (d.DTIPA = 0 AND (d.PAOPRIV = ' ' OR a.DTFTFM >= S.datainb2b)))))))) AS FAT)
|
|
<TAG-SCRIPT>
|
|
|
|
<CONDITION>EXISTS (SELECT 1 FROM QSYS2.SYSTABLES WHERE TABLE_SCHEMA = '&DT' AND TABLE_NAME = 'FTLMOV00F')</CONDITION>
|
|
LABEL ON TABLE &DT/FTLBKM55V IS 'Art. 55 VIEW STORICI'
|
|
<TAG-SCRIPT>
|
|
|
|
<TAG-VERSIONE-18.0.0>
|
|
<TAG-SCRIPT> |