Árvore de páginas

Versões comparadas

Chave

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

...

Produto:

Datasul

Ocorrência:

Documentação de API

Nome Físicoprgfin/fas/fas715ZB


Observação: A partir da release 12.1.2305.

Objetivo

Criar incorporações de bens patrimoniais no módulo de Ativo Fixo do EMS 5.

...

A sintaxe para a chamada da API é:

DEF VAR v_hdl_program  AS AS HANDLE NO-UNDO.
RUN prgfin\fas\fas715zb.py PERSISTENT SET v_hdl_program.
RUN pi_api_incorp_bem_pat_4 5 IN v_hdl_program (input table tt_integr_incorp_bem_pat_12,
                                                                                    input  input table tt_integr_val_origin_bem_pat_1,
                                                                                    input  input table tt_integr_val_resid_incorp,
                                                                                    output  output table tt_log_erros_int_inc_bem_pat_1,
                                                                                    input  input table tt_criacao_bem_pat_item_api_12).
DELETE PROCEDURE v_hdl_program.

Parâmetros

Parâmetro

Descrição

tt_integr_incorp_bem_pat_12

Esta temp-table conterá os registros de incorporações que serão criadas no Ativo Fixo. Deverá ser definida conforme os atributos mencionados a seguir, na seção Tabelas Temporárias.

tt_integr_val_origin_bem_pat_1

Esta temp-table conterá os registros com os valores originais das incorporações que serão criadas. Deverá ser definida conforme os atributos mencionados a seguir, na seção Tabelas Temporárias.

tt_criacao_bem_pat_val_resid

Esta temp-table conterá os registros sobre os valores residuais das incorporações. Deverá ser definida conforme os atributos mencionados a seguir, na seção Tabelas Temporárias.

tt_log_erros_int_inc_bem_pat_1

Esta temp-table conterá os erros ocorridos durante as validações feitas pela API no momento da inclusão da incorporação. Deverá ser definida conforme os atributos mencionados a seguir, na seção Tabelas Temporárias. Não deverá ser alimentada ao chamar a API.

tt_criacao_bem_pat_item_api_12Esta temp-table contem os registros com os itens do documento de entrada vinculado à incorporação que está sendo criada. Deverá ser definida conforme os atributos mencionados a seguir, na seção Tabelas Temporárias.

...

A API retornará na tabela temporária tt_log_erros_int_inc_bem_pat_1 todos os erros encontrados ou mensagens de alerta gerados durante o processo de validação dos movimentos.

...

Tabela Temporária

Descrição

Entrada/Saída

tt_integr_incorp_bem_pat_12

Conterá as informações das incorporações a serem implantadas.

Entrada

Atributo

Tipo

Formato

Descrição

Obrigatório

Evolução

tta_num_id_bem_pat

integer

>>,>>>,>>9

Número de Identificação do Bem ao qual a incorporação será vinculada.

Sim


tta_num_seq_incorp_bem_pat

integer

>>,>>>,>>9

Número da sequência da incorporação do bem.

Sim


tta_cod_cenar_ctbl

character

x(8)

Código do cenário contábil da incorporação do bem, conforme cadastro no UTB076AA/UFN0203AA/UTB304AA - Cenário Contábil.

Não


tta_dat_incorp_bem_pat

date

99/99/9999

Data da Incorporaçãoincorporação do bem.

Sim


tta_ind_incorp_bem_pat

character

x(20)

Tipo da incorporação do bem.

Sim


tta_des_incorp_bem_pat

character

x(40)

Descrição da incorporação do bem.

Sim


tta_cod_incent_fisc

character

x(8)

Código do do incentivo fiscal da incorporação do bem, quando há um incentivo que justifique a incorporação (depreciação incentivada).

Não


tta_cod_indic_econ

character

x(8)

Moeda Código da moeda da incorporação do bem.

Sim


tta_val_incorp_bem_pat

decimal

->>,>>>,>>>,>>9.99

Valor da incorporação incorporação a ser sofrida pelo bem patrimonial.

Sim


tta_cod_tip_calc_reaval

character

x(8)

Tipo

Código do tipo de cálculo de reavaliação da incorporação do bem.

Não


tta_val_perc_anual_dpr

decimal

>>>>9.999

Percentual anual de depreciação.

Não


ttv_val_perc_anual_dpr_incevda

decimal

>>>>9.9999

Percentual anual de depreciação incentivada.

Não


ttv_qtd_unid_vida_util

decimal

>>>>,>>>,>>9.99

Quantidade de unidades da vida útil da incorporação do bem.

Não


tta_val_perc_anual_reduc_sdo

decimal

->>,>>>,>>>,>>9.99

Percentual anual de cálculo de depreciação, que reduz o saldo dos bens registrados no ativo fixo até atingirem o valor residual. A depreciação pela Redução de depreciação redução de saldoSaldo é aplicada por meio de um percentual da depreciação por método de Linha Reta, e sobre este percentual é aplicado um percentual extra para acelerar a depreciação dos bens.

Não


tta_cod_cta_pat

character

x(18)

Código da conta patrimonial a relacionar a incorporação do bem patrimonial, conforme cadastro no FAS011AA/FAS214AA/FAS329AA - Conta Patrimonial.

NãoNão


tta_cdn_fornecedor

integer

>>>,>>>,>>9

Número do FornecedorCódigo que identifique o fornecedor relacionado a incorporação do bem patrimonial, como benfeitorias.

Não


tta_cod_pais

character

x(3)

Código do país.

Não


tta_log_bem_imptdo

logical

Sim/Não

Bem Importado?

Não


tta_log_cr_pis

logical

Sim/Não

Credita PIS?

Não


tta_log_cr_cofins

logical

Sim/Não

Credita COFINS?

Não


tta_num_parc_pis_cofins

ingteger

999

Número de parcelas em que o crédito de PIS/COFINS deve ser descontado.

Não


tta_num_parc_desc

integer

999

Número de parcelas de crédito PIS/COFINS que foram descontadas para o bem patrimonial incorporado.

Não


tta_val_cr_pis

decimal

>>>,>>>,>>9.99

Valor total de crédito de PIS, esta informação será utilizada como base para o cálculo das parcelas do crédito PIS

Não

.

Veja mais informações na descrição do conceito Contabilização do Crédito PIS/COFINS em 48 Parcelas.

Não


tta_tta_val_cr_cofins

decimal

>>>,>>>,>>9.99Valor do crédito COFINS

Valor total de crédito de COFINS, esta informação será utilizada como base para o cálculo das parcelas do crédito COFINS.

Veja mais informações na descrição do conceito Contabilização do Crédito PIS/COFINS em 48 Parcelas.

Não


tta_log_cr_csll

logical

Sim/Não

Credita CSLL?

Não


tta_num_exerc_csll

integer

>>9

Número do exercício CSLLQuantidade de exercícios em que a incorporação do bem patrimonial pode se beneficiar do crédito da CSLL.

Não


ttv_ind_tip_operac

character

x(35)

Tipo da operação.

Sim


ttv_recrow_integr_incorp_bem_pat

recid

>>>>>>9

rowid


ROWID Identificador interno do registro da incorporação do bem patrimonial criado na temp-table criada, ou seja, o identificador interno do registro.

Sim


tta_val_base_pisdecimal>>>,>>>,>>9.99,>>9.99Valortotal da base de PIS. Quando for informado o Valor de Exclusão de ICMS, deverá informar também a base de cálculo.Valor da base PISNão
tta_val_base_cofinsdecimal>>>,>>>,>>9.99Valor total da base de COFINS. Quando for informado o Valor de Exclusão de ICMS, deverá informar também a base de cálculo.Não
ttv_val_exc_icmsdecimal ->>,>>>,>>>,>>9.99Valor total de exclusão de ICMS da base de cálculo do PIS/COFINS.Não

  

2) Valores originais da incorporação

Tabela Temporária

Descrição

Entrada/Saída

tt_integr_val_origin_bem_pat_1

Conterá os registros dos valores originais da incorporação

Entrada

Atributo

Tipo

Formato

Descrição

Obrigatório

Evolução

ttv_recrow_integr_incorp_bem_pat

recidrowid

>>>>>>9


RECID ROWID do registro da temp-table tt_integr_incorp_bem_pat_2, referente a incorporação ao qual o valor original será vinculado

Sim


tta_cod_cenar_ctbl

character

x(8)

Código do cenário contábil da incorporação do bem, conforme cadastro no UTB076AA/UFN0203AA/UTB304AA - Cenário Contábil.

Sim


tta_cod_finalid_econ

character

x(10)

Código da finalidade econômica da incorporação do bem.

Sim


tta_dat_calc_pat

date

99/99/9999

Data do valor original (normalmente igual a data da incorporação).

Sim


tta_val_original

decimal

->>>>>,>>>,>>9.99

Valor original da incorporação na finalidade informada.

Sim


tta_dat_cotac_indic_econ

date

99/99/9999

Data da Cotaçãocotação.

Sim


tta_val_cotac_indic_econdecimal>>>>,>>9.9999999999Valor da cotação.

Sim


 

3) Valores Residuais da incorporação

...

Atributo

Tipo

Formato

Descrição

Obrigatório

Evolução

tta_num_id_bem_pat

recidinteger

>>,>>>,>>9

Número de Identificação do Bem bem patrimonial ao qual a incorporação será vinculada.

Sim


tta_num_seq_incorp_bem_patinteger>>,>>>>,>>9Número da sequência da incorporação que está sendo criada e a qual o valor residual está sendo vinculado.


tta_cod_tip_calc

character

x(7)

Código do tipo de cálculo da incorporação do bem patrimonial.

Sim


tta_cod_cenar_ctbl

character

x(8)

Código do cenário contábil da incorporação do bem patrimonial, conforme cadastro no UTB076AA/UFN0203AA/UTB304AA - Cenário Contábil.

Sim


tta_cod_finalid_econ

character

X(10)

Código da finalidade econômica da incorporação do bem patrimonial.

Sim


tta_val_resid_min

decimal

>>>>,>>>,>>>,>>9.99

Valor residual mínimo da incorporação do bem patrimonial.

Sim


 

4) Tabela de erros

Tabela Temporária

Descrição

Entrada/Saída

tt_log_erros_int_inc_bem_pat_1

Conterá as informações dos movimentos que não foram importados com a respectiva mensagem de erro.

Saída

  

recrecidRecid

Atributo

Tipo

Formato

Descrição

Obrigatório

Evolução

ttv_

row_integr_incorp_bem_pat

rowid

>>>>>>9


ROWID da incorporação ao qual o erro está vinculado.



ttv_num_erro

integer

>>>>,>>9

Número do erro para a incorporação do bem patrimonial com a chave formada pelos atributos acima nesta temp table.



ttv_des_msg_erro

characterx(60)

Mensagem de erro para a incorporação do bem patrimonial com a chave formada pelos atributos acima nesta temp table.



tta_des_msg_ajuda

character

x(40)

Mensagem de ajuda referente ao erro para a incorporação do bem patrimonial com a chave formada pelos atributos acima nesta temp table.




5) Itens de Documento de Entrada vinculados a incorporação do bem patrimonial

Tabela Temporária

Descrição

Entrada/Saída

tt_criacao_bem_pat_item_api_12

Conterá os registros dos itens das notas fiscais que serão vinculados a incorporação do bem patrimonial.

Entrada

Atributo

Tipo

Formato

Descrição

Obrigatório

Evolução

ttv_recrow_bem

recidrowid


RECID ROWID do registro da temp-table tt_integr_incorp_bem_pat_12, referente a incorporação do bem patrimonial ao qual o item será vinculado.

Sim


tta_cdn_fornecedor

integer

>>>,>>>,>>9

Código que represente um fornecedor a qual o movimento está associado.

Sim


tta_cod_docto_entr

character

x(8)

Código ou número do documento/nota fiscal.

Sim


tta_cod_ser_nota

character

X(35)

Série da nota fiscal.

Não


tta_num_item_docto_entr

integer

>>>,>>9

Número do item da nota fiscal.

Sim


tta_cod_natur_operaccharacterx(6)

Código da natureza de operação da nota fiscal.

Importante: Esse campo foi incluído a partir da versão 12.

Não

tta_qtd_item_docto_entr

Decimaldecimal

>>>>>>>>9

Quantidade do item vinculado ao bem patrimonial.

Sim


...

def temp-table tt_criacao_bem_pat_item_api_1 2 no-undo
    field ttv_recrow_bem                      as recid format ">>>>>>9"Rowid
    field tta_cdn_fornecedor               as Integer format ">>>,>>>,>>9" initial 0 label "Fornecedor" column-label "Fornecedor"
    field tta_cod_docto_entr               as character format "x(8)" label "Docto Entrada" column-label "Docto Entrada"
    field tta_cod_ser_nota                 as character format "x(5)" label "Série Nota" column-label "Série Nota"
    field tta_num_item_docto_entr          as integer format ">>>,>>9" initial 0 label "Numero Item" column-label "Num Item"
    field tta_cod_natur_operac             as character format "x(6)" label "Natureza Operação" column-label "Natureza Operação"
    field tta_qtd_item_docto_entr          as decimal format ">>>>>>>>9" initial 0 label "Qtde Item Docto" column-label "Qtde Item Docto"
    index tt_id                            is primary unique
          ttv_recrow_bem                      ascending
          tta_cdn_fornecedor               ascending
          tta_cod_docto_entr               ascending
          tta_cod_ser_nota                 ascending
          tta_num_item_docto_entr          ascending
          tta_cod_natur_operac             ascending
    .

def temp-table tt_integr_incorp_bem_pat_1 2 no-undo
    field tta_num_id_bem_pat               as integer format ">>,>>>,>>9" initial 0 label "Identificação Bem" column-label "Identificação Bem"
    field tta_num_seq_incorp_bem_pat       as integer format ">>,>>>>,>>9" initial 0 label "Sequência Incorp" column-label "Sequência Incorp"
    field tta_cod_cenar_ctbl               as character format "x(8)" label "Cenário Contábil" column-label "Cenário Contábil"
    field tta_dat_incorp_bem_pat           as date format "99/99/9999" initial today label "Data Incorporação" column-label "Data Incorporação"
    field tta_ind_incorp_bem_pat           as character format "x(20)" initial "Reavaliação" label "Tipo Incorporação" column-label "Tipo Incorporação"
    field tta_des_incorp_bem_pat           as character format "x(40)" label "Descrição Incorp" column-label "Descrição Incorp"
    field tta_cod_incent_fisc              as character format "x(8)" label "Incentivo Fiscal" column-label "Incentivo Fiscal"
    field tta_cod_indic_econ               as character format "x(8)" label "Moeda" column-label "Moeda"
    field tta_val_incorp_bem_pat           as decimal format "->>,>>>,>>>,>>9.99" decimals 4 initial 0 label "Valor Incorporação" column-label "Valor Incorporação"
    field tta_cod_tip_calc_reaval          as character format "x(8)" label "Tipo Cálculo Reaval" column-label "Tipo Cálculo Reaval"
    field tta_val_perc_anual_dpr           as decimal format ">>>>9.999" decimals 3 initial 0 label "Percentual Anual" column-label "Perc Ano Dpr"
    field tta_val_perc_anual_dpr_incevda   as decimal format ">>>>9.9999" decimals 4 initial 0 label "Perc Anual Dpr Incen" column-label "Perc Anual Dpr Incen"
    field tta_qtd_unid_vida_util           as decimal format ">>>>,>>>,>>9.99" decimals 2 initial 0 label "Vida Útil (Unidades)" column-label "Unid Vida Útil"
    field tta_val_perc_anual_reduc_sdo     as decimal format "->>,>>>,>>>,>>9.99" decimals 2 initial 0 label "Perc Redução Saldo" column-label "Perc Redução Saldo"
    field tta_cod_cta_pat                  as character format "x(18)" label "Conta Patrimonial" column-label "Conta Patrimonial"
    field tta_cdn_fornecedor               as Integer format ">>>,>>>,>>9" initial 0 label "Fornecedor" column-label "Fornecedor"
    field tta_cod_pais                     as character format "x(3)" label "País" column-label "País"
    field tta_log_bem_imptdo               as logical format "Sim/Não" initial no label "Bem Importado" column-label "Bem Importado"
    field tta_log_cr_pis                   as logical format "Sim/Não" initial no label "Credita PIS" column-label "Credita PIS"
    field tta_log_cr_cofins                as logical format "Sim/Não" initial no label "Credita COFINS" column-label "Credita COFINS"
    field tta_num_parc_pis_cofins          as integer format "999" initial 0 label "Nr Parcelas" column-label "Nr Parcelas"
    field tta_num_parc_desc                as integer format "999" initial 0 label "Parc Descontadas" column-label "Parc Descontadas"
    field tta_val_cr_pis                   as decimal format ">>>,>>>,>>9.99" decimals 2 initial 0 label "Valor Cred PIS/PASEP" column-label "Vl Cred PIS/PASEP"
    field tta_val_cr_cofins                as decimal format ">>>,>>>,>>9.99" decimals 2 initial 0 label "Valor Crédito COFINS" column-label "Credito COFINS"
    field tta_log_cr_csll                  as logical format "Sim/Não" initial no label "Credita CSLL" column-label "Credita CSLL"
    field tta_num_exerc_cr_csll            as integer format ">>9" initial 0 label "Exercicios Créd CSLL" column-label "Exer Cr CSLL"
    field tta_ind_tip_operac               as character format "X(35)" initial "Nota de Débito" label "Tipo Operação" column-label "Tipo Operação"
    field ttv_rec_integr_incorp_bem_pat    as recid format ">>>>>>9"
    field tta_val_base_pis                 as decimal format ">>>,>>>,>>9.99" decimals 2 initial 0 label "Valor Base PIS/PASEP" column-label "Vl Base PIS/PASEP"
    field tta_val_base_cofins              as decimal format ">>>,>>>,>>9.99" decimals 2 initial 0 label "Valor Base COFINS" column-label "Base COFINS"
    field ttv_val_exc_icms                 as decimal format "->>,>>>,>>>,>>9.99" decimals 2 label "Valor Exclusão ICMS" column-label "Valor Exclusão ICMS"
    field ttv_row_integr_incorp_bem_pat    as Rowid
    .

def temp-table tt_integr_val_origin_bem_pat_1 no-undo
    field ttv_rec_integr_incorp_bem_pat    as recid format ">>>>>>9"
    field tta_cod_cenar_ctbl               as character format "x(8)" label "Cenário Contábil" column-label "Cenário Contábil"
    field tta_cod_finalid_econ             as character format "x(10)" label "Finalidade" column-label "Finalidade"
    field tta_dat_calc_pat                 as date format "99/99/9999" initial today label "Data Cálculo" column-label "Data Cálculo"
    field tta_val_original                 as decimal format "->>>>>,>>>,>>9.99" decimals 4 initial 0 label "Valor Original" column-label "Valor Original"
    field tta_dat_cotac_indic_econ         as date format "99/99/9999" initial ? label "Data Cotação" column-label "Data Cotação"
    field tta_val_cotac_indic_econ         as decimal format ">>>>,>>9.9999999999" decimals 10 initial 0 label "Cotação" column-label "Cotação"-label "Cotação"
    field ttv_row_integr_incorp_bem_pat    as Rowid
    .

def temp-table tt_integr_val_resid_incorp no-undo
    field tta_num_id_bem_pat               as integer format ">>,>>>,>>9" initial 0 label "Identificação Bem" column-label "Identificação Bem"
    field tta_num_seq_incorp_bem_pat       as integer format ">>,>>>>,>>9" initial 0 label "Sequência Incorp" column-label "Sequência Incorp"
    field tta_cod_tip_calc                 as character format "x(7)" label "Tipo Cálculo" column-label "Tipo Cálculo"
    field tta_cod_cenar_ctbl               as character format "x(8)" label "Cenário Contábil" column-label "Cenário Contábil"
    field tta_cod_finalid_econ             as character format "x(10)" label "Finalidade" column-label "Finalidade"
    field tta_val_resid_min                as decimal format "->>>,>>>,>>>,>>9.99" decimals 2 initial 0 label "Residual Mínimo" column-label "Residual"
    index tt_id                            is primary unique
          tta_num_id_bem_pat               ascending
          tta_num_seq_incorp_bem_pat       ascending
          tta_cod_tip_calc                 ascending
          tta_cod_cenar_ctbl               ascending
          tta_cod_finalid_econ             ascending
    .

def temp-table tt_log_erros_int_inc_bem_pat_1 no-undo
    field ttv_rec_integr_incorp_bem_pat    as recid format ">>>>>>9"
    field ttv_num_erro                     as integer format ">>>>,>>9"
    field ttv_des_msg_erro                 as character format "x(60)" label "Mensagem Erro" column-label "Inconsistência"
    field ttv_des_msg_ajuda                as character format "x(40)" label "Mensagem Ajuda" column-label "Mensagem Ajuda"
    field ttv_row_integr_incorp_bem_pat    as Rowid
    .

FIND bem_pat EXCLUSIVE-LOCK
    WHERE bem_pat.cod_empresa = '10'
      AND bem_pat.cod_cta_pat = '034'
      AND bem_pat.num_bem_pat = 220853
      AND bem_pat.num_seq_bem_pat = 1 NO-ERROR.
ASSIGN bem_pat.cod_estab = '1'.

CREATE tt_integr_incorp_bem_pat_2.
ASSIGN tt_integr_incorp_bem_pat_2.tta_num_id_bem_pat            = bem_pat.num_id_bem_pat
       tt_integr_incorp_bem_pat_2.tta_num_seq_incorp_bem_pat    = 15
       tt_integr_incorp_bem_pat_2.tta_cod_cenar_ctbl            = "fiscal"
       tt_integr_incorp_bem_pat_2.tta_dat_incorp_bem_pat        = 07/20/2023
       tt_integr_incorp_bem_pat_2.tta_ind_incorp_bem_pat        = "Adição" /*l_adicao*/  
       tt_integr_incorp_bem_pat_2.tta_des_incorp_bem_pat        = "teste api versao 3 " + STRING(TODAY) + ' # ' + STRING(TIME,"hh:mm")
       tt_integr_incorp_bem_pat_2.tta_cod_indic_econ            = "REAL"
       tt_integr_incorp_bem_pat_2.tta_val_incorp_bem_pat        = 250
       tt_integr_incorp_bem_pat_2.tta_val_perc_anual_dpr        = 20
       tt_integr_incorp_bem_pat_2.tta_ind_tip_operac            = "Inclusão" /*l_inclusao*/ 
       tt_integr_incorp_bem_pat_2.tta_cdn_fornecedor            = 1
       tt_integr_incorp_bem_pat_2.tta_cod_pais                  = "BRA"
       tt_integr_incorp_bem_pat_2.tta_log_bem_imptdo            = NO
       tt_integr_incorp_bem_pat_2.tta_log_cr_pis                = YES
       tt_integr_incorp_bem_pat_2.tta_log_cr_cofins             = YES
       tt_integr_incorp_bem_pat_2.tta_num_parc_pis_cofins       = 48 
       tt_integr_incorp_bem_pat_2.tta_num_parc_desc             = 0
       tt_integr_incorp_bem_pat_2.tta_val_cr_pis                = 100
       tt_integr_incorp_bem_pat_2.tta_val_cr_cofins             = 200
       tt_integr_incorp_bem_pat_2.tta_log_cr_csll               = NO
       tt_integr_incorp_bem_pat_2.tta_num_exerc_cr_csll         = 0
       tt_integr_incorp_bem_pat_2.tta_val_base_pis              = 10
       tt_integr_incorp_bem_pat_2.tta_val_base_cofins           = 10
       tt_integr_incorp_bem_pat_2.ttv_recrow_integr_incorp_bem_pat = recidrowid(tt_integr_incorp_bem_pat_12).

CREATE tt_integr_val_origin_bem_pat_1.
ASSIGN tt_integr_val_origin_bem_pat_1.ttv_recrow_integr_incorp_bem_pat    = recidrowid(tt_integr_incorp_bem_pat_12)
       tt_integr_val_origin_bem_pat_1.tta_cod_cenar_ctbl               = tt_integr_incorp_bem_pat_12.tta_cod_cenar_ctbl
       tt_integr_val_origin_bem_pat_1.tta_cod_finalid_econ             = "Corrente"
       tt_integr_val_origin_bem_pat_1.tta_dat_calc_pat                 = 07/20/2023
       tt_integr_val_origin_bem_pat_1.tta_val_original                 = 500
       tt_integr_val_origin_bem_pat_1.tta_dat_cotac_indic_econ         = 07/20/2023
       tt_integr_val_origin_bem_pat_1.tta_val_cotac_indic_econ         = 1.

CREATE tt_criacao_bem_pat_item_api_12.
ASSIGN tt_criacao_bem_pat_item_api_12.ttv_recrow_bem             = tt_integr_incorp_bem_pat_12.ttv_recrow_integr_incorp_bem_pat
       tt_criacao_bem_pat_item_api_12.tta_cdn_fornecedor      = 13 
       tt_criacao_bem_pat_item_api_12.tta_cod_docto_entr      = "2206231"
       tt_criacao_bem_pat_item_api_12.tta_cod_ser_nota        = "1"
       tt_criacao_bem_pat_item_api_12.tta_num_item_docto_entr = 20
       tt_criacao_bem_pat_item_api_12.tta_cod_natur_operac    = "111A90"
       tt_criacao_bem_pat_item_api_12.tta_qtd_item_docto_entr = 1.

...

run pi_api_incorp_bem_pat_3 5 IN v_hdl_program (input table tt_integr_incorp_bem_pat_12,
                                              input table tt_integr_val_origin_bem_pat_1,
                                              input table tt_integr_val_resid_incorp,
                                              output table tt_log_erros_int_inc_bem_pat_1,
                                              input table tt_criacao_bem_pat_item_api_12).

FOR EACH tt_log_erros_int_inc_bem_pat_1:
    MESSAGE tt_log_erros_int_inc_bem_pat_1.ttv_des_msg_ajuda VIEW-AS ALERT-BOX.
END.

...