...

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_5 4 IN v_hdl_program (input table tt_integr_incorp_bem_pat_21,
                                                                                     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_21).

DELETE PROCEDURE v_hdl_program.

OBS: Caso tenha migrado para base utilizando rowid e esteja utilizado uma versão inferior a 5 da API, deve ser definido a include abaixo:

/*-- Filtro RECID x ROWID Aplicado --*/
{include/i_fncrowid.i}

E todas variáveis do tipo RECID, devem serem definidas conforme o modelo abaixo:

field ttv_row_integr_incorp_bem_pat     as &IF "{&ROWID_READY}" = "YES" &THEN rowid &ELSE recid format ">>>>>>9" &ENDIF

Parâmetros

Parâmetros

...

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.

...

2) Valores originais da incorporação

3) Valores Residuais da incorporação

3) Valores Residuais da incorporação

4) Tabela de erros

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

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

...

Exemplo do programa para criação dos registros nas temp-tables com as incorporações dos bens patrimoniais a serem implantados:

def temp-table tt_integrcriacao_incorp_bem_pat_item_api_2 1 no-undo
    field ttattv_num_id_bem_pat rec_bem                      as recid format ">>>>>>9"
    field tta_cdn_fornecedor               as integer Integer format ">>>>>,>>>,>>9" initial 0 label "Identificação BemFornecedor" column-label "Identificação BemFornecedor"
    field tta_numcod_seq_incorp_bem_pat docto_entr               as integer character format ">>,>>>>,>>9" initial 0 label "Sequência Incorpx(8)" label "Docto Entrada" column-label "Sequência IncorpDocto Entrada"
    field tta_cod_cenarser_ctbl nota                 as character format "x(85)" label "Cenário ContábilSérie Nota" column-label "Cenário ContábilSérie Nota"
    field tta_datnum_incorpitem_bemdocto_pat entr           as date  as integer format "99/99/9999>>>,>>9" initial today 0 label "Data IncorporaçãoNumero Item" column-label "Data IncorporaçãoNum Item"
    field tta_indcod_incorp_bem_pat natur_operac             as character format "x(206)" initial "Reavaliação" label "Tipo IncorporaçãoNatureza Operação" column-label "Tipo IncorporaçãoNatureza Operação"
    field tta_desqtd_incorpitem_bemdocto_pat entr           as character  as decimal format "x(40)" label "Descrição Incorp>>>>>>>>9" initial 0 label "Qtde Item Docto" column-label "Descrição IncorpQtde Item Docto"
    field tta_cod_incent_fisc index tt_id                    as character format "x(8)" label "Incentivo Fiscal" column-label "Incentivo Fiscal"
    field tta_cod_indic_econ          is primary unique
          ttv_rec_bem                      ascending
          tta_cdn_fornecedor               as character format "x(8)" label "Moeda" column-label "Moeda"ascending
    field       tta_valcod_incorp_bem_pat docto_entr                 as decimal format "->>,>>>,>>>,>>9.99" decimals 4 initial 0 label "Valor Incorporação" column-label "Valor Incorporação"
    field ascending
          tta_cod_tip_calc_reaval ser_nota                  as character format "x(8)" label "Tipo Cálculo Reaval" column-label "Tipo Cálculo Reaval"ascending
    field       tta_valnum_percitem_anual_dpr docto_entr          ascending
          tta_cod_natur_operac             ascending
    .

def temp-table tt_integr_incorp_bem_pat_1 no-undo as decimal format ">>>>9.999" decimals 3 initial 0 label "Percentual Anual" column-label "Perc Ano Dpr"
    field tta_valnum_percid_anual_dpr_incevda bem_pat               as decimal integer format ">>>>9.9999" decimals 4 >>,>>>,>>9" initial 0 label "Perc Anual Dpr IncenIdentificação Bem" column-label "Perc Anual Dpr IncenIdentificação Bem"
    field tta_num_qtdseq_unidincorp_vidabem_util     pat       as decimal integer format ">>,>>>>,>>>,>>9.99" decimals 2 initial 0 label "Vida Útil (Unidades)Sequência Incorp" column-label "Unid Vida ÚtilSequência Incorp"
    field tta_valcod_perc_anual_reduc_sdo cenar_ctbl               as decimal character format "->>,>>>,>>>,>>9.99" decimals 2 initial 0 label "Perc Redução Saldox(8)" label "Cenário Contábil" column-label "Perc Redução SaldoCenário Contábil"
    field tta_coddat_ctaincorp_bem_pat                  as character format "x(18)" label "Conta Patrimonialas date format "99/99/9999" initial today label "Data Incorporação" column-label "Conta PatrimonialData Incorporação"
    field tta_cdn_fornecedor     ind_incorp_bem_pat           as Integer character format ">>>,>>>,>>9x(20)" initial 0 "Reavaliação" label "FornecedorTipo Incorporação" column-label "FornecedorTipo Incorporação"
    field tta_des_codincorp_bem_pais pat                     as character format "x(340)" label "PaísDescrição Incorp" column-label "PaísDescrição Incorp"
    field tta_logcod_bemincent_imptdo fisc               as logical  as character format "Sim/Não" initial no label "Bem Importadox(8)" label "Incentivo Fiscal" column-label "Bem ImportadoIncentivo Fiscal"
    field tta_logcod_crindic_pis econ                   as logical character format "Sim/Não" initial no x(8)" label "Credita PISMoeda" column-label "Credita PISMoeda"
    field tta_val_logincorp_crbem_cofins pat                as logical format "Sim/Não" initial no label "Credita COFINSas decimal format "->>,>>>,>>>,>>9.99" decimals 4 initial 0 label "Valor Incorporação" column-label "Credita COFINSValor Incorporação"
    field tta_numcod_parctip_piscalc_cofins reaval          as integer character format "999" initial 0 label "Nr Parcelasx(8)" label "Tipo Cálculo Reaval" column-label "Nr ParcelasTipo Cálculo Reaval"
    field tta_val_numperc_parcanual_desc dpr                as integer as decimal format ">>>>9.999" decimals 3 initial 0 label "Parc DescontadasPercentual Anual" column-label "Parc DescontadasPerc Ano Dpr"
    field tta_val_perc_anual_crdpr_pis                   incevda   as decimal format ">>>,>>>,>>9.99>>>>9.9999" decimals 2 4 initial 0 label "Valor Cred PIS/PASEPPerc Anual Dpr Incen" column-label "Vl Cred PIS/PASEPPerc Anual Dpr Incen"
    field tta_valqtd_unid_crvida_cofins util                as as decimal format ">>>>>>>,>>>,>>9.99" decimals 2 initial 0 label "Valor Crédito COFINSVida Útil (Unidades)" column-label "Credito COFINSUnid Vida Útil"
    field tta_val_logperc_anual_crreduc_csll sdo                  as logical format "Sim/Não" initial no label "Credita CSLLas decimal format "->>,>>>,>>>,>>9.99" decimals 2 initial 0 label "Perc Redução Saldo" column-label "Credita CSLLPerc Redução Saldo"
    field tta_numcod_exerc_cr_csll cta_pat                  as integer character format ">>9" initial 0 label "Exercicios Créd CSLLx(18)" label "Conta Patrimonial" column-label "Exer Cr CSLLConta Patrimonial"
    field tta_indcdn_tip_operac fornecedor               as character Integer format "X(35)" initial "Nota de Débito" label "Tipo Operação>>>,>>>,>>9" initial 0 label "Fornecedor" column-label "Tipo OperaçãoFornecedor"
    field tta_val_base_pis cod_pais                     as decimal character format ">>>,>>>,>>9.99" decimals 2 initial 0 label "Valor Base PIS/PASEPx(3)" label "País" column-label "Vl Base PIS/PASEPPaís"
    field tta_vallog_basebem_cofins imptdo                as decimal as logical format ">>>,>>>,>>9.99" decimals 2 initial 0 label "Valor Base COFINSSim/Não" initial no label "Bem Importado" column-label "Base COFINSBem Importado"
    field ttvtta_vallog_exccr_icms pis                   as decimal logical format "->>,>>>,>>>,>>9.99" decimals 2 label "Valor Exclusão ICMSSim/Não" initial no label "Credita PIS" column-label "Valor Exclusão ICMSCredita PIS"
    field ttvtta_rowlog_integr_incorp_bem_pat    as Rowid
    .def temp-table tt_integr_val_origin_bem_pat_1 no-undocr_cofins                as logical format "Sim/Não" initial no label "Credita COFINS" column-label "Credita COFINS"
    field tta_codnum_parc_cenarpis_ctbl cofins               as character  as integer format "x(8)" 999" initial 0 label "Cenário ContábilNr Parcelas" column-label "Cenário ContábilNr Parcelas"
    field tta_codnum_finalidparc_econ desc               as character  as integer format "x(10)" 999" initial 0 label "FinalidadeParc Descontadas" column-label "FinalidadeParc Descontadas"
    field tta_datval_calccr_pat pis                   as date decimal format "99/99/9999" initial today label "Data Cálculo>>>,>>>,>>9.99" decimals 2 initial 0 label "Valor Cred PIS/PASEP" column-label "Data CálculoVl Cred PIS/PASEP"
    field tta_val_original cr_cofins                 as  as decimal format "->>>>>>>>,>>>,>>9.99" decimals 4 2 initial 0 label "Valor OriginalCrédito COFINS" column-label "Valor OriginalCredito COFINS"
    field tta_datlog_cotac_indic_econ cr_csll                 as date  as logical format "99Sim/99/9999Não" initial ? no label "Data CotaçãoCredita CSLL" column-label "Data CotaçãoCredita CSLL"
    field tta_valnum_cotacexerc_indiccr_econ csll           as decimal  as integer format ">>>>,>>9.9999999999" decimals 10 initial 0 label "CotaçãoExercicios Créd CSLL" column-label "CotaçãoExer Cr CSLL"
    field ttvtta_rowind_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 Bemtip_operac               as character format "X(35)" initial "Nota de Débito" label "Tipo Operação" column-label "Identificação BemTipo Operação"
    field ttattv_numrec_seqintegr_incorp_bem_pat    as recid format ">>>>>>9"
    as integer format ">>,>>>>,>>9" field tta_val_base_pis                 as decimal format ">>>,>>>,>>9.99" decimals 2 initial 0 label "Sequência IncorpValor Base PIS/PASEP" column-label "Sequência IncorpVl Base PIS/PASEP"
    field tta_codval_tipbase_calc cofins                 as character format "x(7)" label "Tipo Cálculo as decimal format ">>>,>>>,>>9.99" decimals 2 initial 0 label "Valor Base COFINS" column-label "Tipo CálculoBase COFINS"
    field ttattv_codval_cenarexc_ctbl icms                 as character decimal format "x(8)" label "Cenário Contábil->>,>>>,>>>,>>9.99" decimals 2 label "Valor Exclusão ICMS" column-label "Cenário ContábilValor Exclusão ICMS"
    .

def temp-table tt_integr_val_origin_bem_pat no-undo
    field ttv_rec_integr_incorp_bem_pat    as recid format ">>>>>>9"
    field tta_cod_cenar_ctbl field tta_cod_finalid_econ                 as character format "x(108)" label "FinalidadeCenário Contábil" column-label "FinalidadeCenário Contábil"
    field tta_valcod_residfinalid_min econ                as decimal format "->>>,>>>,>>>,>>9.99" decimals 2 initial 0 label "Residual Mínimoas character format "x(10)" label "Finalidade" column-label "ResidualFinalidade"
    index tt_id 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        is primary unique
          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"
    .

def temp-table tt_integr_val_resid_incorp no-undo
    field tta_num_id_bem_pat tta_num_id_bem_pat               ascending
          tta_num_seq_incorp_bem_pat       ascending
          tta_cod_tip_calc                 ascendingas integer format ">>,>>>,>>9" initial 0 label "Identificação Bem" column-label "Identificação Bem"
          tta_cod_cenar_ctbl               ascending
          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_finalidtip_econ calc             ascending
    .def temp-table tt_log_erros_int_inc_bem_pat_1 no-undo    as character format "x(7)" label "Tipo Cálculo" column-label "Tipo Cálculo"
    field ttvtta_cod_numcenar_erro   ctbl                   as integer format ">>>>,>>9character format "x(8)" label "Cenário Contábil" column-label "Cenário Contábil"
    field ttvtta_descod_msgfinalid_erro econ                 as character format "x(6010)" label "Mensagem ErroFinalidade" column-label "InconsistênciaFinalidade"
    field ttvtta_desval_msgresid_ajuda min                as character decimal format "x(40)" label "Mensagem Ajuda->>>,>>>,>>>,>>9.99" decimals 2 initial 0 label "Residual Mínimo" column-label "Mensagem AjudaResidual"
    field ttv_row_integr_incorp_bem_pat    as Rowid
    .
def temp-table tt_criacao_bem_pat_item_api_2 no-undo
    field ttv_row_bem index tt_id                            is primary unique
       as Rowid
    field tta_cdn_fornecedor num_id_bem_pat               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 ascending
          tta_num_seq_incorp_bem_pat       ascending
          tta_cod_tip_calc                     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 ascending
          tta_cod_cenar_ctbl               ascending
          tta_cod_finalid_econ             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 Doctoascending
    .

def temp-table tt_log_erros_int_inc_bem_pat no-undo
    field ttv_rec_integr_incorp_bem_pat    as recid format ">>>>>>9"
    field ttv_num_erro " column-label "Qtde Item Docto"
    index tt_id                            is primary uniqueas integer format ">>>>,>>9"
          field ttv_des_rowmsg_bem erro                      ascendingas character format "x(60)" label "Mensagem Erro" column-label "Inconsistência"
          tta_cdn_fornecedor               ascending
          tta_cod_docto_entr field ttv_des_msg_ajuda               ascending
          tta_cod_ser_nota                 ascending
          tta_num_item_docto_entr          ascending
          tta_cod_natur_operac             ascending
    .

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.

 as character format "x(40)" label "Mensagem Ajuda" column-label "Mensagem Ajuda"
    .

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 ttCREATE 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 5 " + STRING(TODAY) + ' # ' + STRING(TIME,"hh:mm")
       tt_integr_incorp_bem_pat_2.tta_cod_incent_fisc            = "Importac"
       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_cod_tip_calc_reaval        = ""
       tt_integr_incorp_bem_pat_2.tta_val_perc_anual_dpr         = 20
       tt_integr_incorp_bem_pat_2.tta_val_perc_anual_dpr_incevda = 0
       tt_integr_incorp_bem_pat_2.tta_qtd_unid_vida_util         = 1
       tt_integr_incorp_bem_pat_2.tta_val_perc_anual_reduc_sdo   = 0
       tt_integr_incorp_bem_pat_2.tta_cod_cta_pat                = bem_pat.cod_cta_pat
       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
ASSIGN tt_integr_incorp_bem_pat_2.tta_num_parcid_pisbem_cofins pat        = 48
       tt_integr_incorp_= bem_pat_2.ttanum_numid_parc_desc              = 0bem_pat
       tt_integr_incorp_bem_pat_2.tta_valnum_cr_pis                 = 100
       tt_integr_seq_incorp_bem_pat _2.tta_val_cr_cofins              = 20015
       tt_integr_incorp_bem_pat_2.tta_logcod_crcenar_csll     ctbl            = NO"fiscal"
       tt_integr_incorp_bem_pat_2.tta_numdat_exercincorp_crbem_csll pat          = 007/20/2023
       tt_integr_incorp_bem_pat_2.tta_valind_incorp_basebem_pis pat               = 10= "Adição" /*l_adicao*/  
       tt_integr_incorp_bem_pat_2.tta_valdes_incorp_basebem_cofins pat            = 10= "teste api versao 3 " + STRING(TODAY) + ' # ' + STRING(TIME,"hh:mm")
       tt_integr_incorp_bem_pat_2.ttvtta_valcod_excindic_icms   econ            = 0"REAL"
       tt_integr_incorp_bem_pat_2.ttvtta_row_integrval_incorp_bem_pat       = rowid(tt_integr_incorp_bem_pat_2).CREATE tt_integr_val_origin_bem_pat_1.
ASSIGN tt_integr_val_origin_bem_pat_1.ttv_row_integr_incorp_bem_pat    = tt = 250
       tt_integr_incorp_bem_pat_2.ttvtta_rowval_integrperc_incorp_bem_patanual_dpr        = 20
       tt_integr_val_originincorp_bem_pat_1.tta_codind_cenartip_ctbl operac               = tt= "Inclusão" /*l_inclusao*/ 
       tt_integr_incorp_bem_pat_2.tta_cod_cenar_ctblcdn_fornecedor            = 1
       tt_integr_valincorp_origin_bem_pat_1.tta_cod_finalid_econ pais                  = "CorrenteBRA"
       tt_integr_val_originincorp_bem_pat_1.tta_datlog_calcbem_pat imptdo                 = 07/20/2023= NO
       tt_integr_valincorp_origin_bem_pat_1.tta_log_valcr_original pis                = 500YES
       tt_integr_val_originincorp_bem_pat_1.tta_datlog_cotac_indic_econ cr_cofins             = 07/20/2023YES
       tt_integr_val_originincorp_bem_pat_1.tta_valnum_cotacparc_indicpis_econ cofins         = 1.CREATE tt_integr_val_resid_incorp.
ASSIGN tt48 
       tt_integr_valincorp_residbem_incorppat.tta_num_id_bem_pat parc_desc             = tt0
       tt_integr_incorp_bem_pat_2.tta_numval_id_bem_patcr_pis                = 100
       tt_integr_valincorp_residbem_incorppat.tta_numval_seq_incorp_bem_pat = ttcr_cofins             = 200
       tt_integr_incorp_bem_pat_2.tta_numlog_seq_incorp_bem_patcr_csll               = NO
       tt_integr_valincorp_residbem_incorppat.tta_num_codexerc_tipcr_calc csll           = "DP"0
       tt_integr_valincorp_residbem_incorppat.tta_codval_cenar_ctbl base_pis              = "FISCAL"10
       tt_integr_valincorp_residbem_incorppat.tta_codval_finalidbase_econ cofins           = "CORRENTE"10
       tt_integr_val_resid_incorp.tta_val_resid_min          = 0incorp_bem_pat.ttv_rec_integr_incorp_bem_pat = recid(tt_integr_incorp_bem_pat_1).

CREATE tt_integr_val_origin_residbem_incorppat.
ASSIGN tt_integr_val_origin_residbem_incorppat.ttattv_rec_numintegr_idincorp_bem_pat        = recid(tt_integr_incorp_bem_pat_2.tta_num_id_bem_pat1)
       tt_integr_val_residorigin_bem_incorppat.tta_num_seq_cod_cenar_ctbl               = tt_integr_incorp_bem_pat = ttpat_1.tta_cod_cenar_ctbl
       tt_integr_incorpval_origin_bem_pat_2.tta_numcod_seq_incorp_bem_patfinalid_econ             = "Corrente"
       tt_integr_val_origin_residbem_incorppat.tta_coddat_tip_calc calc_pat                 = "DP"07/20/2023
       tt_integr_val_origin_residbem_incorppat.tta_cod_cenar_ctbl val_original                 = "FISCAL"500
       tt_integr_val_residorigin_bem_incorppat.tta_dat_codcotac_finalidindic_econ         = "FISCAL"07/20/2023
       tt_integr_val_origin_residbem_incorppat.tta_val_resid_min   cotac_indic_econ         = 01.

CREATE tt_criacao_bem_pat_item_api_21.
ASSIGN tt_criacao_bem_pat_item_api_21.ttv_rowrec_bem             = tt_integr_incorp_bem_pat_21.ttv_rowrec_integr_incorp_bem_pat
       tt_criacao_bem_pat_item_api_21.tta_cdn_fornecedor      = 1313 
       tt_criacao_bem_pat_item_api_21.tta_cod_docto_entr      = "2206231"
       tt_criacao_bem_pat_item_api_21.tta_cod_ser_nota        = "1"
       tt_criacao_bem_pat_item_api_21.tta_num_item_docto_entr = 20
       tt_criacao_bem_pat_item_api_21.tta_cod_natur_operac    = "111A90"
       tt_criacao_bem_pat_item_api_21.tta_qtd_item_docto_entr = 1.

...

run pi_api_incorp_bem_pat_5 3 IN v_hdl_program (input table tt_integr_incorp_bem_pat_2,
                                              _hdl_program (input table tt_integr_val_originincorp_bem_pat_1,
                                              input table tt_integr_val_origin_residbem_incorppat,
                                              output input table tt_logintegr_errosval_int_inc_bem_pat_1resid_incorp,
                                              input output table tt_criacao_bem_pat_item_api_2).FOR EACH tt_log_erros_int_inc_bem_pat_1:
    MESSAGE "Descrição: " tt_integr_incorp_bem_pat_2.tta_des_incorp_bem_pat SKIP
,
                                      "Erro: "         input table tt_logcriacao_errosbem_intpat_incitem_bem_patapi_1).

FOR EACH ttv_num_erro SKIP
            "Mensagem: " tt_log_erros_int_inc_bem_pat_1.ttv_des_msg_erro SKIP:
            "Ajuda: " MESSAGE tt_log_erros_int_inc_bem_pat_1.ttv_des_msg_ajuda SKIP
            VIEW-AS ALERT-BOX.
END.

DELETE OBJECT v_hdl_program.
ASSIGN v_hdl_program = ?.

...