Friday, June 21, 2013

ALV List Display Report

Here is a report which displays the material details with plant, storage location and description. The output is of ALV List display. The looks of this report is different from classic view.

Reuse_alv_list_display is the required function module which displays the proper output. ALV List display needs field catalog of structure slis_fieldcat_alv. Otherwise there will be no output. If we need to design the layout then we can pass layout work area of structure slis_layout_alv. Here we have mentioned the zebra layout with a selection box and optimized column design.

If we need to mention some information on top of output page then we have to pass an event table. This event table holds the structure slis_t_event. We also need event work area of structure slis_alv_event. After having this data types we have to call function module Reuse_alv_events_get to prepare the event table. At the time of preparing the event table we have to call the top of page form name and have to modify the event table. 

Below is the coding:

*&---------------------------------------------------------------------*
*& Report  ZSR_TEST
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT  zsr_test.

TABLES: mara, marc, mard, makt.

TYPE-POOLS: slis.

TYPES: BEGIN OF ty_mara,
        matnr TYPE mara-matnr,
        ersda TYPE mara-ersda,
        ernam TYPE mara-ernam,
        mtart TYPE mara-mtart,
       END OF ty_mara,

       BEGIN OF ty_marc,
         matnr TYPE marc-matnr,
         werks TYPE marc-werks,
         xchar TYPE marc-xchar,
       END OF ty_marc,

       BEGIN OF ty_mard,
         matnr TYPE mard-matnr,
         werks TYPE mard-werks,
         lgort TYPE mard-lgort,
       END OF ty_mard,

       BEGIN OF ty_makt,
         matnr TYPE makt-matnr,
         spras TYPE makt-spras,
         maktx TYPE makt-maktx,
       END OF ty_makt,

       BEGIN OF ty_out,
        sel,
        matnr TYPE mara-matnr,
        werks TYPE marc-werks,
        lgort TYPE mard-lgort,
        mtart TYPE mara-mtart,
        ersda TYPE mara-ersda,
        ernam TYPE mara-ernam,
        xchar TYPE marc-xchar,
        maktx TYPE makt-maktx,
       END OF ty_out.

DATA: wa_mara TYPE ty_mara,
      wa_marc TYPE ty_marc,
      wa_mard TYPE ty_mard,
      wa_makt TYPE ty_makt,
      wa_out  TYPE ty_out,
      it_mara TYPE STANDARD TABLE OF ty_mara,
      it_marc TYPE STANDARD TABLE OF ty_marc,
      it_mard TYPE STANDARD TABLE OF ty_mard,
      it_makt TYPE STANDARD TABLE OF ty_makt,
      it_out  TYPE STANDARD TABLE OF ty_out.

DATA: wa_fcat_out TYPE slis_fieldcat_alv,
      it_fcat_out TYPE slis_t_fieldcat_alv,
      wa_layout   TYPE slis_layout_alv,
      wa_top      TYPE slis_listheader,
      it_top      TYPE slis_t_listheader,
      wa_event    TYPE slis_alv_event,
      it_event    TYPE slis_t_event.

DATA: v_prog TYPE sy-repid,
      v_name TYPE sy-uname,
      v_date TYPE sy-datum,
      v_time TYPE sy-uzeit.

INITIALIZATION.
  v_prog = sy-repid.
  v_name = sy-uname.
  v_date = sy-datum.
  v_time = sy-uzeit.

  SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
  PARAMETERS       p_mtart TYPE mtart OBLIGATORY.
  SELECT-OPTIONS   s_matnr FOR mara-matnr.
  SELECTION-SCREEN END OF BLOCK b1.

START-OF-SELECTION.
  PERFORM get_material.
  PERFORM get_plant.
  PERFORM get_storage.
  PERFORM get_description.
  PERFORM prepare_output.

END-OF-SELECTION.
  PERFORM prepare_fieldcat.
  PERFORM prepare_layout.
  PERFORM declare_event.
  PERFORM alv_list_display.

TOP-OF-PAGE.
  PERFORM top_of_page.
*&---------------------------------------------------------------------*
*&      Form  GET_MATERIAL
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM get_material .

  SELECT matnr ersda ernam mtart
    FROM mara INTO TABLE it_mara
    WHERE matnr IN s_matnr
      AND mtart =  p_mtart.

  IF sy-subrc = 0.
    SORT it_mara BY matnr.
  ELSE.
    MESSAGE 'Material doesn''t exist' TYPE 'I'.
  ENDIF.

ENDFORM.                    " GET_MATERIAL
*&---------------------------------------------------------------------*
*&      Form  GET_PLANT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM get_plant .

  IF it_mara IS NOT INITIAL.
    SELECT matnr werks xchar
      FROM marc INTO TABLE it_marc
      FOR ALL ENTRIES IN it_mara
      WHERE matnr = it_mara-matnr.

    IF sy-subrc = 0.
      SORT it_marc BY matnr.
    ENDIF.
  ENDIF.

ENDFORM.                    " GET_PLANT
*&---------------------------------------------------------------------*
*&      Form  GET_STORAGE
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM get_storage .

  IF it_marc IS NOT INITIAL.
    SELECT matnr werks lgort
      FROM mard INTO TABLE it_mard
      FOR ALL ENTRIES IN it_marc
      WHERE matnr = it_marc-matnr
        AND werks = it_marc-werks.

    IF sy-subrc = 0.
      SORT it_mard BY matnr.
    ENDIF.
  ENDIF.

ENDFORM.                    " GET_STORAGE
*&---------------------------------------------------------------------*
*&      Form  GET_DESCRIPTION
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM get_description .

  IF it_mara IS NOT INITIAL.
    SELECT matnr spras maktx
      FROM makt INTO TABLE it_makt
      FOR ALL ENTRIES IN it_mara
      WHERE matnr = it_mara-matnr
        AND spras = sy-langu.

    IF sy-subrc = 0.
      SORT it_makt BY matnr.
    ENDIF.
  ENDIF.

ENDFORM.                    " GET_DESCRIPTION
*&---------------------------------------------------------------------*
*&      Form  PREPARE_OUTPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM prepare_output .

  IF    it_mara IS NOT INITIAL
    AND it_marc IS NOT INITIAL
    AND it_mard IS NOT INITIAL.

    LOOP AT it_mara INTO wa_mara.
      wa_out-matnr = wa_mara-matnr.
      wa_out-ersda = wa_mara-ersda.
      wa_out-ernam = wa_mara-ernam.
      wa_out-mtart = wa_mara-mtart.

      READ TABLE it_makt INTO wa_makt
      WITH KEY matnr = wa_mara-matnr BINARY SEARCH.
      IF sy-subrc = 0.
        wa_out-maktx = wa_makt-maktx.
      ENDIF.

      LOOP AT it_marc INTO wa_marc
        WHERE matnr = wa_mara-matnr.
        wa_out-werks = wa_marc-werks.
        wa_out-xchar = wa_marc-xchar.

        LOOP AT it_mard INTO wa_mard
          WHERE matnr = wa_marc-matnr
            AND werks = wa_marc-werks.
          wa_out-lgort = wa_mard-lgort.

          APPEND wa_out TO it_out.
          CLEAR: wa_out, wa_mara, wa_makt.

          CLEAR wa_mard.
        ENDLOOP.
        CLEAR wa_marc.
      ENDLOOP.
    ENDLOOP.
  ENDIF.

ENDFORM.                    " PREPARE_OUTPUT
*&---------------------------------------------------------------------*
*&      Form  PREPARE_FIELDCAT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM prepare_fieldcat .

  CLEAR wa_fcat_out.
  REFRESH it_fcat_out.

  IF it_out IS NOT INITIAL.
    DATA: lv_col TYPE i VALUE 0.

    lv_col                = 1 + lv_col.
    wa_fcat_out-col_pos   = lv_col.
    wa_fcat_out-fieldname = 'MATNR'.
    wa_fcat_out-tabname   = 'IT_OUT'.
    wa_fcat_out-seltext_l = 'Material No.'.
    APPEND wa_fcat_out TO it_fcat_out.
    CLEAR wa_fcat_out.

    lv_col                = 1 + lv_col.
    wa_fcat_out-col_pos   = lv_col.
    wa_fcat_out-fieldname = 'WERKS'.
    wa_fcat_out-tabname   = 'IT_OUT'.
    wa_fcat_out-seltext_l = 'Plant'.
    APPEND wa_fcat_out TO it_fcat_out.
    CLEAR wa_fcat_out.

    lv_col                = 1 + lv_col.
    wa_fcat_out-col_pos   = lv_col.
    wa_fcat_out-fieldname = 'LGORT'.
    wa_fcat_out-tabname   = 'IT_OUT'.
    wa_fcat_out-seltext_l = 'Storage Location'.
    APPEND wa_fcat_out TO it_fcat_out.
    CLEAR wa_fcat_out.

    lv_col                = 1 + lv_col.
    wa_fcat_out-col_pos   = lv_col.
    wa_fcat_out-fieldname = 'MTART'.
    wa_fcat_out-tabname   = 'IT_OUT'.
    wa_fcat_out-seltext_l = 'Material Type'.
    APPEND wa_fcat_out TO it_fcat_out.
    CLEAR wa_fcat_out.

    lv_col                = 1 + lv_col.
    wa_fcat_out-col_pos   = lv_col.
    wa_fcat_out-fieldname = 'ERSDA'.
    wa_fcat_out-tabname   = 'IT_OUT'.
    wa_fcat_out-seltext_l = 'Date'.
    APPEND wa_fcat_out TO it_fcat_out.
    CLEAR wa_fcat_out.

    lv_col                = 1 + lv_col.
    wa_fcat_out-col_pos   = lv_col.
    wa_fcat_out-fieldname = 'ERNAM'.
    wa_fcat_out-tabname   = 'IT_OUT'.
    wa_fcat_out-seltext_l = 'Name'.
    APPEND wa_fcat_out TO it_fcat_out.
    CLEAR wa_fcat_out.

    lv_col                = 1 + lv_col.
    wa_fcat_out-col_pos   = lv_col.
    wa_fcat_out-fieldname = 'XCHAR'.
    wa_fcat_out-tabname   = 'IT_OUT'.
    wa_fcat_out-seltext_l = 'Batch No.'.
    APPEND wa_fcat_out TO it_fcat_out.
    CLEAR wa_fcat_out.

    lv_col                = 1 + lv_col.
    wa_fcat_out-col_pos   = lv_col.
    wa_fcat_out-fieldname = 'MAKTX'.
    wa_fcat_out-tabname   = 'IT_OUT'.
    wa_fcat_out-seltext_l = 'Material Description'.
    APPEND wa_fcat_out TO it_fcat_out.
    CLEAR wa_fcat_out.
  ENDIF.

ENDFORM.                    " PREPARE_FIELDCAT
*&---------------------------------------------------------------------*
*&      Form  DECLARE_EVENT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM declare_event .

  CLEAR wa_event.
  REFRESH it_event.

  CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
*  EXPORTING
*    I_LIST_TYPE           = 0
   IMPORTING
     et_events             = it_event
   EXCEPTIONS
     list_type_wrong       = 1
     OTHERS                = 2.

  IF it_event IS NOT INITIAL.
    READ TABLE it_event INTO wa_event
    WITH KEY name = 'TOP_OF_PAGE'.

    IF sy-subrc = 0.
      wa_event-form = 'TOP_OF_PAGE'.
      MODIFY it_event FROM wa_event
      INDEX sy-tabix TRANSPORTING form.
    ENDIF.
  ENDIF.

ENDFORM.                    " DECLARE_EVENT
*&---------------------------------------------------------------------*
*&      Form  ALV_LIST_DISPLAY
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM alv_list_display .

  IF    it_out IS NOT INITIAL
    AND it_fcat_out IS NOT INITIAL
    AND it_event IS NOT INITIAL.

    CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
     EXPORTING
*      I_INTERFACE_CHECK              = ' '
*      I_BYPASSING_BUFFER             =
*      I_BUFFER_ACTIVE                = ' '
       i_callback_program             = v_prog
*      I_CALLBACK_PF_STATUS_SET       = ' '
*      I_CALLBACK_USER_COMMAND        = ' '
*      I_STRUCTURE_NAME               =
       is_layout                      = wa_layout
       it_fieldcat                    = it_fcat_out
*      IT_EXCLUDING                   =
*      IT_SPECIAL_GROUPS              =
*      IT_SORT                        =
*      IT_FILTER                      =
*      IS_SEL_HIDE                    =
*      I_DEFAULT                      = 'X'
*      I_SAVE                         = ' '
*      IS_VARIANT                     =
       it_events                      = it_event
*      IT_EVENT_EXIT                  =
*      IS_PRINT                       =
*      IS_REPREP_ID                   =
*      I_SCREEN_START_COLUMN          = 0
*      I_SCREEN_START_LINE            = 0
*      I_SCREEN_END_COLUMN            = 0
*      I_SCREEN_END_LINE              = 0
*      IR_SALV_LIST_ADAPTER           =
*      IT_EXCEPT_QINFO                =
*      I_SUPPRESS_EMPTY_DATA          = ABAP_FALSE
*    IMPORTING
*      E_EXIT_CAUSED_BY_CALLER        =
*      ES_EXIT_CAUSED_BY_USER         =
     TABLES
       t_outtab                       = it_out
     EXCEPTIONS
       program_error                  = 1
       OTHERS                         = 2.
  ENDIF.

ENDFORM.                    " ALV_LIST_DISPLAY
*&---------------------------------------------------------------------*
*&      Form  TOP_OF_PAGE
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM top_of_page .

  WRITE: / 'Material Details List',
         / 'Report: ', v_prog,
         / 'User: ', v_name,
         / 'Date: ', v_date DD/MM/YYYY,
         / 'Time: ', v_time.
  SKIP.

ENDFORM.                    " TOP_OF_PAGE
*&---------------------------------------------------------------------*
*&      Form  PREPARE_LAYOUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM prepare_layout .

  wa_layout-zebra = 'X'.
  wa_layout-colwidth_optimize = 'X'.
  wa_layout-box_fieldname = 'SEL'.


ENDFORM.                    " PREPARE_LAYOUT


The Output is as follows:

Selection Screen:


Output Screen:


Another Selection:


Output:

4 comments:

Unknown said...

nice...

Unknown said...

Thanks for your info...Here THE CREATING EXPERTS provide hands on training with real time scenarios

http://thecreatingexperts.com/sap-abap-training-in-chennai/

contact +91-08122241286

Unknown said...

hi your blog Article is very nice & thanks for sharing the informationsap hr abap online classes

Unknown said...

You can see my tools for generate a alv list automatically https://abapsap.blog
Thanks