Getting Ship To Party address in LT03

[Former Member]

Hi Gurus,

I want to print Ship To Party's Address in the WM Transfer Order Picklist.

Ship to Party is there in the sales order(VA03).The Field is KUWEV-KUNNR.

How to get that number and how to print that in the script form.

Please help me out with a sample program.

&----

---

*& Subroutine pool ZSCM_GET_ADDRESS

*&

&----

---

*&

*&

&----

---

PROGRAM ZSCM_GET_ADDRESS.

FORM GET_SHP_ADR TABLES TAB_IN2 STRUCTURE ITCSY

TAB_OUT2 STRUCTURE ITCSY.

DATA : GV_VBELN LIKE VBKD-VBELN,

GV_VBELV LIKE VBFA-VBELV,

GV_ADRNR LIKE VBPA-ADRNR,

GV_KUNNR LIKE KNA1-KUNNR.

DATA: I_KNA1 TYPE KNA1.

TABLES KNA1.

CLEAR GV_ADRNR.

READ TABLE TAB_IN2 WITH KEY 'LTAK-VBELN'.

IF SY-SUBRC EQ 0.

CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'

EXPORTING

INPUT = TAB_IN2-VALUE

IMPORTING

OUTPUT = GV_VBELN.

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

ENDIF.

BREAK-POINT.

• SELECT SINGLE ADRNR FROM VBPA INTO GV_ADRNR WHERE VBELN = GV_VBELV.

SELECT SINGLE KUNNR FROM VBPA INTO GV_KUNNR WHERE VBELN = GV_VBELV.

SELECT SINGLE * FROM KNA1 INTO I_KNA1 WHERE

READ TABLE TAB_OUT2 WITH KEY 'GV_KUNNR'.

IF SY-SUBRC = 0.

TAB_OUT2-VALUE = GV_KUNNR.

ENDIF.

MODIFY TAB_OUT2 INDEX SY-TABIX FROM KNA1 TRANSPORTING KUNNR.

ENDFORM.

Thanks,

Praveen

Message was edited by:

Praveen Kumar

[Former Member]

Hi,

Change the SQL to add the partner function..

SELECT SINGLE ADRNR FROM VBPA INTO GV_ADRNR WHERE VBELN = GV_VBELV <b>AND PARVW = 'WE'</b>. " WE is for ship to party..

Thanks,

Naren