1. This site uses cookies. By continuing to use this site, you are agreeing to our use of cookies. Learn More.

  2. Anuncie Aqui ! Entre em contato fdantas@4each.com.br

ACR900ZI - Integração\Implantação de Títulos

Discussão em 'Progress 4GL' iniciado por andreluisbrandao, Fevereiro 5, 2016.

  1. andreluisbrandao

    andreluisbrandao Membro Participativo

    Bom dia amigos,

    Minha duvida é simples mas não consegui encontrar a solução. Estou criando uma rotina de implantação de titulos, porem coloco a data de vencimento do titulo mesmo na mão é o titulo somente é criado com a data de emissão. veja codigo abaixo:

    Mesmo informando a data na mão do vencimento ele sempre assume o da emissão. alguem pode me ajudar? esta faltando preecher algum parametro, alguma temp-table?

    Código:
    CREATE tt_integr_acr_lote_impl.
      ASSIGN tt_integr_acr_lote_impl.tta_cod_empresa               = "1"
             tt_integr_acr_lote_impl.tta_cod_estab                 = "10"
             tt_integr_acr_lote_impl.tta_cod_refer                 = v_cod_refer
             tt_integr_acr_lote_impl.tta_dat_transacao             = TODAY
             tt_integr_acr_lote_impl.tta_val_tot_lote_impl_tit_acr = d-valor
             tt_integr_acr_lote_impl.tta_ind_orig_tit_acr          = 'ACR'.
    
        find first clien_financ where clien_financ.cod_empresa = "1" AND
                                      clien_financ.cdn_cliente = d-cdn_cliente no-lock no-error.
       
        indice = indice + 1.
        CREATE tt_integr_acr_item_lote_impl_9.
        ASSIGN tt_integr_acr_item_lote_impl_9.ttv_rec_lote_impl_tit_acr      = recid(tt_integr_acr_lote_impl)
               tt_integr_acr_item_lote_impl_9.ttv_rec_item_lote_impl_tit_acr = recid(tt_integr_acr_item_lote_impl_9)
               tt_integr_acr_item_lote_impl_9.tta_cod_refer                  = v_cod_refer
               tt_integr_acr_item_lote_impl_9.tta_cdn_cliente                = d-cdn_cliente
               tt_integr_acr_item_lote_impl_9.tta_num_seq_refer              = 10 
               tt_integr_acr_item_lote_impl_9.tta_cod_espec_docto            = d-especie
               tt_integr_acr_item_lote_impl_9.tta_cod_ser_docto              = "2"
               tt_integr_acr_item_lote_impl_9.tta_cod_tit_acr                = String(Int(d-nsu))
               tt_integr_acr_item_lote_impl_9.tta_cod_parcela                = STRING(i-parcela,'99')
               tt_integr_acr_item_lote_impl_9.tta_cod_portador               = cb-portador:SCREEN-VALUE IN FRAME fmain
               tt_integr_acr_item_lote_impl_9.tta_cod_cart_bcia              = c-carteira:SCREEN-VALUE  IN FRAME fmain        
               tt_integr_acr_item_lote_impl_9.tta_cod_indic_econ             = "Real"
               tt_integr_acr_item_lote_impl_9.tta_cdn_repres                 = IF AVAIL clien_financ THEN clien_financ.cdn_repres ELSE 0
               tt_integr_acr_item_lote_impl_9.tta_dat_vencto_tit_acr         = 01/12/2020 /* date(d-dt-venc) */
               tt_integr_acr_item_lote_impl_9.tta_dat_prev_liquidac          = date(d-dt-trans)
               tt_integr_acr_item_lote_impl_9.tta_dat_emis_docto             = date(d-dt-trans)
               tt_integr_acr_item_lote_impl_9.tta_val_tit_acr                = d-valor
               tt_integr_acr_item_lote_impl_9.tta_val_liq_tit_acr            = d-valor
               tt_integr_acr_item_lote_impl_9.tta_val_base_calc_comis        = 0
               tt_integr_acr_item_lote_impl_9.tta_ind_tip_espec_docto        = "Antecipação" /* NO caso de ACC */
               tt_integr_acr_item_lote_impl_9.tta_des_obs_cobr               = ""
               tt_integr_acr_item_lote_impl_9.tta_des_text_histor            = "Cartão de Credito"
               tt_integr_acr_item_lote_impl_9.tta_cod_motiv_movto_tit_acr    = "8".  
         VALIDATE tt_integr_acr_item_lote_impl_9.
        
    RUN pi-acompanhar IN h-acomp ("Implantando Titulos ACC " + String(Int(d-nsu)) + "/" + STRING(i-parcela,'99')).
    
    RUN prgfin/acr/acr900zi.py persistent set v_hdl_programa.
    RUN pi_main_code_integr_acr_new_12 IN v_hdl_programa (INPUT 11,
                                                   INPUT '',
                                                   INPUT YES,
                                                   INPUT YES,
                                                   INPUT TABLE tt_integr_acr_repres_comis_2,
                                                   INPUT-OUTPUT TABLE tt_integr_acr_item_lote_impl_9,
                                                   INPUT TABLE tt_integr_acr_aprop_relacto_2,
                                                   INPUT-OUTPUT TABLE tt_params_generic_api,
                                                   INPUT TABLE tt_integr_acr_relacto_pend_aux).
    

    Muito grato e bom carnaval a todos
    André
    reissobr curtiu isso.
  2. bootstrapmaster

    bootstrapmaster Moderator Moderador Equipe de Suporte

    É a data de previsão de liquidação, ele tem que ser a mesma do vencimento. Hein, vc está conseguindo gerar Antecipações com essa rotina ?
  3. bootstrapmaster

    bootstrapmaster Moderator Moderador Equipe de Suporte

    Meu caro, nesse seu exemplo, vc está gerando uma ANTECIPAÇÃO, antecipação por padrão é um movimento a vista, então o vencimento é igual ao da transação mesmo, acabei de ver isso, estou gerando uma rotina para antecipação também.
    reissobr curtiu isso.
  4. andreluisbrandao

    andreluisbrandao Membro Participativo

    Vc é o cara.....coloquei como Normal e deu certo.. muito grato mais uma vez.
  5. Neivaldo

    Neivaldo Membro Participativo

    Olá, boa tarde!

    Estou tentando usar essa mesma API para criação de Antecipação e não cria o Título. Você pode me dar um help?
  6. Neivaldo

    Neivaldo Membro Participativo

    Richard, tudo bem!
    Meu nome é Cristina. Estou no login do meu Coordenador. Estou desenvolvendo uma rotina para criação de AC e não cria o título de jeito nenhum. A única diferença é que a Totvs me enviou a sintaxe abaixo. Não sei onde posso estar errando.
    RUN prgfin/acr/acr900zi.py persistent set v_hdl_programa.
    run pi_main_code_integr_acr_new_13 IN v_hdl_programa (input 11,
    input "", /** Matriz Trad Org Ext **/
    input yes, /** Log Atualiz Refer **/
    input no, /** Assume Data Emiss **/
    input TABLE tt_integr_acr_repres_comis_2,
    input-OUTPUT TABLE tt_integr_acr_item_lote_impl_9,
    input TABLE tt_integr_acr_aprop_relacto_2b,
    input-output TABLE tt_params_generic_api,
    input table tt_integr_acr_relacto_pend_aux).

Compartilhe esta Página