PROCEDURE buscar_servicios IS
CURSOR c_Servicios (p_clie_tit NUMBER, p_cta_tit NUMBER, p_prod IN VARCHAR2) IS
    SELECT  srv.tpe_codigo tpe_codigo,
        srv.srv_codigo srv_codigo,
        srv_numero,
        srv.clie_codigo clie_codigo_tit,
        srv.cnta_codigo cta_codigo_tit,
        vse.cta_codigo_usu cta_codigo_usu,
        tmov_codigo,
        DECODE(tmov_codigo,'','',TO_CHAR(sol_nro_solic)||'-'||TO_CHAR(ren_nro_renglon)) Solicitud,
        tra_estado,
                vse.enl_codigo      enl_codigo,
                vse.pry_codigo      pry_codigo
    FROM pesp_Servicios srv,
         ldd_tramites tra,
         ldd_servicios_ldd srl,
         ldd_Versiones_servicios vse
    WHERE srv.srv_estado= 'ACTIVO'
    AND   srv.tpe_codigo LIKE 'LDD%'
    AND   srv.tpe_codigo = NVL(p_prod, srv.tpe_codigo)
    AND   vse.cli_codigo_usu = p_clie_tit
        AND   vse.vse_duracion       = 'P'
    AND   vse.cta_codigo_usu = NVL(p_cta_tit, vse.cta_codigo_usu)
    AND   srl.srv_codigo=srv.srv_codigo
    AND   vse.srv_codigo=srv.srv_codigo
    AND   vse.vse_version=srl.srl_ult_vers_srv
    AND   tra.srv_codigo(+) = srv.srv_codigo
    AND   tra.tra_estado(+)='PE'
    AND   (tra.tmov_codigo='CANCELAR'
        OR NOT EXISTS(SELECT 1
                FROM ldd_tramites tra2
                WHERE tra2.srv_codigo=srv.srv_codigo
                AND tmov_codigo='CANCELAR'
                AND tra_estado='PE'
                )
        )
    ORDER BY srv.tpe_codigo, srv_numero;


BEGIN


enter;
falla;

IF name_in('SOLICITUD.CLIE_USU_CODIGO') IS NULL THEN
    qms$Show_message('LDD-00003 # Cliente Usuario','E',TRUE);
END IF;

go_block('SERVICIOS');

clear_block(NO_COMMIT);

set_block_property('SERVICIOS',INSERT_ALLOWED, property_true);
set_application_property(CURSOR_STYLE, 'BUSY');

FOR reg IN c_Servicios(name_in('SOLICITUD.CLIE_USU_CODIGO'),
            name_in('SOLICITUD.CTA_USU_CODIGO'),
            name_in('SOLICITUD.TPE_CODIGO')) LOOP
    create_record;

    copy(reg.tpe_codigo, 'SERVICIOS.TPE_CODIGO');
    copy(TO_CHAR(reg.srv_codigo), 'SERVICIOS.SRV_CODIGO');
    copy(reg.srv_numero, 'SERVICIOS.SRL_NUMERO');
    copy(TO_CHAR(reg.clie_codigo_tit), 'SERVICIOS.CLIE_TIT_CODIGO');
    copy(TO_CHAR(reg.cta_codigo_tit), 'SERVICIOS.CTA_TIT_CODIGO');
    copy(TO_CHAR(reg.cta_codigo_usu), 'SERVICIOS.CNTA_CODIGO');
    copy(pa_atd_cons_cota.buscar_cta_nombre(reg.cta_codigo_usu,
                name_in('SOLICITUD.CLIE_USU_CODIGO')), 'SERVICIOS.CNTA_NOMBRE');
    copy(reg.tmov_codigo, 'SERVICIOS.TMOV_CODIGO');
    copy(reg.tra_Estado, 'SERVICIOS.REN_ESTADO');
    copy(reg.solicitud, 'SERVICIOS.SOLICITUD');
        copy(reg.enl_codigo, 'SERVICIOS.ENL_CODIGO');
        copy(reg.pry_codigo, 'SERVICIOS.PRY_CODIGO');

    IF name_in('SERVICIOS.REN_ESTADO') ='PE' THEN
        copy('N','SERVICIOS.SELECCIONADO');
    END IF;

    set_record_property(get_block_property('SERVICIOS',CURRENT_RECORD),
            'SERVICIOS', STATUS,QUERY_STATUS);

END LOOP;

first_record;
set_application_property(CURSOR_STYLE, 'DEFAULT');
set_block_property('SERVICIOS',INSERT_ALLOWED, property_false);
qms$set_context.disable_commit_form('NO_CHECK');
copy('S','GLOBAL.LDDA0102_BUSCOSRV');
END;