asdfasdf

SELECT
            aps.tpe_codigo,
--            psv.tpe_codigo tpe_agrup,
            DECODE(PSV.TPE_CODIGO,'ITX_EATX',FU_ITX_TRADUCE_EATX(CRC.SRV_CODIGO,CRC.APS_VERS),psv.TPE_CODIGO) TPE_AGRUP,
            aps.aps_estd_vers,
            aps.aps_fec_hablt, crc.srv_codigo, crc.aps_vers, crc.aps_sec,
            crc.crc_sec, siam_moneda, ctr_codigo, crc_descripcion, crc_cant,
            crc_cobrar, crc_precio, crc_fec_habilit, crc_fec_fac_dsde,
            crc_fec_fac_hsta, crc_fec_fac_final, crc_fec_ult_fac, crc_fec_val_hsta,
            psv.clie_codigo clie_codigo,
            SUBSTR
               (pa_itx_ifce_carriers.fu_obtener_poi_codigo (crc.srv_codigo,
                                                            crc.aps_vers
                                                           ),
                1,
                14
               ) poi_codigo,
            fu_itx_carriers_geog_codigo (crc.srv_codigo, crc.aps_vers) geog_codigo,
            SUBSTR
               (pa_itx_ifce_carriers.fu_obtener_domi_dest (crc.srv_codigo,
                                                           crc.aps_vers,
                                                           crc.det_id,
                                                           crc.aps_sec
                                                          ),
                1,
                200
               ) domi_dest,
            SUBSTR
               (pa_itx_ifce_carriers.fu_obtener_prestacion (crc.srv_codigo,
                                                            crc.aps_vers,
                                                            psv.tpe_codigo
                                                           ),
                1,
                4
               ) tipo_prestacion,
            SUBSTR
               (pa_itx_ifce_carriers.fu_obtener_sitios (crc.srv_codigo,
                                                        crc.aps_vers,
                                                        'ORI'
                                                       ),
                1,
                100
               ) sitio_ori,
            SUBSTR
               (pa_itx_ifce_carriers.fu_obtener_sitios (crc.srv_codigo,
                                                        crc.aps_vers,
                                                        'DEST'
                                                       ),
                1,
                100
               ) sitio_dest,
            pa_itx_ifce_carriers.fu_obtener_enlace (crc.srv_codigo,
                                                    crc.aps_vers,
                                                    crc.det_id,
                                                    aps.tpe_codigo
                                                   ) nro_enlace,
            PA_ITX_IFCE_CARRIERS.fu_obtener_ldd_adsl(crc.srv_codigo,
                                                     crc.aps_vers,
                                                     crc.det_id
                                                     )ldd_adsl,
            SUBSTR
               (pa_itx_ifce_carriers.fu_obtener_tipo_clave (crc.srv_codigo,
                                                            crc.aps_vers,
                                                            psv.tpe_codigo
                                                           ),
                1,
                1
               ) tipo_clave,
            pa_itx_ifce_carriers.fu_obtener_clave_tarif
                                                      (crc.srv_codigo,
                                                       crc.aps_vers,
                                                       psv.tpe_codigo
                                                      ) clave_tarif,
-- sei - sva
               PA_ITX_CONSULTAS_ULD.BUSCA_CLIE_CODIGO('ITX_HCA',CRC.SRV_CODIGO,CRC.APS_VERS)        HCA_CLIE_CODIGO,
               PA_ITX_CONSULTAS_ULD.BUSCA_CLIE_CODIGO('ITX_HCE',CRC.SRV_CODIGO,CRC.APS_VERS)        HCE_CLIE_CODIGO,
               PA_ITX_CONSULTAS_ULD.BUSCA_HCE_CARRIER(CRC.SRV_CODIGO,CRC.APS_VERS)      HCE_CARRIER,
               PA_ITX_CONSULTAS_ULD.BUSCA_MODALIDAD_TPE(PSV.TPE_CODIGO, CRC.SRV_CODIGO, CRC.APS_VERS) MODALIDAD ,
               PA_ITX_CONSULTAS_ULD.BUSCA_VELOC_TPE(PSV.TPE_CODIGO, CRC.SRV_CODIGO, CRC.APS_VERS)        VELOCIDAD   ,
               PA_ITX_CONSULTAS_ULD.BUSCA_GEOG_CODIGO (CRC.SRV_CODIGO,CRC.APS_VERS ) GEOG_CODIGO_HCE    ,
               PA_ATD_CONS_COTA.BUSCAR_GEOG_DESC_LOCALIDAD('PA',PA_ITX_CONSULTAS_ULD.BUSCA_GEOG_CODIGO (CRC.SRV_CODIGO, CRC.APS_VERS)) PAIS_DESCRIP,
               PA_ITX_CONSULTAS_ULD.BUSCA_HCE_CNTA_CARRIER(CRC.SRV_CODIGO,CRC.APS_VERS)     CNTA_CARRIER,
               PA_ITX_CONSULTAS_ULD.BUSCA_MOD_FACTUR(PSV.TPE_CODIGO, CRC.SRV_CODIGO, CRC.APS_VERS) MOD_FACTUR,
               PSV.CNTA_CODIGO
       FROM pesp_servicios psv, itx_agrup_prod_svc aps, itx_cargos_rec crc
-- sei - sva
            ,ITX_DTL_HCE IDH
      WHERE crc.srv_codigo = aps.srv_codigo
        AND crc.srv_codigo = psv.srv_codigo
        AND crc.aps_vers = aps.aps_vers
        AND crc.aps_sec = aps.aps_sec
-- sei - sva
        AND IDH.SRV_CODIGO(+) = CRC.SRV_CODIGO
        AND IDH.APS_VERS(+) = CRC.APS_VERS
        AND IDH.APS_SEC(+) = CRC.APS_SEC
-- sei - sva
        AND NVL (crc.crc_gen_auto, 'N') != 'B'
        AND crc.crc_cobrar = 'S'
        AND psv.tpe_codigo != 'ITX_DSLP'
        AND crc.crc_fec_fac_final IS NULL
        AND (   ( TRUNC (crc.crc_fec_fac_dsde) != TRUNC (crc.crc_fec_fac_hsta)
                 AND crc.crc_fec_fac_hsta IS NOT NULL
                 AND (TRUNC (crc.crc_fec_val_hsta) !=  TRUNC (crc.crc_fec_fac_hsta)
                OR crc.crc_fec_val_hsta IS NULL ))
             OR (    TRUNC (crc.crc_fec_fac_dsde) = TRUNC (crc.crc_fec_fac_hsta)
                 AND TRUNC (crc.crc_fec_val_hsta) >= TRUNC (crc.crc_fec_fac_hsta)
                )
             OR crc.crc_fec_fac_hsta IS NULL
            )
        AND (   (aps.aps_estd_vers = 'AC' AND crc.crc_fec_fac_hsta IS NULL)
             OR (    aps.aps_estd_vers IN ('AC', 'HI')
                 AND crc.crc_fec_fac_hsta IS NOT NULL
                 AND NOT EXISTS (
                        SELECT 1
                          FROM itx_cargos_rec recb
                         WHERE recb.srv_codigo = crc.srv_codigo
                           AND recb.aps_vers > crc.aps_vers
                           AND recb.aps_sec = crc.aps_sec
                           AND recb.crc_sec = crc.crc_sec
                           AND (   TRUNC (recb.crc_fec_fac_hsta) =
                                   TRUNC (crc.crc_fec_fac_hsta)
                                OR recb.crc_sec = crc.crc_sec
                                )   AND recb.crc_cobrar||'' = 'S')                                          )
            );