Histórico da Página
...
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. |
5) Itens de Documento de Entrada vinculados a incorporação do bem patrimonial
Tabela Temporária | Descrição | Entrada/Saída |
tt_criacao_bem_pat_item_api_1 | 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_rec_bem | recid | RECID do registro da temp-table tt_criacao_bem_pat_api_5, 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(3) | 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 | Decimal | >>>>>>>>9 | Quantidade do item vinculado ao bem patrimonial. | Sim |
Execução
Leitura e Criação dos Registros
Exemplo do programa para criação dos registros nas temp-tables com as incorporações dos bens patrimoniais a serem implantados:
DEF def temp-table tt_integrcriacao_incorp_bem_pat_item_api_1 no-undo
field ttattv_num_idrec_bem _pat as integer format ">>,>>>,>>9" initial 0 label "Identificação Bem" column-label "Identificação Bem" as recid format ">>>>>>9"
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_cenardocto_ctbl entr as character format "x(8)" label "Cenário ContábilDocto Entrada" column-label "Cenário ContábilDocto Entrada"
field tta_datcod_incorp_bem_pat ser_nota as date character format "99/99/9999" initial today label "Data Incorporaçãox(5)" label "Série Nota" column-label "Data IncorporaçãoSérie Nota"
field tta_indnum_incorpitem_bemdocto_pat entr as character as integer format "x(20)>>>,>>9" initial "Reavaliação" 0 label "Tipo IncorporaçãoNumero Item" column-label "Tipo IncorporaçãoNum Item"
field tta_descod_incorp_bem_pat natur_operac as character format "x(406)" label "Descrição IncorpNatureza Operação" column-label "Descrição IncorpNatureza Operação"
field tta_codqtd_item_incentdocto_fisc entr as character decimal format "x(8)" label "Incentivo Fiscal>>>>>>>>9" initial 0 label "Qtde Item Docto" column-label "Incentivo FiscalQtde Item Docto"
field tta_cod_indic_econ index tt_id as character format "x(8)" label "Moeda" column-label "Moeda"
is primary unique
ttv_rec_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 no-undo 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_valnum_percid_anualbem_dpr pat as decimal integer format ">>>>9.999" decimals 3 >>,>>>,>>9" initial 0 label "Percentual AnualIdentificação Bem" column-label "Perc Ano DprIdentificação Bem"
field tta_valnum_percseq_anualincorp_dprbem_incevda pat as decimal integer format ">>>>9.9999" decimals 4 >>,>>>>,>>9" initial 0 label "Perc Anual Dpr IncenSequência Incorp" column-label "Perc Anual Dpr IncenSequência Incorp"
field tta_qtdcod_unid_vida_util cenar_ctbl as decimal character format ">>>>,>>>,>>9.99" decimals 2 initial 0 label "Vida Útil (Unidades)x(8)" label "Cenário Contábil" column-label "Unid Vida ÚtilCenário Contábil"
field tta_valdat_percincorp_anual_reduc_sdo bem_pat as decimal date format "->>,>>>,>>>,>>9.99" decimals 2 initial 0 label "Perc Redução Saldo99/99/9999" initial today label "Data Incorporação" column-label "Perc Redução SaldoData Incorporação"
field tta_ind_codincorp_ctabem_pat as as character format "x(1820)" initial "Reavaliação" label "Conta PatrimonialTipo Incorporação" column-label "Conta PatrimonialTipo Incorporação"
field tta_des_incorp_cdnbem_fornecedor pat as Integer character format ">>>,>>>,>>9" initial 0 label "Fornecedorx(40)" label "Descrição Incorp" column-label "FornecedorDescrição Incorp"
field tta_cod_incent_pais fisc as as character format "x(38)" label "PaísIncentivo Fiscal" column-label "PaísIncentivo Fiscal"
field tta_logcod_bemindic_imptdo econ as logical character format "Sim/Não" initial no x(8)" label "Bem ImportadoMoeda" column-label "Bem ImportadoMoeda"
field tta_val_logincorp_crbem_pis pat as logical decimal format "Sim/Não" initial no label "Credita PIS->>,>>>,>>>,>>9.99" decimals 4 initial 0 label "Valor Incorporação" column-label "Credita PISValor Incorporação"
field tta_cod_logtip_crcalc_cofins reaval as logical character format "Sim/Não" initial no label "Credita COFINSx(8)" label "Tipo Cálculo Reaval" column-label "Credita COFINSTipo Cálculo Reaval"
field tta_numval_parcperc_pisanual_cofins dpr as integer as decimal format ">>>>9.999" decimals 3 initial 0 label "Nr ParcelasPercentual Anual" column-label "Nr ParcelasPerc Ano Dpr"
field tta_val_numperc_anual_parcdpr_desc as integer format "999" incevda as decimal format ">>>>9.9999" decimals 4 initial 0 label "Parc DescontadasPerc Anual Dpr Incen" column-label "Parc DescontadasPerc Anual Dpr Incen"
field tta_valqtd_unid_crvida_pis util as decimal format ">>>>>>>,>>>,>>9.99" decimals 2 initial 0 label "Valor Cred PIS/PASEPVida Útil (Unidades)" column-label "Vl Cred PIS/PASEPUnid Vida Útil"
field tta_val_cr_cofins as perc_anual_reduc_sdo as decimal format "->>,>>>,>>>,>>9.99" decimals 2 initial 0 label "Valor Crédito COFINSPerc Redução Saldo" column-label "Credito COFINSPerc Redução Saldo"
field tta_logcod_crcta_csll pat as logical character format "Sim/Não" initial no label "Credita CSLLx(18)" label "Conta Patrimonial" column-label "Credita CSLLConta Patrimonial"
field tta_num_exerc_cr_csll cdn_fornecedor as integer as Integer format ">>>,>>>,>>9" initial 0 label "Exercicios Créd CSLLFornecedor" column-label "Exer Cr CSLLFornecedor"
field tta_ind_tip_operac cod_pais as character format "Xx(353)" initial " Nota de Débito" label "Tipo OperaçãoPaís" column-label "Tipo OperaçãoPaís"
field ttvtta_rec_integrlog_incorp_bem_pat as recid format ">>>>>>9"
field tta_val_base_pis imptdo as decimal logical format ">>>,>>>,>>9.99" decimals 2 initial 0 label "Valor Base PIS/PASEPSim/Não" initial no label "Bem Importado" column-label "Vl Base PIS/PASEPBem Importado"
field tta_vallog_base_cofins cr_pis as decimal as logical format ">>>,>>>,>>9.99" decimals 2 initial 0 label "Valor Base COFINS" column-label "Base COFINS"
.def temp-table tt_integr_val_origin_bem_pat no-undo
field ttv_rec_integr_incorp_bem_pat as recid format ">>>>>>9Sim/Não" initial no label "Credita PIS" column-label "Credita PIS"
field tta_codlog_cenarcr_ctbl cofins as character as logical format "x(8)" label "Cenário ContábilSim/Não" initial no label "Credita COFINS" column-label "Cenário ContábilCredita COFINS"
field tta_num_codparc_finalidpis_econ cofins as character as integer format "x(10)" 999" initial 0 label "FinalidadeNr Parcelas" column-label "FinalidadeNr Parcelas"
field tta_datnum_calcparc_pat desc as date as integer format "99/99/9999999" initial today 0 label "Data CálculoParc Descontadas" column-label "Data CálculoParc Descontadas"
field tta_val_original cr_pis as decimal format "->>>>>>>>,>>>,>>9.99" decimals 4 2 initial 0 label "Valor OriginalCred PIS/PASEP" column-label "Valor OriginalVl Cred PIS/PASEP"
field tta_datval_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 cr_cofins as as decimal format ">>>>>>>,>>>,>>9.999999999999" decimals 10 2 initial 0 label "CotaçãoValor Crédito COFINS" column-label "CotaçãoCredito COFINS"
.def temp-table tt_integr_val_resid_incorp no-undo
field tta_numlog_id_bem_pat cr_csll as integer as logical format ">>,>>>,>>9Sim/Não" initial 0 no label "Identificação BemCredita CSLL" column-label "Identificação BemCredita CSLL"
field tta_num_seqexerc_incorp_bem_pat cr_csll as as integer format ">>,>>>>,>>9" initial 0 label "Sequência IncorpExercicios Créd CSLL" column-label "Sequência IncorpExer Cr CSLL"
field tta_codind_tip_calc operac as character format "xX(735)" initial "Nota de Débito" label "Tipo CálculoOperação" column-label "Tipo CálculoOperação"
field tta_cod_cenar_ctbl as character format "x(8)" label "Cenário Contábil" column-label "Cenário Contábil"ttv_rec_integr_incorp_bem_pat as recid format ">>>>>>9"
field tta_codval_finalidbase_econ pis as character decimal format "x(10)" label "Finalidade>>>,>>>,>>9.99" decimals 2 initial 0 label "Valor Base PIS/PASEP" column-label "FinalidadeVl Base PIS/PASEP"
field tta_val_residbase_min cofins as decimal format "->>>,>>>,>>>,>>9.99" decimals 2 initial 0 label "Residual MínimoValor Base COFINS" column-label "Base COFINS"
.
def temp-table tt_integr_val_origin_bem_pat no-undo
field ttv_rec_integr_incorp_bem_pat as recid format ">>>>>>9"
field Residual"
index tt_id is primary unique
tta_num_id_bem_pat ascending
tta_num_seq_incorp_bem_pat ascending
tta_cod_tip_calc ascending
tta_cod_cenar_ctbl ascendingas character format "x(8)" label "Cenário Contábil" column-label "Cenário Contábil"
field tta_cod_finalid_econ ascendingas character format "x(10)" label "Finalidade" column-label "Finalidade"
.def temp-table tt_log_erros_int_inc_bem_pat no-undo
field ttv_rec_integr_incorp_bem_pat as recid format ">>>>>>9field tta_dat_calc_pat as date format "99/99/9999" initial today label "Data Cálculo" column-label "Data Cálculo"
field ttvtta_num_erro val_original as decimal format "->>>>>,>>>,>>9.99" decimals 4 initial 0 label "Valor Original" column-label "Valor Original"
field tta_dat_cotac_indic_econ as integer format ">>>>,>>9date format "99/99/9999" initial ? label "Data Cotação" column-label "Data Cotação"
field ttvtta_val_descotac_msgindic_erro econ as character decimal format "x(60)" label "Mensagem Erro>>>>,>>9.9999999999" decimals 10 initial 0 label "Cotação" column-label "Inconsistência"Cotação"
.
def temp-table tt_integr_val_resid_incorp no-undo
field ttvtta_num_desid_msgbem_ajuda pat as character as integer format "x(40)" label "Mensagem Ajuda>>,>>>,>>9" initial 0 label "Identificação Bem" column-label "Mensagem AjudaIdentificação Bem"
.def temp-table tt_criacaofield tta_num_seq_incorp_bem_pat _item_api_1 no-undo
field ttv_rec_bem as recid format ">>>>>>9as integer format ">>,>>>>,>>9" initial 0 label "Sequência Incorp" column-label "Sequência Incorp"
field tta_cdn_fornecedor cod_tip_calc as Integer character format ">>>,>>>,>>9" initial 0 label "Fornecedorx(7)" label "Tipo Cálculo" column-label "FornecedorTipo Cálculo"
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_cod_serfinalid_nota econ as character format "x(510)" label "S‚rie NotaFinalidade" column-label "S‚rie NotaFinalidade"
field tta_numval_item_docto_entr resid_min as integer decimal format "->>>,>>>,>>>,>>9.99" decimals 2 initial 0 label "Numero ItemResidual Mínimo" column-label "Num Item"label "Residual"
index tt_id is primary unique
field tta_num_codid_naturbem_operac pat as character format "x(6)" label "Natureza Opera‡Æo" column-label "Natureza Opera‡Æo"ascending
field tta_qtdnum_seq_itemincorp_docto_entr as decimal format ">>>>>>>>9" initial 0 label "Qtde Item Docto" column-label "Qtde Item Docto"
index tt_id bem_pat ascending
tta_cod_tip_calc is primary unique ascending
ttvtta_cod_rec_bem cenar_ctbl ascending
tta_cod_finalid_econ ascending
ascending
tta_cdn_fornecedor ascending
tta_cod_docto_entr .
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 ascending
as integer format ">>>>,>>9"
ttafield ttv_coddes_sermsg_nota erro ascending
tta_num_item_docto_entr ascending
tta_cod_natur_operac as character format "x(60)" label "Mensagem Erro" column-label "Inconsistência"
field ttv_des_msg_ajuda ascending 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 = 221215220853
AND bem_pat.num_seq_bem_pat = 1 NO-ERROR.
ASSIGN bem_pat.cod_estab = "'1"'.
CREATE tt_integr_incorp_bem_pat.
ASSIGN tt_integr_incorp_bem_pat.tta_num_id_bem_pat = bem_pat.num_id_bem_pat
tt_integr_incorp_bem_pat.tta_num_seq_incorp_bem_pat = 115
tt_integr_incorp_bem_pat.tta_cod_cenar_ctbl = "fiscal"
tt_integr_incorp_bem_pat.tta_dat_incorp_bem_pat = 0107/1520/222023
tt_integr_incorp_bem_pat.tta_ind_incorp_bem_pat = "Adição" /*l_adicao*/
tt_integr_incorp_bem_pat.tta_des_incorp_bem_pat = "teste api" teste api versao 3 " + STRING(TODAY) + ' # ' + STRING(TIME,"hh:mm")
tt_integr_incorp_bem_pat.tta_cod_indic_econ = "REAL"
tt_integr_incorp_bem_pat.tta_val_incorp_bem_pat = 200250
tt_integr_incorp_bem_pat.tta_val_perc_anual_dpr = 20
tt_integr_incorp_bem_pat.tta_ind_tip_operac = "Inclusão" /*l_inclusao*/
tt_integr_incorp_bem_pat.tta_cdn_fornecedor = 1
tt_integr_incorp_bem_pat.tta_cod_pais = "BRA"
tt_integr_incorp_bem_pat.tta_log_bem_imptdo = NO
tt_integr_incorp_bem_pat.tta_log_cr_pis = YES
tt_integr_incorp_bem_pat.tta_log_cr_cofins = YES
tt_integr_incorp_bem_pat.tta_num_parc_pis_cofins = 48
tt_integr_incorp_bem_pat.tta_num_parc_desc = 0
tt_integr_incorp_bem_pat.tta_val_cr_pis = 100
tt_integr_incorp_bem_pat.tta_val_cr_cofins = 760200
tt_integr_incorp_bem_pat.tta_log_cr_csll = NO
tt_integr_incorp_bem_pat.tta_num_exerc_cr_csll = 0
tt_integr_incorp_bem_pat.tta_val_base_pis = 100010
tt_integr_incorp_bem_pat.tta_val_base_cofins = 100010
tt_integr_incorp_bem_pat.ttv_rec_integr_incorp_bem_pat = recid(tt_integr_incorp_bem_pat).
CREATE tt_integr_val_origin_bem_pat.
ASSIGN tt_integr_val_origin_bem_pat.ttv_rec_integr_incorp_bem_pat = recid(tt_integr_incorp_bem_pat)
tt_integr_val_origin_bem_pat.tta_cod_cenar_ctbl = tt_integr_incorp_bem_pat.tta_cod_cenar_ctbl
tt_integr_val_origin_bem_pat.tta_cod_finalid_econ = "Corrente"
tt_integr_val_origin_bem_pat.tta_dat_calc_pat = 0107/1520/222023
tt_integr_val_origin_bem_pat.tta_val_original = 500
tt_integr_val_origin_bem_pat.tta_dat_cotac_indic_econ = 0107/1520/222023
tt_integr_val_origin_bem_pat.tta_val_cotac_indic_econ = 1.
CREATE tt_criacao_bem_pat_item_api_1.
ASSIGN tt_criacao_bem_pat_item_api_1.ttv_rec_bem = tt_integr_val_origin_bem_pat.ttv_rec_integr_incorp_bem_pat
tt_criacao_bem_pat_item_api_1.tta_cdn_fornecedor = 113
tt_criacao_bem_pat_item_api_1.tta_cod_docto_entr = "1512222206231"
tt_criacao_bem_pat_item_api_1.tta_cod_ser_nota = "1"
tt_criacao_bem_pat_item_api_1.tta_num_item_docto_entr = 20
tt_criacao_bem_pat_item_api_1.tta_cod_natur_operac = "5102111A90"
tt_criacao_bem_pat_item_api_1.tta_qtd_item_docto_entr = 101.
DEF VAR v_hdl_program AS HANDLE NO-UNDO.
...
run pi_api_incorp_bem_pat_2 3 IN v_hdl_program (input table tt_integr_incorp_bem_pat,
input input table tt_integr_val_origin_bem_pat,
input input table tt_integr_val_resid_incorp,
output output table tt_log_erros_int_inc_bem_pat,
INPUT TABLE input table tt_criacao_bem_pat_item_api_1).
...