andrebertoletti
1/5/2018 - 11:50 AM

Useful

\\napuc4ae02.cvc.com.br\IN_SYSTUR
-- Cancelamento
http://systurhom.cvc.com.br/pls/systur/pkg_ven_reserva_cancelamento.prc_manutencao?prc_origem=R&prc_cd_reserva=181732435&prc_cd_solicitacao=&prc_cancela_solicitacao=N&prc_desassocia_feb=&prc_exclui_sabre=N

--Recibos
https://systur.cvc.com.br/pls/systur/pkg_ven_finan.prc_altera_finan?prc_cd_reserva=283670902

-- Finan
https://systur.cvc.com.br/pls/systur/pkg_ven_finan.prc_inicial?prc_vl_contratante=832&prc_vl_tx_embarque=0&prc_vl_tx_traslado=0&prc_cd_pessoa=7364361&prc_cd_reserva=283670902&prc_cd_contratante=1&prc_st_altera=S
declare

    v_nr_recibo   number(14) := 33810000002566;
    v_tab_valores tab_cxa_comissao_valores;
    v_desc_valor  varchar2(200);

begin

    v_tab_valores := pkg_ven_comissao.fun_valores_comissao(v_nr_recibo);

    for i in v_tab_valores.first .. v_tab_valores.last loop
    
        select decode(v_tab_valores(i).cd_tipo_valor,1,'Principal'
                                                    ,2,'Acordo'
                                                    ,3,'Pontos'
                                                    ,4,'Desconto'
                                                    ,5,'Taxas'
                                                      , '')
        into v_desc_valor
        from dual;
    
        dbms_output.put_line ('Tipo ' || v_desc_valor);
        dbms_output.put_line ('Efetivo ' || v_tab_valores(i).vl_efetivo);
        dbms_output.put_line ('Base ' || v_tab_valores(i).vl_base);
        dbms_output.put_line ('Acordo ' || v_tab_valores(i).cd_acordo);
        
        dbms_output.put_line ('');
        
    end loop;

end;