...
DEF VAR v_hdl_program AS HANDLE NO-UNDO.
RUN prgfin\fas\fas715zb.py PERSISTENT SET v_hdl_program.
RUN pi_api_incorp_bem_pat_5 IN v_hdl_program (input table tt_integr_incorp_bem_pat_2,
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_2).
DELETE PROCEDURE v_hdl_program.
...
...
Descrição
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âmetro | Descrição |
tt_integr_incorp_bem_pat_2 | pat_2Esta 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_2 | Esta 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. |
...
def temp-table tt_integr_incorp_bem_pat_2 no-undo-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_numcod_idcta_bem_pat as integer format ">>,>>>,>>9" initial 0 label "Identificação Bem as character format "x(18)" label "Conta Patrimonial" column-label "Identificação BemConta Patrimonial"
field tta_num_seq_incorp_bem_pat cdn_fornecedor as integer Integer format ">>>>>,>>>>>>>,>>9" initial 0 label "Sequência IncorpFornecedor" column-label "Sequência IncorpFornecedor"
field tta_cod_cenar_ctbl pais as character format "x(83)" label "Cenário ContábilPaís" column-label "Cenário ContábilPaís"
field tta_dat_incorplog_bem_pat imptdo as date logical format "99Sim/99/9999Não" initial today no label "Data IncorporaçãoBem Importado" column-label "Data IncorporaçãoBem Importado"
field tta_indlog_incorp_bem_pat cr_pis as character logical format "x(20)Sim/Não" initial "Reavaliação" no label "Tipo IncorporaçãoCredita PIS" column-label "Tipo IncorporaçãoCredita PIS"
field tta_deslog_incorp_bem_pat cr_cofins as character as logical format "x(40)" label "Descrição IncorpSim/Não" initial no label "Credita COFINS" column-label "Descrição IncorpCredita COFINS"
field tta_num_codparc_incentpis_fisc cofins as character integer format "x(8)" 999" initial 0 label "Incentivo FiscalNr Parcelas" column-label "Incentivo FiscalNr Parcelas"
field tta_codnum_indicparc_econ desc as character as integer format "x(8)" 999" initial 0 label "MoedaParc Descontadas" column-label "MoedaParc Descontadas"
field tta_val_incorp_bem_pat cr_pis as decimal format "->>,>>>,>>>,>>9.99" decimals 4 2 initial 0 label "Valor IncorporaçãoCred PIS/PASEP" column-label "Valor IncorporaçãoVl Cred PIS/PASEP"
field tta_codval_tip_calc_reaval cr_cofins as character decimal format "x(8)" label "Tipo Cálculo Reaval>>>,>>>,>>9.99" decimals 2 initial 0 label "Valor Crédito COFINS" column-label "Tipo Cálculo ReavalCredito COFINS"
field tta_vallog_perc_anual_dpr cr_csll as decimal as logical format ">>>>9.999" decimals 3 initial 0 label "Percentual AnualSim/Não" initial no label "Credita CSLL" column-label "Perc Ano DprCredita CSLL"
field tta_valnum_percexerc_anual_dpr_incevda as decimal format ">>>>9.9999" decimals 4 cr_csll as integer format ">>9" initial 0 label "Perc Anual Dpr IncenExercicios Créd CSLL" column-label "Perc Anual Dpr IncenExer Cr CSLL"
field tta_qtdind_unid_vida_util tip_operac as decimal character format ">>>>,>>>,>>9.99" decimals 2 initial 0 label "Vida Útil (Unidades)X(35)" initial "Nota de Débito" label "Tipo Operação" column-label "Unid Vida ÚtilTipo Operação"
field tta_val_perc_anual_reduc_sdo base_pis as decimal format "->>,>>>,>>>,>>9.99" decimals 2 initial 0 label "Perc Redução SaldoValor Base PIS/PASEP" column-label "Perc Redução SaldoVl Base PIS/PASEP"
field tta_codval_ctabase_pat cofins as character format "x(18)" label "Conta Patrimonialdecimal format ">>>,>>>,>>9.99" decimals 2 initial 0 label "Valor Base COFINS" column-label "Conta PatrimonialBase COFINS"
field ttattv_val_cdnexc_fornecedor icms as Integer decimal format "->>,>>>,>>>,>>9.99" initial 0 decimals 2 label "FornecedorValor Exclusão ICMS" column-label "FornecedorValor Exclusão ICMS"
field tta_cod_pais as character format "x(3)" label "País" column-label "País"ttv_row_integr_incorp_bem_pat as Rowid
.
def temp-table tt_integr_val_origin_bem_pat_1 no-undo
field tta_logcod_bemcenar_imptdo ctbl as logical character format "Sim/Não" initial no label "Bem Importadox(8)" label "Cenário Contábil" column-label "Bem ImportadoCenário Contábil"
field tta_logcod_cr_pis finalid_econ as logical character format "Sim/Não" initial no x(10)" label "Credita PISFinalidade" column-label "Credita PISFinalidade"
field tta_logdat_crcalc_cofins pat as logical as date format "Sim99/99/Não9999" initial no today label "Credita COFINSData Cálculo" column-label "Credita COFINSData Cálculo"
field tta_num_parc_pis_cofins val_original as integer as decimal format "999" ->>>>>,>>>,>>9.99" decimals 4 initial 0 label "Nr ParcelasValor Original" column-label "Nr ParcelasValor Original"
field tta_dat_numcotac_parcindic_desc econ as integer as date format "99999/99/9999" initial 0 ? label "Parc DescontadasData Cotação" column-label "Parc DescontadasData Cotação"
field tta_val_cotac_cr_pis indic_econ as decimal format ">>>,>>>>>>>,>>9.999999999999" decimals 2 10 initial 0 label "Valor Cred PIS/PASEPCotação" column-label "Vl Cred PIS/PASEPCotação"
field ttv_row_integr_incorp_bem_pat as Rowid
.
def temp-table tt_integr_val_resid_incorp no-undo
field tta_num_valid_crbem_cofins pat as decimal as integer format ">>>>>,>>>,>>9.99" decimals 2 initial 0 label "Valor Crédito COFINSIdentificação Bem" column-label "Credito COFINSIdentificação Bem"
field tta_log_cr_csll as logical format "Sim/Não" initial no label "Credita CSLLtta_num_seq_incorp_bem_pat as integer format ">>,>>>>,>>9" initial 0 label "Sequência Incorp" column-label "Credita CSLLSequência Incorp"
field tta_numcod_exerc_cr_csll tip_calc as integer as character format ">>9" initial 0 label "Exercicios Créd CSLLx(7)" label "Tipo Cálculo" column-label "Exer Cr CSLLTipo Cálculo"
field tta_indcod_tipcenar_operac ctbl as character format "Xx(35)" initial "Nota de Débito8)" label "Tipo OperaçãoCenário Contábil" column-label "Tipo OperaçãoCenário Contábil"
field tta_valcod_basefinalid_pis econ as decimal character format ">>>,>>>,>>9.99" decimals 2 initial 0 label "Valor Base PIS/PASEPx(10)" label "Finalidade" column-label "Vl Base PIS/PASEPFinalidade"
field tta_val_baseresid_cofins min as decimal format "->>>,>>>,>>>,>>9.99" decimals 2 initial 0 label "Valor Base COFINSResidual Mínimo" column-label "Base COFINSResidual"
field ttv_val_exc_icms index tt_id 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 tta_cod_cenar_ctbl is primary unique
tta_num_id_bem_pat ascending
tta_num_seq_incorp_bem_pat ascending
tta_cod_tip_calc as character format "x(8)" label "Cenário Contábil" column-label "Cenário Contábil"
field ascending
tta_cod_finalidcenar_econ ctbl as character format "x(10)" label "Finalidade" column-label "Finalidade"
field tta_dat_calc_pat ascending
tta_cod_finalid_econ as date format "99/99/9999" initial today label "Data Cálculo" column-label "Data Cálculo"ascending
.
def temp-table tt_log_erros_int_inc_bem_pat_1 no-undo
field ttattv_valnum_original erro as decimal integer format "->>>>>>>>>,>>>,>>9.99" decimals 4 initial 0 label "Valor Original" column-label "Valor Original"
field ttattv_datdes_cotac_indic_econ msg_erro as date character format "99/99/9999" initial ? label "Data Cotaçãox(60)" label "Mensagem Erro" column-label "Data CotaçãoInconsistência"
field ttattv_valdes_cotac_indic_econ msg_ajuda as decimal as character format ">>>>,>>9.9999999999" decimals 10 initial 0 label "Cotaçãox(40)" label "Mensagem Ajuda" column-label "CotaçãoMensagem Ajuda"
field ttv_row_integr_incorp_bem_pat as Rowid
.
def temp-table tt_integr_val_resid_incorp criacao_bem_pat_item_api_2 no-undo
field ttattv_num_id_bem_pat row_bem as Rowid
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_tipser_calc nota as character format "x(75)" label "Tipo CálculoSérie Nota" column-label "Tipo CálculoSérie Nota"
field tta_num_coditem_cenardocto_ctbl entr as character format "x(8)" label "Cenário Contábil as integer format ">>>,>>9" initial 0 label "Numero Item" column-label "Cenário ContábilNum Item"
field tta_cod_finalidnatur_econ operac as character format "x(106)" label "FinalidadeNatureza Operação" column-label "FinalidadeNatureza Operação"
field tta_qtd_valitem_resid_min docto_entr as decimal format "->>>,>>>,>>>,>>9.99" decimals 2 decimal format ">>>>>>>>9" initial 0 label "Residual MínimoQtde Item Docto" column-label "ResidualQtde Item Docto"
index tt_id is primary unique
ttattv_num_idrow_bem _pat ascending
tta_num_seq_incorp_bem_pat ascending ascending
tta_codcdn_tip_calc fornecedor ascending
tta_cod_cenardocto_ctbl entr ascending
tta_cod_finalidser_econ nota ascending
.def temp-table tt_log_erros_int_inc_bem_pat_1 no-undo
field ttv_num_erro tta_num_item_docto_entr ascending
as integer format ">>>>,>>9"
field ttv_des_msg_erro tta_cod_natur_operac 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_rowascending
.
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.
CREATE tt_integr_incorp_bem_pat as Rowid
_2.
def temp-table ASSIGN tt_criacaointegr_incorp_bem_pat_item2.tta_api_2 no-undo
field ttv_row_bem num_id_bem_pat as 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 = 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 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_row_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
.
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.
CREATE tt= "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.
ASSIGN tttta_ind_tip_operac = "Inclusão" /*l_inclusao*/
tt_integr_incorp_bem_pat_2.tta_num_id_bem_pat cdn_fornecedor = 1
tt_integr_incorp_bem_pat_2.numtta_id_bem_patcod_pais = "BRA"
tt_integr_incorp_bem_pat_2.tta_num_seq_incorplog_bem_pat imptdo = 15NO
tt_integr_incorp_bem_pat_2.tta_codlog_cenarcr_ctbl pis = "fiscal"YES
tt_integr_incorp_bem_pat_2.tta_datlog_incorp_bem_pat cr_cofins = 07/20/2023YES
tt_integr_incorp_bem_pat_2.tta_indnum_incorpparc_bempis_pat cofins = "Adição" /*l_adicao*/ 48
tt_integr_incorp_bem_pat_2.tta_desnum_incorp_bem_pat parc_desc = "teste api versao 3 " + STRING(TODAY) + ' # ' + STRING(TIME,"hh:mm")0
tt_integr_incorp_bem_pat_2.tta_codval_incentcr_fisc pis = "Importac"100
tt_integr_incorp_bem_pat_2.tta_codval_indiccr_econ cofins = "REAL"200
tt_integr_incorp_bem_pat_2.tta_vallog_incorp_bem_pat cr_csll = 250NO
tt_integr_incorp_bem_pat_2.tta_codnum_tipexerc_calccr_reaval csll = ""0
tt_integr_incorp_bem_pat_2.tta_val_perc_anual_dpr base_pis = 2010
tt_integr_incorp_bem_pat_2.tta_val_perc_anual_dpr_incevda = 0base_cofins = 10
tt_integr_incorp_bem_pat_2.ttattv_qtdval_unid_vida_util exc_icms = 10
tt_integr_incorp_bem_pat_2.ttattv_valrow_percintegr_anualincorp_reducbem_sdo pat = 0
ttrowid(tt_integr_incorp_bem_pat_2.tta_cod_cta_pat = bem_pat.cod_cta_pat
tt).
CREATE tt_integr_val_origin_bem_pat_1.
ASSIGN tt_integr_val_origin_bem_pat_1.ttv_row_integr_incorp_bem_pat = tt_integr_incorp_bem_pat_2.ttattv_indrow_tip_operac = "Inclusão" /*l_inclusao*/ integr_incorp_bem_pat
tt_integr_incorpval_origin_bem_pat_21.tta_cdn_fornecedor cod_cenar_ctbl = 1
tttt_integr_incorp_bem_pat_2.tta_cod_pais = "BRA"_cenar_ctbl
tt_integr_incorpval_origin_bem_pat_21.tta_logcod_bemfinalid_imptdo econ = NO"Corrente"
tt_integr_val_incorporigin_bem_pat_21.tta_logdat_crcalc_pis pat = YES07/20/2023
tt_integr_incorpval_origin_bem_pat_21.tta_log_cr_cofins val_original = YES500
tt_integr_val_incorporigin_bem_pat_21.tta_numdat_parccotac_pisindic_cofins econ = 48 07/20/2023
tt_integr_incorpval_origin_bem_pat_21.tta_val_numcotac_parcindic_desc econ = 0
1.
CREATE tt tt_integr_val_resid_incorp_bem_pat_2.
ASSIGN tt_integr_val_resid_incorp.tta_valnum_id_cr_pis = 100
bem_pat tt= tt_integr_incorp_bem_pat_2.tta_num_valid_cr_cofins = 200bem_pat
tt_integr_incorpval_bemresid_pat_2incorp.tta_num_seq_logincorp_cr_csll = NO
ttbem_pat = tt_integr_incorp_bem_pat_2.tta_num_seq_exercincorp_cr_csll = 0bem_pat
tt_integr_incorpval_bemresid_pat_2incorp.tta_valcod_basetip_pis calc = 10= "DP"
tt_integr_incorpval_bemresid_pat_2incorp.tta_valcod_basecenar_cofins ctbl = 10"FISCAL"
tt_integr_incorpval_bemresid_pat_2incorp.ttvtta_valcod_excfinalid_icms econ = 0= "CORRENTE"
tt_integr_incorpval_bemresid_pat_2incorp.ttvtta_rowval_integr_incorp_bem_pat = rowid(tt_integr_incorp_bem_pat_2)resid_min = 0.
CREATE tt_integr_val_origin_bem_patresid_1incorp.
ASSIGN tt_integr_val_origin_bem_pat_1.ttv_row_integr_incorp_resid_incorp.tta_num_id_bem_pat = tt_integr_incorp_bem_pat_2.ttvtta_rownum_integrid_incorp_bem_pat
tt_integr_val_origin_bem_pat_1resid_incorp.tta_codnum_cenar_ctbl = tt_integr_seq_incorp_bem_pat _2.tta_cod_cenar_ctbl
tt= tt_integr_valincorp_origin_bem_pat_12.tta_codnum_finalid_econ = "Corrente"seq_incorp_bem_pat
tt_integr_val_origin_bem_pat_1resid_incorp.tta_datcod_tip_calc _pat = 07/20/2023"DP"
tt_integr_val_origin_bem_pat_1resid_incorp.tta_valcod_cenar_original ctbl = 500= "FISCAL"
tt_integr_val_origin_bem_pat_1resid_incorp.tta_datcod_cotac_indicfinalid_econ = 07/20/2023= "FISCAL"
tt_integr_val_origin_bem_pat_1resid_incorp.tta_val_cotac_indicresid_econ min = 10.
CREATE tt_criacao_bem_pat_item_api_2.
ASSIGN tt_criacao_bem_pat_item_api_2.ttv_row_bem = tt_integr_incorp_bem_pat_2.ttv_row_integr_incorp_bem_pat
tt_criacao_bem_pat_item_api_2.tta_cdn_fornecedor = 13 13
tt_criacao_bem_pat_item_api_2.tta_cod_docto_entr = "2206231"
tt_criacao_bem_pat_item_api_2.tta_cod_ser_nota = "1"
tt_criacao_bem_pat_item_api_2.tta_num_item_docto_entr = 20
tt_criacao_bem_pat_item_api_2.tta_cod_natur_operac = "111A90"
tt_criacao_bem_pat_item_api_2.tta_qtd_item_docto_entr = 1.
...
run pi_api_incorp_bem_pat_5 IN v_hdl_program ((input table tt_integr_incorp_bem_pat_2,
input table tt_integr_val_origin_bem_pat_1,
input table tt_integr_incorpval_bemresid_pat_2incorp,
input output table tt_integrlog_erros_valint_origininc_bem_pat_1,
input table tt_integr_val_resid_incorp,
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
output table "Erro: " tt_log_erros_int_inc_bem_pat_1,.ttv_num_erro SKIP
input table tt_criacao_bem_pat_item_api_2).FOR EACH tt_"Mensagem: " tt_log_erros_int_inc_bem_pat_1:.ttv_des_msg_erro SKIP
MESSAGE "Ajuda: " 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 = ?.
...
