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