Mari,
<removed by moderator>
Use the Following code.
and modify the IT_HEADER-KTEXT field as well.
METHOD if_ex_workorder_update~before_update.
TYPES: BEGINOFLINES,
TDFORMAT TYPE TDFORMAT,
TDLINE TYPE TDLINE,
ENDOFLINES.
DATA: IT_LINES TYPESTANDARDTABLEOF LINES,
WA_LINES TYPE LINES.
DATA: HEADER TYPE THEAD.
DATA: ID TYPE THEAD-TDID,
LANGUAGETYPE THEAD-TDSPRAS,
NAME TYPE THEAD-TDNAME,
OBJECT TYPE THEAD-TDOBJECT.
DATA: WA_HEADER TYPELINEOF COBAI_T_HEADER.
ID = 'KOFP'.
OBJECT = 'AUFK'.
READTABLE IT_HEADER INTO WA_HEADER INDEX1.
IF SY-SUBRC EQ0.
CONCATENATE SY-MANDT WA_HEADER-AUFNR INTO NAME.
ENDIF.
CALLFUNCTION'READ_TEXT'
EXPORTING
CLIENT = SY-MANDT
ID = 'KOPF'
LANGUAGE = SY-LANGU
NAME = NAME
OBJECT = OBJECT
* ARCHIVE_HANDLE = 0
* LOCAL_CAT = ' '
IMPORTING
HEADER = HEADER
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
.
IF SY-SUBRC <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
LOOPAT IT_LINES INTO WA_LINES.
** your logic
ENDLOOP.
CALLFUNCTION'SAVE_TEXT'
EXPORTING
CLIENT = SY-MANDT
HEADER = HEADER
* INSERT = 'X'
SAVEMODE_DIRECT = 'X'
* OWNER_SPECIFIED = ' '
* LOCAL_CAT = ' '
* IMPORTING
* FUNCTION =
* NEWHEADER =
TABLES
LINES = IT_LINES
EXCEPTIONS
ID = 1
LANGUAGE = 2
NAME = 3
OBJECT = 4
OTHERS = 5
.
IF SY-SUBRC <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
ENDMETHOD.
Regards,
Message was edited by: Matthew Billingham