Hi
I am extracting delivery data in ALV report program.
i can able to extract all data. my issue is
it_final-bstkd field is display in oneline. Rest of the it_final fields display in one line.
my result should be in oneline. pls advise me if i am wrong.
FORM get_delivery_note_data .
SELECT vbeln vkorg kunag kunnr lfdat wadat lifnr vstel lfart
FROM likp INTO TABLE it_likp
WHERE vbeln IN s_vbeln
AND vkorg IN s_vkorg
AND wadat IN s_wadat.
IF NOT it_likp[] IS INITIAL.
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 = it_likp-vbeln
AND erdat IN s_erdat
AND ernam IN s_ernam.
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_likp.
it_final-vkorg = it_likp-vkorg.
it_final-kunag = it_likp-kunag.
it_final-kunnr = it_likp-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_lips WITH KEY vbeln = it_likp-vbeln.
IF sy-subrc = 0.
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.
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.
loop at it_lips.
READ TABLE it_vbkd WITH KEY vbeln = it_lips-vgbel.
if sy-subrc = 0.
it_final-bstkd = it_vbkd-bstkd.
endif.
append it_final.
endloop.
ENDFORM. " GET_DELIVERY_NOTE_DATA