Histórico da Página
...
Observação: A partir da release 12.1.24112305.
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_5 IN v_hdl_program (input table tt_integr_incorp_bem_pat_2,
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_2).
DELETE PROCEDURE v_hdl_program.
Parâmetros
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_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. |
...
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 depreciação redução de saldocá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 | ||
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 | Número do Fornecedor | Có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 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 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_row_integr_incorp_bem_pat | rowid | Identificador interno ROWID do registro da incorporação do bem patrimonial criado na temp-table criada, ou seja, o identificador interno do registro. | Sim | |||
| tta_val_base_pis | decimal | >>>,>>>,>>9.99 | Valortotal da base de PIS. 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 total da base | COFINSde 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_icms | decimal | ->>,>>>,>>>,>>9.99 | Valor total de exclusão de ICMS da base de cálculo do PIS/COFINS. | Não | ||
ttv_row_integr_incorp_bem_pat | rowid | ROWID 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 |
Tabela Temporária
Descrição
Entrada/Saída
Atributo | Tipo | Formato | Descrição | Obrigatório | Evolução | |||||
ttvtta_rowcod_integr_incorp_bem_pat | rowid | 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.RECID 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 | 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_econ | decimal | >>>>,>>9.9999999999 | Valor da cotação. | Sim |
3) Valores Residuais da incorporação
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
Tabela Temporária | Descrição | Entrada/Saída |
tt_integr_val_resid_incorp | resid_incorpConterá os registros dos valores residuais da incorporação. | Entrada |
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_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 | Sim | da incorporação do bem patrimonial, conforme cadastro no UTB076AA/UFN0203AA/UTB304AA - Cenário Contábil. | 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 | |||||
_ | rowid | 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 | 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 referente ao erro 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
...
Atributo | Tipo | Formato | Descrição | Obrigatório | Evolução |
ttv_row_bem | rowid | RECID ROWID do registro da temp-table tt_integr_incorp_bem_pat_2, 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_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_integr_criacaoincorp_bem_pat_item_api_2 no-undo
field ttvtta_num_rowid_bem_pat as Rowidas integer format ">>,>>>,>>9" initial 0 label "Identificação Bem" column-label "Identificação Bem"
field tta_cdn_fornecedor _num_seq_incorp_bem_pat as Integer integer format ">>>>>,>>>>>>>,>>9" initial 0 label "FornecedorSequência Incorp" column-label "FornecedorSequência Incorp"
field tta_cod_doctocenar_entr ctbl as character format "x(8)" label "Docto EntradaCenário Contábil" column-label "Docto EntradaCenário Contábil"
field tta_coddat_serincorp_bem_nota pat as character date format "x(5)" label "Série Nota99/99/9999" initial today label "Data Incorporação" column-label "Série NotaData Incorporação"
field tta_numind_itemincorp_doctobem_entr pat as integer as character format ">>>,>>9x(20)" initial 0 "Reavaliação" label "Numero ItemTipo Incorporação" column-label "Num ItemTipo Incorporação"
field tta_coddes_incorp_naturbem_operac pat as character format "x(640)" label "Natureza OperaçãoDescrição Incorp" column-label "Natureza OperaçãoDescrição Incorp"
field tta_qtdcod_item_docto_entr incent_fisc as decimal character format ">>>>>>>>9" initial 0 label "Qtde Item Doctox(8)" label "Incentivo Fiscal" column-label "Qtde Item DoctoIncentivo Fiscal"
index tt_id field tta_cod_indic_econ 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
.def temp-table tt_integr_incorp_bem_pat_2 no-undo
field tta_num_id_bem_pat as integer format ">>,>>>,>>9" initial 0 label "Identificação Bem" column-label "Identificação Bemas 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_seq_incorp_bem_pat cta_pat as character format "x(18)" label "Conta Patrimonial" column-label "Conta Patrimonial"
field tta_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_datlog_incorp_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 initial 0 label "Perc Anual Dpr Incencr_csll as integer format ">>9" initial 0 label "Exercicios 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 decimal format "x(18)" label "Conta Patrimonial>>>,>>>,>>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 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 as character format "x(38)" label "PaísCenário Contábil" column-label "PaísCenário Contábil"
field tta_logcod_bemfinalid_imptdo econ as logical character format "Sim/Não" initial no x(10)" label "Bem ImportadoFinalidade" column-label "Bem ImportadoFinalidade"
field tta_logdat_crcalc_pis pat as logical date format "Sim99/99/Não9999" initial no today label "Credita PISData Cálculo" column-label "Credita PISData Cálculo"
field tta_log_cr_cofins val_original as logical format "Sim/Não" initial no label "Credita COFINSas decimal format "->>>>>,>>>,>>9.99" decimals 4 initial 0 label "Valor Original" column-label "Credita COFINSValor Original"
field tta_numdat_parccotac_pisindic_cofins econ as integer as date format "99999/99/9999" initial 0 ? label "Nr ParcelasData Cotação" column-label "Nr ParcelasData Cotação"
field tta_numval_cotac_parcindic_desc econ as integer as decimal format "999" >>>>,>>9.9999999999" decimals 10 initial 0 label "Parc DescontadasCotação" column-label "Parc DescontadasCotação"
field ttv_row_integr_incorp_bem_pat as Rowid
.
def temp-table tt_integr tta_val_cr_pis resid_incorp no-undo
field tta_num_id_bem_pat as decimal integer format ">>>>>,>>>,>>9.99" decimals 2 initial 0 label "Valor Cred PIS/PASEPIdentificação Bem" column-label "Vl Cred PIS/PASEPIdentificação Bem"
field tta_val_cr_cofins num_seq_incorp_bem_pat as decimal as integer format ">>>>>,>>>>>>>,>>9.99" decimals 2 initial 0 label "Valor Crédito COFINSSequência Incorp" column-label "Credito COFINSSequência Incorp"
field tta_logcod_crtip_csll calc as logical as character format "Sim/Não" initial no label "Credita CSLLx(7)" label "Tipo Cálculo" column-label "Credita CSLLTipo Cálculo"
field tta_numcod_exerc_cr_csll cenar_ctbl as integer as character format ">>9" initial 0 label "Exercicios Créd CSLLx(8)" label "Cenário Contábil" column-label "Exer Cr CSLLCenário Contábil"
field tta_indcod_tipfinalid_operac econ as character format "Xx(3510)" initial "Nota de Débito" label "Tipo OperaçãoFinalidade" column-label "Tipo OperaçãoFinalidade"
field tta_val_baseresid_pis min as as decimal format "->>>,>>>,>>>,>>9.99" decimals 2 initial 0 label "Valor Base PIS/PASEPResidual Mínimo" column-label "Vl Base PIS/PASEPResidual"
field tta_val_base_cofins index tt_id as decimal format ">>>,>>>,>>9.99" decimals 2 initial 0 label "Valor Base COFINS" column-label "Base COFINS"
field ttv_val_exc_icms is primary unique
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 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_cod_num_seq_incorp_bem_pat docto_entr as character format "x(8)" label "Docto Entrada" column-label "Docto Entrada"
field tta_cod_ser_nota as integer character 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_finalidx(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_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 as character format "x(10)" label "Finalidade" column-label "Finalidade= "REAL"
field tt_integr_incorp_bem_pat_2.tta_val_resid_min as decimal format "->>>,>>>,>>>,>>9.99" decimals 2 initial 0 label "Residual Mínimo" column-label "Residual"
index tt_id incorp_bem_pat = 250
tt_integr_incorp_bem_pat_2.tta_cod_tip_calc_reaval is primary unique= ""
tta tt_numintegr_idincorp_bem_pat_2.tta_val_perc_anual_dpr = 20
ascending tt_integr_incorp_bem_pat_2.tta_val_perc_anual_dpr_incevda = 0
tta_num_seq tt_integr_incorp_bem_pat ascending
tta_cod_tip_calc _2.tta_qtd_unid_vida_util ascending= 1
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_num_erro tt_integr_incorp_bem_pat_2.tta_val_perc_anual_reduc_sdo = 0
tt_integr_incorp_bem_pat_2.tta_cod_cta_pat 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 = bem_pat.cod_cta_pat
tt_integr_incorp_bem_pat_2.tta_ind_tip_operac as character format "x(40)" label "Mensagem Ajuda" column-label "Mensagem Ajuda"
field ttv_row_= "Inclusão" /*l_inclusao*/
tt_integr_incorp_bem_pat as Rowid
._2.tta_cdn_fornecedor = 1FIND bem_pat EXCLUSIVE-LOCK
WHERE bem_pat.cod_empresa = '10'
AND tt_integr_incorp_bem_pat_2.tta_cod_cta_pat = '034'pais = "BRA"
AND tt_integr_incorp_bem_pat_2.numtta_log_bem_pat = 220853imptdo = NO
AND bem_pat.num_seq tt_integr_incorp_bem_pat = 1 NO-ERROR.
ASSIGN bem_pat.cod_estab = '1'.CREATE tt_2.tta_log_cr_pis = YES
tt_integr_incorp_bem_pat_2.
ASSIGN tttta_log_cr_cofins = YES
tt_integr_incorp_bem_pat_2.tta_num_idparc_bempis_pat cofins = 48
= tt_integr_incorp_bem_pat_2.tta_num_id_bem_patparc_desc = 0
tt_integr_incorp_bem_pat_2.tta_numval_seq_incorp_bem_pat cr_pis = 15100
tt_integr_incorp_bem_pat_2.tta_codval_cenarcr_ctbl cofins = "fiscal"200
tt_integr_incorp_bem_pat_2.tta_datlog_incorp_bem_pat cr_csll = 07/20/2023NO
tt_integr_incorp_bem_pat_2.tta_indnum_incorpexerc_bemcr_pat csll = "Adição" /*l_adicao*/ 0
tt_integr_incorp_bem_pat_2.tta_desval_incorp_bem_pat base_pis = "teste api versao 3 " + STRING(TODAY) + ' # ' + STRING(TIME,"hh:mm")= 10
tt_integr_incorp_bem_pat_2.tta_codval_indicbase_econ cofins = "REAL"10
tt_integr_incorp_bem_pat_2.ttattv_val_incorp_bem_pat exc_icms = 2500
tt_integr_incorp_bem_pat_2.ttv_row_integr_incorp_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_21.ttattv_row_valintegr_percincorp_anualbem_dpr pat = 20
tt= tt_integr_incorp_bem_pat_2.ttattv_row_indintegr_tip_operac = "Inclusão" /*l_inclusao*/ incorp_bem_pat
tt_integr_val_incorporigin_bem_pat_21.tta_cdn_fornecedor cod_cenar_ctbl = 1
tttt_integr_incorp_bem_pat_2.tta_cod_pais = "BRA"cenar_ctbl
tt_integr_val_incorporigin_bem_pat_21.tta_logcod_bemfinalid_imptdo econ = NO"Corrente"
tt_integr_incorpval_origin_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
tt1.
CREATE tt_integr_val_resid_incorp_bem_pat_2.
ASSIGN tt_integr_val_resid_incorp.tta_valnum_id_crbem_pis pat = 100
tt= tt_integr_incorp_bem_pat_2.tta_num_valid_cr_cofins = 200bem_pat
tt_integr_incorpval_bemresid_pat_2incorp.tta_log_cr_csll = NO
ttnum_seq_incorp_bem_pat = tt_integr_incorp_bem_pat_2.tta_num_exercseq_incorp_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_val_resid_incorp.tta_bemcod_pat_2.ttv_rowfinalid_econ = "CORRENTE"
tt_integr_incorp_bem_pat = rowid(tt_integrval_resid_incorp.tta_bemval_pat_2)resid_min = 0.
CREATE tt_integr_val_origin_bem_pat_1resid_incorp.
ASSIGN tt_integr_val_origin_bem_pat_1.ttv_row_integr_incorp_resid_incorp.tta_num_id_bem_pat = rowid( tt_integr_incorp_bem_pat_2).tta_num_id_bem_pat
tt_integr_val_origin_bem_pat_1resid_incorp.tta_codnum_seq_cenar_ctbl incorp_bem_pat = tt_integr_incorp_bem_pat_2.tta_num_seq_codincorp_cenarbem_ctblpat
tt_integr_val_origin_bem_pat_1resid_incorp.tta_cod_finalidtip_econ calc = "CorrenteDP"
tt_integr_val_origin_bem_pat_1resid_incorp.tta_datcod_calc_pat = 07/20/2023
tt_integr_val_origin_bem_pat_1.tta_val_original cenar_ctbl = 500"FISCAL"
tt_integr_val_origin_bem_pat_1resid_incorp.tta_datcod_cotacfinalid_indic_econ = 07/20/2023= "FISCAL"
tt_integr_val_origin_bem_pat_1resid_incorp.tta_val_cotac_indic_econ resid_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_3 IN v_hdl_program (5 IN v_hdl_program (input table tt_integr_incorp_bem_pat_2,
input table tt_integr_val_incorporigin_bem_pat_1,
input table tt_integr_val_originresid_bem_patincorp,
input output table tt_integr_val_resid_incorp_log_erros_int_inc_bem_pat_1,
output input 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
input table tt_criacao"Erro: " tt_log_erros_int_inc_bem_pat_item1.ttv_api_1).FOR EACH num_erro SKIP
"Mensagem: " tt_log_erros_int_inc_bem_pat:
MESSAGE _1.ttv_des_msg_erro SKIP
"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 = ?.
...
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas