Histórico da Página

...

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

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).

...