YOU WANT LIKE THIS
SELECT VBELN FKART FKDAT KUNAG FROM VBRK CLIENT SPECIFIED INTO TABLE IT_VBRK
WHERE MANDT = SY-MANDT AND FKDAT IN SO_YEAR
AND FKART IN SO_TYPE
AND BUKRS IN SO_BUKRS
AND KUNAG IN SO_KUNAG.
*********Selection from Billing Document: Item Data ******
IF IT_VBRK[] IS NOT INITIAL.
SELECT VBELN POSNR FKIMG AUBEL AUPOS MATNR INTO TABLE IT_VBRP
FROM VBRP CLIENT SPECIFIED FOR ALL ENTRIES IN IT_VBRK
WHERE MANDT = SY-MANDT AND VBELN = IT_VBRK-VBELN
AND MATNR IN SO_MATNR.
********Selection from Material Descriptio*****
IF IT_VBRP[] IS NOT INITIAL.
SELECT MATNR MAKTX INTO TABLE IT_MAKT
FROM MAKT CLIENT SPECIFIED FOR ALL ENTRIES IN IT_VBRP
WHERE MANDT = SY-MANDT AND MATNR = IT_VBRP-MATNR.
ELSE.
MESSAGE TEXT-005 TYPE TEXT-001.
STOP.
ENDIF.
ELSE.
MESSAGE TEXT-005 TYPE TEXT-001.
STOP.
ENDIF.
IF IT_VBRP[] IS NOT INITIAL.
*********Selection from Sales Document: Business Data ******
SELECT VBELN POSNR KDKG1 INTO TABLE IT_VBKD
FROM VBKD CLIENT SPECIFIED FOR ALL ENTRIES IN IT_VBRP
WHERE MANDT = SY-MANDT AND VBELN = IT_VBRP-AUBEL
AND POSNR = IT_VBRP-POSNR
AND KDKG1 IN SO_VTEXT.
IF SY-SUBRC <> 0.
IF SO_VTEXT IS NOT INITIAL.
MESSAGE TEXT-028 TYPE TEXT-001.
STOP.
ENDIF.
ENDIF.
ENDIF.
IF SO_VTEXT IS NOT INITIAL.
SORT IT_VBKD BY VBELN POSNR.
SORT IT_VBRP BY AUBEL POSNR.
LOOP AT IT_VBKD INTO WA_VBKD.
***Selection to get warranty period
SELECT SINGLE VTEXT FROM TVKGGT INTO WA_FINAL-VTEXT
WHERE KDKGR = WA_VBKD-KDKG1
AND SPRAS = 'EN'.
READ TABLE IT_VBRP INTO WA_VBRP WITH KEY AUBEL = WA_VBKD-VBELN POSNR = WA_VBKD-POSNR.
IF SY-SUBRC = 0.
WA_FINAL-VBELN = WA_VBRP-VBELN.
WA_FINAL-POSNR = WA_VBRP-POSNR.
WA_FINAL-FKIMG = WA_VBRP-FKIMG.
WA_FINAL-AUBEL = WA_VBRP-AUBEL.
WA_FINAL-AUPOS = WA_VBRP-AUPOS.
WA_FINAL-MATNR = WA_VBRP-MATNR.
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
EXPORTING
INPUT = WA_FINAL-MATNR
IMPORTING
OUTPUT = WA_FINAL-MATNR.
ENDIF.
READ TABLE IT_VBRK INTO WA_VBRK WITH KEY VBELN = WA_VBRP-VBELN.
IF SY-SUBRC = 0.
WA_FINAL-FKART = WA_VBRK-FKART.
WA_FINAL-FKDAT = WA_VBRK-FKDAT.
ENDIF.
READ TABLE IT_MAKT INTO WA_MAKT WITH KEY MATNR = WA_VBRP-MATNR.
IF SY-SUBRC EQ 0.
WA_FINAL-MAKTX = WA_MAKT-MAKTX.
ENDIF.
***Selection to get sold to party
SELECT SINGLE NAME1 FROM KNA1 INTO WA_FINAL-NAME1
WHERE KUNNR = WA_VBRK-KUNAG.
APPEND WA_FINAL TO IT_FINAL.
ENDLOOP.
Bluesky
