Skip to Content
0
Former Member
May 16, 2008 at 06:27 AM

Problem with logic

22 Views

Hi

i have an issue in following logic.

my report output coming like

vgbel bukrs vkorg werks Vbeln bstkd date

11111 021 1201 1200 23445 2222 080907

11112

11113

11114

my output should be

vgbel bukrs vkorg werks Vbeln bstkd date

11111 021 1201 1200 23445 2222 080907

pls help me

SELECT vbeln werks posnr matnr lfimg erdat ernam meins vgbel

FROM lips INTO TABLE it_lips

*FOR ALL ENTRIES IN it_likp

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 vbeln vkorg kunag kunnr lfdat wadat lifnr vstel lfart

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

AND kunag in s_kunag

And kunnr in s_KUNWE.

select kunnr bukrs

from knb1 into table it_knb1

FOR ALL ENTRIES IN it_likp

where kunnr = it_likp-kunnr.

SELECT vbeln BSTKD FROM VBkd

INTO table IT_VBkd

FOR ALL ENTRIES IN IT_LIPS

WHERE VBELN = IT_lips-vgbel.

SELECT kunnr name1 name2 stras ort02 pstlz ort01

FROM kna1 INTO TABLE it_kna1

FOR ALL ENTRIES IN it_likp

WHERE kunnr = it_likp-kunnr.

ENDIF.

LOOP AT it_lips.

*it_final-vbeln = it_lips-vbeln.

it_final-werks = it_lips-werks.

it_final-posnr = it_lips-posnr.

it_final-matnr = it_lips-matnr.

it_final-lfimg = it_lips-lfimg.

it_final-erdat = it_lips-erdat.

it_final-ernam = it_lips-ernam.

*it_final-meins = it_lips-meins.

it_final-vgbel = it_lips-vgbel.

READ TABLE it_likp WITH KEY vbeln = it_lips-vbeln.

IF sy-subrc = 0.

READ TABLE it_vbkd WITH KEY vbeln = it_lips-vgbel.

if sy-subrc = 0.

it_final-bstkd = it_vbkd-bstkd.

endif.

it_final-vbeln = it_likp-vbeln.

it_final-vkorg = it_likp-vkorg.

it_final-kunag = it_likp-kunag.

CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'

EXPORTING

input = it_final-kunag

IMPORTING

OUTPUT = it_final-kunag.

it_final-kunnr = it_likp-kunnr.

CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'

EXPORTING

input = it_final-kunnr

IMPORTING

OUTPUT = it_final-kunnr.

it_final-lfdat = it_likp-lfdat.

it_final-wadat = it_likp-wadat.

it_final-vstel = it_likp-vstel.

*it_final-lfart = it_likp-lfart.

*it_final-lifnr = it_likp-lifnr.

READ TABLE it_knb1 WITH KEY kunnr = it_likp-kunnr.

IF sy-subrc = 0.

it_final-bukrs = it_knb1-bukrs.

ENDIF.

ENDIF.

READ TABLE it_kna1 WITH KEY kunnr = it_likp-kunnr.

IF sy-subrc = 0.

it_final-name1 = it_kna1-name1.

it_final-name2 = it_kna1-name2.

it_final-stras = it_kna1-stras.

it_final-ort02 = it_kna1-ort02.

it_final-pstlz = it_kna1-pstlz.

it_final-ort01 = it_kna1-ort01.

ENDIF.

it_final-mandt = sy-mandt.

it_final-date = sy-datum.

it_final-time = sy-uzeit.

it_final-user = sy-uname.

it_final-file = p_pcfile.

.

APPEND it_final.

CLEAR : it_lips, it_likp, it_kna1, it_final.

ENDLOOP.