Item Text on Transfer Order Pick List LT03

[Former Member]

This is the code I did to display the etching instructions on transfer order picklist script, this etching instructions are at the item level on VA03.

The first item’s etching instructions are displaying on all the lines, I think there is a problem with the name (GV-NAME2).

FORM GET_ETC_TEXT TABLES TAB_IN STRUCTURE ITCSY

TAB_OUT STRUCTURE ITCSY.

DATA GV_NAME LIKE THEAD-TDNAME.

DATA GV_NAME1 LIKE THEAD-TDNAME.

DATA GV_VBELN LIKE VBAK-VBELN.

DATA GV_VBELV LIKE VBFA-VBELV.

DATA GV_ID LIKE THEAD-TDID.

DATA GV_OBJECT LIKE THEAD-TDOBJECT.

DATA GV_TANUM LIKE LTAK-TANUM.

DATA GV_LEN TYPE I.

DATA GV_POSNR LIKE LTAP-POSNR.

GV_ID = 'ZI50'.

GV_OBJECT = 'VBBP'.

DATA I_LINE LIKE TLINE OCCURS 0 WITH HEADER LINE.

CLEAR GV_NAME.

CLEAR GV_NAME1.

READ TABLE TAB_IN WITH KEY 'LTAK-VBELN'.

IF SY-SUBRC EQ 0.

CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'

EXPORTING

INPUT = TAB_IN-VALUE

IMPORTING

OUTPUT = GV_VBELN.

SELECT SINGLE VBELV FROM VBFA INTO GV_VBELV WHERE VBELN = GV_VBELN.

GV_NAME = GV_VBELV.

SELECT SINGLE POSNR FROM VBAP INTO GV_POSNR WHERE VBELN = GV_VBELV.

CONCATENATE GV_NAME GV_POSNR INTO GV_NAME1.

CLEAR GV_POSNR.

CALL FUNCTION 'READ_TEXT'

EXPORTING

ID = GV_ID

LANGUAGE = SY-LANGU

NAME = GV_NAME1

OBJECT = GV_OBJECT

TABLES

LINES = I_LINE.

CLEAR TAB_OUT-VALUE.

LOOP AT I_LINE.

CONCATENATE TAB_OUT-VALUE I_LINE-TDLINE INTO TAB_OUT-VALUE SEPARATED BY SPACE.

GV_LEN = STRLEN( TAB_OUT-VALUE ).

IF GV_LEN > 120.

CONDENSE TAB_OUT-VALUE.

EXIT.

ENDIF.

ENDLOOP.

MODIFY TAB_OUT TRANSPORTING VALUE WHERE NAME = 'ETC_TEXT'.

ENDIF.

ENDFORM.

Please Help me out in this,

Thanks,

Praveen

[Former Member]

Thanks ...

I solved my problem.

Br,

Praveen