Histórico da Página

...

DEF VAR v_hdl_program  AS HANDLE NO-UNDO.
DEF VAR p_cod_return   AS CHAR.
DEF VAR p_des_mensagem AS CHAR FORMAT "X(50)".

...

...

Execução

Na execução da API ocorrem as seguintes validações:

...

/* Esta temp-table (tt_criacao_bem_pat_api_5) somente precisa estar declarada no programa chamador como NEW SHARED, mas não precisa ser alimentada. Ela se faz necessário devido a questões técnicas */

DEF NEW def 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 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álculoC lculo" column-label "Data CálculoC 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    id                           as recid format ">>>>>>9"
    .

/* Esta temp-table (tt_criacao_bem_pat_item_api) conterá os itens do documento de entrada a serem vinculados aos bens patrimoniais. 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  esta temp-table (tt_criacao_bem_pat_val_resid) conterá os valores residuais dos bens patrimoniais a serem criados no sistema. 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álculoC lculo" column-label "Tipo CálculoC lculo"
    field tta_cod_cenar_ctbl               as character format "x(8)" label "Cenário ContábilCen rio Cont bil" column-label "Cenário ContábilCen 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 esta temp-table (tt_erros_criacao_bem_pat_img) conterá as imagens dos bens patrimoniais a serem criados no sistema. Não é obrigatório criar registros nesta temp-table */

def api_1) será criada pela API e conterá os erros ocorridos durante a criação dos bens patrimoniais */
DEF NEW shared temp-table tt_erros_criacao_bem_pat_api_1 img no-undo
    field ttattv_cod_unid_organ_ext rec_bem                     as character format "x(5)" label "Unid Organ Externa" column-label "Unid Organ Externa" as recid format ">>>>>>9"
    field tta_cod_cta_pat des_imagem                    as as character format "x(1840)" label "Conta PatrimonialDescri‡Æo" column-label "Conta PatrimonialDescri‡Æo"
    field tta_num_bem_pat dat_img                      as integer date format ">>>>>>>>999/99/9999" initial 0 ? label "Bem PatrimonialData Imagem" column-label "BemData Imagem"
    field tta_num_seq_bem_pat log_princ                    as integer logical format ">>>>9Sim/NÆo" initial 0 no label "Sequência BemPrincipal" column-label "SequênciaPrincipal"
    field tta_desnom_bemarq_pat img                  as character format "x(40200)" label "Descrição Bem PatArquivo Imagem" column-label "Descrição Bem PatArquivo"
    field tta_dat_aquis_bem_pat des_obs            as date format "99/99/9999" initial today label "Data Aquisição" column-label "Dat Aquis"
    field tta_cod_finalid_econ_ext         as  as character format "x(8255)" label "Finalid Econ ExternaObserva‡Æo" column-label "Finalidade ExternaObserva‡Æo"
    .

/* Esta temp-table (tt_erros_criacao_bem_pat_api_1) será criada pela API e conterá os erros ocorridos durante a criação dos bens patrimoniais */
def shared temp-table tt_erros_criacao_bem_pat_api_1 no-undo
    field tta_cod_unid_organ_ext field ttv_des_mensagem                 as character format "x(505)" label "MensagemUnid Organ Externa" column-label "MensagemUnid Organ Externa"
    .

def var v_hdl_program AS HANDLE NO-UNDO.
def var p_cod_return   as char.
def var p_des_mensagem as char format "x(50)".

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_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"
    .

DEF VAR v_hdl_program  AS HANDLE NO-UNDO.
DEF VAR p_cod_return   AS CHAR.
DEF VAR p_des_mensagem AS CHAR FORMAT "X(50)".

        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                = 220815
               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_Bem_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 
        create tt_criacao_bem_pat_api_7.tta_log_cr_pis                  = NO
        assign tt       tt_criacao_bem_pat_api_7.ttattv_codnum_unidparc_organpis_Ext cofins        = "10"0
               tt_criacao_bem_pat_api_7.tta_codval_Ctacr_pat pis                  = "034"0
               tt_criacao_bem_pat_api_7.tta_numval_bemcr_pat   cofins             = 2208150
               tt_criacao_bem_pat_api_7.tta_numcod_seq_bem_pat docto_entr            = 1"3232"
               tt_criacao_bem_pat_api_7.tta_descod_bemser_pat nota               = "Teste API - " + STRING(TODAY) + ' # ' + STRING(TIME,"hh:mm")'u'
               tt_criacao_bem_pat_api_7.tta_datnum_aquisitem_bemdocto_pat entr        = TODAY - 3120
               tt_criacao_bem_pat_api_7.tta_coddat_plano_ccusto calc_pat               = "Alfa"TODAY - 15
               tt_criacao_bem_pat_api_7.tta_codcb3_ccustoident_ext   visual         = "31400"'12345678'
               tt_criacao_bem_pat_api_7.tta_cod_estado_fisic_estab_ext            bem_pat = "1ATIVO"
               tt_criacao_bem_pat_api_7.tta_cod_unid_negoc_ext espec_bem             = "999"'004' 
               tt_criacao_bem_pat_api_7.tta_cod_finalid_econ_ext marca                = "0"'COMPAQ'
               tt_criacao_bem_pat_api_7.ttvtta_val_aquis_bem_pat cod_modelo                  = 10000"LS1"
               tt_criacao_bem_pat_api_7.ttv_log_erro                 = notta_dat_avaliac_apol_seguro  = TODAY - 10
               tt_criacao_bem_pat_api_7.tta_qtdval_Bemavaliac_patapol_represen seguro     = 15000
               tt_criacao_bem_pat_api_7.tta_cdn_fornecedor cod_licenc_uso            = '1'
               tt_criacao_bem_pat_api_7.tta_numcod_idespecif_bem_pat tec          = 0'1'
               tt_criacao_bem_pat_api_7.tta_des_narrat_Bem_pat cod_arrendador            = ""'10'
               tt_criacao_bem_pat_api_7.tta_logcod_crcontrat_cofins     leas         = NO'120220'
               tt_criacao_bem_pat_api_7.tta_log_cr_pis cod_localiz                = NO'VIDRO-01'
               tt_criacao_bem_pat_api_7.ttvtta_num_parc_pis_cofins cod_imagem                  = '0.30.600'
               tt_criacao_bem_pat_api_7.ttattv_valrec_cr_pis id               = 0
               tt= RECID(tt_criacao_bem_pat_api_7.tta_val_cr_cofins ).

           = 0CREATE tt_criacao_bem_pat_item_api.
               ttASSIGN tt_criacao_bem_pat_api_7.tta_cod_docto_entr item_api.ttv_rec_bem           = "3232"
               tt= tt_criacao_bem_pat_api_7.ttattv_cod_ser_nota             = 'u'rec_id
               tt_criacao_bem_pat_item_api_7.tta_num_item_docto_entr cdn_fornecedor        = 201 
               tt_criacao_bem_pat_item_api_7.tta_datcod_calcdocto_pat entr             = TODAY - 15= "3232"
               tt_criacao_bem_pat_item_api_7.tta_cb3cod_identser_visual nota        = '12345678'"u"
               tt_criacao_bem_pat_item_api_7.tta_codnum_estadoitem_fisicdocto_bem_pat = "ATIVO"entr = 20
               tt_criacao_bem_pat_item_api_7.tta_codqtd_item_espec_bem            = '004' docto_entr = 1.

               ttCREATE tt_criacao_bem_pat_apival_7.tta_cod_marca                = 'COMPAQ'resid.
               ttASSIGN tt_criacao_bem_pat_apival_7resid.ttattv_codrec_modelo bem               = "LS1"= RECID(tt_criacao_bem_pat_api_7)
               tt_criacao_bem_pat_apival_7resid.tta_datcod_avaliac_apol_seguro  = TODAY - 10tip_calc       = "DP"           
               tt_criacao_bem_pat_apival_7resid.tta_valcod_avaliac_apol_seguro cenar_ctbl    = 5000"Fiscal"
               tt_criacao_bem_pat_apival_7resid.tta_cod_licenc_uso           = '1'finalid_econ = "Corrente"
               tt_criacao_bem_pat_apival_7resid.tta_codval_especif_tec       resid_min     = '1'500.

        CREATE tt_criacao_bem_pat_val_resid.
       tt  ASSIGN tt_criacao_bem_pat_apival_7resid.ttattv_codrec_arrendador bem          = '10'RECID(tt_criacao_bem_pat_api_7)
               tt_criacao_bem_pat_apival_7resid.tta_cod_contrattip_leas   calc       = '120220'"DP"
               tt_criacao_bem_pat_apival_7resid.tta_cod_localiz     cenar_ctbl          = 'VIDRO-01'= "Fiscal"
               tt_criacao_bem_pat_apival_7resid.tta_cod_imagem               = '0.30.600'_finalid_econ = "Fiscal"
               tt_criacao_bem_pat_apival_7resid.ttvtta_val_recresid_id min                   = RECID(tt_criacao_bem_pat_api_7)= 400.

        CREATE tt_criacao_bem_pat_item_apiimg.
        ASSIGN tt_criacao_bem_pat_item_apiimg.ttv_rec_bem            = RECID(tt_criacao_bem_pat_api_7.ttv_rec_id)
               tt_criacao_bem_pat_item_apiimg.tta_cdndes_fornecedor imagem        = 1 "Imagem do Bem Teste API - Numero 1 com observacao"
               tt_criacao_bem_pat_item_apiimg.tta_cod_docto_entr dat_img           = "3232"TODAY
               tt_criacao_bem_pat_item_apiimg.tta_codlog_ser_nota princ         = "u"yes
               tt_criacao_bem_pat_item_apiimg.tta_num_item_docto_entr = 20nom_arq_img       = "C:\Users\jaqueline\Downloads\bem_patrimonial_imagem_teste.jpg"
               tt_criacao_bem_pat_item_apiimg.tta_qtd_item_docto_entr = 1des_obs           = "Observação da imagem carregada via API".

        CREATE tt_criacao_bem_pat_val_residimg.
        ASSIGN tt_criacao_bem_pat_val_residimg.ttv_rec_bem          = RECID(tt_criacao_bem_pat_api_7)           
               tt_criacao_bem_pat_val_residimg.tta_cod_tip_calc des_imagem        = "DP"           Imagem do Bem Teste API - Numero 2 sem observacao"
               tt_criacao_bem_pat_val_residimg.tta_coddat_cenar_ctbl   = "Fiscal" img             
               tt_criacao_bem_pat_val_resid.tta_cod_finalid_econ = "Corrente"           = TODAY
               tt_criacao_bem_pat_val_residimg.tta_val_resid_min log_princ         = 500.no
          CREATE tt     tt_criacao_bem_pat_val_resid.
        ASSIGN tt_criacao_bem_pat_val_resid.ttv_rec_bem          = RECID(_img.tta_nom_arq_img       = "C:\Users\jaqueline\Downloads\bem_patrimonial_imagem_sem_obesrvacao.jpg".

        CREATE tt_criacao_bem_pat_api_7)           img.
               ttASSIGN tt_criacao_bem_pat_val_residimg.ttattv_cod_tip_calc     = "DP" rec_bem             = RECID(tt_criacao_bem_pat_api_7)
               tt_criacao_bem_pat_val_residimg.tta_cod_cenar_ctbl des_imagem        = "Fiscal"           Imagem do Bem Teste API - Numero 3 sem data e sem observacao"
               tt_criacao_bem_pat_val_residimg.tta_cod_finalid_econ = "Fiscal" log_princ           = no
               tt_criacao_bem_pat_val_residimg.tta_valnom_residarq_min img       = 400"C:\Users\jaqueline\Downloads\nota_fiscal_bem_patrimonial.txt".

        
        run   RUN prgfin\fas\fas735zh.py PERSISTENT SET v_hdl_program.

        run RUN pi_main_api_criacao_bem_pat_10 11 IN v_hdl_program 
                                           (input INPUT 1, 
                                             input INPUT "EMS2" /*matriz traudcao*/, 
                                           input   INPUT "EMS2" /*matriz ccusto*/,
                                           input   INPUT "EMS2" /*matriz finalidade econ.*/,
                                           input   INPUT NO /*contabiliza*/,
                                           INPUT   INPUT TABLE tt_criacao_bem_pat_item_api,
                                             INPUT INPUT TABLE tt_criacao_bem_pat_val_resid,
                                            INPUT TABLE tt_criacao_bem_pat_img,
                                             INPUT INPUT TABLE tt_criacao_bem_pat_api_7,
                                           output   OUTPUT p_cod_return,
                                           output   OUTPUT p_des_mensagem).

if v_cod_return = "nok" then do:
       if can-find (first tt_erros_criacao_bem_pat_api_1) then do:                                    for
       for each tt_erros_criacao_bem_pat_api_1:
          disp            disp tt_erros_criacao_bem_pat_api_1.
      end       end.
       end.
       else disp v_des_mensagem.
end.

delete object DELETE OBJECT v_hdl_program.
assign ASSIGN v_hdl_program = ?.