Skip to Content
0
Former Member
Sep 17, 2007 at 11:34 AM

fm_read text

40 Views

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