Funcion para obtener textos en lineas.

**rembe** · 09/05/2019, 15:27:04

El siguiente código es un ejemplo de como obtener los textos de un material (se puede utilizar para obtener textos de otras tablas u objetos).

Código:

"Definición de variables necesarias.
  DATA: it_lines  TYPE TABLE OF tline,
        it_inline TYPE TABLE OF tline,
        it_line   TYPE tline,
        v_matnrt  TYPE thead-tdname.

"Conversión de codigo del material al tipo de varible requerida
  CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
    EXPORTING
      input  = p_matnr
    IMPORTING
      output = v_matnrt.

"Llama la función para leer los textos en lineas
  CALL FUNCTION 'READ_TEXT_INLINE'
    EXPORTING
      id              = 'GRUN' "Este es identificador del texto.
      inline_count    = 1 "A partir de que linea va a leer
      language        = sy-langu "Lenguaje en el que esta el texto
      name            = v_matnrt "Material del cual se leerá.
      object          = 'MATERIAL' "Tabla u objeto de donde se obtendrá el texto
    TABLES
      inlines         = it_inline
      lines           = it_lines "aqui se almacenan las lineas de texto
    EXCEPTIONS
      id              = 1
      language        = 2
      name            = 3
      not_found       = 4
      object          = 5
      reference_check = 6
      OTHERS          = 7.

Los Id's para el objeto MATERIAL son:

BEST - Texto de pedido de compras
GRUN - Texto de datos básicos
IVER - Nota interna
PRUE - Texto de inspección

En la tabla TTXID puede encontrar mas ID's y objetos que puede utilizas.