Displaying selection screen data on alv header in multiple rows and columns

Question

Hi
Presently in my requirement , whatever  the data entered in  selection screen  should display  on alv header  and item details on alv grid display.
for eg...
on alv header
  customer no :  1000 to 2000         sales order no: 111
  name :    gff to ff                                 sales org:
  city:                                         country:
  item details below this   
  plz guide me how to solve this issue.
Thanks & Regards,
Pradeep

Answer 1

Hi,
Check this code this may help you.
<code>
TYPE-POOLS : SLIS.
TABLES VBRK.
TYPES : BEGIN OF TY_VBRK,
        VBELN TYPE VBRK-VBELN,
        VKORG TYPE VBRK-VKORG,
        VTWEG TYPE VBRK-VTWEG,
        SPART TYPE VBRK-SPART,
        FKDAT TYPE VBRK-FKDAT,
        END OF TY_VBRK,
        BEGIN OF TY_VBRP,
        VBELN TYPE VBRP-VBELN,
        POSNR TYPE VBRP-POSNR,
        MATNR TYPE VBRP-MATNR,
        ARKTX TYPE VBRP-ARKTX,
        FKIMG TYPE VBRP-FKIMG,
        NETWR TYPE VBRP-NETWR,
        END OF TY_VBRP,
        BEGIN OF TY_TARGET,
        VBELN TYPE VBRK-VBELN,
        VKORG TYPE VBRK-VKORG,
        VTWEG TYPE VBRK-VTWEG,
        SPART TYPE VBRK-SPART,
        FKDAT TYPE VBRK-FKDAT,
        POSNR TYPE VBRP-POSNR,
        MATNR TYPE VBRP-MATNR,
        ARKTX TYPE VBRP-ARKTX,
        FKIMG TYPE VBRP-FKIMG,
        NETWR TYPE VBRP-NETWR,
        END OF TY_TARGET.
DATA : T_VBRK TYPE TABLE OF TY_VBRK,
       W_VBRK TYPE TY_VBRK,
        T_VBRP TYPE TABLE OF TY_VBRP,
        W_VBRP TYPE TY_VBRP,
        T_TARGET TYPE TABLE OF TY_TARGET,
        W_TARGET TYPE TY_TARGET,
FIELD CATALOG ******************
        T_FCAT TYPE SLIS_T_FIELDCAT_ALV,
        W_FCAT TYPE SLIS_FIELDCAT_ALV,
*************************************SUB TOTALS AND SORTING***********
        T_SORT TYPE SLIS_T_SORTINFO_ALV,
        W_SORT TYPE SLIS_SORTINFO_ALV,
*************************************FOR LIST HEADER******************
        T_LIST_HEAD TYPE SLIS_T_LISTHEADER,
        W_LIST_HEAD TYPE SLIS_LISTHEADER,
        T_LIST_HEAD1 TYPE SLIS_T_LISTHEADER,
        W_LIST_HEAD1 TYPE SLIS_LISTHEADER,
*************************************FOR LIST HEADER******************
        W_LAYOUT TYPE SLIS_LAYOUT_ALV,
************************************FOR EVENTS************************
        T_EVENT TYPE SLIS_T_EVENT,
        W_EVENT TYPE SLIS_ALV_EVENT.
*********************************SELECT OPTIONS***********************
SELECT-OPTIONS : S_VBELN FOR VBRK-VBELN DEFAULT 90005316 TO 90005330.
**RETRIVING DATA************************
PERFORM DATA_RETRIVE.
**BUILDING THE FIELD CATALOG************
PERFORM BUILD_FCAT.
**BUILDING THE TABLE FOR LIST HEADER****
PERFORM BUILD_LIST_HEAD.
*******************************CALLING THE FUNCTION MODULE************
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
  EXPORTING
    I_CALLBACK_PROGRAM     = SY-REPID
    I_CALLBACK_TOP_OF_PAGE = 'LIST_TOP_OF_PAGE'
    IT_FIELDCAT            = T_FCAT
    IT_SORT                = T_SORT
  TABLES
    T_OUTTAB               = T_TARGET.
*&      Form  DATA_RETRIVE
FORM DATA_RETRIVE .
SELECT VBELN VKORG VTWEG SPART FKDAT FROM VBRK INTO CORRESPONDING FIELDS
OF TABLE T_VBRK WHERE VBELN IN S_VBELN.
  IF SY-SUBRC EQ 0.
    SORT T_VBRK BY VBELN.
    SELECT VBELN POSNR MATNR ARKTX FKIMG NETWR FROM VBRP INTO TABLE
     T_VBRP FOR ALL ENTRIES IN T_VBRK WHERE VBELN = T_VBRK-VBELN.
  ENDIF.
  LOOP AT T_VBRP INTO W_VBRP.
    LOOP AT T_VBRK INTO W_VBRK WHERE VBELN = W_VBRP-VBELN.
      W_TARGET-VBELN = W_VBRK-VBELN.
      W_TARGET-VKORG = W_VBRK-VKORG.
      W_TARGET-VTWEG = W_VBRK-VTWEG.
      W_TARGET-SPART = W_VBRK-SPART.
      W_TARGET-FKDAT = W_VBRK-FKDAT.
      W_TARGET-POSNR = W_VBRP-POSNR.
      W_TARGET-MATNR = W_VBRP-MATNR.
      W_TARGET-ARKTX = W_VBRP-ARKTX.
      W_TARGET-FKIMG = W_VBRP-FKIMG.
      W_TARGET-NETWR = W_VBRP-NETWR.
      APPEND W_TARGET TO T_TARGET.
    ENDLOOP.
  ENDLOOP.
  SORT T_TARGET BY VBELN.
ENDFORM.                    " DATA_RETRIVE
*&      Form  BUILD_FCAT
FORM BUILD_FCAT .
  W_FCAT-COL_POS = 1.
  W_FCAT-FIELDNAME = 'VBELN'.
  W_FCAT-SELTEXT_M = 'BILLING NO'.
  APPEND W_FCAT TO T_FCAT.
  W_FCAT-COL_POS = 2.
  W_FCAT-FIELDNAME = 'VKORG'.
  W_FCAT-SELTEXT_M = 'SALES ORGANIZATION'.
  APPEND W_FCAT TO T_FCAT.
  W_FCAT-COL_POS = 3.
  W_FCAT-FIELDNAME = 'VTWEG'.
  W_FCAT-SELTEXT_M = 'DISTRIBUTION CHANNEL'.
  APPEND W_FCAT TO T_FCAT.
  W_FCAT-COL_POS = 4.
  W_FCAT-FIELDNAME = 'SPART'.
  W_FCAT-SELTEXT_M = 'DIVISION'.
  APPEND W_FCAT TO T_FCAT.
  W_FCAT-COL_POS = 5.
  W_FCAT-FIELDNAME = 'FKDAT'.
  W_FCAT-SELTEXT_M = 'CREATION DATE'.
  APPEND W_FCAT TO T_FCAT.
  W_FCAT-COL_POS = 6.
  W_FCAT-FIELDNAME = 'POSNR'.
  W_FCAT-SELTEXT_M = 'BILLING ITEM'.
  APPEND W_FCAT TO T_FCAT.
  W_FCAT-COL_POS = 7.
  W_FCAT-FIELDNAME = 'MATNR'.
  W_FCAT-SELTEXT_M = 'MATERIAL NUM'.
  APPEND W_FCAT TO T_FCAT.
  W_FCAT-COL_POS = 8.
  W_FCAT-FIELDNAME = 'ARKTX'.
  W_FCAT-SELTEXT_M = 'DESCRIPTION'.
  APPEND W_FCAT TO T_FCAT.
  W_FCAT-COL_POS = 9.
  W_FCAT-FIELDNAME = 'FKIMG'.
  W_FCAT-SELTEXT_M = 'QUANTITY'.
  APPEND W_FCAT TO T_FCAT.
  W_FCAT-COL_POS = 10.
  W_FCAT-FIELDNAME = 'NETWR'.
  W_FCAT-SELTEXT_M = 'NET VALUE'.
  W_FCAT-DO_SUM = 'X'.
  APPEND W_FCAT TO T_FCAT.
ENDFORM.                    " BUILD_FCAT
*&      Form  BUILD_LIST_HEAD
FORM BUILD_LIST_HEAD .
  DATA : L_DATE(10),
         L_TIME(8).
  W_LIST_HEAD-TYP = 'S'.
  W_LIST_HEAD-KEY = 'Sales org :'.
  W_LIST_HEAD-INFO = S_VBELN-LOW .
  APPEND W_LIST_HEAD TO T_LIST_HEAD.
  CLEAR W_LIST_HEAD.
  W_LIST_HEAD-TYP = 'S'.
  W_LIST_HEAD-KEY = 'TO '.
  W_LIST_HEAD-INFO =  S_VBELN-HIGH.
  APPEND W_LIST_HEAD TO T_LIST_HEAD.
  CLEAR W_LIST_HEAD.
ENDFORM.                    " BUILD_LIST_HEAD
*&      Form  LIST_TOP_OF_PAGE
FORM LIST_TOP_OF_PAGE .
  CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
    EXPORTING
      IT_LIST_COMMENTARY = T_LIST_HEAD.
ENDFORM.                    " LIST_TOP_OF_PAGE
<code>
Regards