Função - Read Text

  *----------------------------------------------------------------------*
"  Função usada para trazer o texto dos objetos, lembrado que caso vc não
" saiba id do texto, procure na tabela transparente TTXIT que nesta tabela
" mostra todas as informações de chaves para trazer o texto.

REPORT zmj_read_text.

"
data : c_id_c   TYPE tdid     VALUE 'F01',  " ID de texto (cabec)
       v_nm_txt TYPE thead-tdname,          " Chave de busca do Texto Cabec
       c_obj_c  TYPE tdobject VALUE 'EKKO', " obj. de aplicação (cabec)
       it_lines TYPE TABLE OF tline,        "linhas de textos (cabec)
       st_lines TYPE          tline
       .


PERFORM f_bapi_texto_cabec USING '0000000001'.


FORM f_bapi_texto_cabec USING v_nm_txt.

** O nome do texto (chave) é o Nº do documento de compras
*  v_nm_txt = '0000000001'.

  CALL FUNCTION 'READ_TEXT'
    EXPORTING
      id                      = c_id_c
      language                = sy-langu
      name                    = v_nm_txt
      object                  = c_obj_c
    TABLES
      lines                   = it_lines
    EXCEPTIONS
      id                      = 1
      language                = 2
      name                    = 3
      not_found               = 4
      object                  = 5
      reference_check         = 6
      wrong_access_to_archive = 7
      OTHERS                  = 8.


BREAK-POINT.


  IF sy-subrc EQ 0.

    LOOP AT it_lines INTO st_lines.
      WRITE  st_lines.
    ENDLOOP.

* Gera mensagem de informação no Log de Processamento
  ELSE.

    MESSAGE 'Texto não encontrado' TYPE 'I'.

  ENDIF.

ENDFORM.                    " f_bapi_texto_cabec