Histórico da Página

...

/* Esta temp-table (tt_criacao_bem_pat_api_5) somente precisa estar declarada no programa chamador como NEW SHARED, mas nao precisa ser alimentada.
   Ela Ela se faz necessario devido a questões tecnicas */
DEF NEW shared temp-table tt_criacao_bem_pat_api_5 no-undo
    field tta_cod_unid_organ_ext           as character format "x(5)" label "Unid Organ Externa" column-label "Unid Organ Externa"
    field tta_cod_cta_pat                  as character format "x(18)" label "Conta Patrimonial" column-label "Conta Patrimonial"
    field tta_num_bem_pat                  as integer format ">>>>>>>>9" initial 0 label "Bem Patrimonial" column-label "Bem"
    field tta_num_seq_bem_pat              as integer format ">>>>9" initial 0 label "Sequência Bem" column-label "Sequência"
    field tta_des_bem_pat                  as character format "x(40)" label "Descrição Bem Pat" column-label "Descrição Bem Pat"
    field tta_dat_aquis_bem_pat            as date format "99/99/9999" initial today label "Data Aquisição" column-label "Dat Aquis"
    field tta_cod_plano_ccusto             as character format "x(8)" label "Plano Centros Custo" column-label "Plano Centros Custo"
    field tta_cod_ccusto_ext               as character format "x(8)" label "Centro Custo Externo" column-label "CCusto Externo"
    field tta_cod_estab_ext                as character format "x(8)" label "Estabelecimento Exte" column-label "Estabelecimento Ext"
    field tta_cod_unid_negoc_ext           as character format "x(8)" label "Unid Negócio Externa" column-label "Unid Negócio Externa"
    field tta_cod_finalid_econ_ext         as character format "x(8)" label "Finalid Econ Externa" column-label "Finalidade Externa"
    field ttv_val_aquis_bem_pat            as decimal format "->>,>>>,>>>,>>9.99" decimals 2 initial 0 label "Aquisição Bem" column-label "Aquisição Bem"
    field ttv_log_erro                     as logical format "Sim/Não" initial yes
    field tta_qtd_bem_pat_represen         as decimal format ">>>>>>>>9" initial 1 label "Quantidade Bens Representados" column-label "Bem Represen"
    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_num_id_bem_pat               as integer format ">>,>>>,>>9" initial 0 label "Identificação Bem" column-label "Identificação Bem"
    field tta_des_narrat_bem_pat           as character format "x(2000)" label "Narrativa Bem" column-label "Narrativa Bem"
    field tta_log_bem_imptdo               as logical format "Sim/Não" initial no label "Bem Importado" column-label "Bem Importado"
    field tta_log_cr_pis                   as logical format "Sim/Não" initial no label "Credita PIS" column-label "Credita PIS"
    field tta_log_cr_cofins                as logical format "Sim/Não" initial no label "Credita COFINS" column-label "Credita COFINS"
    field ttv_num_parc_pis_cofins          as integer format "999" initial 0 label "Nro Parcelas" column-label "Nro Parcelas"
    field tta_val_cr_pis                   as decimal format ">>>,>>>,>>9.99" decimals 2 initial 0 label "Valor Cred PIS/PASEP" column-label "Vl Cred PIS/PASEP"
    field tta_val_cr_cofins                as decimal format ">>>,>>>,>>9.99" decimals 2 initial 0 label "Valor Crédito COFINS" column-label "Credito COFINS"
    field ttv_log_cr_csll                  as logical format "Sim/Não" initial no label "Credita CSLL" column-label "Credita CSLL"
    field ttv_num_exerc_cr_csll            as integer format "99" label "Exerc. Crédito CSLL" column-label "Exerc. Crédito CSLL"
    .

...

CREATE tt_criacao_bem_pat_api_10.
ASSIGN tt_criacao_bem_pat_api_10.tta_cod_unid_organ_Ext       = "10"
       tt_criacao_bem_pat_api_10.tta_cod_cta_pat              = "034"
       tt_criacao_bem_pat_api_10.tta_num_bem_pat              = 220878224885
       tt_criacao_bem_pat_api_10.tta_num_seq_bem_pat          = 1
       tt_criacao_bem_pat_api_10.tta_des_bem_pat              = "Teste API - " + STRING(TODAY) + ' # ' + STRING(TIME,"hh:mm")
       tt_criacao_bem_pat_api_10.tta_dat_aquis_bem_pat        = 0907/01/2023
       tt_criacao_bem_pat_api_10.tta_cod_plano_ccusto         = "Alfa"
       tt_criacao_bem_pat_api_10.tta_cod_ccusto_ext           = "31400"
       tt_criacao_bem_pat_api_10.tta_cod_estab_ext            = "1"
       tt_criacao_bem_pat_api_10.tta_cod_unid_negoc_ext       = "999"
       tt_criacao_bem_pat_api_10.tta_cod_finalid_econ_ext     = "0"
       tt_criacao_bem_pat_api_10.ttv_val_aquis_bem_pat        = 1000050000
       tt_criacao_bem_pat_api_10.ttv_log_erro                 = no
       tt_criacao_bem_pat_api_10.tta_qtd_bem_pat_represen     = 1
       tt_criacao_bem_pat_api_10.tta_cdn_fornecedor           = 1
       tt_criacao_bem_pat_api_10.tta_num_id_bem_pat           = 0
       tt_criacao_bem_pat_api_10.tta_des_narrat_Bem_pat       = ""
       tt_criacao_bem_pat_api_10.tta_log_cr_cofins            = NO
       tt_criacao_bem_pat_api_10.tta_log_cr_pis               = NO
       tt_criacao_bem_pat_api_10.ttv_num_parc_pis_cofins      = 0
       tt_criacao_bem_pat_api_10.tta_val_cr_pis               = 0
       tt_criacao_bem_pat_api_10.tta_val_cr_cofins            = 0
       tt_criacao_bem_pat_api_10.tta_cod_docto_entr           = "3232"
       tt_criacao_bem_pat_api_10.tta_cod_ser_nota             = 'u'
       tt_criacao_bem_pat_api_10.tta_num_item_docto_entr      = 20
       tt_criacao_bem_pat_api_10 .tta_dat_calc_pat            = 0907/01/2023
       tt_criacao_bem_pat_api_10.tta_cb3_ident_visual         = '12345678'
       tt_criacao_bem_pat_api_10.tta_cod_estado_fisic_bem_pat = "ATIVO"
       tt_criacao_bem_pat_api_10.tta_cod_espec_bem            = '004' 
       tt_criacao_bem_pat_api_10.tta_cod_marca                = 'COMPAQ'
       tt_criacao_bem_pat_api_10.tta_cod_modelo               = "LS1"
       tt_criacao_bem_pat_api_10.tta_dat_avaliac_apol_seguro  = 0907/01/2023
       tt_criacao_bem_pat_api_10.tta_val_avaliac_apol_seguro  = 500050000
       tt_criacao_bem_pat_api_10.tta_cod_licenc_uso           = '1'
       tt_criacao_bem_pat_api_10.tta_cod_especif_tec          = '1'
       tt_criacao_bem_pat_api_10.tta_cod_arrendador           = '10'
       tt_criacao_bem_pat_api_10.tta_cod_contrat_leas         = '120220'
       tt_criacao_bem_pat_api_10.tta_cod_localiz              = 'VIDRO-01'
       tt_criacao_bem_pat_api_10.tta_cod_imagem               = ''
       tt_criacao_bem_pat_api_10.ttv_val_exc_icms             = 0
       tt_criacao_bem_pat_api_10.ttv_row_id                   = ROWID(tt_criacao_bem_pat_api_10).

...

CREATE tt_criacao_bem_pat_val_resid_1.
ASSIGN tt_criacao_bem_pat_val_resid_1.ttv_row_bem          = ROWID(tt_criacao_bem_pat_api_10)
       tt_criacao_bem_pat_val_resid_1.tta_cod_tip_calc     = "DP"           
       tt_criacao_bem_pat_val_resid_1.tta_cod_cenar_ctbl   = "Fiscal"
       tt_criacao_bem_pat_val_resid_1.tta_cod_finalid_econ = "Corrente"
       tt_criacao_bem_pat_val_resid_1.tta_val_resid_min    = 5005000.

CREATE tt_criacao_bem_pat_val_resid_1.
ASSIGN tt_criacao_bem_pat_val_resid_1.ttv_row_bem          = ROWID(tt_criacao_bem_pat_api_10)
       tt_criacao_bem_pat_val_resid_1.tta_cod_tip_calc     = "DP"
       tt_criacao_bem_pat_val_resid_1.tta_cod_cenar_ctbl   = "Fiscal"
       tt_criacao_bem_pat_val_resid_1.tta_cod_finalid_econ = "Fiscal"
       tt_criacao_bem_pat_val_resid_1.tta_val_resid_min    = 4004000.

CREATE tt_criacao_bem_pat_img_1.
ASSIGN tt_criacao_bem_pat_img_1.ttv_row_bem     = ROWID(tt_criacao_bem_pat_api_10)
       tt_criacao_bem_pat_img_1.tta_des_imagem  = "Imagem do Bem Teste API - Numero 1 com observacao"
       tt_criacao_bem_pat_img_1.tta_dat_img     = TODAY
       tt_criacao_bem_pat_img_1.tta_log_princ   = yes
       tt_criacao_bem_pat_img_1.tta_nom_arq_img = "C:\Users\jaqueline\Downloads\bem_patrimonial_imagem_teste.jpg"
       tt_criacao_bem_pat_img_1.tta_des_obs     = "Observacao da imagem carregada via API".

...