Skip to Content
0
Former Member
May 14, 2008 at 04:56 AM

logic needed-pls help

19 Views

Hi Experts

any one tell me whats wrong in the following coding. Sy-subrc is always 4 for IT_VBFA select statement, even data is in vbfa table

DATA: BEGIN OF it_lips OCCURS 0,

vbeln LIKE lips-vbeln,

werks LIKE lips-werks,

posnr LIKE lips-posnr,

matnr LIKE lips-matnr,

lfimg LIKE lips-lfimg,

erdat LIKE lips-erdat,

ernam LIKE lips-ernam,

END OF it_lips.

DATA: BEGIN OF it_likp OCCURS 0,

vkorg LIKE likp-vkorg,

kunag LIKE likp-kunag,

kunnr LIKE likp-kunnr,

lfdat LIKE LIKP-LFDAT,

WADAT LIKE LIKP-WADAT,

END OF it_likp.

DATA: BEGIN OF it_VBFA OCCURS 0,

vbeln LIKE VBFA-vbeln,

END OF it_VBFA.

DATA: BEGIN OF it_VBAK OCCURS 0,

BSTNK LIKE VBAK-BSTNK,

END OF it_VBAK.

DATA: BEGIN OF it_kna1 OCCURS 0,

name1 LIKE kna1-name1,

name2 LIKE kna1-name2,

STRAS like kna1-STRAS,

ORT02 like kna1-ort02,

PSTLZ like kna1-PSTLZ,

ORT01 like kna1-ORT01,

END OF it_kna1.

FORM get_delivery_note_data .

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