Skip to Content
0
Former Member
May 14, 2008 at 06:09 AM

pls help me-urgent

19 Views

Hi

i am not able to extract PO number. Can any one pls help me to check the coding pls

SELECT vbeln werks posnr matnr lfimg erdat ernam

FROM lips INTO TABLE it_lips

WHERE werks = p_werks

AND vbeln IN s_vbeln

AND erdat IN s_erdat

AND ernam IN s_ernam.

IF NOT it_lips[] IS INITIAL.

SELECT vkorg kunag kunnr LFDAT WADAT

FROM likp INTO TABLE it_likp

FOR ALL ENTRIES IN it_lips

WHERE vbeln = it_lips-vbeln

AND vkorg IN s_vkorg

AND WADAT IN S_WADAT.

SELECT VBELN FROM VBFA

INTO TABLE IT_VBFA

FOR ALL ENTRIES IN IT_LIPS

WHERE VBELV = IT_LIPS-VBELN

AND MATNR = IT_LIPS-MATNR.

*AND VBTYP_N = 'C'.

IF IT_VBFA[] IS NOT INITIAL.

SELECT BSTNK FROM VBAK

INTO TABLE IT_VBAK

FOR ALL ENTRIES IN IT_VBFA

WHERE VBELn = IT_VBFA-VBELN.

ENDIF.

select name1 name2 STRAS ORT02 PSTLZ ORT01

from kna1 into table it_kna1

for all entries in it_likp

where kunnr = it_likp-kunnr.

ENDIF.

ENDFORM. " GET_DELIVERY_NOTE_DATA