hi max,
following the spot where i have written my code
NHANCEMENT-POINT rv_invoice_document_add_14 SPOTS es_saplv60a.
ENHANCEMENT 51 OIC_SAPLV60A. "active version
BREAK-POINT.
WAIT UP TO 2 SECONDS.
DATA: lv_name TYPE thead-tdname,
lt_line TYPE STANDARD TABLE OF tline,
lw_line TYPE tline.
CLEAR: lv_name , lv_sgtxt.
lv_name = bkpf-xblnr.
CALL FUNCTION 'READ_TEXT'
EXPORTING
id = 'A002'
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.
REPLACE ALL OCCURRENCES OF '<)>' IN lw_line-tdline WITH space.
lv_sgtxt = lw_line-tdline.
ENDIF.
ENHANCEMENT 1 ZNARRATION_UPDATE. "active version
ENDENHANCEMENT.
regards
satish