Solved: Re: ALV Grid



*  &---------------------------------------------------------------------*
*  & Report  ZMMS_ALV3                                                   *
*  &                                                                     *
*  &---------------------------------------------------------------------*
*  &                                                                     *
*  &                                                                     *
*  &---------------------------------------------------------------------*

  REPORT  zmms_alv3 MESSAGE-ID sd no standard page heading.


  TABLES:vbak.

  TYPE-POOLS:slis.
*  -----data declaration
  TYPES:BEGIN OF x_vbak,
  vbeln TYPE vbak-vbeln, "SO Number
  erdat TYPE vbak-erdat, "Creation date
  vbtyp TYPE vbak-vbtyp, "SD Document Category
  auart TYPE vbak-auart, "SD Type
  ernam TYPE vbak-ernam, "Name
  netwr TYPE vbak-netwr, "Net value
  END OF x_vbak,

  BEGIN OF x_vbap,
  vbeln TYPE vbap-vbeln,
  posnr TYPE vbap-posnr, "Sales Document Item
  matnr TYPE vbap-matnr, "Material Number
  zmeng TYPE vbap-zmeng, "Target quantity
  END OF x_vbap.

  DATA:it_vbak TYPE x_vbak OCCURS 0 WITH HEADER LINE,
  it_vbak1 TYPE x_vbak OCCURS 0 WITH HEADER LINE,
  it_vbap TYPE x_vbap OCCURS 0,
  it_fieldcat TYPE slis_t_fieldcat_alv,
  it_fieldcat1 TYPE slis_t_fieldcat_alv,
  wa_fieldcat TYPE slis_fieldcat_alv,
  wa_fieldcat1 TYPE slis_fieldcat_alv.

*  -----selection-screen
  SELECTION-SCREEN BEGIN OF BLOCK b1.
  SELECT-OPTIONS:s_vbeln FOR vbak-vbeln,
  s_date FOR vbak-erdat.
  PARAMETERS:p_count TYPE i.
  SELECTION-SCREEN END OF BLOCK b1.

*  -----selection-screen validation
  AT SELECTION-SCREEN.

*  -----Data retrieval
  START-OF-SELECTION.

*  *  -----retrieving the header information
    SELECT vbeln erdat vbtyp auart ernam netwr
    FROM vbak
    INTO TABLE it_vbak
    WHERE vbeln IN s_vbeln
    AND erdat IN s_date.
*  -----to display an error if there are no records
    IF sy-subrc NE 0.
      MESSAGE e000.
    ENDIF.

    IF p_count = 0.
      p_count = sy-dbcnt.
    ENDIF.
*  -----to restrict the number of records
    DO p_count TIMES.
      READ TABLE it_vbak INTO it_vbak1 INDEX sy-index.
      APPEND it_vbak1.
    ENDDO.

*  -----Fieldcatalog for the SO header
    REFRESH it_fieldcat[].
    wa_fieldcat-col_pos = '1'.
    wa_fieldcat-fieldname = 'VBELN'.
    wa_fieldcat-tabname = 'IT_VBAK1'.
    wa_fieldcat-hotspot = 'X'.
    wa_fieldcat-ref_fieldname = 'VBELN'.
    wa_fieldcat-ref_tabname = 'VBAK'.
    APPEND wa_fieldcat TO it_fieldcat.
    CLEAR wa_fieldcat.

    wa_fieldcat-col_pos = '2'.
    wa_fieldcat-fieldname = 'ERDAT'.
    wa_fieldcat-tabname = 'IT_VBAK1'.
    wa_fieldcat-ref_fieldname = 'ERDAT'.
    wa_fieldcat-ref_tabname = 'VBAK'.
    APPEND wa_fieldcat TO it_fieldcat.
    CLEAR wa_fieldcat.

    wa_fieldcat-col_pos = '3'.
    wa_fieldcat-fieldname = 'VBTYP'.
    wa_fieldcat-tabname = 'IT_VBAK1'.
    wa_fieldcat-ref_fieldname = 'VBTYP'.
    wa_fieldcat-ref_tabname = 'VBAK'.
    APPEND wa_fieldcat TO it_fieldcat.
    CLEAR wa_fieldcat.

    wa_fieldcat-col_pos = '4'.
    wa_fieldcat-fieldname = 'AUART'.
    wa_fieldcat-tabname = 'IT_VBAK1'.
    wa_fieldcat-ref_fieldname = 'AUART'.
    wa_fieldcat-ref_tabname = 'VBAK'.
    APPEND wa_fieldcat TO it_fieldcat.
    CLEAR wa_fieldcat.

    wa_fieldcat-col_pos = '5'.
    wa_fieldcat-fieldname = 'ERNAM'.
    wa_fieldcat-tabname = 'IT_VBAK1'.
    wa_fieldcat-ref_fieldname = 'ERNAM'.
    wa_fieldcat-ref_tabname = 'VBAK'.
    APPEND wa_fieldcat TO it_fieldcat.
    CLEAR wa_fieldcat.

    wa_fieldcat-col_pos = '6'.
    wa_fieldcat-fieldname = 'NETWR'.
    wa_fieldcat-tabname = 'IT_VBAK1'.
    wa_fieldcat-ref_fieldname = 'NETWR'.
    wa_fieldcat-ref_tabname = 'VBAK'.
    APPEND wa_fieldcat TO it_fieldcat.
    CLEAR wa_fieldcat.

*  -----to display the sales order header details
    CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
      EXPORTING
        i_callback_program      = sy-repid
        i_callback_user_command = 'USER_COMMAND'
        it_fieldcat             = it_fieldcat
      TABLES
        t_outtab                = it_vbak1.

*  &--------------------------------------------------------------------
*  & Form USER_COMMAND
*  &--------------------------------------------------------------------
*   text
*  ---------------------------------------------------------------------
*   -->UCOMM text
*   -->FIELD1 text
*  ---------------------------------------------------------------------

  FORM user_command USING ucomm LIKE sy-ucomm field1 TYPE   "#EC CALLED
  slis_selfield.                                            "#EC *
    READ TABLE it_vbak1 INDEX field1-tabindex.
*  -----retrieving data from the item table
    SELECT vbeln posnr matnr zmeng
    FROM vbap
    INTO TABLE it_vbap
    WHERE vbeln = it_vbak1-vbeln.

*  -----to display an error if there are no records
    IF sy-subrc NE 0.
      MESSAGE e003.
    ENDIF.

*  -----fieldcatalog for SO item details
    REFRESH it_fieldcat1[].
    wa_fieldcat1-col_pos = '1'.
    wa_fieldcat1-fieldname = 'VBELN'.
    wa_fieldcat1-tabname = 'IT_VBAP'.
    wa_fieldcat1-ref_fieldname = 'VBELN'.
    wa_fieldcat1-ref_tabname = 'VBAP'.
    APPEND wa_fieldcat1 TO it_fieldcat1.
    CLEAR wa_fieldcat1.

    wa_fieldcat1-col_pos = '2'.
    wa_fieldcat1-fieldname = 'POSNR'.
    wa_fieldcat1-tabname = 'IT_VBAP'.
    wa_fieldcat1-ref_fieldname = 'POSNR'.
    wa_fieldcat1-ref_tabname = 'VBAP'.
    APPEND wa_fieldcat1 TO it_fieldcat1.
    CLEAR wa_fieldcat1.

    wa_fieldcat1-col_pos = '3'.
    wa_fieldcat1-fieldname = 'MATNR'.
    wa_fieldcat1-tabname = 'IT_VBAP'.
    wa_fieldcat1-ref_fieldname = 'MATNR'.
    wa_fieldcat1-ref_tabname = 'VBAP'.
    APPEND wa_fieldcat1 TO it_fieldcat1.
    CLEAR wa_fieldcat1.

    wa_fieldcat1-col_pos = '4'.
    wa_fieldcat1-fieldname = 'ZMENG'.
    wa_fieldcat1-tabname = 'IT_VBAP'.
    wa_fieldcat1-ref_fieldname = 'ZMENG'.
    wa_fieldcat1-ref_tabname = 'VBAP'.
    APPEND wa_fieldcat1 TO it_fieldcat1.
    CLEAR wa_fieldcat1.

*  -----to display the item details in a popup
    CALL FUNCTION 'REUSE_ALV_POPUP_TO_SELECT'
      EXPORTING
        i_selection = space
        i_tabname   = 'IT_VBAP'
        it_fieldcat = it_fieldcat1
      TABLES
        t_outtab    = it_vbap.
  ENDFORM. "USER_COMMAND

Reward Points if it is Useful.

Thanks,

Manjunath MS

Former Member · ‎2009 Jul 21

This message was moderated.

Former Member · ‎2007 Jul 21

ALV GRID FUNCTION MODULES

Former Member · ‎2007 Jul 21

hi Guna,

Example of a Simple ALV Grid Report


REPORT  ZTUFI091                                .
*&---------------------------------------------------------------------*
*& Report  ZDEMO_ALVGRID                                               *
*&                                                                     *
*&---------------------------------------------------------------------*
*&                                                                     *
*& Example of a simple ALV Grid Report                                 *
*& ...................................                                 *
*&                                                                     *
*& The basic requirement for this demo is to display a number of       *
*& fields from the EKKO table.                                         *
*&---------------------------------------------------------------------*
*REPORT  zdemo_alvgrid                 .

TABLES:     ekko.

type-pools: slis.                                 "ALV Declarations
*Data Declaration
*----------------
TYPES: BEGIN OF t_ekko,
  ebeln TYPE ekpo-ebeln,
  ebelp TYPE ekpo-ebelp,
  statu TYPE ekpo-statu,
  aedat TYPE ekpo-aedat,
  matnr TYPE ekpo-matnr,
  menge TYPE ekpo-menge,
  meins TYPE ekpo-meins,
  netpr TYPE ekpo-netpr,
  peinh TYPE ekpo-peinh,
 END OF t_ekko.

DATA: it_ekko TYPE STANDARD TABLE OF t_ekko INITIAL SIZE 0,
      wa_ekko TYPE t_ekko.

*ALV data declarations
data: fieldcatalog type slis_t_fieldcat_alv with header line,
      gd_tab_group type slis_t_sp_group_alv,
      gd_layout    type slis_layout_alv,
      gd_repid     like sy-repid,
      gt_events     type slis_t_event,
      gd_prntparams type slis_print_alv.


************************************************************************
*Start-of-selection.
START-OF-SELECTION.

perform data_retrieval.
perform build_fieldcatalog.
perform build_layout.
perform build_events.
perform build_print_params.
perform display_alv_report.


*&---------------------------------------------------------------------*
*&      Form  BUILD_FIELDCATALOG
*&---------------------------------------------------------------------*
*       Build Fieldcatalog for ALV Report
*----------------------------------------------------------------------*
form build_fieldcatalog.

* There are a number of ways to create a fieldcat.
* For the purpose of this example i will build the fieldcatalog manualy
* by populating the internal table fields individually and then
* appending the rows. This method can be the most time consuming but can
* also allow you  more control of the final product.

* Beware though, you need to ensure that all fields required are
* populated. When using some of functionality available via ALV, such as
* total. You may need to provide more information than if you were
* simply displaying the result
*               I.e. Field type may be required in-order for
*                    the 'TOTAL' function to work.

  fieldcatalog-fieldname   = 'EBELN'.
  fieldcatalog-seltext_m   = 'Purchase Order'.
  fieldcatalog-col_pos     = 0.
  fieldcatalog-outputlen   = 10.
  fieldcatalog-emphasize   = 'X'.
  fieldcatalog-key         = 'X'.
*  fieldcatalog-do_sum      = 'X'.
*  fieldcatalog-no_zero     = 'X'.
  append fieldcatalog to fieldcatalog.
  clear  fieldcatalog.

  fieldcatalog-fieldname   = 'EBELP'.
  fieldcatalog-seltext_m   = 'PO Item'.
  fieldcatalog-col_pos     = 1.
  append fieldcatalog to fieldcatalog.
  clear  fieldcatalog.

  fieldcatalog-fieldname   = 'STATU'.
  fieldcatalog-seltext_m   = 'Status'.
  fieldcatalog-col_pos     = 2.
  append fieldcatalog to fieldcatalog.
  clear  fieldcatalog.

  fieldcatalog-fieldname   = 'AEDAT'.
  fieldcatalog-seltext_m   = 'Item change date'.
  fieldcatalog-col_pos     = 3.
  append fieldcatalog to fieldcatalog.
  clear  fieldcatalog.

  fieldcatalog-fieldname   = 'MATNR'.
  fieldcatalog-seltext_m   = 'Material Number'.
  fieldcatalog-col_pos     = 4.
  append fieldcatalog to fieldcatalog.
  clear  fieldcatalog.

  fieldcatalog-fieldname   = 'MENGE'.
  fieldcatalog-seltext_m   = 'PO quantity'.
  fieldcatalog-col_pos     = 5.
  append fieldcatalog to fieldcatalog.
  clear  fieldcatalog.

  fieldcatalog-fieldname   = 'MEINS'.
  fieldcatalog-seltext_m   = 'Order Unit'.
  fieldcatalog-col_pos     = 6.
  append fieldcatalog to fieldcatalog.
  clear  fieldcatalog.

  fieldcatalog-fieldname   = 'NETPR'.
  fieldcatalog-seltext_m   = 'Net Price'.
  fieldcatalog-col_pos     = 7.
  fieldcatalog-outputlen   = 15.
  fieldcatalog-datatype     = 'CURR'.
  append fieldcatalog to fieldcatalog.
  clear  fieldcatalog.

  fieldcatalog-fieldname   = 'PEINH'.
  fieldcatalog-seltext_m   = 'Price Unit'.
  fieldcatalog-col_pos     = 8.
  append fieldcatalog to fieldcatalog.
  clear  fieldcatalog.
endform.                    " BUILD_FIELDCATALOG


*&---------------------------------------------------------------------*
*&      Form  BUILD_LAYOUT
*&---------------------------------------------------------------------*
*       Build layout for ALV grid report
*----------------------------------------------------------------------*
form build_layout.
  gd_layout-no_input          = 'X'.
  gd_layout-colwidth_optimize = 'X'.
  gd_layout-totals_text       = 'Totals'(201).
*  gd_layout-totals_only        = 'X'.
*  gd_layout-f2code            = 'DISP'.  "Sets fcode for when double
*                                         "click(press f2)
*  gd_layout-zebra             = 'X'.
*  gd_layout-group_change_edit = 'X'.
*  gd_layout-header_text       = 'helllllo'.
endform.                    " BUILD_LAYOUT


*&---------------------------------------------------------------------*
*&      Form  DISPLAY_ALV_REPORT
*&---------------------------------------------------------------------*
*       Display report using ALV grid
*----------------------------------------------------------------------*
form display_alv_report.
  gd_repid = sy-repid.
  call function 'REUSE_ALV_GRID_DISPLAY'
       exporting
            i_callback_program      = gd_repid
            i_callback_top_of_page   = 'TOP-OF-PAGE'  "see FORM
            i_callback_user_command = 'USER_COMMAND'
*            i_grid_title           = outtext
            is_layout               = gd_layout
            it_fieldcat             = fieldcatalog[]
*            it_special_groups       = gd_tabgroup
            it_events               = gt_events
            is_print                = gd_prntparams
            i_save                  = 'X'
*            is_variant              = z_template
       tables
            t_outtab                = it_ekko
       exceptions
            program_error           = 1
            others                  = 2.
  if sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  endif.
endform.                    " DISPLAY_ALV_REPORT


*&---------------------------------------------------------------------*
*&      Form  DATA_RETRIEVAL
*&---------------------------------------------------------------------*
*       Retrieve data form EKPO table and populate itab it_ekko
*----------------------------------------------------------------------*
form data_retrieval.

select ebeln ebelp statu aedat matnr menge meins netpr peinh
 up to 10 rows
  from ekpo
  into table it_ekko.
endform.                    " DATA_RETRIEVAL


*-------------------------------------------------------------------*
* Form  TOP-OF-PAGE                                                 *
*-------------------------------------------------------------------*
* ALV Report Header                                                 *
*-------------------------------------------------------------------*
Form top-of-page.
*ALV Header declarations
data: t_header type slis_t_listheader,
      wa_header type slis_listheader,
      t_line like wa_header-info,
      ld_lines type i,
      ld_linesc(10) type c.

* Title
  wa_header-typ  = 'H'.
  wa_header-info = 'EKKO Table Report'.
  append wa_header to t_header.
  clear wa_header.

* Date
  wa_header-typ  = 'S'.
  wa_header-key = 'Date: '.
  CONCATENATE  sy-datum+6(2) '.'
               sy-datum+4(2) '.'
               sy-datum(4) INTO wa_header-info.   "todays date
  append wa_header to t_header.
  clear: wa_header.

* Total No. of Records Selected
  describe table it_ekko lines ld_lines.
  ld_linesc = ld_lines.
  concatenate 'Total No. of Records Selected: ' ld_linesc
                    into t_line separated by space.
  wa_header-typ  = 'A'.
  wa_header-info = t_line.
  append wa_header to t_header.
  clear: wa_header, t_line.

  call function 'REUSE_ALV_COMMENTARY_WRITE'
       exporting
            it_list_commentary = t_header.
*            i_logo             = 'Z_LOGO'.
endform.


*------------------------------------------------------------------*
*       FORM USER_COMMAND                                          *
*------------------------------------------------------------------*
*       --> R_UCOMM                                                *
*       --> RS_SELFIELD                                            *
*------------------------------------------------------------------*
FORM user_command USING r_ucomm LIKE sy-ucomm
                  rs_selfield TYPE slis_selfield.

* Check function code
  CASE r_ucomm.
    WHEN '&IC1'.
*   Check field clicked on within ALVgrid report
    IF rs_selfield-fieldname = 'EBELN'.
*     Read data table, using index of row user clicked on
      READ TABLE it_ekko INTO wa_ekko INDEX rs_selfield-tabindex.
*     Set parameter ID for transaction screen field
      SET PARAMETER ID 'BES' FIELD wa_ekko-ebeln.
*     Sxecute transaction ME23N, and skip initial data entry screen
      CALL TRANSACTION 'ME23N' AND SKIP FIRST SCREEN.
    ENDIF.
  ENDCASE.
ENDFORM.


*&---------------------------------------------------------------------*
*&      Form  BUILD_EVENTS
*&---------------------------------------------------------------------*
*       Build events table
*----------------------------------------------------------------------*
form build_events.
  data: ls_event type slis_alv_event.

  call function 'REUSE_ALV_EVENTS_GET'
       exporting
            i_list_type = 0
       importing
            et_events   = gt_events[].
  read table gt_events with key name =  slis_ev_end_of_page
                           into ls_event.
  if sy-subrc = 0.
    move 'END_OF_PAGE' to ls_event-form.
    append ls_event to gt_events.
  endif.

    read table gt_events with key name =  slis_ev_end_of_list
                           into ls_event.
  if sy-subrc = 0.
    move 'END_OF_LIST' to ls_event-form.
    append ls_event to gt_events.
  endif.
endform.                    " BUILD_EVENTS


*&---------------------------------------------------------------------*
*&      Form  BUILD_PRINT_PARAMS
*&---------------------------------------------------------------------*
*       Setup print parameters
*----------------------------------------------------------------------*
form build_print_params.
  gd_prntparams-reserve_lines = '3'.   "Lines reserved for footer
  gd_prntparams-no_coverpage = 'X'.
endform.                    " BUILD_PRINT_PARAMS


*&---------------------------------------------------------------------*
*&      Form  END_OF_PAGE
*&---------------------------------------------------------------------*
form END_OF_PAGE.
  data: listwidth type i,
        ld_pagepos(10) type c,
        ld_page(10)    type c.

  write: sy-uline(50).
  skip.
  write:/40 'Page:', sy-pagno .
endform.


*&---------------------------------------------------------------------*
*&      Form  END_OF_LIST
*&---------------------------------------------------------------------*
form END_OF_LIST.
  data: listwidth type i,
        ld_pagepos(10) type c,
        ld_page(10)    type c.

  skip.
  write:/40 'Page:', sy-pagno .
endform.

Former Member · ‎2007 Jul 21

Check out these sample programs

BCALV_GRID_01

This program illustrates how the events for print processing PRINT_TOP_OF_PAGE,

PRINT_END_OF_PAGE, PRINT_TOP_OF_LIST,PRINT_END_OF_LIST are handled. The

corresponding handler methods control the appearance of the list printed.

BCALV_GRID_02

Show a detail list in an amodal window. There is no second dynro needed in contrast to

BCALV_GRID_03.

BCALV_GRID_03

This program implements a function on event DOUBLE_CLICK. According to the selected line data

from table SBOOK is selected and displayed by a second ALV Control in a dialog dynpro.

BCALV_GRID_04

Illustrates the use of exceptions (lights or leds). According to the values of SFLIGHT-SEATSOCC, the

lights are set to 1 (red), 2 (yellow) or 3 (green).

BCALV_GRID_05

Demonstrate the creation of an own toolbar button.

BCALV_GRID_06

Demonstrate the creation of an own context menu.

BCALV_GRID_07

Append a menu button to the standard toolbar.

BCALV_GRID_08

Append a menu with default button to the standard toolbar. It is exactly the same as

BCALVC_TB_WITH_MENU except for methods HANDLE_MENU_BUTTON and HANDLE_TOOLBAR.

Editable ALV grids

BCALV_EDIT_01

This report illustrates the simplest case of using an editable/noneditable ALV Grid Control.

BCALV_EDIT_02

This report illustrates how to set chosen cells of an ALV Grid Control editable.

BCALV_EDIT_03

In this example the user may change values of fields SEATSOCC (occupied seats) and/or PLANETYPE.

The report checks the input value(s) semantically and provides protocol messages in case of error

BCALV_EDIT_04

This report illustrates how to add and remove lines to a table using the ALV Grid Control and how to

implement the saving of the new data.

BCALV_EDIT_05

This example shows how to use checkboxes within an ALV Grid Control. You learn:

(1) how to define a column for editable checkboxes for an attribute of your list

(2) how to evaluate the checked checkboxes

(3) how to switch between editable and non-editable checkboxes

BCALV_EDIT_06

This example shows how to define a dropdown listbox for all cells of one column in an editable ALV

Grid Control.

BCALV_EDIT_07

This example shows how to define dropdown listboxes for particular cells of your output table.

BCALV_EDIT_08

This report implements an ALV Grid Control with an application specific F4 help. The following aspects

are dealt with:

(1) how to replace the standard f4 help

(2) how to pass the selected value to the ALV Grid Control

(3) how to build an f4 help, whose value range depend on a value of another cell.

REgards,

Santosh

By Category

Related Content

Activity Groups

Industry Groups

Influence and Feedback Groups

Interest Groups

Location Groups

Customer Only Groups

Forums

Related Resources

Products

Learning and Support

About

My SAP Profile

My SAP Profile

ALV Grid