Histórico da Página

...

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 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 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_val_exc_icms               = 0
       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    = 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.

CREATE tt_criacaointegr_bemval_pat_item_api_2resid_incorp.
ASSIGN tt_criacaointegr_bemval_patresid_itemincorp.tta_apinum_2.ttvid_rowbem_bem   pat           = tt_integr_incorp_bem_pat_2.ttvtta_rownum_integrid_incorp_bem_pat
       tt_criacaointegr_bemval_pat_item_api_2resid_incorp.tta_cdn_fornecedor      = 13 
       tt_criacaonum_seq_incorp_bem_pat _item_api= tt_integr_incorp_bem_pat_2.tta_codnum_seq_incorp_bem_pat
       tt_integr_val_resid_incorp.tta_cod_tip_calc           = "DP"
       tt_integr_val_resid_incorp.tta_cod_cenar_ctbl         = "FISCAL"
       tt_integr_val_resid_incorp.tta_cod_finalid_econ       = "CORRENTE"
       tt_integr_val_resid_incorp.tta_val_resid_min          = 0.

CREATE tt_integr_val_resid_incorp.
ASSIGN tt_integr_val_resid_incorp.tta_num_id_bem_pat         = tt_integr_incorp_bem_pat_2.tta_num_id_bem_pat
       tt_integr_val_resid_incorp.tta_num_seq_incorp_bem_pat = tt_integr_incorp_bem_pat_2.tta_num_seq_incorp_bem_pat
       tt_integr_val_resid_incorp.tta_cod_tip_calc           = "DP"
       tt_integr_val_resid_incorp.tta_cod_cenar_ctbl         = "FISCAL"
       tt_integr_val_resid_incorp.tta_cod_finalid_econ       = "FISCAL"
       tt_integr_val_resid_incorp.tta_val_resid_min          = 0.

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
       tt_criacao_bem_pat_item_api_2.tta_cod_docto_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_val_origin_bem_pat_1,
                                              input table tt_integr_incorpval_bemresid_pat_2incorp,
                                              input output table tt_integrlog_erros_valint_origininc_bem_pat_1,
                                              input table tt_integr_val_resid_incorp,
                          criacao_bem_pat_item_api_2).

FOR EACH tt_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 tt_"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 = ?.

...