Documento de API

Objetivo

Efetuar renegociação de títulos por substituição

Funcionamento

Executar o programa API(utilizar o nome externo), da seguinte forma:

def var v_hdl_aux as Handle no-undo.

run prgfin/acr/acr902zc.py persistent set v_hdl_aux.

run pi_main_code_api_integr_acr_renegoc_9 in v_hdl_aux

                                            (input table tt_integr_acr_renegoc,

                                             input table tt_integr_acr_item_renegoc,

                                             input  table tt_integr_acr_item_renegoc_new,

                                             input  table tt_integr_acr_fiador_renegoc,

                                             output table tt_log_erros_renegoc,

                                             input table tt_params_generic_api).     

for each tt_log_erros_renegoc:

    MESSAGE “Num Mensagem:” tt_log_erros_renegoc.tta_num_mensagem skip

            “    Mensahem:” tt_log_erros_renegoc.ttv_des_msg      skip

            “       Ajuda:” tt_log_erros_renegoc.ttv_des_help VIEW-AS ALERT-BOX.

end.

delete procedure v_hdl_aux.

Parâmetro Entrada API Renegociação por Substituição:

Os paramentros de Entrada são os seguintes:

tt_integr_acr_renegoc............   : conterá os dados das renegociações à serem importados;

tt_integr_acr_item_renengoc     : conterá os dados dos itens de renegociação à serem importados;

tt_integr_acr_item_renegoc_new: conterá os dados dos novos títulos gerados, esta tabela pode ser informada ou não, caso não seja informada será considerado os parametros da tabela tt_integr_acr_renegoc;

tt_integr_acr_fiador_renegoc     : conterá os dados dos fiadores à serem importados;

tt_log_erros_renegoc.................: retorna os dados com erros encontrados nas validações durante o processo de renegociação;

tt_params_generic_api..............: conterá campos novos das temp-tables passadas como parâmetro..

Tabelas Temporárias

(*) A partir da 5.07A o estabelecimento passa a ter cinco dígitos.

def temp-table tt_integr_acr_renegoc no-undo

    field tta_cod_estab                    as Character format "x(5)" label "Estabelecimento" column-label "Estab"

    field tta_num_renegoc_cobr_acr         as integer format ">>>>,>>9" initial 0 label "Num. Renegoc" column-label "Renegociação"

    field tta_cod_refer                    as character format "x(10)" label "Referência" column-label "Referência"

    field tta_dat_transacao                as date format "99/99/9999" initial today label "Data Transação" column-label "Dat Transac"

    field tta_cdn_cliente                  as Integer format ">>>,>>>,>>9" initial 0 label "Cliente" column-label "Cliente"

    field ttv_log_atualiza_renegoc         as logical format "Sim/Não" initial no

    field tta_cod_indic_econ               as character format "x(8)" label "Moeda" column-label "Moeda"

    field tta_cod_espec_docto              as character format "x(3)" label "Espécie Documento" column-label "Espécie"

    field tta_cod_ser_docto                as character format "x(3)" label "Série Documento" column-label "Série"

    field tta_cod_tit_acr                  as character format "x(10)" label "Título" column-label "Título"

    field tta_cod_portador                 as character format "x(5)" label "Portador" column-label "Portador"

    field tta_cod_cart_bcia                as character format "x(3)" label "Carteira" column-label "Carteira"

    field tta_cdn_repres                   as Integer format ">>>,>>9" initial 0 label "Representante" column-label "Representante"

    field tta_qtd_parc_renegoc             as decimal format ">9" initial 1 label "Qtd Parcelas" column-label "Qtd Parcelas"

    field tta_ind_vencto_renegoc           as character format "X(10)" initial "Diária" label "Periodicidade Vencto" column-label "Vencimento"

    field tta_num_dias_vencto_renegoc      as integer format ">9" initial 0 label "Dias Vencimentto" column-label "Dias Vencimento"

    field tta_num_dia_mes_base_vencto      as integer format ">9" initial 0 label "Dia Base Vencto" column-label "Dia Base Ven"

    field tta_dat_primei_vencto_renegoc    as date format "99/99/9999" initial ? label "Primeiro Vencto" column-label "Primeiro Vencto"

    field tta_log_juros_param_estab_reaj   as logical format "Sim/Não" initial yes label "Consid Juros Padrão" column-label "Juros Pad"

    field tta_cod_indic_econ_reaj_renegoc  as character format "x(8)" label "Ind Reajuste" column-label "Índice Reaj"

    field tta_val_perc_reaj_renegoc        as decimal format ">>9.99" decimals 2 initial 0 label "Reajuste" column-label "Reaj"

    field tta_val_acresc_parc              as decimal format ">>9.99" decimals 2 initial 0 label "Acrescimo Parcela" column-label "Acrescimo Parcela"

    field tta_ind_tip_calc_juros           as character format "x(10)" initial "Simples" label "Tipo Cálculo Juros" column-label "Tipo Cálculo Juros"

    field tta_log_soma_movto_cobr          as logical format "Sim/Não" initial no label "Soma Movtos Cobr" column-label "Soma Movtos Cobr"

    field ttv_log_bxo_estab_tit_2          as logical format "Sim/Não" initial no label "Liq no Estab Título" column-label "Liq no Estab Título"

    field ttv_rec_renegoc_acr              as recid format ">>>>>>9" initial ?

    field tta_cod_cond_cobr                as character format "x(8)" label "Condição Cobrança" column-label "Cond Cobrança".

Observações:

1. tta_num_renegoc_cobr_acr: Se deixar zero cria o número da renegociação considerando a última gerada mais um.
2. tta_ind_vencto_renegoc: Este campo define a periodicidade dos novos vencimentos “diária, mensal, semanal, quinzenal ou nr dias.
3. tta_num_dias_vencto_renegoc: Esta campo se torna obrigatória quando  o campo tta_ind_vencto_renegoc é igual a "nr dias"
4. tta_num_dia_mes_base_vencto: Este campo é apenas documentacional
5. tta_dat_primei_vencto_renegoc: Se a data do 1 vencto for menor que a de transação a data de emissão será igual a do 1 vencto, caso seja maior que a de transação a data de emissão será igual a data de transação.
6. tta_log_juros_param_estab_reaj: Quando o campo receber no determina que o percentual de juros será o da tta_val_perc_reaj_renegoc  caso seja Yes será utilizado o do programa prgfin/acr/acr009aa.r.
7. tta_cod_indic_econ_reaj_renegoc: Este campo é apenas documentacional.
8. ttv_log_atualiza_renegoc: Se seu valor for não a renegociação não será atualizada de forma automatica, porem poderá ser atualizada através do programa prgfin/acr/acr748aa.r.

(*) A partir da 5.07A o estabelecimento passa a ter cinco dígitos.

def temp-table tt_integr_acr_item_renegoc no-undo

    field tta_cod_estab                    as character format "x(3)" label "Estabelecimento" column-label "Estab"

    field tta_num_renegoc_cobr_acr         as integer format ">>>>,>>9" initial 0 label "Num. Renegoc" column-label "Renegociação"

    field tta_cod_estab_tit_acr            as character format "x(8)" label "Estab Título ACR" column-label "Estab Título ACR"

    field tta_num_id_tit_acr               as integer format "9999999999" initial 0 label "Token Cta Receber" column-label "Token Cta Receber"

    field tta_cod_livre_1                  as character format "x(100)" label "Livre 1" column-label "Livre 1"

    field tta_cod_livre_2                  as character format "x(100)" label "Livre 2" column-label "Livre 2"

    field tta_log_livre_1                  as logical format "Sim/Não" initial no label "Livre 1" column-label "Livre 1"

    field tta_log_livre_2                  as logical format "Sim/Não" initial no label "Livre 2" column-label "Livre 2"

    field tta_num_livre_1                  as integer format ">>>>>9" initial 0 label "Livre 1" column-label "Livre 1"

    field tta_num_livre_2                  as integer format ">>>>>9" initial 0 label "Livre 2" column-label "Livre 2"

    field tta_val_livre_1                  as decimal format ">>>,>>>,>>9.9999" decimals 4 initial 0 label "Livre 1" column-label "Livre 1"

    field tta_val_livre_2                  as decimal format ">>>,>>>,>>9.9999" decimals 4 initial 0 label "Livre 2" column-label "Livre 2"

    field tta_dat_livre_1                  as date format "99/99/9999" initial ? label "Livre 1" column-label "Livre 1"

    field tta_dat_livre_2                  as date format "99/99/9999" initial ? label "Livre 2" column-label "Livre 2"

    field ttv_rec_renegoc_acr              as recid format ">>>>>>9" initial ?

    field tta_cod_motiv_movto_tit_acr      as character format "x(8)" label "Motivo Movimento" column-label "Motivo Movimento"

    field tta_des_text_histor              as character format "x(2000)" label "Histórico" column-label "Histórico"

    index tt_rec_index                   

          ttv_rec_renegoc_acr              ascending.

def temp-table tt_integr_acr_item_renegoc_new no-undo

    field ttv_rec_renegoc_acr              as recid format ">>>>>>9" initial ?

    field tta_num_seq_refer                as integer format ">>>9" initial 0 label "Sequência" column-label "Seq"

    field tta_cod_tit_acr                  as character format "x(10)" label "Título" column-label "Título"

    field tta_cod_parcela                  as character format "x(02)" label "Parcela" column-label "Parc"

    field tta_dat_vencto_tit_acr           as date format "99/99/9999" initial ? label "Vencimento" column-label "Vencimento"

    field tta_dat_prev_liquidac            as date format "99/99/9999" initial ? label "Prev Liquidação" column-label "Prev Liquidação"

    field tta_dat_emis_docto               as date format "99/99/9999" initial today label "Data  Emissão" column-label "Dt Emissão"

    field tta_val_tit_acr                  as decimal format ">>>,>>>,>>9.99" decimals 2 initial 0 label "Valor" column-label "Valor"

    field ttv_rec_renegoc_acr_novo         as recid format ">>>>>>9"

    field ttv_val_cr_pis                   as decimal format ">>>,>>>,>>9.99" decimals 2 initial 0 label "Valor Crédito PIS" column-label "Vl Cred PIS/PASEP"

    field ttv_val_cr_cofins                as decimal format ">>>,>>>,>>9.99" decimals 2 initial 0 label "Valor Crédito COFINS" column-label "Credito COFINS"

    field ttv_val_cr_csll                  as decimal format ">>>,>>>,>>9.99" decimals 2 initial 0 label "Valor Crédito CSLL" column-label "Credito CSLL"

    field tta_val_base_calc_impto          as decimal format ">>>,>>>,>>9.99" decimals 2 initial 0 label "Base Calculo Impto" column-label "Base Calculo Impto"

    field tta_log_retenc_impto_impl        as logical format "Sim/Não" initial no label "Ret Imposto Impl" column-label "Ret Imposto Impl"

    field tta_log_val_fix_parc             as logical format "Sim/Não" initial no label "Fixa Valor Parcela" column-label "Fixa Valor Parcela"

    field tta_cod_histor_padr              as character format "x(8)" label "Histórico Padrão" column-label "Histórico Padrão"

    field tta_des_text_histor              as character format "x(2000)" label "Histórico" column-label "Histórico"

    field tta_cod_proces_export            as character format "x(12)" label "Processo Exportação" column-label "Processo Exportação".   

(*) A partir da 5.07A o estabelecimento passa a ter cinco dígitos.

def temp-table tt_integr_acr_fiador_renegoc no-undo

    field tta_num_seq                      as integer format ">>>,>>9" initial 0 label "Sequência" column-label "NumSeq"

    field tta_ind_testem_fiador            as character format "X(08)" label "Testem/Fiador" column-label "Testem/Fiador"

    field tta_ind_tip_pessoa               as character format "X(08)" label "Tipo Pessoa" column-label "Tipo Pessoa"

    field tta_num_pessoa                   as integer format ">>>,>>>,>>9" initial ? label "Pessoa" column-label "Pessoa"

    field ttv_rec_renegoc_acr              as recid format ">>>>>>9" initial ?

    field ttv_rec_pessoa_fisic_jurid       as recid format ">>>>>>9"

    index tt_rec_renegoc_id              

          ttv_rec_renegoc_acr              ascending.

(*) A partir da 5.07A o estabelecimento passa a ter cinco dígitos.

def temp-table tt_log_erros_renegoc no-undo

    field tta_cod_estab                    as character format "x(3)" label "Estabelecimento" column-label "Estab"

    field tta_num_renegoc_cobr_acr         as integer format ">>>>,>>9" initial 0 label "Num. Renegoc" column-label "Renegociação"

    field tta_num_seq_item_renegoc_acr     as integer format ">>>>,>>9" initial 0 label "Sequência Item" column-label "Sequência Item"

    field tta_cdn_cliente                  as Integer format ">>>,>>>,>>9" initial 0 label "Cliente" column-label "Cliente"

    field tta_cod_espec_docto              as character format "x(3)" label "Espécie Documento" column-label "Espécie"

    field tta_cod_ser_docto                as character format "x(3)" label "Série Documento" column-label "Série"

    field tta_cod_tit_acr                  as character format "x(10)" label "Título" column-label "Título"

    field tta_cod_parcela                  as character format "x(02)" label "Parcela" column-label "Parc"

    field tta_cod_fiador                   as character format "x(8)" label "Fiador" column-label "Fiador"

    field tta_num_pessoa                   as integer format ">>>,>>>,>>9" initial ? label "Pessoa" column-label "Pessoa"

    field tta_num_mensagem                 as integer format ">>,>>>,>>9" initial 0 label "Mensagem" column-label "Mensagem"

    field ttv_des_msg                      as character format "x(40)"

    field ttv_des_help                     as character format "x(40)" label "Ajuda" column-label "Ajuda"

    index tt_num_mensagem                  is primary

          tta_num_mensagem                 ascending.

Def temp-table tt_params_generic_api no-undo

    field ttv_rec_id                       as recid format ">>>>>>9"

    field ttv_cod_tabela                   as character format "x(28)" label "Tabela" column-label "Tabela"

    field ttv_cod_campo                    as character format "x(25)" label "Campo" column-label "Campo"

    field ttv_cod_valor                    as character format "x(8)" label "Valor" column-label "Valor"

    index tt_idx_param_generic             is primary unique

          ttv_cod_tabela                   ascending

          ttv_rec_id                       ascending

          ttv_cod_campo                    ascending.

REINF:

Processo Jurídico (REINF):

Para os títulos que possuem INSS estão marcados como Mão-de-Obra ou Empreitada é possível informar o valor de imposto não retido em virtude desse processo.

Informações necessárias:

- Valor não retido (val_nao_retid): Este campo é opcional. Quando ele não for informado as novas duplicatas geradas assumem as informações das duplicatas substituídas.

Valor Crédito INSS, Valor Base Cálculo INSS, Valor Não Retido:

São informações gravadas na tabela de extensão do título do contas a receber (ext_tit_acr) no momento que são implantados os títulos e/ou alterados. Na rotina de renegociação, as novas duplicatas geradas assumem as informações das duplicatas substituídas. Porém, o usuário pode informar manualmente na renegociação o Valor de Crédito INSS, Valor Base de Cálculo INSS e Valor Não Retido que deseja, não assumindo então os valores das duplicatas substituídas. Para isso, é necessário criar a temp-table tt_params_generic_api que possuirão essas informações.

Obs: salvar o campo ttv_rec_renegoc_acr_novo da temp-table tt_integr_acr_item_renegoc_new com o recid da própria temp-table para que seja possível utilizar na tt_params_generic_api.

 tt_integr_acr_item_renegoc_new.ttv_rec_renegoc_acr_novo = recid(tt_integr_acr_item_renegoc_new).

Observação: Para todos campos valores da tabela temporária "tt_params_generic_api" ao informar valores com decimais a quebra deverá ser feita utilizando string(9.99).

Exemplo Criação temp-table tt_params_generic_api para campo Valor de Crédito INSS:

create tt_params_generic_api.

assign tt_params_generic_api.ttv_rec_id     = tt_integr_acr_item_renegoc_new.ttv_rec_renegoc_acr_novo

       tt_params_generic_api.ttv_cod_campo  = 'val_cr_inss':U

       tt_params_generic_api.ttv_cod_tabela = 'tt_integr_acr_item_renegoc_new':U

       tt_params_generic_api.ttv_cod_valor  = string(885.78).

Exemplo Criação temp-table tt_params_generic_api para campo Base de Cálculo INSS:

create tt_params_generic_api.
assign tt_params_generic_api.ttv_rec_id = tt_integr_acr_item_renegoc_new.ttv_rec_renegoc_acr_novo

            tt_params_generic_api.ttv_cod_campo = 'val_base_calc_inss':U

            tt_params_generic_api.ttv_cod_tabela = 'tt_integr_acr_item_renegoc_new':U

            tt_params_generic_api.ttv_cod_valor = string(6500.12).

Exemplo Criação temp-table tt_params_generic_api para campo Valor Não Retido:

create tt_params_generic_api.
assign tt_params_generic_api.ttv_rec_id = tt_integr_acr_item_renegoc_new.ttv_rec_renegoc_acr_novo

            tt_params_generic_api.ttv_cod_campo = 'val_nao_retid':U

            tt_params_generic_api.ttv_cod_tabela = 'tt_integr_acr_item_renegoc_new':U

            tt_params_generic_api.ttv_cod_valor = string(55.12).

Obs. Campo utilizado para o REINF.

Cliente Destino Renegociação

O atributo cdn_clien_dest da temp-table tt_params_generic_api foi criado para informar o cliente destino dos novos títulos que serão gerados na renegociação. Neste caso ao criar este registro na tt_params_generic_api deverá informar os campos conforme exemplo abaixo:

create tt_params_generic_api.
assign tt_params_generic_api.ttv_rec_id = tt_integr_acr_item_renegoc_new.ttv_rec_renegoc_acr_novo

            tt_params_generic_api.ttv_cod_campo = 'cdn_clien_dest':U

            tt_params_generic_api.ttv_cod_tabela = 'tt_integr_acr_item_renegoc_new':U

            tt_params_generic_api.ttv_cod_valor = string(10).).

E no campo tt_params_generic_api.ttv_cod_valor inserir o número de cliente Financeiro que será utilizado na implantação dos novos títulos.