Code: Alles auswählen.
* Kopftexte ausgeben -------------------------------------------------*
LOOP AT XT166K.
MOVE XT166K TO T166K.
CASE T166K-TDOBJECT.
WHEN 'EKKO'.
T166K-TXNAM(10) = EKKO-EBELN.
WHEN 'LFA1'.
T166K-TXNAM(10) = EKKO-LIFNR.
WHEN 'LFM1'.
T166K-TXNAM(10) = EKKO-LIFNR.
T166K-TXNAM+10(4) = EKKO-EKORG.
ENDCASE.
PERFORM LESEN_TTXIT USING XT166K-TITDR XT166K-TDOBJECT XT166K-TDID.
CALL FUNCTION 'WRITE_FORM'
EXPORTING
ELEMENT = 'HEADER_TEXT'
EXCEPTIONS
OTHERS = 01.
CLEAR SY-SUBRC.
ENDLOOP.