Histórico da Página

...

Leitura e Criação dos Registros

Exemplo do programa para criação dos registros nas temp-tables com os bens patrimoniais a serem implantados:

/* 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 se faz necess rio necessario devido a questäes questões tecnicas */
DEF NEW shared temp-table tt_criacao_bem_pat_api_5 no-undo
    field tta_cod_unid_organ_ext ext            as  as character format "x(5)" label "Unid Organ Externa" column-label "Unid Organ Externa"
    field tta_cod_cta_pat pat                   as as character format "x(18)" label "Conta Patrimonial" column-label "Conta Patrimonial"
    field tta_num_bem_pat pat                   as as integer format ">>>>>>>>9" initial 0 label "Bem Patrimonial" column-label "Bem"
    field tta_num_seq_bem_pat pat               as as integer format ">>>>9" initial 0 label "Sequ¼ncia Sequência Bem" column-label "Sequ¼nciaSequência"
    field tta_des_bem_pat pat                   as 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 pat             as as date format "99/99/9999" initial today label "Data Aquisi»’oAquisição" column-label "Dat Aquis"
    field tta_cod_plano_ccusto ccusto              as  as character format "x(8)" label "Plano Centros Custo" column-label "Plano Centros Custo"
    field tta_cod_ccusto_ext ext                as  as character format "x(8)" label "Centro Custo Externo" column-label "CCusto Externo"
    field tta_cod_estab_ext ext                 as as character format "x(8)" label "Estabelecimento Exte" column-label "Estabelecimento Ext"
    field tta_cod_unid_negoc_ext ext            as  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 ext          as  as character format "x(8)" label "Finalid Econ Externa" column-label "Finalidade Externa"
    field ttv_val_aquis_bem_pat pat             as 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 erro                      as  as logical format "Sim/N’oNão" initial yes
    field tta_qtd_bem_pat_represen represen          as  as decimal format ">>>>>>>>9" initial 1 label "Quantidade Bens Representados" column-label "Bem Represen"
    field tta_cdn_fornecedor fornecedor                as  as Integer format ">>>,>>>,>>9" initial 0 label "Fornecedor" column-label "Fornecedor"
    field tta_cod_docto_entr entr                as  as character format "x(8)" label "Docto Entrada" column-label "Docto Entrada"
    field tta_cod_ser_nota nota                  as  as character format "x(5)" label "S²rie Série Nota" column-label "S²rie Série Nota"
    field tta_num_item_docto_entr entr           as as integer format ">>>,>>9" initial 0 label "Numero Item" column-label "Num Item"
    field tta_num_id_bem_pat pat                as  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 pat            as  as character format "x(2000)" label "Narrativa Bem" column-label "Narrativa Bem"
    field tta_log_bem_imptdo imptdo                as  as logical format "Sim/N’oNão" initial no label "Bem Importado" column-label "Bem Importado"
    field tta_log_cr_pis pis                    as  as logical format "Sim/N’oNão" initial no label "Credita PIS" column-label "Credita PIS"
    field tta_log_cr_cofins cofins                 as as logical format "Sim/N’oNão" initial no label "Credita COFINS" column-label "Credita COFINS"
    field ttv_num_parc_pis_cofins cofins           as as integer format "999" initial 0 label "Nro Parcelas" column-label "Nro Parcelas"
    field tta_val_cr_pis pis                    as  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 cofins                 as 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 csll                   as as logical format "Sim/N’oNão" initial no label "Credita CSLL" column-label "Credita CSLL"
    field ttv_num_exerc_cr_csll csll             as 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_8) conter  os conter  os registros dos bens patrimoniais a serem criados no sistema */
def temp-table tt_criacao_bem_pat_api_8 no-undo
    field tta_cod_unid_organ_ext ext            as  as character format "x(5)" label "Unid Organ Externa" column-label "Unid Organ Externa"
    field tta_cod_cta_pat pat                   as as character format "x(18)" label "Conta Patrimonial" column-label "Conta Patrimonial"
    field tta_num_bem_pat pat                   as as integer format ">>>>>>>>9" initial 0 label "Bem Patrimonial" column-label "Bem"
    field tta_num_seq_bem_pat pat               as as integer format ">>>>9" initial 0 label "Sequˆncia Sequência Bem" column-label "SequˆnciaSequência"
    field tta_des_bem_pat pat                   as 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 pat             as as date format "99/99/9999" initial today label "Data Aquisi‡ÆoAquisição" column-label "Dat Aquis"
    field tta_cod_plano_ccusto ccusto              as  as character format "x(8)" label "Plano Centros Custo" column-label "Plano Centros Custo"
    field tta_cod_ccusto_ext ext                as  as character format "x(8)" label "Centro Custo Externo" column-label "CCusto Externo"
    field tta_cod_estab_ext ext                 as as character format "x(8)" label "Estabelecimento Exte" column-label "Estabelecimento Ext"
    field tta_cod_unid_negoc_ext ext            as  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 ext          as  as character format "x(8)" label "Finalid Econ Externa" column-label "Finalidade Externa"
    field ttv_val_aquis_bem_pat pat             as 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 erro                      as  as logical format "Sim/NÆoNão" initial yes
    field tta_qtd_bem_pat_represen represen          as  as decimal format ">>>>>>>>9" initial 1 label "Quantidade Bens Representados" column-label "Bem Represen"
    field tta_cdn_fornecedor fornecedor                as  as Integer format ">>>,>>>,>>9" initial 0 label "Fornecedor" column-label "Fornecedor"
    field tta_cod_docto_entr entr                as  as character format "x(8)" label "Docto Entrada" column-label "Docto Entrada"
    field tta_cod_ser_nota nota                  as  as character format "x(5)" label "S‚rie Série Nota" column-label "S‚rie Série Nota"
    field tta_num_item_docto_entr entr           as as integer format ">>>,>>9" initial 0 label "Numero Item" column-label "Num Item"
    field tta_num_id_bem_pat pat                as  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 pat            as  as character format "x(2000)" label "Narrativa Bem" column-label "Narrativa Bem"
    field tta_log_bem_imptdo imptdo                as  as logical format "Sim/NÆoNão" initial no label "Bem Importado" column-label "Bem Importado"
    field tta_log_cr_pis pis                    as  as logical format "Sim/NÆoNão" initial no label "Credita PIS" column-label "Credita PIS"
    field tta_log_cr_cofins cofins                 as as logical format "Sim/NÆoNão" initial no label "Credita COFINS" column-label "Credita COFINS"
    field ttv_num_parc_pis_cofins cofins           as as integer format "999" initial 0 label "Nro Parcelas" column-label "Nro Parcelas"
    field tta_val_cr_pis pis                    as  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 cofins                 as 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 pis                  as  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 cofins               as as decimal format ">>>,>>>,>>9.99" decimals 2 initial 0 label "Valor Base COFINS" column-label "Base COFINS"
    field ttv_log_cr_csll csll                   as as logical format "Sim/NÆoNão" initial no label "Credita CSLL" column-label "Credita CSLL"
    field ttv_num_exerc_cr_csll csll             as as integer format "99" label "Exerc. Cr‚dito Crédito CSLL" column-label "Exerc. Cr‚dito Crédito CSLL"
    field tta_dat_calc_pat pat                  as  as date format "99/99/9999" initial today label "Data C lculoCálculo" column-label "Data C lculoCálculo"
    field tta_cb3_ident_visual visual              as  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 pat      as  as character format "x(8)" label "Estado F¡sicoFísico" column-label "Estado F¡sicoFísico"
    field tta_cod_espec_bem bem                 as as character format "x(6)" label "Esp‚cie Espécie Bem Patrimonial" column-label "Esp‚cieEspécie"
    field tta_cod_marca marca                     as as character format "x(6)" label "Marca" column-label "Marca"
    field tta_cod_modelo modelo                    as  as character format "x(8)" label "Modelo" column-label "Modelo"
    field tta_dat_avaliac_apol_seguro seguro       as 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 seguro       as 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 uso                as  as character format "x(12)" label "Licen‡a Licença Uso" column-label "Licen Uso"
    field tta_cod_especif_tec tec               as 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 arrendador                as  as character format "x(6)" label "Arrendador" column-label "Arrendador"
    field tta_cod_contrat_leas leas              as  as character format "x(12)" label "Contrato Leasing" column-label "Contr Leas"
    field tta_cod_localiz localiz                   as as character format "x(12)" label "Localiza‡ÆoLocalização" column-label "Localiza‡ÆoLocalização"
    field tta_cod_imagem imagem                    as  as character format "x(30)" label "Imagem" column-label "Imagem"
    field ttv_rec_id id                        as  as recid format ">>>>>>9"
    field tta_cod_natur_operac operac              as  as character format "x(6)" label "Natureza Opera‡ÆoOperação" column-label "Natureza Opera‡ÆoOperação"
    .

/* Esta temp-table (tt_criacao_bem_pat_item_api_1) 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_1 no-undo
    field ttv_rec_bem bem                       as as recid format ">>>>>>9"
    field tta_cdn_fornecedor fornecedor                as  as Integer format ">>>,>>>,>>9" initial 0 label "Fornecedor" column-label "Fornecedor"
    field tta_cod_docto_entr entr                as  as character format "x(8)" label "Docto Entrada" column-label "Docto Entrada"
    field tta_cod_ser_nota nota                  as  as character format "x(5)" label "S‚rie Série Nota" column-label "S‚rie Série Nota"
    field tta_num_item_docto_entr entr           as as integer format ">>>,>>9" initial 0 label "Numero Item" column-label "Num Item"
    field tta_cod_natur_operac operac              as  as character format "x(6)" label "Natureza Opera‡ÆoOperação" column-label "Natureza Opera‡ÆoOperação"
    field tta_qtd_item_docto_entr entr           as as decimal format ">>>>>>>>9" initial 0 label "Qtde Item Docto" column-label "Qtde Item Docto"
    index tt_id id                             is is primary unique
          ttv_rec_bem bem                       ascendingascending
          tta_cdn_fornecedor fornecedor                ascending ascending
          tta_cod_docto_entr entr                ascending ascending
          tta_cod_ser_nota nota                  ascending ascending
          tta_num_item_docto_entr entr           ascendingascending
          tta_cod_natur_operac operac              ascending ascending
    .

/* esta 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 bem                       as as recid format ">>>>>>9"
    field tta_cod_tip_calc calc                  as  as character format "x(7)" label "Tipo C lculoCálculo" column-label "Tipo C lculoCálculo"
    field tta_cod_cenar_ctbl ctbl                as  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 econ              as  as character format "x(10)" label "Finalidade" column-label "Finalidade"
    field tta_val_resid_min min                 as as decimal format "->>>,>>>,>>>,>>9.99" decimals 2 initial 0 label "Residual M­nimoMínimo" column-label "Residual"
    index tt_id id                             is is primary unique
          ttv_rec_bem bem                       ascendingascending
          tta_cod_tip_calc calc                  ascending ascending
          tta_cod_cenar_ctbl ctbl                ascending ascending
          tta_cod_finalid_econ econ              ascending ascending
    .

/* esta 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 bem                       as as recid format ">>>>>>9"
    field tta_des_imagem imagem                    as  as character format "x(40)" label "Descri»’oDescrição" column-label "Descri»’oDescrição"
    field tta_dat_img img                       as as date format "99/99/9999" initial ? label "Data Imagem" column-label "Data Imagem"
    field tta_log_princ princ                     as as logical format "Sim/N’oNão" initial no label "Principal" column-label "Principal"
    field tta_nom_arq_img img                   as as character format "x(200)" label "Arquivo Imagem" column-label "Arquivo"
    field tta_des_obs obs                       as 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 ext            as  as character format "x(5)" label "Unid Organ Externa" column-label "Unid Organ Externa"
    field tta_cod_cta_pat pat                   as as character format "x(18)" label "Conta Patrimonial" column-label "Conta Patrimonial"
    field tta_num_bem_pat pat                   as as integer format ">>>>>>>>9" initial 0 label "Bem Patrimonial" column-label "Bem"
    field tta_num_seq_bem_pat pat               as as integer format ">>>>9" initial 0 label "Sequ¼ncia SequŒˆncia Bem" column-label "Sequ¼nciaSequŒˆncia"
    field tta_des_bem_pat pat                   as 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 pat             as as date format "99/99/9999" initial today label "Data Aquisi»’oAquisiŒ‡ÔÇÖo" column-label "Dat Aquis"
    field tta_cod_finalid_econ_ext ext          as  as character format "x(8)" label "Finalid Econ Externa" column-label "Finalidade Externa"
    field ttv_des_mensagem mensagem                  as  as character format "x(50)" label "Mensagem" column-label "Mensagem"
    .

DEF VAR v_cod_return   AS return   AS CHAR FORMAT "X(40)" NO-UNDO.
DEF VAR v_des_mensagem AS CHAR FORMAT "X(50)" NO-UNDO.
DEF VAR v_hdl_program  AS program  AS HANDLE NO-UNDO.

CREATE tt_criacao_bem_pat_api_8.
ASSIGN tt_criacao_bem_pat_api_8.tta_cod_unid_organ_Ext Ext       = "10"
       tt_criacao_bem_pat_api_8.tta_cod_cta_pat   pat              = "034"
       tt_criacao_bem_pat_api_8.tta_num_bem_pat pat                = 220853
       tt_criacao_bem_pat_api_8.tta_num_seq_bem_pat   pat          = 1
       tt_criacao_bem_pat_api_8.tta_des_bem_pat   pat              = "Teste API - " + STRING(TODAY) + ' # ' + STRING(TIME,"hh:mm")
       tt_criacao_bem_pat_api_8.tta_dat_aquis_bem_pat pat          = 07/01/2023
       tt_criacao_bem_pat_api_8.tta_cod_plano_ccusto ccusto         = "Alfa"
       tt_criacao_bem_pat_api_8.tta_cod_ccusto_ext ext           = "31400"
       tt_criacao_bem_pat_api_8.tta_cod_estab_ext ext              = "1"
       tt_criacao_bem_pat_api_8.tta_cod_unid_negoc_ext ext       = "999"
       tt_criacao_bem_pat_api_8.tta_cod_finalid_econ_ext ext     = "0"
       tt_criacao_bem_pat_api_8.ttv_val_aquis_bem_pat   pat        = 10000
       tt_criacao_bem_pat_api_8.ttv_log_erro erro                 = no
       tt_criacao_bem_pat_api_8.tta_qtd_bem_pat_represen represen     = 1
       tt_criacao_bem_pat_api_8.tta_cdn_fornecedor fornecedor           = 1
       tt_criacao_bem_pat_api_8.tta_num_id_bem_pat pat           = 0
       tt_criacao_bem_pat_api_8.tta_des_narrat_Bem_pat pat       = ""
       tt_criacao_bem_pat_api_8.tta_log_cr_cofins cofins              = NO
       tt_criacao_bem_pat_api_8.tta_log_cr_pis pis               = NO
       tt_criacao_bem_pat_api_8.ttv_num_parc_pis_cofins cofins        = 0
       tt_criacao_bem_pat_api_8.tta_val_cr_pis pis               = 0
       tt_criacao_bem_pat_api_8.tta_val_cr_cofins cofins              = 0
       tt_criacao_bem_pat_api_8.tta_cod_docto_entr entr           = "3232"
       tt_criacao_bem_pat_api_8.tta_cod_ser_nota nota             = 'u'
       tt_criacao_bem_pat_api_8.tta_num_item_docto_entr   entr      = 20
       tt_criacao_bem_pat_api_8.tta_dat_calc_pat pat             = 07/01/2023
       tt_criacao_bem_pat_api_8.tta_cb3_ident_visual visual         = '12345678'
       tt_criacao_bem_pat_api_8.tta_cod_estado_fisic_bem_pat = "ATIVO"
       tt_criacao_bem_pat_api_8.tta_cod_espec_bem   bem            = '004' 
       tt_criacao_bem_pat_api_8.tta_cod_marca marca                  = 'COMPAQ'
       tt_criacao_bem_pat_api_8.tta_cod_modelo modelo               = "LS1"
       tt_criacao_bem_pat_api_8.tta_dat_avaliac_apol_seguro  seguro  = 07/01/2023
       tt_criacao_bem_pat_api_8.tta_val_avaliac_apol_seguro  seguro  = 5000
       tt_criacao_bem_pat_api_8.tta_cod_licenc_uso uso           = '1'
       tt_criacao_bem_pat_api_8.tta_cod_especif_tec tec            = '1'
       tt_criacao_bem_pat_api_8.tta_cod_arrendador arrendador           = '10'
       tt_criacao_bem_pat_api_8.tta_cod_contrat_leas leas         = '120220'
       tt_criacao_bem_pat_api_8.tta_cod_localiz localiz                = 'VIDRO-01'
       tt_criacao_bem_pat_api_8.tta_cod_imagem imagem               = ''
       tt_criacao_bem_pat_api_8.ttv_rec_id id                   = RECID(tt_criacao_bem_pat_api_8).

CREATE tt_criacao_bem_pat_item_api_1.
ASSIGN tt_criacao_bem_pat_item_api_1.ttv_rec_bem bem             = tt_criacao_bem_pat_api_8.ttv_rec_id
       tt_criacao_bem_pat_item_api_1.tta_cdn_fornecedor fornecedor        = 13 
       tt_criacao_bem_pat_item_api_1.tta_cod_docto_entr entr        = "2206231"
       tt_criacao_bem_pat_item_api_1.tta_cod_ser_nota nota          = "1"
       tt_criacao_bem_pat_item_api_1.tta_num_item_docto_entr = 20
       tt_criacao_bem_pat_item_api_1.tta_cod_natur_operac   operac    = "111A90"
       tt_criacao_bem_pat_item_api_1.tta_qtd_item_docto_entr = 1.

CREATE tt_criacao_bem_pat_val_resid.
ASSIGN tt_criacao_bem_pat_val_resid.ttv_rec_bem   bem          = RECID(tt_criacao_bem_pat_api_8)
       tt_criacao_bem_pat_val_resid.tta_cod_tip_calc calc     = "DP"             
       tt_criacao_bem_pat_val_resid.tta_cod_cenar_ctbl ctbl   = "Fiscal"
       tt_criacao_bem_pat_val_resid.tta_cod_finalid_econ = "Corrente"
       tt_criacao_bem_pat_val_resid.tta_val_resid_min   min    = 500.

CREATE tt_criacao_bem_pat_val_resid.
ASSIGN tt_criacao_bem_pat_val_resid.ttv_rec_bem bem            = RECID(tt_criacao_bem_pat_api_8)
       tt_criacao_bem_pat_val_resid.tta_cod_tip_calc calc     = "DP"
       tt_criacao_bem_pat_val_resid.tta_cod_cenar_ctbl ctbl   = "Fiscal"
       tt_criacao_bem_pat_val_resid.tta_cod_finalid_econ = "Fiscal"
       tt_criacao_bem_pat_val_resid.tta_val_resid_min min      = 400.

CREATE tt_criacao_bem_pat_img.
ASSIGN tt_criacao_bem_pat_img.ttv_rec_bem bem     = RECID(tt_criacao_bem_pat_api_8)
       tt_criacao_bem_pat_img.tta_des_imagem  imagem  = "Imagem do Bem Teste API - Numero 1 com observacao"
       tt_criacao_bem_pat_img.tta_dat_img img     = TODAY
       tt_criacao_bem_pat_img.tta_log_princ 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 obs     = "Observacao da imagem carregada via API".

CREATE tt_criacao_bem_pat_img.
ASSIGN tt_criacao_bem_pat_img.ttv_rec_bem bem     = RECID(tt_criacao_bem_pat_api_8)
       tt_criacao_bem_pat_img.tta_des_imagem  imagem  = "Imagem do Bem Teste API - Numero 2 sem observacao"
       tt_criacao_bem_pat_img.tta_dat_img img     = TODAY
       tt_criacao_bem_pat_img.tta_log_princ princ   = no
       tt_criacao_bem_pat_img.tta_nom_arq_img = "C:\Users\jaqueline\Downloads\bem_patrimonial_imagem_sem_obesrvacao.jpg".

CREATE tt_criacao_bem_pat_img.
ASSIGN tt_criacao_bem_pat_img.ttv_rec_bem bem     = RECID(tt_criacao_bem_pat_api_8)
       tt_criacao_bem_pat_img.tta_des_imagem  imagem  = "Imagem do Bem Teste API - Numero 3 sem data e sem observacao"
       tt_criacao_bem_pat_img.tta_log_princ princ   = no
       tt_criacao_bem_pat_img.tta_nom_arq_img = "C:\Users\jaqueline\Downloads\nota_fiscal_bem_patrimonial.txt".

...

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

...