Textos material en pedidos de compras

[mitosap]

Que tal Jesús.

En la tabla STXL se almacenan, entre otros, los textos de posiciones de compras. El campo es stkl-clustd, eS un dato string byte largo y para accederlo lo haces con la funcion "READ-TEXT".

Aqui hay un código ejemplo que encontré en este foro y el mismo devuelve el texto de acuerdo a parámetros enviados:

PROGRAM ZRFI_PRUEBA_VARIAS_JOA.
* Aqui devolverla la info de lineas stxl
DATA: BEGIN OF LTEXT OCCURS 0.
INCLUDE STRUCTURE TLINE.
DATA: END OF LTEXT.

* Aqui devolverla la info de cabecera stxh
DATA: BEGIN OF HTEXT.
INCLUDE STRUCTURE THEAD.
DATA: END OF HTEXT.

**
**********************/////////////////////************************************************


**********************/////////////////////************************************************
**
**En este caso, el ID de tu posición (texto pedido material es F03)

CALL FUNCTION 'READ_TEXT'
EXPORTING
* CLIENT = SY-MANDT
ID = 'F01'
LANGUAGE = 'S'
NAME = '450000002300030'
OBJECT = 'EKPO'
* ARCHIVE_HANDLE = 0
IMPORTING
HEADER = HTEXT
TABLES
LINES = LTEXT
EXCEPTIONS
ID = 1
LANGUAGE = 2
NAME = 3
NOT_FOUND = 4
OBJECT = 5
REFERENCE_CHECK = 6
WRONG_ACCESS_TO_ARCHIVE = 7
OTHERS = 8.

IF sy-subrc <> 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.

* Luego lo muestras o ya veras que haces con el dato
LOOP AT LTEXT.
WRITE:/ LTEXT-TDLINE.
ENDLOOP.

Espero te sea de gran ayuda.