Histórico da Página

...

Observação: A partir da release 12.1.2305.

Objetivo

Criar incorporações de bens patrimoniais no módulo de Ativo Fixo do EMS 5.

...

2) Valores originais da incorporação

...

3) Valores 3) Valores Residuais da incorporação

...

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

...

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                      as Rowid
    field tta_cdn_fornecedor _pat               as Integer integer format ">>>>>,>>>,>>9" initial 0 label "FornecedorIdentificação Bem" column-label "FornecedorIdentificação Bem"
    field tta_cod_docto_entr   num_seq_incorp_bem_pat             as character integer format "x(8)" label "Docto Entrada>>,>>>>,>>9" initial 0 label "Sequência Incorp" column-label "Docto EntradaSequência Incorp"
    field tta_cod_sercenar_nota   ctbl               as character format "x(58)" label "Série NotaCenário Contábil" column-label "Série NotaCenário Contábil"
    field tta_numdat_itemincorp_doctobem_entr pat            as integer as date format ">>>,>>999/99/9999" initial 0 today label "Numero ItemData Incorporação" column-label "Num ItemData Incorporação"
    field tta_codind_incorp_naturbem_operac pat             as character format "x(620)" initial "Reavaliação" label "Natureza OperaçãoTipo Incorporação" column-label "Natureza OperaçãoTipo Incorporação"
    field tta_qtddes_itemincorp_doctobem_entr pat            as decimal as character format ">>>>>>>>9" initial 0 label "Qtde Item Doctox(40)" label "Descrição Incorp" column-label "Qtde Item DoctoDescrição Incorp"
    index tt_id field tta_cod_incent_fisc                            is primary unique
          ttv_row_bem  as character format "x(8)" label "Incentivo Fiscal" column-label "Incentivo Fiscal"
    field tta_cod_indic_econ                      ascendingas character format "x(8)" label "Moeda" column-label "Moeda"
          tta_cdn_fornecedor field tta_val_incorp_bem_pat               ascendingas decimal format "->>,>>>,>>>,>>9.99" decimals 4 initial 0 label "Valor Incorporação" column-label "Valor Incorporação"
          field tta_cod_tip_doctocalc_entr reaval               ascending
          tta_cod_ser_nota                 ascending
          tta_num_item_docto_entr          ascending
          tta_cod_natur_operac             ascending
    . 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"def temp-table tt_integr_incorp_bem_pat_2 no-undo
    field tta_numqtd_idunid_bemvida_pat     util           as integer decimal format ">>>>>>,>>>,>>9.99" decimals 2 initial 0 label "Identificação BemVida Útil (Unidades)" column-label "Identificação BemUnid Vida Útil"
    field tta_numval_seqperc_incorpanual_bemreduc_pat sdo       as integer decimal format "->>,>>>>>>>,>>>,>>9.99" decimals 2 initial 0 label "Sequência IncorpPerc Redução Saldo" column-label "Sequência IncorpPerc Redução Saldo"
    field tta_cod_cenarcta_ctbl pat                 as  as character format "x(818)" label "Cenário ContábilConta Patrimonial" column-label "Cenário ContábilConta Patrimonial"
    field tta_dat_incorp_bem_pat cdn_fornecedor               as date Integer format "99/99/9999>>>,>>>,>>9" initial today 0 label "Data IncorporaçãoFornecedor" column-label "Data IncorporaçãoFornecedor"
    field tta_ind_incorp_bem_pat cod_pais                     as character format "x(203)" initial label "Reavaliação" label "Tipo Incorporação" País" column-label "Tipo IncorporaçãoPaís"
    field tta_des_incorplog_bem_pat imptdo               as character logical format "x(40)" label "Descrição IncorpSim/Não" initial no label "Bem Importado" column-label "Descrição IncorpBem Importado"
    field tta_codlog_incent_fisc cr_pis                    as character as logical format "x(8)" label "Incentivo FiscalSim/Não" initial no label "Credita PIS" column-label "Incentivo FiscalCredita PIS"
    field tta_codlog_indiccr_econ cofins               as character  as logical format "x(8)" Sim/Não" initial no label "MoedaCredita COFINS" column-label "MoedaCredita COFINS"
    field tta_valnum_incorpparc_bempis_pat cofins           as decimal format "->>,>>>,>>>,>>9.99" decimals 4  as integer format "999" initial 0 label "Valor IncorporaçãoNr Parcelas" column-label "Valor IncorporaçãoNr Parcelas"
    field tta_codnum_tip_calc_reaval parc_desc                as character integer format "x(8)" label "Tipo Cálculo Reaval999" initial 0 label "Parc Descontadas" column-label "Tipo Cálculo ReavalParc Descontadas"
    field tta_val_perc_anual_dpr cr_pis                   as decimal format ">>>>9.999>>>,>>>,>>9.99" decimals 3 2 initial 0 label "Percentual AnualValor Cred PIS/PASEP" column-label "Perc Ano DprVl Cred PIS/PASEP"
    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 cr_cofins               as  as decimal format ">>>>>>>,>>>,>>9.99" decimals 2 initial 0 label "Vida Útil (Unidades)Valor Crédito COFINS" column-label "Unid Vida ÚtilCredito COFINS"
    field tta_vallog_perc_anual_reduc_sdo     as decimal format "->>,>>>,>>>,>>9.99" decimals 2 initial 0 label "Perc Redução Saldocr_csll                  as logical format "Sim/Não" initial no label "Credita CSLL" column-label "Perc Redução SaldoCredita CSLL"
    field tta_codnum_exerc_ctacr_pat     csll              as character integer format "x(18)" label "Conta Patrimonial>>9" initial 0 label "Exercicios Créd CSLL" column-label "Conta PatrimonialExer Cr CSLL"
    field tta_ind_cdntip_fornecedor operac               as Integer character format ">>>,>>>,>>9X(35)" initial 0 label "Fornecedor"Nota de Débito" label "Tipo Operação" column-label "FornecedorTipo Operação"
    field tta_val_codbase_pais pis                     as character decimal format "x(3)" label "País>>>,>>>,>>9.99" decimals 2 initial 0 label "Valor Base PIS/PASEP" column-label "PaísVl Base PIS/PASEP"
    field tta_logval_bembase_imptdo cofins               as logical format "Sim/Não" initial no label "Bem Importado as decimal format ">>>,>>>,>>9.99" decimals 2 initial 0 label "Valor Base COFINS" column-label "Bem ImportadoBase COFINS"
    field ttattv_logval_crexc_pis   icms                 as logical decimal format "Sim/Não" initial no label "Credita PIS->>,>>>,>>>,>>9.99" decimals 2 label "Valor Exclusão ICMS" column-label "Credita PIS"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_logcod_crcenar_cofins ctbl                as logical as character format "Sim/Não" initial no label "Credita COFINSx(8)" label "Cenário Contábil" column-label "Credita COFINSCenário Contábil"
    field tta_numcod_parc_pis_cofins finalid_econ              as integer as character format "999" initial 0 x(10)" label "Nr ParcelasFinalidade" column-label "Nr ParcelasFinalidade"
    field tta_numdat_parccalc_desc pat                  as integer as date format "99999/99/9999" initial 0 today label "Parc DescontadasData Cálculo" column-label "Parc DescontadasData Cálculo"
    field tta_val_cr_pis original                   as decimal format ">>>->>>>>,>>>,>>9.99" decimals 2 4 initial 0 label "Valor Cred PIS/PASEPOriginal" column-label "Vl Cred PIS/PASEP"Valor Original"
    field tta_valdat_cotac_crindic_cofins econ                as decimal format ">>>,>>>,>>9.99" decimals 2 initial 0 label "Valor Crédito COFINSas date format "99/99/9999" initial ? label "Data Cotação" column-label "Credito COFINSData Cotação"
    field tta_val_logcotac_crindic_csll econ                  as logical format "Sim/Não" initial no label "Credita CSLLas decimal format ">>>>,>>9.9999999999" decimals 10 initial 0 label "Cotação" column-label "Credita CSLLCotação"
    field ttattv_row_numintegr_exercincorp_crbem_csll pat        as Rowid
    .

def temp-table tt_integr_val_resid_incorp no-undo      as integer format ">>9" initial 0 label "Exercicios Créd CSLL" column-label "Exer Cr CSLL"
    field tta_num_indid_tipbem_operac pat               as character integer format "X(35)" initial "Nota de Débito" label "Tipo Operação>>,>>>,>>9" initial 0 label "Identificação Bem" column-label "Tipo OperaçãoIdentificação Bem"
    field tta_num_seq_valincorp_basebem_pis pat                 as decimal as integer format ">>>>>,>>>>>>>,>>9.99" decimals 2 initial 0 label "Valor Base PIS/PASEPSequência Incorp" column-label "Vl Base PIS/PASEPSequência Incorp"
    field tta_valcod_basetip_cofins calc                  as decimal format ">>>,>>>,>>9.99" decimals 2 initial 0 label "Valor Base COFINSas character format "x(7)" label "Tipo Cálculo" column-label "Base COFINSTipo Cálculo"
    field ttvtta_valcod_exccenar_icms ctbl                 as decimal character format "x(8)" ->>,>>>,>>>,>>9.99" decimals 2 label "Valor Exclusão ICMS" column-label "Valor Exclusão ICMS"
    field ttv_row_integr_incorp_bem_pat    as Rowid
    .label "Cenário Contábil" column-label "Cenário Contábil"def temp-table tt_integr_val_origin_bem_pat_1 no-undo
    field tta_cod_cenarfinalid_ctbl econ               as character format "x(810)" label "Cenário ContábilFinalidade" column-label "Cenário ContábilFinalidade"
    field tta_codval_finalidresid_econ min             as character format "x(10)" label "Finalidade   as decimal format "->>>,>>>,>>>,>>9.99" decimals 2 initial 0 label "Residual Mínimo" column-label "FinalidadeResidual"
    field tta_dat_calc_pat index tt_id                           as date format "99/99/9999" initial today label "Data Cálculo" column-label "Data Cálculo" is primary unique
    field tta_val_original       tta_num_id_bem_pat               ascending
      as decimal format "->>>>>,>>>,>>9.99" decimals 4 initial 0 label "Valor Original" column-label "Valor Original"
    field tta_datnum_seq_cotacincorp_indicbem_econ pat           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"
    field ttv_row_integr_incorp_bem_pat    as Rowidascending
          tta_cod_tip_calc                 ascending
          tta_cod_cenar_ctbl               ascending
          tta_cod_finalid_econ             ascending
    .

def temp-table tt_integr_val_resid_incorp _log_erros_int_inc_bem_pat_1 no-undo
    field ttattv_num_id_bem_pat erro                     as integer format ">>>>>>,>>>,>>9" initial 0 label "Identificação Bem" column-label "Identificação Bem"
    field ttattv_numdes_seq_incorp_bem_pat msg_erro                 as integer character format ">>,>>>>,>>9" initial 0 label "Sequência Incorpx(60)" label "Mensagem Erro" column-label "Sequência IncorpInconsistência"
    field ttattv_coddes_tipmsg_calc ajuda                 as  as character format "x(740)" label "Tipo CálculoMensagem Ajuda" column-label "Tipo CálculoMensagem Ajuda"
    field tta_cod_cenar_ctbl               as character format "x(8)" label "Cenário Contábil" column-label "Cenário Contábil"
    field tta_cod_finalid_econ             as character format "x(10)" label "Finalidade" column-label "Finalidade"
    field tta_val_resid_min                as decimal format "->>>,>>>,>>>,>>9.99" decimals 2 initial 0 label "Residual Mínimo" column-label "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               ascending
          tta_cod_finalid_econ             ascending
    .

def temp-table tt_log_erros_int_inc_bem_pat_1 no-undo
    field ttv_num_erro                     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                as character format "x(40)" label "Mensagem Ajuda" column-label "Mensagem Ajuda"
    field ttv_row_integr_incorp_bem_pat    as Rowid
    .

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

ttv_row_integr_incorp_bem_pat    as Rowid
    .
def temp-table tt_criacao_bem_pat_item_api_2 no-undo
    field ttv_row_bem                      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                 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_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_integr_incorp_bem_pat_2.tta_num_parc_pis_cofins        = 48
       ttCREATE tt_integr_incorp_bem_pat_2.
ASSIGN tttta_num_parc_desc              = 0
       tt_integr_incorp_bem_pat_2.tta_numval_id_bem_pat cr_pis                 = bem_pat.num_id_bem_pat100
       tt_integr_incorp_bem_pat_2.tta_numval_seq_incorp_bem_pat cr_cofins              = 15200
       tt_integr_incorp_bem_pat_2.tta_codlog_cenarcr_ctbl csll                = "fiscal"NO
       tt_integr_incorp_bem_pat_2.tta_datnum_incorpexerc_bemcr_pat csll          = 07/20/20230
       tt_integr_incorp_bem_pat_2.tta_indval_incorp_bem_pat base_pis               = "Adição" /*l_adicao*/  10
       tt_integr_incorp_bem_pat_2.tta_desval_incorp_bem_pat base_cofins            = "teste api versao 3 " + STRING(TODAY) + ' # ' + STRING(TIME,"hh:mm")10
       tt_integr_incorp_bem_pat_2.ttattv_codval_indicexc_econ icms               = "REAL"0
       tt_integr_incorp_bem_pat_2.ttattv_row_valintegr_incorp_bem_pat        = 250
       tt= rowid(tt_integr_incorp_bem_pat_2).tta

CREATE tt_integr_val_origin_percbem_anual_dpr        = 20
       tt_integr_incorppat_1.
ASSIGN tt_integr_val_origin_bem_pat_2.tta_ind_tip_operac            = "Inclusão" /*l_inclusao*/ 
       tt1.ttv_row_integr_incorp_bem_pat    = tt_integr_incorp_bem_pat_2.tta_cdn_fornecedor            = 1ttv_row_integr_incorp_bem_pat
       tt_integr_val_incorporigin_bem_pat_21.tta_cod_cenar_pais     ctbl               = "BRA"
       tttt_integr_incorp_bem_pat_2.tta_logcod_bem_imptdo            = NOcenar_ctbl
       tt_integr_incorpval_origin_bem_pat_21.tta_logcod_crfinalid_pis econ                 = YES"Corrente"
       tt_integr_val_incorporigin_bem_pat_21.tta_logdat_crcalc_cofins pat                 = YES07/20/2023
       tt_integr_val_incorporigin_bem_pat_21.tta_num_parc_pis_cofins val_original                 = 48 500
       tt_integr_val_incorporigin_bem_pat_21.tta_numdat_cotac_parcindic_desc     econ         = 007/20/2023
       tt_integr_val_incorporigin_bem_pat_21.tta_val_cr_pis         cotac_indic_econ         = 100
       tt1.

CREATE tt_integr_val_resid_incorp_bem_pat_2.
ASSIGN tt_integr_val_resid_incorp.tta_valnum_id_cr_cofins             = 200
bem_pat          tt= tt_integr_incorp_bem_pat_2.tta_lognum_id_cr_csll               = NObem_pat
       tt_integr_val_resid_incorp.tta_num_seq_incorp_bem_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_rowcod_integr_incorp_bem_pat = rowid(tt_integr_incorp_bem_pat_2).CREATE ttfinalid_econ       = "CORRENTE"
       tt_integr_val_origin_bem_pat_1.
ASSIGN tt_integr_val_origin_bem_pat_1.ttv_row_integrresid_incorp.tta_val_resid_min          = 0.

CREATE _incorp_bem_pat    = rowid( tt_integr_incorpval_bem_pat_2)
       ttresid_incorp.
ASSIGN tt_integr_val_origin_bem_pat_1resid_incorp.tta_num_codid_cenarbem_ctbl     pat           = tt_integr_incorp_bem_pat_2.tta_num_codid_cenarbem_ctblpat
       tt_integr_val_origin_resid_incorp.tta_num_seq_incorp_bem_pat = tt_integr_incorp_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_cod_valcenar_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_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_5 IN v_hdl_program (input table tt_integr_incorp_bem_pat_2,
                                              input table tt_integr_incorp_bem_pat_2_val_origin_bem_pat_1,
                                              input table tt_integr_val_resid_incorp,
                                              input output table tt_log_integrerros_valint_origininc_bem_pat_1,
                                              input table tt_criacao_bem_pat_item_api_2).

FOR EACH tt_integr_val_resid_incorp,
                            _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 "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 = ?.

...