i am creating report in crm module
in my report i am using fm READ _TEXT to capture text in activity-meeting text.
i am able to capturing records but problem is that for particular record there are
multiple text lines but i am getting single first line.
just go thru down code & provide me the needful suggestions.
SELECT TDNAME tdid FROM STXH INTO CORRESPONDING
FIELDS OF TABLE ST_STXH WHERE TDOBJECT = 'CRM_ORDERH' AND TDSPRAS = 'EN' AND TDID LIKE 'A00%'.
LOOP AT ST_STXH . "where tdid = 'A002'.
CASE ST_STXH-TDID.
WHEN 'A002'.
CALL FUNCTION 'READ_TEXT'
EXPORTING
CLIENT = SY-MANDT
ID = 'A002' "ST_STXH-TDID
LANGUAGE = SY-LANGU
NAME = 'B7719EA7A9DFA5449D643943CC2CDF07'
NAME = ST_STXH-TDNAME
OBJECT = 'CRM_ORDERH'
=
TABLES
LINES = TLINETAB
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.
append lines of tlinetab to ST_STXH-lines.<------here i tried append all line in lines *where lines type tlinetab
.
WHEN 'A007'.
CALL FUNCTION 'READ_TEXT'
EXPORTING
CLIENT = SY-MANDT
ID = 'A007'
LANGUAGE = SY-LANGU
NAME = ST_STXH-TDNAME
OBJECT = 'CRM_ORDERH'
TABLES
LINES = TLINETAB
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.
ENDIF.
READ TABLE TLINETAB .
ST_STXH-text2 = tlinetab-tdline.
CLEAR TLINETAB.
COMPARING WHERE TLINE_O TDNAME = st_stxh-tdname.
WHEN 'A008'.
CALL FUNCTION 'READ_TEXT'
EXPORTING
CLIENT = SY-MANDT
ID = 'A008'
LANGUAGE = 'E'
NAME = ST_STXH-TDNAME
OBJECT = 'CRM_ORDERH'
TABLES
LINES = TLINETAB
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.
ENDIF.
READ TABLE TLINETAB.
ST_STXH-TEXT3 = TLINETAB-TDLINE.
CLEAR TLINETAB.
ENDCASE.
modify st_stxh .
ENDLOOP.
loop at st_stxh.
endloop.
LOOP AT ITAB.
LOOP AT ST_STXH WHERE TDNAME = ITAB-GUID.
TDID = 'A002'.
CASE ST_STXH-TDID.
WHEN 'A002'.
ITAB-TEXT2 = ST_STXH-TEXT2.
WHEN 'A007'.
ITAB-TEXT2 = ST_STXH-TEXT2.
WHEN 'A008'.
ITAB-TEXT3 = ST_STXH-TEXT3.
ENDCASE.
MODIFY ITAB.
ENDLOOP.
ENDLOOP.
Message was edited by:
EKTA JAIN