Documentação API acr711zf

Discussão em 'Progress 4GL' iniciado por fernandofarah, Março 19, 2015.

  1. fernandofarah

    fernandofarah Membro Participativo

    Olá pessoal..

    Alguém poderia me dar um help..

    Seguinte, preciso liquidar o título rateado em várias unidades de negocio diferente e fica dando erro gerado pela API que não consegue baixar o título, estou criando a tabela de rateio e mesmo assim não faz a liquidação, alguém sabe o porque? Abaixo exemplo da criação Temp Table e da chamada da API.

    Código:
                        create tt_alter_tit_acr_rateio.
                        assign tt_alter_tit_acr_rateio.tta_cod_estab                        = tit_acr.cod_estab
                               tt_alter_tit_acr_rateio.tta_num_id_tit_acr                   = tit_acr.num_id_tit_acr
                               tt_alter_tit_acr_rateio.tta_cod_refer                        = v_cod_refer
                               tt_alter_tit_acr_rateio.tta_num_seq_refer                    = 0
                               tt_alter_tit_acr_rateio.tta_cod_plano_cta_ctbl               = /*"padrao"*/ da-cod_plano_cta_ctbl
                               tt_alter_tit_acr_rateio.tta_cod_cta_ctbl                     = /*c_cod_cta_ctbl[i-tipo]*/ da-cod_cta_ctbl
                               /*tt_alter_tit_acr_rateio.tta_cod_unid_negoc                   = IF AVAIL val_tit_acr THEN val_tit_acr.cod_unid_negoc ELSE ""*/
                               tt_alter_tit_acr_rateio.tta_cod_unid_negoc                   = val_tit_acr.cod_unid_negoc
                               /*tt_alter_tit_acr_rateio.tta_cod_plano_ccusto                 = IF c_cod_ccusto[i-tipo] = "" THEN "" ELSE "C.CUSTOS" */
                               tt_alter_tit_acr_rateio.tta_cod_plano_ccusto                 = da-cod_plano_ccusto
                               tt_alter_tit_acr_rateio.tta_cod_ccusto                       = da-cod_ccusto /*c_cod_ccusto[i-tipo]*/
                               tt_alter_tit_acr_rateio.tta_val_aprop_ctbl                   = val_tit_acr.val_sdo_tit_acr
                               /*tt_alter_tit_acr_rateio.tta_val_aprop_ctbl                   = IF AVAIL val_tit_acr THEN val_tit_acr.val_sdo_tit_acr ELSE de-ajuste /*de-ajuste*/*/
                               tt_alter_tit_acr_rateio.tta_dat_transacao                    = da-dat_transacao /*07/31/2005*/ /*TODAY*/ /*06/30/2006*/
                               tt_alter_tit_acr_rateio.ttv_ind_tip_rat_tit_acr              = "Alteracao"
                               tt_alter_tit_acr_rateio.tta_cod_tip_fluxo_financ             = da-cod_tip_fluxo_financ /*"2.1.1"*/
                               tt_alter_tit_acr_rateio.tta_val_aprop_ctbl                   = val_tit_acr.val_sdo_tit_acr.
    
                           run prgfin\acr\acr711zf.py(input 1,
                                                      input table  tt_alter_tit_acr_base,
                                                      input table  tt_alter_tit_acr_rateio,
                                                      input table  tt_alter_tit_acr_ped_vda,
                                                      input table  tt_alter_tit_acr_comis,
                                                      input table  tt_alter_tit_acr_cheq,
                                                      input table  tt_alter_tit_acr_iva,
                                                      input table  tt_alter_tit_acr_impto_retid,
                                                      input table  tt_alter_tit_acr_cobr_especial,
                                                      input table  tt_alter_tit_acr_rat_desp_rec,
                                                      output table tt_log_erros_alter_tit_acr).
    
    Atenciosamente,
    Fernando Farah.
    Desenvolvedor Progress/Java/Delphi

Compartilhe esta Página