/***********************************************************************************************/
/***************** REGULARIZO PAQ_COMPONENTES && REGULARIZO PAQ_CLIENTE ************************/
/***********************************************************************************************/

--- OBTENGO LOS EQUIPOS

V_PAQ_ID := 0;

SELECT PAQC_PAQ_ID
INTO V_PAQ_ID
FROM  PAQ_COMPONENTES PC
WHERE PAQC_ASO_ESAC = 'E'
AND PAQC_ESTADO <> 'B'
AND PC.PAQC_ESACSL_ID IN (
             SELECT ESPD.ESPD_ID
             FROM LINEA L ,EQUIPO_SUB_PEDIDO ESPD
             WHERE   L.CNTCLI_POS_LN_CDG = PV_CLIE_COD --> IMPUT_CLIE_CODIGO
             AND L.CNTCNT_POS_LN_CDG = PV_CNTA_COD --> INPUT_CNTA_CODIGO
             AND L.LNEA_ESTADO IN ('A','N','I','Z')
             AND ESPD.TIENE_LINEA_ID = L.LNEA_ID
             AND ESPD.ESPD_ESTADO = 'AC')
             ;

IF V_PAQ_ID > 0 THEN
             -- Doy de baja
    UPDATE PAQ_COMPONENTES PAC
    SET PAC.PAQC_ESTADO = 'B',
    PAC.PAQC_FECHA_ESTADO = SYSDATE, -- 16/02/2016 qc 25660  -- OT261606
    PAC.FECHA_HASTA = SYSDATE,
    PAC.FECHA_ULT_MOD = SYSDATE,
    PAC.USUARIO_ULT_MOD = 'MIGRA_T3'
    WHERE PAQC_ASO_ESAC = 'E'
    AND PAQC_ESTADO <> 'B'
            AND PAQC_ESACSL_ID IN (
                 SELECT ESPD.ESPD_ID
                 FROM LINEA L ,EQUIPO_SUB_PEDIDO ESPD
                 WHERE   L.CNTCLI_POS_LN_CDG = PV_CLIE_COD --> IMPUT_CLIE_CODIGO
                 AND L.CNTCNT_POS_LN_CDG = PV_CNTA_COD --> INPUT_CNTA_CODIGO
                 AND L.LNEA_ESTADO IN ('A','N','I','Z')
                 AND ESPD.TIENE_LINEA_ID = L.LNEA_ID
                 AND ESPD.ESPD_ESTADO = 'AC');

--dato de baja los PAQ_ID en paq_cliente recuperados
                UPDATE PAQ_CLIENTE PC
                SET PC.PAQCL_ESTADO = 'B',
            -- 26/10/2016 QC 43842
            --    pc.paqcl_fecha_estado = SYSDATE, -- qc 24992
                PC.FECHA_ULT_MOD = SYSDATE,
                PC.USUARIO_ULT_MOD = 'MIGRA_T3'
        WHERE PAQ_ID = V_PAQ_ID;
END IF;

---COMPONENTES DE LA LINEA

V_PAQ_ID := 0;

SELECT PAQC_PAQ_ID
INTO V_PAQ_ID
FROM  PAQ_COMPONENTES PC
WHERE PC.PAQC_ASO_ESAC = 'L'
AND PAQC_ESTADO <> 'B'
AND PC.PAQC_ESACSL_ID IN (
             SELECT L.LNEA_ID
             FROM LINEA L
             WHERE  L.CNTCLI_POS_LN_CDG = PV_CLIE_COD --> IMPUT_CLIE_CODIGO
             AND L.CNTCNT_POS_LN_CDG = PV_CNTA_COD --> INPUT_CNTA_CODIGO
             AND L.LNEA_ESTADO IN ('A','N','I','Z')
             );

 IF V_PAQ_ID > 0 THEN

--dato de baja los PAQ_ID en paq_cliente recuperados


UPDATE PAQ_COMPONENTES
SET PAC.PAQC_ESTADO = 'B',
            --    PAC.PAQC_FECHA_ESTADO = SYSDATE, -- 16/02/2016 qc 25660  -- OT261606
            --    PAC.FECHA_HASTA = SYSDATE,
                PAC.FECHA_ULT_MOD = SYSDATE,
                PAC.USUARIO_ULT_MOD = 'MIGRA_T3'
WHERE PC.PAQC_ASO_ESAC = 'L'
AND PAQC_ESTADO <> 'B'
AND PC.PAQC_ESACSL_ID IN (
             SELECT L.LNEA_ID
             FROM LINEA L
             WHERE  L.CNTCLI_POS_LN_CDG = PV_CLIE_COD --> IMPUT_CLIE_CODIGO
             AND L.CNTCNT_POS_LN_CDG = PV_CNTA_COD --> INPUT_CNTA_CODIGO
             AND L.LNEA_ESTADO IN ('A','N','I','Z')
             );

    UPDATE PAQ_CLIENTE PC
    SET PC.PAQCL_ESTADO = 'B',
            -- 26/10/2016 QC 43842
            --    pc.paqcl_fecha_estado = SYSDATE, -- qc 24992
        PC.FECHA_ULT_MOD = SYSDATE,
        PC.USUARIO_ULT_MOD = 'MIGRA_T3'
    WHERE PAQ_ID = V_PAQ_ID;

END IF;

V_PAQ_ID := 0;

SELECT PAQC_PAQ_ID
INTO V_PAQ_ID
FROM  PAQ_COMPONENTES PC
WHERE PC.PAQC_ASO_ESAC = 'S'
AND PAQC_ESTADO <> 'B'
AND PC.PAQC_ESACSL_ID IN (

             SELECT SSP.SSPD_ID
             FROM LINEA L ,SERVICIO_SPD SSP
             WHERE  L.CNTCLI_POS_LN_CDG = PV_CLIE_COD --> IMPUT_CLIE_CODIGO
             AND L.CNTCNT_POS_LN_CDG = PV_CNTA_COD --> INPUT_CNTA_CODIGO
             AND L.LNEA_ESTADO IN ('A','N','I','Z')
             AND SSP.SSPD_ESTADO = 'AC'
             AND SSP.SSPD_TIENE_LNEA_ID = L.LNEA_ID
             );


IF V_PAQ_ID > 0 THEN

 UPDATE PAQ_COMPONENTES PC
 SET PAC.PAQC_ESTADO = 'B',
            --    PAC.PAQC_FECHA_ESTADO = SYSDATE, -- 16/02/2016 qc 25660  -- OT261606
            --    PAC.FECHA_HASTA = SYSDATE,
                PAC.FECHA_ULT_MOD = SYSDATE,
                PAC.USUARIO_ULT_MOD = 'MIGRA_T3'
WHERE PC.PAQC_ASO_ESAC = 'S'
AND PAQC_ESTADO <> 'B'
AND PC.PAQC_ESACSL_ID IN (
             SELECT SSP.SSPD_ID
             FROM LINEA L
                    ,SERVICIO_SPD SSP
             WHERE  L.CNTCLI_POS_LN_CDG = PV_CLIE_COD --> IMPUT_CLIE_CODIGO
             AND L.CNTCNT_POS_LN_CDG = PV_CNTA_COD --> INPUT_CNTA_CODIGO
             AND L.LNEA_ESTADO IN ('A','N','I','Z')
             AND SSP.SSPD_ESTADO = 'AC'
             AND SSP.SSPD_TIENE_LNEA_ID = L.LNEA_ID
             );

        UPDATE PAQ_CLIENTE
        SET PC.PAQCL_ESTADO = 'B',
            -- 26/10/2016 QC 43842
            --    pc.paqcl_fecha_estado = SYSDATE, -- qc 24992
                PC.FECHA_ULT_MOD = SYSDATE,
                PC.USUARIO_ULT_MOD = 'MIGRA_T3'
        WHERE PAQ_ID = V_PAQ_ID;

 END IF;