|
Hola Gaunt:
Yo hice una cosa parecida hace mucho tiempo pero me acuerdo que teniamos clases de texto y usabamos bkpf-xblnr.
DATA: lv_name TYPE thead-tdname,
lt_line TYPE STANDARD TABLE OF tline,
lw_line TYPE tline.
lv_name = bkpf-xblnr.
CALL FUNCTION 'READ_TEXT'
EXPORTING
id = 'Z001'
language = sy-langu
name = lv_name
object = 'VBBK'
TABLES
lines = lt_line[]
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 EQ 0.
READ TABLE lt_line INTO lw_line INDEX 1.
* Por si trae caracteres tipicos en documentos sd
REPLACE ALL OCCURRENCES OF '<(>' IN lw_line-tdline WITH space.
REPLACE ALL OCCURRENCES OF '<)>' IN lw_line-tdline WITH space.
p_sgtxt = lw_line-tdline.
ENDIF.
ENDFORM.
Te dejo el código por si te sirve de algo. En alguna bte de las que nombras deben tener campos de cabecera con xblnr.
|