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 não nÆo precisa ser alimentada. Ela se faz necessário necess rio devido a questões técnicas questäes t‚cnicas */
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 Sequ¼ncia Bem" column-label "SequˆnciaSequ¼ncia"
    field tta_des_bem_pat                  as character format "x(40)" label "Descri‡Æo Descri»’o Bem Pat" column-label "Descri‡Æo Descri»’o Bem Pat"
    field tta_dat_aquis_bem_pat            as date format "99/99/9999" initial today label "Data Aquisi‡ÆoAquisi»’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 Neg½cio Externa" column-label "Unid Neg¢cio 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 Aquisi»’o Bem" column-label "Aquisi‡Æo Aquisi»’o Bem"
    field ttv_log_erro                     as logical format "Sim/NÆoN’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 S²rie Nota" column-label "S‚rie 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 Identifica»’o Bem" column-label "Identifica‡Æo 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ÆoN’o" initial no label "Bem Importado" column-label "Bem Importado"
    field tta_log_cr_pis                   as logical format "Sim/NÆoN’o" initial no label "Credita PIS" column-label "Credita PIS"
    field tta_log_cr_cofins                as logical format "Sim/NÆoN’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 Cr²dito COFINS" column-label "Credito COFINS"
    field ttv_log_cr_csll                  as logical format "Sim/NÆoN’o" initial no label "Credita CSLL" column-label "Credita CSLL"
    field ttv_num_exerc_cr_csll            as integer format "99" label "Exerc. Cr‚dito Cr²dito CSLL" column-label "Exerc. Cr‚dito Cr²dito CSLL"
    .

/* Esta temp-table (tt_criacao_bem_pat_api_7) conterá os conter  os registros dos bens patrimoniais a serem criados no sistema */
def temp-table tt_criacao_bem_pat_api_7 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 Sequ¼ncia Bem" column-label "SequˆnciaSequ¼ncia"
    field tta_des_bem_pat                  as character format "x(40)" label "Descri‡Æo Descri»’o Bem Pat" column-label "Descri‡Æo Descri»’o Bem Pat"
    field tta_dat_aquis_bem_pat            as date format "99/99/9999" initial today label "Data Aquisi‡ÆoAquisi»’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 Neg½cio Externa" column-label "Unid Neg¢cio 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 Aquisi»’o Bem" column-label "Aquisi‡Æo Aquisi»’o Bem"
    field ttv_log_erro                     as logical format "Sim/NÆoN’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 S²rie Nota" column-label "S‚rie 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 Identifica»’o Bem" column-label "Identifica‡Æo 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ÆoN’o" initial no label "Bem Importado" column-label "Bem Importado"
    field tta_log_cr_pis                   as logical format "Sim/NÆoN’o" initial no label "Credita PIS" column-label "Credita PIS"
    field tta_log_cr_cofins                as logical format "Sim/NÆoN’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 Cr²dito COFINS" column-label "Credito COFINS"
    field tta_val_base_pis                 as decimal format ">>>,>>>,>>9.99" decimals 2 initial 0 label "Valor Base PIS/PASEP" column-label "Vl Base PIS/PASEP"
    field tta_val_base_cofins              as decimal format ">>>,>>>,>>9.99" decimals 2 initial 0 label "Valor Base COFINS" column-label "Base COFINS"
    field ttv_log_cr_csll                  as logical format "Sim/NÆoN’o" initial no label "Credita CSLL" column-label "Credita CSLL"
    field ttv_num_exerc_cr_csll            as integer format "99" label "Exerc. Cr‚dito Cr²dito CSLL" column-label "Exerc. Cr‚dito Cr²dito CSLL"
    field tta_dat_calc_pat                 as date format "99/99/9999" initial today label "Data C lculo" column-label "Data C lculo"
    field tta_cb3_ident_visual             as Character format "x(20)" initial ? label "N£mero Nœmero Plaqueta" column-label "N£mero Nœmero Plaqueta"
    field tta_cod_estado_fisic_bem_pat     as character format "x(8)" label "Estado F¡sicoF­sico" column-label "Estado F¡sicoF­sico"
    field tta_cod_espec_bem                as character format "x(6)" label "Esp‚cie Esp²cie Bem Patrimonial" column-label "Esp‚cieEsp²cie"
    field tta_cod_marca                    as character format "x(6)" label "Marca" column-label "Marca"
    field tta_cod_modelo                   as character format "x(8)" label "Modelo" column-label "Modelo"
    field tta_dat_avaliac_apol_seguro      as date format "99/99/9999" initial today label "Data Avalia‡Æo Avalia»’o Apol" column-label "Data Avalia‡Æo Avalia»’o Apol"
    field tta_val_avaliac_apol_seguro      as decimal format "->>,>>>,>>>,>>9.99" decimals 2 initial 0 label "Valor Avalia‡Æo Avalia»’o Apol" column-label "Valor Avalia‡Æo Avalia»’o Apol"
    field tta_cod_licenc_uso               as character format "x(12)" label "Licen‡a Licen»a Uso" column-label "Licen Uso"
    field tta_cod_especif_tec              as character format "x(8)" label "Especifica‡Æo T‚cnicaEspecifica»’o T²cnica" column-label "Especifica‡Æo T‚cnicaEspecifica»’o T²cnica"
    field tta_cod_arrendador               as character format "x(6)" label "Arrendador" column-label "Arrendador"
    field tta_cod_contrat_leas             as character format "x(12)" label "Contrato Leasing" column-label "Contr Leas"
    field tta_cod_localiz                  as character format "x(12)" label "Localiza‡ÆoLocaliza»’o" column-label "Localiza‡ÆoLocaliza»’o"
    field tta_cod_imagem                   as character format "x(30)" label "Imagem" column-label "Imagem"
    field ttv_rec_id                       as recid format ">>>>>>9"
    .

/* Esta temp-table (tt_criacao_bem_pat_item_api) conterá os conter  os itens do documento de entrada a serem vinculados aos bens patrimoniais. Não é obrigatório NÆo ‚ obrigat¢rio criar registros nesta temp-table */ 
def temp-table tt_criacao_bem_pat_item_api no-undo
    field ttv_rec_bem                      as recid format ">>>>>>9"
    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 S²rie Nota" column-label "S‚rie S²rie Nota"
    field tta_num_item_docto_entr          as integer format ">>>,>>9" initial 0 label "Numero Item" column-label "Num Item"
    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_rec_bem                      ascending
          tta_cdn_fornecedor               ascending
          tta_cod_docto_entr               ascending
          tta_cod_ser_nota                 ascending
          tta_num_item_docto_entr          ascending
    .

/* esta temp-table (tt_criacao_bem_pat_val_resid) conterá os conter  os valores residuais dos bens patrimoniais a serem criados no sistema. Não é obrigatório NÆo ‚ obrigat¢rio criar registros nesta temp-table */
def temp-table tt_criacao_bem_pat_val_resid no-undo
    field ttv_rec_bem                      as recid format ">>>>>>9"
    field tta_cod_tip_calc                 as character format "x(7)" label "Tipo C lculo" column-label "Tipo C lculo"
    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¡nimoM­nimo" column-label "Residual"
    index tt_id                            is primary unique
          ttv_rec_bem                      ascending
          tta_cod_tip_calc                 ascending
          tta_cod_cenar_ctbl               ascending
          tta_cod_finalid_econ             ascending
    .

/* esta temp-table (tt_criacao_bem_pat_img) conterá as conter  as imagens dos bens patrimoniais a serem criados no sistema. Não é obrigatório NÆo ‚ obrigat¢rio criar registros nesta temp-table */
def temp-table tt_criacao_bem_pat_img no-undo
    field ttv_rec_bem                      as recid format ">>>>>>9"
    field tta_des_imagem                   as character format "x(40)" label "Descri‡ÆoDescri»’o" column-label "Descri‡ÆoDescri»’o"
    field tta_dat_img                      as date format "99/99/9999" initial ? label "Data Imagem" column-label "Data Imagem"
    field tta_log_princ                    as logical format "Sim/NÆoN’o" initial no label "Principal" column-label "Principal"
    field tta_nom_arq_img                  as character format "x(200)" label "Arquivo Imagem" column-label "Arquivo"
    field tta_des_obs                      as character format "x(255)" label "Observa‡ÆoObserva»’o" column-label "Observa‡ÆoObserva»’o"
    .

/* Esta temp-table (tt_erros_criacao_bem_pat_api_1) será criada ser  criada pela API e conterá os conter  os erros ocorridos durante a criação cria‡Æo dos bens patrimoniais */
DEF NEW shared temp-table tt_erros_criacao_bem_pat_api_1 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 Sequ¼ncia Bem" column-label "SequˆnciaSequ¼ncia"
    field tta_des_bem_pat                  as character format "x(40)" label "Descri‡Æo Descri»’o Bem Pat" column-label "Descri‡Æo Descri»’o Bem Pat"
    field tta_dat_aquis_bem_pat            as date format "99/99/9999" initial today label "Data Aquisi‡ÆoAquisi»’o" column-label "Dat Aquis"
    field tta_cod_finalid_econ_ext         as character format "x(8)" label "Finalid Econ Externa" column-label "Finalidade Externa"
    field ttv_des_mensagem                 as character format "x(50)" label "Mensagem" column-label "Mensagem"
    .

...

CREATE tt_criacao_bem_pat_api_7.
ASSIGN tt_criacao_bem_pat_api_7.tta_cod_unid_organ_Ext       = "10"
       tt_criacao_bem_pat_api_7.tta_cod_cta_pat              = "034"
       tt_criacao_bem_pat_api_7.tta_num_bem_pat              = 220820220842
       tt_criacao_bem_pat_api_7.tta_num_seq_bem_pat          = 1
       tt_criacao_bem_pat_api_7.tta_des_bem_pat              = "Teste API - " + STRING(TODAY) + ' # ' + STRING(TIME,"hh:mm")
       tt_criacao_bem_pat_api_7.tta_dat_aquis_bem_pat        = TODAY - 31
       tt_criacao_bem_pat_api_7.tta_cod_plano_ccusto         = "Alfa"
       tt_criacao_bem_pat_api_7.tta_cod_ccusto_ext           = "31400"
       tt_criacao_bem_pat_api_7.tta_cod_estab_ext            = "1"
       tt_criacao_bem_pat_api_7.tta_cod_unid_negoc_ext       = "999"
       tt_criacao_bem_pat_api_7.tta_cod_finalid_econ_ext     = "0"
       tt_criacao_bem_pat_api_7.ttv_val_aquis_bem_pat        = 10000
       tt_criacao_bem_pat_api_7.ttv_log_erro                 = no
       tt_criacao_bem_pat_api_7.tta_qtd_Bembem_pat_represen     = 1
       tt_criacao_bem_pat_api_7.tta_cdn_fornecedor           = 1
       tt_criacao_bem_pat_api_7.tta_num_id_bem_pat           = 0
       tt_criacao_bem_pat_api_7.tta_des_narrat_Bem_pat       = ""
       tt_criacao_bem_pat_api_7.tta_log_cr_cofins            = NO
       tt_criacao_bem_pat_api_7.tta_log_cr_pis               = NO
       tt_criacao_bem_pat_api_7.ttv_num_parc_pis_cofins      = 0
       tt_criacao_bem_pat_api_7.tta_val_cr_pis               = 0
       tt_criacao_bem_pat_api_7.tta_val_cr_cofins            = 0
       tt_criacao_bem_pat_api_7.tta_cod_docto_entr           = "3232"
       tt_criacao_bem_pat_api_7.tta_cod_ser_nota             = 'u'
       tt_criacao_bem_pat_api_7.tta_num_item_docto_entr      = 20
       tt_criacao_bem_pat_api_7.tta_dat_calc_pat             = TODAY - 15
       tt_criacao_bem_pat_api_7.tta_cb3_ident_visual         = '12345678'
       tt_criacao_bem_pat_api_7.tta_cod_estado_fisic_bem_pat = "ATIVO"
       tt_criacao_bem_pat_api_7.tta_cod_espec_bem            = '004' 
       tt_criacao_bem_pat_api_7.tta_cod_marca                = 'COMPAQ'
       tt_criacao_bem_pat_api_7.tta_cod_modelo               = "LS1"
       tt_criacao_bem_pat_api_7.tta_dat_avaliac_apol_seguro  = TODAY - 10
       tt_criacao_bem_pat_api_7.tta_val_avaliac_apol_seguro  = 5000
       tt_criacao_bem_pat_api_7.tta_cod_licenc_uso           = '1'
       tt_criacao_bem_pat_api_7.tta_cod_especif_tec          = '1'
       tt_criacao_bem_pat_api_7.tta_cod_arrendador           = '10'
       tt_criacao_bem_pat_api_7.tta_cod_contrat_leas         = '120220'
       tt_criacao_bem_pat_api_7.tta_cod_localiz              = 'VIDRO-01'
       tt_criacao_bem_pat_api_7.tta_cod_imagem               = '0.30.600'
       tt_criacao_bem_pat_api_7.ttv_rec_id                   = RECID(tt_criacao_bem_pat_api_7).

...

CREATE tt_criacao_bem_pat_img.
ASSIGN tt_criacao_bem_pat_img.ttv_rec_bem     = RECID(tt_criacao_bem_pat_api_7)
       tt_criacao_bem_pat_img.tta_des_imagem  = "Imagem do Bem Teste API - Numero 1 com observacao"
       tt_criacao_bem_pat_img.tta_dat_img     = TODAY
       tt_criacao_bem_pat_img.tta_log_princ   = yes
       tt_criacao_bem_pat_img.tta_nom_arq_img = "C:\Users\jaqueline\Downloads\bem_patrimonial_imagem_teste.jpg"
       tt_criacao_bem_pat_img.tta_des_obs     = "Observação Observa‡Æo da imagem carregada via API".

...