--CREATE OR REPLACE VIEW AD_EXBOLETO AS

SELECT
FIN.NUFIN
,
FIN.CODEMP
,
FIN.ORDEMCARGA
,
FIN.CODPARC
,
SUBSTR(NVL(PAR.RAZAOSOCIAL,
NOMEPARC),
1,
39) AS RAZAOSOCIAL
,
PAR.CGC_CPF AS DOCUMENTO
,
PAR.CODEND
,
PAR.CEP
,
EN.NOMEEND AS RUA
,
PAR.NUMEND AS NUMERO
,
SUBSTR(NVL(PAR.COMPLEMENTO,
' '),
1,
14) AS COMPLEMENTO
,
BAI.NOMEBAI AS BAIRRO
,
CID.NOMECID AS CIDADE
,
CID.UF AS UF
,
NVL(PAR.EMAIL,
'atendimento@exbonus.com.br') AS EMAIL
,
NVL(PAR.TELEFONE,
'5531996666125') AS TELEFONE
,
TO_CHAR(FIN.DTVENC,
'YYYY-MM-DD') AS VENCIMENTO
/* ,
TO_CHAR((CASE

WHEN (FIN.DTVENC - CT.DIASDESCONTO) < SYSDATE THEN SYSDATE

ELSE (FIN.DTVENC - CT.DIASDESCONTO)

END),
'YYYY-MM-DD') AS PERCENTUALDTLIMITE */

, CASE WHEN VLRDESC > 0 THEN TO_CHAR(FIN.DTVENC,

'YYYY-MM-DD') ELSE NULL END AS PERCENTUALDTLIMITE
,
FIN.DTVENC
,
 (
FIN.VLRDESDOB
) AS VLRDESDOBUSU
,
(
FIN.VLRDESDOB * 100
) AS VLRDESDOB
,
ROUND((FIN.VLRDESDOB * (CT.PERCDESCANTECIPADO / 100)),
2) AS DESCONTO
,
FIN.CODTIPTIT
, FIN.VLRDESC
,
SUBSTR(TIT.DESCRTIPTIT,
1,
39) AS DESCRTIPTIT
,
FIN.AD_DHEXBONUS AS DHEXBONUS
,
CT.INSTRUCAO
,
CT.INSTRUCAO2
,
CT.INSTRUCAO3
,
NVL(CT.VALIDADE,
0) AS PRAZOVALIDADE
,
NVL(CT.GERAMULTA,
'N') AS GERAMULTA
,
CASE

WHEN NVL(CT.BOLEPIX,
'N') = 'S' THEN 1

ELSE CT.DIASAPLICARMULTA

END AS DIASAPLICARMULTA
,
ROUND((FIN.VLRDESDOB * (CT.PERCENTUALMULTA / 100)),
2) AS VALORMULTA
,
CAST(TO_CHAR(CT.PERCENTUALMULTA,
'FM999G999G990D00') AS NUMBER) AS PERCENTUALMULTA
,
CASE

WHEN NVL(CT.BOLEPIX,'N') = 'S' THEN 1

ELSE CAST(TO_CHAR(CT.VLRMULTADIAATRASO, 'FM999G999G990D00') AS NUMBER)

END AS VLRMULTADIAATRASO
,
CAST(TO_CHAR(CT.PERCJUROSMORA,
'FM999G999G990D00') AS NUMBER) AS PERCJUROSMORA
,
CT.DIASAPOSVCTMULTA
 ,
CT.DIASDESCONTO
,
CAST(TO_CHAR(CT.PERCDESCANTECIPADO,
'FM999G999G990D00') AS NUMBER) AS PERCDESCANTECIPADO
,
NVL(CT.BOLEPIX,
'N') AS BOLEPIX
,
CASE

WHEN (

FIN.CODBARRA IS NULL
OR (
FIN.CODBARRA IS NULL
AND FIN.NOSSONUM IS NULL
)

) THEN 'N'

WHEN (

FIN.CODBARRA IS NOT NULL

AND FIN.NOSSONUM IS NOT NULL

) THEN 'S'

END AS GERADO
,
CASE

WHEN (

FIN.CODBARRA IS NULL
OR (
FIN.CODBARRA IS NULL
AND FIN.NOSSONUM IS NULL
)

) THEN 'N'

WHEN (

FIN.CODBARRA IS NOT NULL

AND FIN.NOSSONUM IS NOT NULL
AND FIN.AD_DHEXBONUS IS NOT NULL

) THEN 'S'

END AS GERADOEX
,
'N' AS PIX
,
9600 AS TEMPOPIX
FROM TGFFIN FIN
INNER
JOIN
TGFPAR PAR
 ON FIN.CODPARC = PAR.CODPARC
INNER
JOIN
TGFTIT TIT

ON FIN.CODTIPTIT = TIT.CODTIPTIT
INNER
JOIN
TSIEND EN

ON PAR.CODEND = EN.CODEND
INNER
JOIN
VGFCIDUF CID

ON PAR.CODCID = CID.CODCID
INNER
JOIN
TSIBAI BAI

ON PAR.CODBAI = BAI.CODBAI
INNER
JOIN
AD_EXCONF CONF

ON FIN.CODEMP = CONF.CODEMP
INNER
JOIN
AD_EXCONTA CT

ON CONF.ID = CT.ID
AND CT.CODCTABCOINT = FIN.CODCTABCOINT
WHERE FIN.CODTIPTIT = 4
AND FIN.RECDESP = 1
AND FIN.PROVISAO = 'N'
AND (

FIN.DTVENC - SYSDATE < = 7

)
/*-- AND (

FIN.DTVENC - SYSDATE > = 0

)*/
AND FIN.DHBAIXA IS NULL
AND NVL(FIN.CODTIPOPERBAIXA,

0) = 0
AND NVL(CONF.ATIVO,

'N') = 'S'
/*

AND FIN.ORDEMCARGA = 4558

 AND FIN.NUFIN = 207687*/

UNION ALL

SELECT FIN.NUFIN
,

FIN.CODEMP
,

FIN.ORDEMCARGA
,

FIN.CODPARC
,

SUBSTR(NVL(PAR.RAZAOSOCIAL,

NOMEPARC),

1,

39) AS RAZAOSOCIAL
,

PAR.CGC_CPF AS DOCUMENTO
,

PAR.CODEND
,

PAR.CEP
,

EN.NOMEEND AS RUA
,

PAR.NUMEND AS NUMERO
,

SUBSTR(NVL(PAR.COMPLEMENTO,

' '),

1,

14) AS COMPLEMENTO
,

BAI.NOMEBAI AS BAIRRO
,

CID.NOMECID AS CIDADE
,

CID.UF AS UF
,
 NVL(PAR.EMAIL,

'atendimento@exbonus.com.br') AS EMAIL
,

NVL(PAR.TELEFONE,

'5531996666125') AS TELEFONE
,

TO_CHAR(FIN.DTVENC,

'YYYY-MM-DD') AS VENCIMENTO
,

TO_CHAR(FIN.DTVENC,

'YYYY-MM-DD') AS PERCENTUALDTLIMITE
,

FIN.DTVENC
,

(FIN.VLRDESDOB) AS VLRDESDOBUSU
,

(FIN.VLRDESDOB * 100) AS VLRDESDOB

,

0 AS DESCONTO
,

FIN.CODTIPTIT

, FIN.VLRDESC
,

SUBSTR(TIT.DESCRTIPTIT,

1,

39) AS DESCRTIPTIT
,

FIN.AD_DHEXBONUS AS DHEXBONUS
,

' ' AS INSTRUCAO

,

' ' AS INSTRUCAO2

,

' ' AS INSTRUCAO3

,

0 AS PRAZOVALIDADE
,
 'N' AS GERAMULTA
,

0 AS DIASAPLICARMULTA
,

0 AS VALORMULTA
,

0 AS PERCENTUALMULTA
,

0 AS VLRMULTADIAATRASO
,

0 AS PERCJUROSMORA
,

0 AS DIASAPOSVCTMULTA
,

0 AS DIASDESCONTO
,

0 AS PERCDESCANTECIPADO
,

'N' AS BOLEPIX
,

CASE

WHEN (
FIN.CODBARRA IS NULL
AND FIN.NOSSONUM IS NULL
) THEN 'N'

WHEN (
FIN.CODBARRA IS NOT NULL
AND FIN.NOSSONUM IS NOT NULL
) THEN 'S'

END AS GERADO
,

CASE

WHEN (
FIN.CODBARRA IS NULL
AND FIN.NOSSONUM IS NULL
) THEN 'N'

WHEN (
FIN.CODBARRA IS NOT NULL
AND FIN.NOSSONUM IS NOT NULL
AND FIN.AD_DHEXBONUS IS NOT NULL
) THEN 'S'

END AS GERADOEX
 ,

'S' AS PIX
,

9600 AS TEMPOPIX
FROM TGFFIN FIN
INNER
JOIN
TGFPAR PAR

ON FIN.CODPARC = PAR.CODPARC
INNER
JOIN
TGFTIT TIT

ON FIN.CODTIPTIT = TIT.CODTIPTIT
INNER
JOIN
TSIEND EN

ON PAR.CODEND = EN.CODEND
INNER
JOIN
VGFCIDUF CID

ON PAR.CODCID = CID.CODCID
INNER
JOIN
TSIBAI BAI

ON PAR.CODBAI = BAI.CODBAI
WHERE
FIN.CODTIPTIT = 53

AND FIN.RECDESP = 1
AND FIN.PROVISAO = 'N'
AND (
FIN.DTVENC - SYSDATE < = 7
)
/*-- AND (
FIN.DTVENC - SYSDATE > = 0
)*/
AND FIN.DHBAIXA IS NULL
AND NVL(FIN.CODTIPOPERBAIXA,

0) = 0
/*

AND FIN.ORDEMCARGA = 4558*/