Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
Comentário: Migration of unmigrated content due to installation of a new plugin

...

run pi_main_code_api_integr_acr_renegoc_9 10  in v_hdl_aux

                                            (input table tt_integr_acr_renegoc_3,

                                             input table tt_integr_acr_item_renegoc_3,

                                             input  table tt_integr_acr_item_renegocreneg_new_3,

                                             input  table tt_integr_acr_fiador_renegoc_3,

                                             output table tt_log_erros_renegoc,

                                             input table tt_api_params_generic_api).     

for   for each tt_log_erros_renegoc:

...

Os paramentros de Entrada são os seguintes:

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

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

tt_integr_acr_item_renegocreneg_new_3: 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 parâmetros da tabela tt_integr_acr_renegoc;

tt_integr_acr_fiador_renegoc_renegoc     3: 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_api_params_generic_api..............: conterá campos novos das temp-tables passadas como parâmetro..

...

Tabela Temporária

Descrição

Entrada/Saída

tt_integr_acr_renegoc_3

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

Entrada

...

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_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_reccod_id_renegoc_acr

recid

acr 

character

x(80)

Identificador Renegociação>>>>>>9



tta_cod_cond_cobr

character

X(8)

Condição de Cobrança









def temp-table tt_integr_acr_renegoc_3 no-undo
        field tta_cod_estab                    as Character format "xestab                    as character format "x(5)" label "Estabelecimento" column-label "Estab"
        field tta_num_renegoc_cobr_acr         acr         as integer format ">>>>,>>9" initial 0 label "Num. Renegoc" column-label "Renegociação"
        field tta_cod_refer                    as refer                    as character format "x(10)" label "Referência" column-label "Referência"
        field tta_dat_transacao                as transacao                as date format "99/99/9999" initial today label "Data Transação" column-label "Dat Transac"
        field tta_cdn_cliente                  as cliente                  as Integer format ">>>,>>>,>>9" initial 0 label "Cliente" column-label "Cliente"
        field ttv_log_atualiza_renegoc         renegoc         as logical format "Sim/Não" initial no
        field tta_cod_indic_econ               as character econ               as character format "x(8)" label "Moeda" column-label "Moeda"
        field tta_cod_espec_docto              as docto              as character format "x(3)" label "Espécie Documento" column-label "Espécie"
        field tta_cod_ser_docto                as docto                as character format "x(35)" label "Série Documento" column-label "Série"
        field tta_cod_tit_acr                  as acr                  as character format "x(1016)" label "Título" column-label "Título"
        field tta_cod_portador                 portador                 as character format "x(5)" label "Portador" column-label "Portador"
        field tta_cod_cart_bcia                as bcia                as character format "x(3)" label "Carteira" column-label "Carteira"
        field tta_cdn_repres                   repres                   as Integer format ">>>,>>9" initial 0 label "Representante" column-label "Representante"
        field tta_qtd_parc_renegoc             renegoc             as decimal format ">9" initial 1 label "Qtd Parcelas" column-label "Qtd Parcelas"
        field tta_ind_vencto_renegoc           renegoc           as character format "X(10)" initial "Diária" label "Periodicidade Vencto" column-label "Vencimento"
        field tta_num_dias_vencto_renegoc      as renegoc      as integer format ">9" initial 0 label "Dias Vencimentto" column-label "Dias Vencimento"
        field tta_num_dia_mes_base_vencto      as vencto      as integer format ">9" initial 0 label "Dia Base Vencto" column-label "Dia Base Ven"
        field tta_dat_primei_vencto_renegoc    as renegoc    as date format "99/99/9999" initial ? label "Primeiro Vencto" column-label "Primeiro Vencto"
        field tta_log_juros_param_estab_reaj   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 renegoc  as character format "x(8)" label "Ind Reajuste" column-label "Índice Reaj"
        field tta_val_perc_reaj_renegoc        as renegoc        as decimal format ">>9.99" decimals 2 initial 0 label "Reajuste" column-label "Reaj"
        field tta_val_acresc_parc              as parc              as decimal format ">>9.99" decimals 2 initial 0 label "Acrescimo Parcela" column-label "Acrescimo Parcela"
        field tta_ind_tip_calc_juros           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 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 2          as logical format "Sim/Não" initial no label "Liq no Estab Título" column-label "Liq no Estab Título"
        field ttv_reccod_id_renegoc_acr              as recid format ">>>>>>9" initial ?    acr           as character format "x(80)"
    field tta_cod_cond_cobr                as 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 automaticaautomática, porem poderá ser atualizada através do programa prgfin/acr/acr748aa.r.
  9. ttv_cod_id_renegoc_acr: Campo de relacionamento entre as temp-tables. Sugestão: string(rowid(tt_integr_acr_renegoc_3)).


Tabela Temporária

Descrição

Entrada/Saída

tt_integr_acr_item_renegoc_3

Conterá as informações dos itens renegociados.

Entrada

...

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

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_reccod_id_renegoc_acr

recid

character

x(80)

Identificador Renegociação>>>>>>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_3 no-undo
        field tta_cod_estab                    as estab                    as character format "x(35)" label "Estabelecimento" column-label "Estab"
        field tta_num_renegoc_cobr_acr         acr         as integer format ">>>>,>>9" initial 0 label "Num. Renegoc" column-label "Renegociação"
        field tta_cod_estab_tit_acr            as            as character format "x(85)" label "Estab Título ACR" column-label "Estab Título ACR"
        field tta_num_id_tit_acr               acr               as integer format "9999999999999999999" initial 0 label "Token Cta Receber" column-label "Token Cta Receber"
        field tta_cod_livre_1                  as 1                  as character format "x(100)" label "Livre 1" column-label "Livre 1"
        field tta_cod_livre_2                  as 2                  as character format "x(100)" label "Livre 2" column-label "Livre 2"
        field tta_log_livre_1                  as 1                  as logical format "Sim/Não" initial no label "Livre 1" column-label "Livre 1"
        field tta_log_livre_2                  as 2                  as logical format "Sim/Não" initial no label "Livre 2" column-label "Livre 2"
        field tta_num_livre_1                  as 1                  as integer format ">>>>>9" initial 0 label "Livre 1" column-label "Livre 1"
        field tta_num_livre_2                  as 2                  as integer format ">>>>>9" initial 0 label "Livre 2" column-label "Livre 2"
        field tta_val_livre_1                  as 1                  as decimal format ">>>,>>>,>>9.9999" decimals 4 initial 0 label "Livre 1" column-label "Livre 1"
        field tta_val_livre_2                  as 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 1                  as date format "99/99/9999" initial ? label "Livre 1Início Período" column-label "Livre 1"
        field tta_dat_livre_2                  as 2                  as date format "99/99/9999" initial ? label "Livre 2Fim Período" column-label "Livre 2"
        field ttv_cod_recid_renegoc_acr              as recid format ">>>>>>9" initial ?    acr           as character format "x(80)"
    field tta_cod_motiv_movto_tit_acr      as acr      as character format "x(8)" label "Motivo Movimento" column-label "Motivo Movimento"
        field tta_des_text_histor              as histor              as character format "x(2000)" label "Histórico" column-label "Histórico"
        index tt_rec_index                             ttv_rec_renegoc_acr              ascendingindex                    
          ttv_cod_id_renegoc_acr           ascending
    .

Observações:

  1. ttv_cod_id_renegoc_acr: Campo utilizado no relacionamento entre as temp-table tt_integr_acr_renegoc_3 e tt_integr_acr_item_renegoc_3. Devem conter a mesma informação.

Tabela Temporária

Descrição

Entrada/Saída

tt_integr_acr_item_renegocreneg_new_3

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

Entrada

Atributo

Tipo

Formato

Descrição

Obrig.

Evol.

ttv_cod_recid_renegoc_acr

recid

character

x(80)

Identificador Renegociação>>>>>>9



tta_num_seq_refer

integer

>>>9

Sequencia

X


tta_cod_tit_acr

character

X(10)

Titulo

X


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_cod_recid_renegoc_acr_novo

recid

character

x(80)

Identificador Renegociação Novo>>>>>>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_renegocreneg_new_3 no-undo
        field ttv_reccod_id_renegoc_acr              as recid format ">>>>>>9" initial ?    acr           as character format "x(80)"
    field tta_num_seq_refer                as refer                as integer format ">>>9" initial 0 label "Sequência" column-label "Seq"
        field tta_cod_tit_acr                  as character acr                  as character format "x(1016)" label "Título" column-label "Título"
        field tta_cod_parcela                  as parcela                  as character format "x(02)" label "Parcela" column-label "ParcParcela"
        field tta_dat_vencto_tit_acr           acr           as date format "99/99/9999" initial ? label "Vencimento" column-label "Vencimento"
        field tta_dat_prev_liquidac            as liquidac            as date format "99/99/9999" initial ? label "Prev Liquidação" column-label "Prev Liquidação"
        field tta_dat_emis_docto               docto               as date format "99/99/9999" initial today label "Data  EmissãoData  Emissão" column-label "Dt Emissão"
        field tta_val_tit_acr                  as acr                  as decimal format ">>>,>>>,>>9.99" decimals 2 initial 0 label "Valor" column-label "Valor"
        field ttv_reccod_id_renegoc_acr_novo         as recid novo      as character format ">>>>>>9x(80)"
        field ttv_val_cr_pis                   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 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 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         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 impl        as logical format "Sim/Não" initial no label "Ret Imposto Impl" column-label "Ret Imposto Impl"
        field tta_log_val_fix_parc             parc             as logical format "Sim/Não" initial no label "Fixa Valor Parcela" column-label "Fixa Valor Parcela"
        field tta_cod_histor_padr              as padr              as character format "x(8)" label "Histórico Padrão" column-label "Histórico Padrão"
        field tta_des_text_histor              as histor              as character format "x(2000)" label "Histórico" column-label "Histórico"
        field tta_cod_proces_export            as export            as character format "x(12)" label "Processo Exportação" column-label "Processo Exportação"
    .   

...

Tabela Temporária

...

Descrição

...

Entrada/Saída

Observações:

  1. ttv_cod_id_renegoc_acr: Campo utilizado no relacionamento entre as temp-table tt_integr_acr_

...

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

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.

  1. renegoc_3 e tt_integr_acr_item_reneg_new_3. Devem conter a mesma informação.
  2. ttv_cod_id_renegoc_acr_novo: Campo utilizado no relacionamento da tt_integr_acr_item_reneg_new_3 com a tt_api_params_generic. 

Tabela Temporária

Descrição

Entrada/Saída

tt_integr_acr_fiador_renegoc_3

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_cod_id_renegoc_acr

character

x(80)

Identificador Renegociação

X


ttv_row_pessoa_fisic_jurid

rowid



X


def temp-table tt_integr_acr_fiador_renegoc_3 no-undo
    field tta_num_seq                      as integer format ">>>,>>9" initial 0 label "Sequência" column-label "Num Seq"
    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_cod_id_renegoc_acr           as character format "x(80)"
    field ttv_row_pessoa_fisic_jurid       as Rowid
    index tt_rec_renegoc_id               
          ttv_cod_id_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

    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

...

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

    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"

...

Tabela Temporária

Descrição

Entrada/Saída

tt_api_params_generic_api

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

Input / Output

Atributo

Tipo

Formato

Descrição

Obrig.

Evol.

ttv_cod_recrow_idid 

recid

>>>>>>9

character

x(80)




ttv_cod_tabela

character

X(28)

Tabela



ttv_cod_campo

character

X(25)

Campo



ttv_cod_valor

character

X(8)

Valor



Def def temp-table tt_api_params_generic _api no-undo
        field ttv_rec_id                       as recid format ">>>>>>9"    cod_row_id                   as character format "x(80)"
    field ttv_cod_tabela                   tabela                   as character format "x(28)" label "Tabela" column-label "Tabela"
        field ttv_cod_campo                    as campo                    as character format "x(2535)" label "Campo" column-label "Campo"
        field ttv_cod_valor                    as valor                    as character format "x(8)" label "Valor" column-label "Valor"
        index tt_idx_param_generic             generic             is primary unique
                    ttv_cod_tabela                   ascending

          ttv_rec_id                       ascending

          ttv_cod_campo                    ascendingtabela                   ascending
          ttv_cod_row_id                   ascending
          ttv_cod_campo                    ascending
    .


REINF:

Processo Jurídico (REINF):

...

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.

duplicatas substituídas. Para isso, é necessário criar a temp-table tt_api_params_generic que possuirão essas informações.


Obs: salvar o campo ttv_cod_id_renegoc_acr_novo da temp-table tt_integr_acr_item_reneg_new_3 com a string do rowid da própria temp-table para que seja possível utilizar na tt_api_params_generic.

 tt_integr_acr_item_reneg_new_3.ttv_cod_id_renegoc_acr_novo = string(rowid(tt_integr_acr_item_reneg_new_3)).


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


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

create tt_api_params_generic.

assign tt_api_params_generic.ttv_cod_row_id      = tt tt_integr_acr_item_renegocreneg_new_3.ttv_reccod_id_renegoc_acr_novo

       tt_api_params_generic.ttv_cod_campo  = 'val_cr_inss':U

       tt_api_params_generic.ttv_cod_tabela = ' = recid(tt_integr_acr_item_renegoc_new)._reneg_new_3':U

       tt_apiObservaçã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.ttv_cod_valor  = string(885.78).


Exemplo Criação temp-table table tt_api_params_generic_api para campo Valor Base de Crédito Cálculo INSS:

create tt_api_params_generic_api.
assign tt_api_params_generic_api.ttv_reccod_row_id     id  = tt_integr_acr_item_renegocreneg_new_3.ttv_reccod_id_renegoc_acr_novo

                   tt_api_params_generic_api.ttv_cod_campo  campo = 'val_base_crcalc_inss':U

       tt            tt_api_params_generic_api.ttv_cod_tabela = 'tt_integr_acr_item_renegocreneg_new_3':U

       tt            tt_api_params_generic_api.ttv_cod_valor  valor = string(8856500.7812).


Exemplo Criação temp-table tt tt_api_params_generic_api para campo Base de Cálculo INSSValor Não Retido:

create tt_api_params_generic_api.
assign tt_api_params_generic_api.ttv_reccod_row_id id  = tt_integr_acr_item_renegocreneg_new_3.ttv_cod_recid_renegoc_acr_novo

            tt_api_params_generic_api.ttv_cod_campo = 'val_base_calcnao_inssretid':U

            tt_api_params_generic_api.ttv_cod_tabela = 'tt_integr_acr_item_renegocreneg_new_3':U

            tt_api_params_generic_api.ttv_cod_valor = string(650055.12).

Obs. Campo utilizado para o REINF.


Cliente Destino Renegociação

O atributo cdn_clien_dest da Exemplo Criação temp-table  tttt_api_params_generic _api para campo Valor Não Retidofoi 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_api_params_generic deverá informar os campos conforme exemplo abaixo:

create tt_api_params_generic_api.
assign tt_api_params_generic_api.ttv_reccod_row_id id  = tt_integr_acr_item_renegocreneg_new_3.ttv_reccod_id_renegoc_acr_novo

            tt_api_params_generic_api.ttv_cod_campo = 'valcdn_naoclien_retiddest':U

            tt_api_params_generic_api.ttv_cod_tabela = 'tt_integr_acr_item_renegocreneg_new_3':U

            tt_api_params_generic_api.ttv_cod_valor = string(5510).12).

Obs. Campo utilizado para o REINFE no campo tt_api_params_generic.ttv_cod_valor inserir o número de cliente Financeiro que será utilizado na implantação dos novos títulos.