CREATE OR REPLACE FORCE VIEW AD_TGFHISLOC
AS
SELECT
    ROW_NUMBER()OVER(ORDER BY CAB.NUNOTA) AS SEQUENCIA,
	ITE.AD_NUEQP AS NUEQP,
	CAB.NUNOTA,
	CAB.CODPARC,
	ITE.AD_DTPREVDEV AS DTPREVDEV,
	CAB.DTNEG AS DTRETIRADA,
	ITE.AD_DTDEVREAL AS DTDEVREAL,
            ITE.AD_DTDEVREAL - ITE.AD_DTPREVDEV AS QTDDIASVENC,
            ((ITE.AD_DTDEVREAL - ITE.AD_DTPREVDEV) * ITE.VLRUNIT) + ITE.VLRTOT AS TOTALMULTA,
             ((ITE.AD_DTDEVREAL - ITE.AD_DTPREVDEV) * ITE.VLRUNIT) AS VLRMULTA,
            ITE.VLRTOT
FROM 
    TGFCAB CAB
    INNER JOIN TGFITE ITE ON CAB.NUNOTA = ITE.NUNOTA
WHERE
    CAB.CODTIPOPER = 604
    AND CAB.STATUSNOTA = 'A'
    AND ITE.AD_NUEQP IS NOT NULL
ORDER BY
    CAB.NUNOTA