Histórico da Página
...
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
Parâmetro | Descrição |
tt_integr_incorp_bem_pat_1 | Esta temp |
Parâmetro | Descrição |
tt_integr_incorp_bem_pat_2 | 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_21 | 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. |
...
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_21 | 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ção do bem.Incorporação | 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) | Código Moeda da moeda da incorporação do bem. | Sim | |||||||
tta_val_incorp_bem_pat | decimal | ->>,>>>,>>>,>>9.99 | Valor da incorporação a ser sofrida pelo bem patrimonial.incorporação | Sim | |||||||
tta_cod_tip_calc_reaval | character | x(8)Código do tipo | 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 Saldo é 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 | depreciação redução de saldo | 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ão | |||||||
tta_cdn_fornecedor | integer | >>>,>>>,>>9 | Código que identifique o fornecedor relacionado a incorporação do bem patrimonial, como benfeitorias. | Número do Fornecedor | NãoNã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 já 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. Veja mais informações na descrição do conceito Contabilização do Crédito PIS/COFINS em 48 Parcelas. | Não | |||||||
tta_val_cr_cofins | decimal | >>>,>>>,>>9.99 | Valor total de crédito de COFINS, esta informação será utilizada como base para o cálculo das parcelas Valor 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 | Não | ||||||
ttatta_log_cr_csll | logical | Sim/Não | Credita CSLL? | Não | |||||||
tta_num_exerc_csll | integer | >>9 | Quantidade de exercícios em que a incorporação do bem patrimonial pode se beneficiar do crédito da CSLL.Número do exercício CSLL | Não | |||||||
ttv_ind_tip_operac | character | x(35) | Tipo da operação. | Sim | |||||||
ttv_rowrec_integr_incorp_bem_pat | rowid | recid | >>>>>>9 | Identificador interno ROWID do registro da incorporação do bem patrimonial criado na temp-table , ou seja, o identificador interno do registro.criada | Sim | ||||||
tta_val_base_pis | decimal | >>>,>>>,>>9.99 | Valor | totalda base | dePIS | . Quando for informado o Valor de Exclusão de ICMS, deverá informar também a base de cálculo.Não | |||||
tta_val_base_cofins | decimal | >>>,>>>,>>9.99 | Valor | totalda base | deCOFINS | . Quando for informado o Valor de Exclusão de ICMS, deverá informar também a base de cálculo.Não | |||||
ttv_val_exc_icms | decimal | ->>,>>>,>>>,>>9.99 | Valor | totalde exclusão de ICMS da base de cálculo do PIS/COFINS | .Não | ttv_row_integr_incorp_bem_pat | rowidROWID do registro da incorporação do bem patrimonial criado na temp-table. | Sim |
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_rec_integr_incorp_bem_pat | recid | >>>>>>9 | RECID do registro da temp-table tt_integr_incorp_bem_pat, 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 | 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ção.Cotação | Sim | |||||
tta_val_cotac_indic_econ | decimal | >>>>,>>9.9999999999 | Valor da cotação | .Sim | ttv_row_integr_incorp_bem_pat | rowid | ROWID do registro da temp-table tt_integr_incorp_bem_pat_2, referente a incorporação ao qual o valor original será vinculado | Sim |
3) Valores Residuais da incorporação
3) Valores Residuais da incorporação
Tabela Temporária | Descrição | Entrada/Saída |
tt_integr_ | ||
Tabela Temporária | Descrição | Entrada/Saída |
tt_integr_val_resid_incorp | Conterá os registros dos valores residuais da incorporação. | Entrada |
Atributo | Tipo | Formato | Descrição | Obrigatório | Evolução | ||
tta_num_id_bem_pat | integerrecid | >>,>>>,>>9 | Número de Identificação do bem patrimonial 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 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 | Sim | ||
tta_cod_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 |
Atributo | Tipo | Formato | Descrição | Obrigatório | Evolução |
ttv_rec_integr_incorp_bem_pat | recid | >>>>>>9 | Recid 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 | character | x(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 | ||
para a incorporação do bem patrimonial com a chave formada pelos atributos acima nesta temp table. | ttv_row_integr_incorp_bem_pat | rowid | ROWID da incorporação ao qual o erro está vinculado. |
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
Tabela Tabela Temporária | Descrição | Entrada/Saída |
tt_criacao_bem_pat_item_api_21 | 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_rowrec_bem | rowidrecid | ROWID RECID do registro da temp-table tt_integr_incorp_bem_pat_21, 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(53) | 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_operac | character | x(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 |
...
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 = ?.
...