Histórico da Página

...

Parâmetro	Descrição
p_num_vers_integr_api	Será utilizado para determinar se o programa que está chamando está íntegro com as definições correntes da API.
p_cod_modulo	Conterá o módulo, será utilizado para verificar se o módulo é “APB”.
p_cod_matriz_trad_org_ext	Conterá o código da matriz de tradução da organização externa que tem por finalidade relacionar os códigos externos aos códigos presentes no Datasul-EMS5, caso a matriz de tradução não tiver sido informada, o parâmetro estará em branco.
p_log_estorn_comis
tt_tit_ap_alteracao_base_aux_34	Conterá os dados dos títulos para alteração.
tt_tit_ap_alteracao_rateio_new	Conterá os dados dos rateios para alteração.
tt_api_params_generic_api	Conterá campos novos das temp-tables passadas como parâmetro.
tt_log_erros_tit_ap_alteracao	Conterá os dados dos erros apresentados na alteração

...

run pi_main_code_api_integr_ap_alter_tit_ap_6 in 7 in v_hdl_aux (Input 1,

Input p_cod_modulo,

...

input-output table tt_tit_ap_alteracao_base_aux_34,

input-output table tt_tit_ap_alteracao_rateio_new,

input-output table tt_api_params_generic_api,

output table tt_log_erros_tit_ap_alteracao).

...

Tabela Temporária	Descrição	Entrada/Saída
tt_tit_ap_alteracao_base_aux_34	Conterá as informações dos títulos para alteração.	Entrada e Saída

...

Atributo	Tipo	Formato	Descrição	Obrig.	Evol.
ttv_cod_usuar_corren	character	x(12)	Usuário Corrente
tta_cod_empresa	character	x(3)	Empresa
tta_cod_estab	character	x(3) / x(5)*	Estabelecimento
tta_num_id_tit_ap	integer	9999999999	Token Tit AP
ttv_reccod_row_tit_ap	recid	>>>>>>9	character	x(80)	Identificador ID Título string(rowid(tit_ap))Recid Título
tta_cdn_fornecedor	Integer	>>>,>>>,>>9	Fornecedor
tta_cod_espec_docto	character	x(3)	Espécie Documento
tta_cod_ser_docto	character	x(3)/x(5)**	Série Documento
tta_cod_tit_ap	character	x(10)/x(16)**	Título
tta_cod_parcela	character	x(02)	Parcela
ttv_dat_transacao	date	99/99/9999	Data Transação
ttv_cod_refer	character	x(10)	Referência
tta_val_sdo_tit_ap	decimal	->>>,>>>,>>9.99	Valor Saldo
tta_dat_emis_docto	date	99/99/9999	Data Emissão
tta_dat_vencto_tit_ap	date	99/99/9999	Data Vencimento
tta_dat_prev_pagto	date	99/99/9999	Data Prevista Pgto
tta_dat_ult_pagto	date	99/99/9999	Data último Pagto
tta_num_dias_atraso	integer	>9	Dias Atraso
tta_val_perc_multa_atraso	decimal	>9.99	Perc Multa Atraso
tta_val_juros_dia_atraso	decimal	->>>,>>>,>>9.99	Valor Juro
tta_val_perc_juros_dia_atraso	decimal	>9.999999	Perc Jur Dia Atraso
tta_dat_desconto	date	99/99/9999	Data Desconto
tta_val_perc_desc	decimal	>9.9999	Percentual Desconto
tta_val_desconto	decimal	->>>,>>>,>>9.99	Valor Desconto
tta_cod_portador	character	x(5)	Portador
ttv_cod_portador_mov	character	x(5)	Portador Movto
tta_log_pagto_bloqdo	logical	Sim/NÃo	Bloqueia Pagamento
tta_cod_seguradora	character	x(8)	Seguradora
tta_cod_apol_seguro	character	x(12)	Apólice Seguro
tta_cod_arrendador	character	x(6)	Arrendador
tta_cod_contrat_leas	character	x(12)	Contrato Leasing
tta_ind_tip_espec_docto	character	X(17)	Tipo Espécie
tta_cod_indic_econ	character	x(8)	Moeda
tta_num_seq_refer	integer	>>>9	Sequência
ttv_ind_motiv_alter_val_tit_ap	character	X(09)	Motivo Alteração
ttv_wgh_lista	widget-handle	>>>>>>9
ttv_log_gera_ocor_alter_valores	logical	Sim/NÃo
tta_cb4_tit_ap_bco_cobdor	Character	x(50)	Titulo Bco Cobrador
tta_cod_histor_padr	character	x(8)	Histórico Padrão
tta_des_histor_padr	character	x(40)	Descrição
tta_ind_sit_tit_ap	character	X(13)	Situação
tta_cod_forma_pagto	character	x(3)	Forma Pagamento
tta_cod_tit_ap_bco_cobdor	Character	x(20)	Título Banco Cobdor
tta_cod_estab_ext	Character	x(8)	Estabelecimento Ext
tta_num_ord_invest	Integer	>>>>,>>9	Ordem Investimento
ttv_num_ped_compra	Integer	>>>>>,>>9	Ped Compra
tta_num_ord_compra	integer	>>>>>9,99	Ordem Compra
ttv_num_event_invest	Integer	>,>>9	Evento Investimento
ttv_val_1099	Decimal	->>,>>>,>>>,>>9.99	Valor 1099
tta_cod_tax_ident_number	Character	x(15)	Tax Id Number
tta_ind_tip_trans_1099	Character	X(50)	Tipo Transação 1099
ttv_log_atualiz_tit_impto_vinc	logical	Sim/Não	Atualiza Imposto Vinculado

...

def temp-table tt_tit_ap_alteracao_base_aux_3 4 no-undo
    field ttv_cod_usuar_corren             corren as character format "x(12)" label "Usuário Corrente" column-label "Usuário Corrente"
    field tta_cod_empresa                  as empresa as character format "x(3)" label "Empresa" column-label "Empresa"
    field tta_cod_estab                    as character format "estab as character format "x(5)" label "Estabelecimento" column-label "Estab"
    field tta_num_id_tit_ap                as ap as integer format "9999999999999999999" initial 0 label "Token Tit Tít AP" column-label "Token Tit Tít AP"
    field ttv_reccod_row_tit_ap                   as recid format ">>>>>>9" initial ?    ap as character format "x(80)"
field tta_cdn_fornecedor               fornecedor as Integer format ">>>,>>>,>>9" initial 0 label "Fornecedor" column-label "Fornecedor"
    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_ap                   ap 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 ttv_dat_transacao                as transacao as date format "99/99/9999" initial today label "Data Transação" column-label "Data Transação"
    field ttv_cod_refer                    as refer as character format "x(10)" label "Referência" column-label "Referência"
    field tta_val_sdo_tit_ap               ap as decimal format "->>>,>>>,>>9.99" decimals 2 initial 0 label "Valor Saldo" column-label "Valor Saldo"
    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_dat_vencto_tit_ap            as ap as date format "99/99/9999" initial today label "Data Vencimento" column-label "Dt Vencto"
    field tta_dat_prev_pagto               pagto as date format "99/99/9999" initial today label "Data Prevista Pgto" column-label "Dt Prev Pagto"
    field tta_dat_ult_pagto                as pagto as date format "99/99/9999" initial ? label "Data Último Pagto" column-label "Data Último Pagto"
    field tta_num_dias_atraso              as atraso as integer format ">9" initial 0 label "Dias Atraso" column-label "Dias Atr"
    field tta_val_perc_multa_atraso        as atraso as decimal format ">9.99" decimals 2 initial 00.00 label "Perc Multa Atraso" column-label "Multa Atr"
    field tta_val_juros_dia_atraso         atraso as decimal format "->>>,>>>,>>9.99" decimals 2 initial 0 label "Valor JuroJuros" column-label "Vl JuroJuros"
    field tta_val_perc_juros_dia_atraso    as atraso as decimal format ">9.999999" decimals 6 initial 00.00 label "Perc Jur Dia Atraso" column-label "Perc Dia"
    field tta_dat_desconto                 desconto as date format "99/99/9999" initial ? label "Data Desconto" column-label "Dt Descto"
    field tta_val_perc_desc                as desc as decimal format ">9.9999" decimals 4 initial 0 label "Percentual Desconto" column-label "Perc Descto"
    field tta_val_desconto                 desconto as decimal format "->>>,>>>,>>9.99" decimals 2 initial 0 label "Valor Desconto" column-label "Valor Desconto"
    field tta_cod_portador                 portador as character format "x(5)" label "Portador" column-label "Portador"
    field ttv_cod_portador_mov             mov as character format "x(5)" label "Portador Movto" column-label "Portador Movto"
   field field tta_log_pagto_bloqdo             as logical bloqdo as logical format "Sim/Não" initial no label "Bloqueia Pagamento" column-label "Pagto Bloqdo"
    field tta_cod_seguradora               seguradora as character format "x(8)" label "Seguradora" column-label "Seguradora"
    field tta_cod_apol_seguro              as seguro as character format "x(12)" label "Apólice Seguro" column-label "Apolice Seguro"
    field tta_cod_arrendador               arrendador as character format "x(6)" label "Arrendador" column-label "Arrendador"
    field tta_cod_contrat_leas             leas as character format "x(12)" label "Contrato Leasing" column-label "Contr Leas"
    field tta_ind_tip_espec_docto          as docto as character format "X(17)" initial "Normal" label "Tipo Espécie" column-label "Tipo Espécie"
    field tta_cod_indic_econ               econ as character format "x(8)" label "Moeda" column-label "Moeda"
    field tta_num_seq_refer                as integer refer as integer format ">>>9" initial 0 label "Sequência" column-label "Seq"
    field ttv_ind_motiv_alter_val_tit_ap   ap as character format "X(09)" initial "Alteração" label "Motivo Alteração" column-label "Motivo Alteração"
    field ttv_wgh_lista                    as lista as widget-handle extent 15 format ">>>>>>9"
    field ttv_log_gera_ocor_alter_valores as valores as logical format "Sim/Não" initial no
    field tta_cb4_tit_ap_bco_cobdor        as cobdor as Character format "x(50)" label "Titulo Bco Cobrador" column-label "Titulo Bco Cobrador"
    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_histor_padr              as padr as character format "x(40)" label "Descrição" column-label "Descrição Histórico Padrão"
    field tta_ind_sit_tit_ap               ap as character format "X(13)" label "Situação" column-label "Situação"
    field tta_cod_forma_pagto              as pagto as character format "x(3)" label "Forma Pagamento" column-label "F Pagto"
    field tta_cod_tit_ap_bco_cobdor        as cobdor as character format "x(20)" label "Título Banco Cobdor" column-label "Título Banco Cobdor"
    field tta_cod_estab_ext                as ext as character format "x(8)" label "Estabelecimento Exte" column-label "Estabelecimento Ext"
    field tta_num_ord_invest               invest as integer format ">>>>,>>9" initial 0 label "Ordem Investimento" column-label "Ordem Investimento"
    field ttv_num_ped_compra               compra as integer format ">>>>>,>>9" initial 0 label "Ped Compra" column-label "Ped Compra"
    field tta_num_ord_compra               compra as integer format ">>>>>9,99" initial 0 label "Ordem Compra" column-label "Ordem Compra"
    field ttv_num_event_invest             invest as integer format ">,>>9" label "Evento Investimento" column-label "Evento Investimento"
    field ttv_val_1099                     1099 as decimal format "->>,>>>,>>>,>>9.99" decimals 2
    field tta_cod_tax_ident_number         number as character format "x(15)" label "Tax Id Number" column-label "Tax Id Number"
    field ttattv_ind_tip_trans_1099           as _1099_tt as character format "X(50)" initial "Rents" label "Tipo Transacao 1099" column-label "Tipo Transacao 1099"
    field ttv_log_atualiz_tit_impto_vinc   vinc as logical format "Sim/Não" initial no
    index tt_titap_id                              id
tta_cod_estab                    ascending          estab ascending
tta_cdn_fornecedor               fornecedor ascending
          tta_cod_espec_docto              ascending          docto ascending
tta_cod_ser_docto                ascending          docto ascending
tta_cod_tit_ap                   ascending          ap ascending
tta_cod_parcela                  ascending    parcela ascending
.

Tabela Temporária	Descrição	Entrada/Saída
tt_tit_ap_alteracao_rateio	Conterá as informações dos rateios para os títulos alterados.	Entrada e Saída

...

Atributo	Tipo	Formato	Descrição	Obrig.	Evol.
ttv_reccod_row_tit_apap	recid	>>>>>>9	Recid Título	character	x(80)	Identificador ID Título (tt_tit_ap_alteracao_base_aux_4.ttv_cod_row_tit_ap)
tta_cod_estab	character	x(3) / x(5)*	Estabelecimento
tta_cod_refer	character	x(10)	Referência
tta_num_seq_refer	integer	>>>9	Sequência
tta_cod_tip_fluxo_financ	character	x(12)	Tipo Fluxo Financ
tta_cod_plano_cta_ctbl	character	x(8)	Plano Contas
tta_cod_cta_ctbl	character	x(20)	Conta Contábil
tta_cod_unid_negoc	character	x(3)	Unid Negócio
tta_cod_plano_ccusto	character	x(8)	Plano Centros Custo
tta_cod_ccusto	Character	x(11)/x(20)**	Centro Custo
tta_val_aprop_ctbl	decimal	->>>,>>>,>>9.99	Valor Aprop Ctbl
ttv_ind_tip_rat	character	X(08)
tta_num_id_tit_ap	integer	1E+10	Token Tit AP
tta_num_id_aprop_ctbl_ap	integer	1E+10	Id Aprop Ctbl AP

...

def temp-table tt_tit_ap_alteracao_rateio_new no-undo
    field ttv_cod_recrow_tit_ap                   as recid format ">>>>>>9" initial ?    ap as character format "x(80)"
field tta_cod_estab                    as estab as character format "x(5)" label "Estabelecimento" column-label "Estab"
    field tta_cod_refer                    as character refer as character format "x(10)" label "Referência" column-label "Referência"
    field tta_num_seq_refer                as refer as integer format ">>>9" initial 0 label "Sequência" column-label "Seq"
    field tta_cod_tip_fluxo_financ         financ as character format "x(12)" label "Tipo Fluxo Financ" column-label "Tipo Fluxo Financ"
    field tta_cod_plano_cta_ctbl           ctbl as character format "x(8)" label "Plano Contas" column-label "Plano Contas"
    field tta_cod_cta_ctbl                 ctbl as character format "x(20)" label "Conta Cont bilContábil" column-label "Conta Cont bilContábil"
    field tta_cod_unid_negoc               negoc as character format "x(3)" label "Unid Negócio" column-label "Un Neg"
    field tta_cod_plano_ccusto             ccusto as character format "x(8)" label "Plano Centros Custo" column-label "Plano Centros Custo"
    field tta_cod_ccusto                   ccusto as Character format "x(1120)" label "Centro Custo" column-label "Centro Custo"
    field tta_val_aprop_ctbl               ctbl as decimal format "->>>,>>>,>>9.99" decimals 2 initial 0 label "Valor Aprop Ctbl" column-label "Vl Aprop Ctbl"
    field ttv_ind_tip_rat                  as rat as character format "X(08)"
    field tta_num_id_tit_ap                as ap as integer format "9999999999999999999" initial 0 label "Token Tit Tít AP" column-label "Token Tit Tít AP"
    field tta_num_id_aprop_ctbl_ap         ap as integer format "9999999999" initial 0 label "Id Aprop Ctbl AP" column-label "Id Aprop Ctbl AP"
    index tt_aprpctba_id                   id is primary unique
          tta tta_cod_estab                    ascending          estab ascending
tta_cod_refer                    ascending          refer ascending
tta_num_seq_refer                ascending          refer ascending
tta_cod_plano_cta_ctbl           ctbl ascending
          tta_cod_cta_ctbl                 ctbl ascending
          tta_cod_unid_negoc               ascending          ascending
tta_cod_plano_ccusto             ccusto ascending
          tta_cod_ccusto                   ascending          ccusto ascending
tta_cod_tip_fluxo_financ         financ ascending
          ttv_reccod_row_tit_ap                   ap ascending
    .

Tabela Temporária	Descrição	Entrada/Saída
tt_log_erros_tit_ap_alteracao	Conterá as informações dos erros apresentados na alteração.	Saída

...

Tabela Temporária	Descrição	Entrada/Saída
tt_api_params_generic_api	Conterá campos novos das temp-tables passadas como parâmetro.	Entrada / Saída

Atributo	Tipo	Formato	Descrição	Obrig.	Evol.
ttv_cod_recrow_id	recid	character	X(80)>>>>>>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_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 ascending

tabela ascending
ttv_cod_row_id ascending
ttv_cod_campo ascending
.

Exemplo Criação temp-table tt_api_params_generic_api:

create tt_api_params_generic_api.
assign tt_api_params_generic_api.ttv_reccod_row_id = tt_tit_ap_alteracao_base_aux_34.ttv_cod_recrow_tit_ap
tt_api_params_generic_api.ttv_cod_tabela = "tt_tit_ap_alteracao_base_aux_3"
tt_api_params_generic_api.ttv_cod_campo = "log_prestac_serv_auton"
tt_api_params_generic_api.ttv_cod_valor = "no".

Informações do REINF

...

Caso o título seja do tipo Mão-de-Obra ou Empreitada será necessário informar o campo "Mão-de-obra/Empreitada ".

create tt_api_params_generic_api.
assign tt_api_params_generic_api.ttv_reccod_row_id = tt_tit_ap_alteracao_base_aux_34.ttv_cod_recrow_tit_ap
tt_api_params_generic_api.ttv_cod_tabela = 'tt_tit_ap_alteracao_base_aux_3'
tt_api_params_generic_api.ttv_cod_campo = 'log_mdo_emptda'
tt_api_params_generic_api.ttv_cod_valor = 'yes'.

Tipo Serviço Mão de Obra (REINF)

Quando o título é marcado como Mão de Obra ou empreitada será necessário informar o Tipo de Serviço Mão de Obra, o conteúdo informado neste campo deverá estar previamente cadastrado, caso contrário será emitida a mensagem de erro 22642 - Informe um tipo de serviço válido conforme cadastro de códigos de serviço do INSS - Programa CD1050.

create tt_api_params_generic_api.
assign tt_api_params_generic_api.ttv_reccod_row_id = tt_tit_ap_alteracao_base_aux_34.ttv_reccod_row_tit_ap
tt_api_params_generic_api.ttv_cod_tabela = "tt_tit_ap_alteracao_base_aux_3"
tt_api_params_generic_api.ttv_cod_campo = "num_tip_serv_mdo"
tt tt_api_params_generic_api.ttv_cod_valor = "1".

Tipo Obra (REINF)

Quando o título é marcado como Mão de Obra ou empreitada será necessário informar o tipo de obra, o conteúdo informado neste campo deverá ser 1 ou 4. Caso seja informado um valor diferente de 1 e 4 será emitida a mensagem de erro 22659 - Os tipos de obra possíveis são 1 e 4, sendo e 1 corresponde a CNPJ e 4 a CNO..

create tt_api_params_generic_api.
assign tt_api_params_generic_api.ttv_cod_recrow_id = tt_tit_ap_alteracao_base_aux_34.ttv_reccod_row_tit_ap
tt_api_params_generic_api.ttv_cod_tabela = 'tt_tit_ap_alteracao_base_aux_3'
tt_api_params_generic_api.ttv_cod_campo = 'num_tip_obra'
tt_api_params_generic_api.ttv_cod_valor = '1'.

Obra (REINF).

Informar o código de obra previamente cadastrado, caso seja informado uma obra inválida será apresentada a mensagem de erro 22660 - Informe um código de obra válido conforme cadastro de códigos de obras - Programa CD2023.

create tt_api_params_generic_api.
assign tt_api_params_generic_api.ttv_cod_recrow_id = tt_tit_ap_alteracao_base_aux_34.ttv_reccod_row_tit_ap
tt_api_params_generic_api.ttv_cod_tabela = 'tt_tit_ap_alteracao_base_aux_3'
tt_api_params_generic_api.ttv_cod_campo = 'cod_obra'
tt_api_params_generic_api.ttv_cod_valor = 'teste' .

...

- Descrição do Recurso (des_recur_repas): Descrição do Recurso repassado para a Associação Desportiva.

create tt_api_params_generic_api.
assign tt_api_params_generic_api.ttv_cod_tabela = "tt_integrtit_ap_apbalteracao_itembase_loteaux_impl3"
  tt tt_api_params_generic_api.ttv_reccod_row_id = tt_integrtit_apbap_itemalteracao_lotebase_implaux_34.ttv_reccod_integrrow_apbtit_item_loteap
  tt tt_api_params_generic_api.ttv_cod_campo = "ind_tip_repas"
  tttt_api_params_generic_api.ttv_cod_valor = "Patrocínio".

create tt_api_params_generic_api.
assign tt_api_params_generic_api.ttv_cod_tabela = "tt_tit_integrap_apbalteracao_itembase_loteaux_impl3"
  tt tt_api_params_generic_api.ttv_reccod_row_id = tt_integrtit_apbap_itemalteracao_lotebase_implaux_34.ttv_reccod_integrrow_apbtit_item_loteap
  tt tt_api_params_generic_api.ttv_cod_campo = "des_recur_repas"
  tt tt_api_params_generic_api.ttv_cod_valor = "Patrocínio Futebol".

...

- Para extração do REINF tanto para R-4010 como R-4020 será necessário que ele venha com a marcação de REINF Retenções Fonte.

create tt_api_params_generic_api.
assign tt_api_params_generic_api.ttv_cod_tabela = "tt_integrtit_ap_apbalteracao_itembase_loteaux_impl3"
tt_api_params_generic_api.ttv_reccod_row_id = tt_integrtit_apbap_itemalteracao_lotebase_implaux_34.ttv_reccod_integrrow_apbtit_item_loteap
tt tt_api_params_generic_api.ttv_cod_campo = "log_reinf_retenc"
tt tt_api_params_generic_api.ttv_cod_valor = "yes".

PIX Datasul

...

TXID: Código de identificação da transação é opcional e poderá ser informada no pagamento escritural conforme o leitaute CNAB 240 de cada banco.

create tt_api_params_generic_api.
assign tt_api_params_generic_api.ttv_cod_tabela = "tt_tit_ap_alteracao_base_aux_3"
  tt tt_api_params_generic_api.ttv_reccod_row_id = tttt_tit_ap_alteracao_base_aux_34.ttv_reccod_row_tit_ap
  tt tt_api_params_generic_api.ttv_cod_campo = "cod_txid"
  tttt_api_params_generic_api.ttv_cod_valor = "12544".

create tt_api_params_generic_api.
assign tt_api_params_generic_api.ttv_cod_tabela = "tt_tit_ap_alteracao_base_aux_3"
  tttt_api_params_generic_api.ttv_reccod_row_id = tttt_tit_ap_alteracao_base_aux_34.ttv_cod_recrow_tit_ap
  tt tt_api_params_generic_api.ttv_cod_campo = "dsl_qrcode"
  tt tt_api_params_generic_api.ttv_cod_valor = "00020126580014br.gov.bcb.pix0136123e4567-e12b-12d1-a456-426655440000 5204000053039865802BR5913Fulano de Tal6008BRASILIA62070503***63041D3D " .

...

Árvore de páginas

Versões comparadas

Versão antiga 106

Nova versão 107

Chave