09-25-2008 12:24 PM
Hi
i displayed the Sales text for one sales order and im struck at displaying all sales order texts
TABLES:VBAK.
SELECT-OPTIONS : S_VBELN FOR VBAK-VBELN.
DATA: BEGIN OF ITAB_VBAP OCCURS 0,
VBELN LIKE VBAP-VBELN,
POSNR LIKE VBAP-POSNR,
ARKTX LIKE VBAP-ARKTX,
END OF ITAB_VBAP.
data : itab type table of TLINE with header line.
*data : v_name type THEAD-TDNAME.
*data : v_id type THEAD-TDID.
*data : v_object type THEAD-TDOBJECT.
*v_name = '0000004969000010'.
*v_id = '0001'.
*v_object = 'VBBP'.
SELECT VBELN POSNR ARKTX FROM VBAP INTO TABLE ITAB_VBAP WHERE VBELN IN S_VBELN.
LOOP AT ITAB_VBAP.
WRITE: / ITAB_VBAP-VBELN,ITAB_VBAP-POSNR,ITAB_VBAP-ARKTX.
ENDLOOP.
CALL FUNCTION 'READ_TEXT'
EXPORTING
CLIENT = SY-MANDT
ID = '0001'
LANGUAGE = sy-langu
NAME = '0005000134000010'
OBJECT = 'VBBP'
ARCHIVE_HANDLE = 0
LOCAL_CAT = ' '
IMPORTING
HEADER =
TABLES
LINES = itab
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.
IF sy-subrc EQ 0.
loop at itab.
write: / itab.
endloop.
ELSE.
WRITE:/ 'Sy-Subrc = ', sy-subrc.
ENDIF
09-25-2008 12:33 PM
Hello,
What i ur problem?
In itab u must be getting tdformat and tdline.
in the loop you have to display itab-tdline.
Regards,
Neelambari
09-25-2008 12:33 PM
1. Get the data from VBAP.
2. Loop at VBAP
3. Concatenate VBELN + POSNR into NAME.
Make sure VBELN is of 10 char with leading zeros
4. Call the FM "READ_TEXT"
Regards,
Prabhu Rajesh
09-25-2008 12:33 PM
Hello,
What i ur problem?
In itab u must be getting tdformat and tdline.
in the loop you have to display itab-tdline.
Regards,
Neelambari
09-25-2008 12:42 PM
hi
i did that but it displays only one can u verify my code once plz
09-25-2008 12:46 PM
Hi,
In the READ_TEXT fm you are passing single name value so you are getting one text for that particular record.
If you pass all the values corresponding to name then you will get list of text.