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.

...

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_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 3 " + STRING(TODAY) + ' # ' + STRING(TIME,"hh:mm")
       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_val_perc_anual_dpr        = 20
       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 
       tt_integr_incorp_bem_pat_2.tta_num_parc_desc             = 0
       tt_integr_incorp_bem_pat_2.tta_val_cr_pis                = 100
       tt_integr_incorp_bem_pat_2.tta_val_cr_cofins             = 200
       tt_integr_incorp_bem_pat_2.tta_log_cr_csll               = NO
       tt_integr_incorp_bem_pat_2.tta_num_exerc_cr_csll         = 0
       tt_integr_incorp_bem_pat_2.tta_val_base_pis              = 10
       tt_integr_incorp_bem_pat_2.tta_val_base_cofins           = 10
       tt_integr_incorp_bem_pat_2.ttv_row_integr_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_1.ttv_row_integr_incorp_bem_pat    = rowid( tt_integr_incorp_bem_pat_2).ttv_row_integr_incorp_bem_pat
       tt_integr_val_origin_bem_pat_1.tta_cod_cenar_ctbl               = tt_integr_incorp_bem_pat_2.tta_cod_cenar_ctbl
       tt_integr_val_origin_bem_pat_1.tta_cod_finalid_econ             = "Corrente"
       tt_integr_val_origin_bem_pat_1.tta_dat_calc_pat                 = 07/20/2023
       tt_integr_val_origin_bem_pat_1.tta_val_original                 = 500
       tt_integr_val_origin_bem_pat_1.tta_dat_cotac_indic_econ         = 07/20/2023
       tt_integr_val_origin_bem_pat_1.tta_val_cotac_indic_econ         = 1.

...