SELECT IT.CODITM, IT.DESCRIPCION,
CASE WHEN LPC01.PRECIO > 0 THEN ROUND(ROUND(LPC01.PRECIO * FACTORES.FACTORCONTADO, 0) / 500, 0) * 500 ELSE ROUND(ROUND(LPB01.PRECIO * FACTORES.FACTORCONTADO, 0) / 500, 0) * 500 END AS CONTADO,
CASE WHEN LPC01.PRECIO > 0 THEN ROUND(ROUND(LPC01.PRECIO * FACTORES.FACTORCREDITO, 0) / 500, 0) * 500 ELSE ROUND(ROUND(LPB01.PRECIO * FACTORES.FACTORCREDITO, 0) / 500, 0) * 500 END AS CREDITO

FROM ITEMS AS IT
    -- SELECT DE PRECIO BASE SEGUN ATRIBUTOS DEL PRODUCTO (LPG)
    LEFT JOIN ITEMSATRIB AS ATLPG ON IT.CODITM = ATLPG.CODITM AND ATLPG.CODATR = 'LPG'
    LEFT JOIN (SELECT CODITM, MAX(VIGENCIA) AS VIGENCIA, PRECIO FROM LISTASPRECIOS WHERE (CODLIS = 'B01') GROUP BY CODITM, PRECIO) AS LPB01 ON IT.CODITM = LPB01.CODITM
    LEFT JOIN (SELECT CODITM, MAX(VIGENCIA) AS VIGENCIA, PRECIO FROM LISTASPRECIOS WHERE (CODLIS = 'C01') GROUP BY CODITM, PRECIO) AS LPC01 ON IT.CODITM = LPC01.CODITM

    -- SELECT DE FACTORES SEGUN ATRIBUTOS DEL PRODUCTO (AP1 Y AP4)
    LEFT JOIN (
        SELECT
            IT.CODITM, IT.DESCRIPCION, IAW.CODATRVAL AS WEB, IAO.CODATRVAL AS NUEVO,
            CASE WHEN WPS.FACTORCONTADO IS NULL THEN WPR.FACTORCONTADO ELSE WPS.FACTORCONTADO END AS FACTORCONTADO,
            CASE WHEN WPS.FACTORCREDITO IS NULL THEN WPR.FACTORCREDITO ELSE WPS.FACTORCREDITO END AS FACTORCREDITO
        FROM ITEMS AS IT
            LEFT JOIN ITEMSATRIB AS IAR ON IT.CODITM = IAR.CODITM AND IAR.CODATR = 'AP1'
            LEFT JOIN ITEMSATRIB AS IAS ON IT.CODITM = IAS.CODITM AND IAS.CODATR = 'AP4'
            LEFT JOIN ITEMSATRIB AS IAW ON IT.CODITM = IAW.CODITM AND IAW.CODATR = 'WEB'
            LEFT JOIN ITEMSATRIB AS IAO ON IT.CODITM = IAO.CODITM AND IAO.CODATR = 'NEW'
            LEFT JOIN (SELECT CODATRRUB, CODATRRUBVAL, FACTORCONTADO, FACTORCREDITO FROM WEB_POLITICAS WHERE CODATRSUB IS NULL ) AS WPR ON IAR.CODATR = WPR.CODATRRUB AND IAR.CODATRVAL = WPR.CODATRRUBVAL
            LEFT JOIN (SELECT CODATRSUB, CODATRSUBVAL, FACTORCONTADO, FACTORCREDITO FROM WEB_POLITICAS WHERE CODATRSUB IS NOT NULL) AS WPS ON IAS.CODATR = WPS.CODATRSUB AND IAS.CODATRVAL = WPS.CODATRSUBVAL
        WHERE IT.ITEMPREFI = 'B')
    AS FACTORES ON IT.CODITM = FACTORES.CODITM

WHERE IT.ITEMPREFI = 'B' AND FACTORES.WEB = 'S' AND  FACTORES.NUEVO = 'S' AND
    (LPB01.VIGENCIA IS NULL OR LPB01.VIGENCIA IN (SELECT MAX(VIGENCIA) AS VIGENCIA FROM LISTASPRECIOS AS LX WHERE CODLIS = 'B01' AND CODITM = IT.CODITM)) AND
    (LPC01.VIGENCIA IS NULL OR LPC01.VIGENCIA IN (SELECT MAX(VIGENCIA) AS VIGENCIA FROM LISTASPRECIOS AS LX WHERE CODLIS = 'C01' AND CODITM = IT.CODITM))
ORDER BY IT.CODITM