topic Re: logic needed-pls help in Application Development and Automation Discussions

logic needed-pls help

Former Member — Wed, 14 May 2008 04:56:58 GMT

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

Re: logic needed-pls help

Former Member — Wed, 14 May 2008 05:02:54 GMT

see

I think the problem can be in your

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.

statement

see all the screen fields are select-options except fpr p_werks if you leave this field empty and run the report then it will give no result

Re: logic needed-pls help

Former Member — Wed, 14 May 2008 05:03:19 GMT

try vbeln in place of vbelv below

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'.

Re: logic needed-pls help

Former Member — Wed, 14 May 2008 05:04:53 GMT

hi,

Check out using First CONVERSION_EXIT_ALPHA_INPUT for matnr

and also take VBELN instead of VBELV..

SELECT VBELN FROM VBFA

INTO TABLE IT_VBFA

FOR ALL ENTRIES IN IT_LIPS

WHERE VBELN = IT_LIPS-VBELN

AND MATNR = IT_LIPS-MATNR.

AND VBTYP_N = 'C'.

Regards,

Santosh

Re: logic needed-pls help

Former Member — Wed, 14 May 2008 05:06:04 GMT

Hi,

Check for the valid records in VBFP table for the entries fetched into IT_LIPS for Document Category 'C'.

Reward Points if useful.

SPRR