Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

Documento de API

Produto:

Datasul

Ocorrência:

Documentação de API

Nome Físicoprgfin/acr/acr902zc

 


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_8 9 in v_hdl_aux

                                            (input table tt_integr_acr_renegoc,

...

                                             output table tt_log_erros_renegoc,

                                             input table tt_params_generic_api).      


for each tt_log_erros_renegoc:

...

            “       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_log_erros_renegoc.................: retorna os dados com erros encontrados nas validações durante o processo de renegociação.

 

Tabelas Temporárias

 

;

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


Tabelas Temporárias


Tabela Temporária

Descrição

Entrada/Saída

tt_integr_acr_renegoc

Tabela Temporária

Descrição

Entrada/Saída

tt_integr_acr_renegoc

Conterá as informações das renegociações.

Entrada

 


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

Atributo

Tipo

Formato

Descrição

Obrig.

Evol.

tta_cod_estab

character

x(3) / x(5)*

Estabelecimento

X

 


tta_num_renegoc_cobr_acr

integer

>>>>,>>9

Num. Renegoc

 

 



tta_cod_refer

character

X(10)

Referencia

X

 


tta_dat_transacao

date

99/99/9999

Data Transação

X

 


tta_cdn_cliente

Integer

>>>,>>>,>>9

Cliente

X

 


ttv_log_atualiza_renegoc

logical

Sim/Não

 


x

 


tta_cod_indic_econ

character

x(8)

Moeda

X

 


tta_cod_espec_docto

character

x(3)

Espécie Documento

X

 


tta_cod_ser_docto

character

x(3)

Série Documento

X

 


tta_cod_tit_acr

character

x(10)

Título

X

 


tta_cod_portador

character

x(5)

Portador

X

 tta


tta_cod_cart_bcia

character

x(3)

Carteira

X

 


tta_cdn_repres

Integer

>>>,>>9

Representante

X

 


tta_qtd_parc_renegoc

decimal

>9

Qtd Parcelas

X

 


tta_ind_vencto_renegoc

character

X(10)

Periodicidade Vencto

X

 


tta_num_dias_vencto_renegoc

integer

>9

Dias Vencimento

 

 



tta_num_dias_mes_base_vencto

integer

>9

Dias Base Vencto

 

 



tta_dat_primei_vencto_renegoc

date

99/99/9999

Primeiro Vencto

X

 


tta_log_juros_param_estab_reaj

logical

Sim/Não

Consid Juros Padrão

 

 



tta_cod_indic_econ_reaj_renegoc

character

X(8)

Indicador Reajuste

 

 



tta_val_perc_reaj_renegoc

decimal

>>9.99

% Reajuste

 

 



tta_val_acresc_parc

decimal

>>9.99

Acréscimo

 

 



tta_ind_tip_calc_juros

character

X(10)

Tipo Calculo Juros

X

 


tta_log_soma_movto_cobr

logical

Sim/não

Soma Movto Cobrança

 

 



ttv_log_bxo_estab_tit_2

logical

Sim/não

Liq no Estab Título

 

 



ttv_rec_renegoc_acr

recid

>>>>>>9

 

 

 




tta_cod_cond_cobr

character

X(8)

Condição de Cobrança

 

 

 

 

 

 

 

 

 










def temp-table tt_integr_acr_renegoc no-undo

...

    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.

 


Tabela Temporária

Descrição

Entrada/Saída

tt_integr_acr_item_renegoc

Conterá as informações dos itens renegociados.

Entrada

...


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

Atributo

Tipo

Formato

Descrição

Obrig.

Evol.

tta_cod_estab

character

x(3) / x(5)*

Estabelecimento

X

 

tta


tta_num_renegoc_cobr_acr

integer

>>>>,>>9

Num. Renegoc

X

 


tta_cod_estab_tit_acr

character

x(8)

Estab Título ACR

X

 


tta_num_id_tit_acr

integer

9999999999

Token Cta Receber

x

 


tta_cod_livre_1

character

x(100)

Livre 1

 

 



tta_cod_livre_2

character

x(100)

Livre 2

 

 



tta_log_livre_1

logical

Sim/Não

Livre 1

 

 



tta_log_livre_2

logical

Sim/Não

Livre 2

 

 



tta_num_livre_1

integer

>>>>>9

Livre 1

 

 



tta_num_livre_2

integer

>>>>>9

Livre 2

 

 



tta_val_livre_1

decimal

>>>,>>>,>>9.9999

Livre 1

 

 



tta_val_livre_2

decimal

>>>,>>>,>>9.9999

Livre 2

 

 



tta_dat_livre_1

date

99/99/9999

Livre 1

 

 



tta_dat_livre_2

date

99/99/9999

Livre 2

 

 



ttv_rec_renegoc_acr

recid

>>>>>>9

 


X

 


tta_cod_motiv_movto_tit_acr

character

X(8)

Motivo movimento

 

 



tta_des_text_histor

character

X(2000)

Historico

 

 

...




def temp-table tt_integr_acr_item_renegoc no-undo

...

          ttv_rec_renegoc_acr              ascending.

 


Tabela Temporária

Descrição

Entrada/Saída

tt_integr_acr_item_renegoc_new

Conterá as informações dos itens gerados na renegociação.

Entrada

Atributo

Tipo

Formato

Descrição

Obrig.

Evol.

ttv_rec_renegoc_acr

recid

>>>>>>9

 

 

 




tta_num_seq_refer

integer

>>>9

Sequencia

X

 


tta_cod_tit_acr

character

X(10)

Titulo

X

 tta


tta_cod_parcela

character

X(2)

Parcela

X

 


tta_dat_vencto_tit_acr

date

99/99/9999

Vencimento

X

 


tta_dat_prev_liquidac

date

99/99/9999

Prev liquidação

X

 


tta_dat_emis_docto

date

99/99/9999

Data Emissão

X

 


tta_val_tit_acr

decimal

>>>,>>>,>>9.99

Valor

X

 


ttv_rec_renegoc_acr_novo

recid

>>>>>>9

 


X

 


ttv_val_cr_pis

decimal

>>>,>>>,>>9.99

Valor Credito PIS

 

 



ttv_val_cr_cofins

decimal

>>>,>>>,>>9.99

Valor Credito Cofins

 

 



ttv_val_cr_csll

decimal

>>>,>>>,>>9.99

Valor Credito CSLL

 

 



ttv_val_base_calc_impto

decimal

>>>,>>>,>>9.99

Base Calculo Impto

 

 



tta_log_retenc_impto_impl

logical

Yes/no

Ret Imposto Impl

 

 



tta_log_val_fix_parc

logical

Yes/no

Fixa Valor Parcela

 

 



tta_cod_histor_padr

character

X(8)

Histórico Padrão

 

 



tta_des_text_histor

character

X(2000)

Historico

 

 



tta_cod_proces_export

character

x(12)

Processo Exportação

 

 

 




def temp-table tt_integr_acr_item_renegoc_new no-undo

...

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

 

 



Tabela Temporária

Descrição

Entrada/Saída

tt_integr_acr_fiador_renegoc

Conterá informações dos fiadores.

Entrada

...


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

Atributo

Tipo

Formato

Descrição

Obrig.

Evol.

tta_num_seq

integer

>>>,>>9

Sequência

 

 



tta_ind_testem_fiador

character

X(08)

Testem/Fiador

X

 


tta_ind_tip_pessoa

character

X(08)

Tipo Pessoa

X

 


tta_num_pessoa

integer

>>>,>>>,>>9

Pessoa

X

 


ttv_rec_renegoc_acr

recid

>>>>>>9

 


X

 


ttv_rec_pessoa_fisic_jurid

recid

>>>>>>9

 


X

 

 



def def temp-table tt_integr_acr_fiador_renegoc no-undo

...

          ttv_rec_renegoc_acr              ascending. 


Tabela Temporária

Descrição

Entrada/Saída

tt_log_erros_renegoc

Conterá informações dos erros encontrados nas validações.

Entrada

 


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

Atributo

Tipo

Formato

Descrição

Obrig.

Evol.

tta_cod_estab

character

x(3) / x(5)*

Estabelecimento

 

 



tta_num_renegoc_cobr_acr

integer

>>>>,>>9

Num. Renegoc

 

 



tta_num_seq_item_renegoc_acr

integer

>>>>,>>9

Sequência Item

 

 



tta_cdn_cliente

Integer

>>>,>>>,>>9

Cliente

 

 



tta_cod_espec_docto

character

x(3)

Espécie Documento

 

 



tta_cod_ser_docto

character

x(3)

Série Documento

 

 



tta_cod_tit_acr

character

x(10)

Título

 

 



tta_cod_parcela

character

x(02)

Parcela

 

 



tta_cod_fiador

character

x(8)

Fiador

 

 



tta_num_pessoa

integer

>>>,>>>,>>9

Pessoa

 

 



tta_num_mensagem

integer

>>,>>>,>>9

Mensagem

 

 



ttv_des_msg

character

x(40)

 

 

 




Ttv_des_help

character

X(40)

 

 

 

 





def temp-table tt_log_erros_renegoc no-undo

...

          tta_num_mensagem                 ascending.


Tabela Temporária

Descrição

Entrada/Saída

tt_params_generic_api

Conterá campos novos das temp-tables passadas como parâmetro.

Input / Output

Atributo

Tipo

Formato

Descrição

Obrig.

Evol.

ttv_rec_id

recid

>>>>>>9




ttv_cod_tabela

character

X(28)

Tabela



ttv_cod_campo

character

X(25)

Campo



ttv_cod_valor

character

X(8)

Valor




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:

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).


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  = '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 = '6500'.


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 = '5500'.

Obs. Campo utilizado para o REINF.