...

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

...

2) Valores originais da incorporação

3) Valores Residuais da incorporação

3) Valores Residuais da incorporação

4) Tabela de erros

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_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_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_tipser_calc nota                 as character format "x(75)" label "Tipo CálculoSérie Nota" column-label "Tipo CálculoSérie Nota"
    field tta_codnum_item_cenardocto_ctbl entr               as character format "x(8)" label "Cenário Contábil as integer format ">>>,>>9" initial 0 label "Numero Item" column-label "Cenário ContábilNum Item"
    field tta_cod_finalidnatur_econ operac             as character format "x(106)" label "FinalidadeNatureza Operação" column-label "FinalidadeNatureza Operação"
    field tta_valqtd_item_residdocto_min entr                as decimal format "->>>,>>>,>>>,>>9.99" decimals 2 >>>>>>>>9" initial 0 label "Residual MínimoQtde Item Docto" column-label "ResidualQtde 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                    is primary unique= "Importac"
          tta tt_numintegr_idincorp_bem_pat_2.tta_cod_indic_econ               ascending= "REAL"
           tt_integr_incorp_bem_pat_2.tta_numval_seq_incorp_bem_pat       ascending  = 250
             tt_integr_incorp_bem_pat_2.tta_cod_tip_calc_reaval                 ascending= ""
          tta_cod_cenar_ctbl  tt_integr_incorp_bem_pat_2.tta_val_perc_anual_dpr         = 20
      ascending tt_integr_incorp_bem_pat_2.tta_val_perc_anual_dpr_incevda = 0
          tta_cod_finalid_econ  tt_integr_incorp_bem_pat_2.tta_qtd_unid_vida_util         = 1
    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    tt_integr_incorp_bem_pat_2.tta_val_perc_anual_reduc_sdo   = 0
       tt_integr_incorp_bem_pat_2.tta_cod_cta_pat                 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
    .

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 tt_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.
ASSIGN tttta_num_parc_pis_cofins        = 48
       tt_integr_incorp_bem_pat_2.tta_num_id_bem_pat parc_desc              = 0
       tt_integr_incorp_bem_pat_2.numtta_idval_bem_patcr_pis                 = 100
       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_ind_incorpval_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_percorigin_bem_anual_dpr        = 20
       ttpat_1.
ASSIGN tt_integr_incorpval_origin_bem_pat_2.tta_ind_tip_operac            = "Inclusão" /*l_inclusao*/ 
       tt_1.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_pais     cenar_ctbl               = "BRA"
       tttt_integr_incorp_bem_pat_2.tta_logcod_bem_imptdo            = NOcenar_ctbl
       tt_integr_val_incorporigin_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_incorpval_origin_bem_pat_21.tta_num_parc_pis_cofins val_original                 = 48 500
       tt_integr_incorpval_origin_bem_pat_21.tta_dat_numcotac_parcindic_desc     econ         = 007/20/2023
       tt_integr_incorpval_origin_bem_pat_21.tta_val_cotac_crindic_pis econ                = 100
       tt_integr_incorp_bem_pat_2.tta_val_cr_cofins = 1.

CREATE tt_integr_val_resid_incorp.
ASSIGN tt_integr_val_resid_incorp.tta_num_id_bem_pat             = 200
       tt= tt_integr_incorp_bem_pat_2.tta_num_logid_cr_csll               = NObem_pat
       tt_integr_val_resid_incorp.tta_num_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_incorpval_bemresid_pat_2incorp.ttvtta_rowcod_integr_incorp_bem_pat = rowid(tt_integr_incorp_bem_pat_2).CREATE ttfinalid_econ       = "CORRENTE"
       tt_integr_val_resid_incorp.tta_val_resid_min          = 0.

CREATE origin_bem_pat_1.
ASSIGN tt_integr_val_origin_bem_pat_1.ttv_row_integr_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_codnum_id_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_val_original   cod_cenar_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_indicresid_econ 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_2,
                                              input table tt_integr_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_log_erros_int_inc_bem_pat_1:
    MESSAGE "Descrição: " tt_integr_val_resid_incorp,
                                _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 tt_"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 = ?.

...