About double click event in ALV report

Question

Hi all,
I want to program a double-click event in ALV reprot.
I am not suppose to use module pool approach for the same.
If a user double clicks on the any of the row of ALV report, the transaction should get called.
Again, I am using function 'REUSE_ALV_GRID_DISPLAY' for displaying ALV.
Can you please help me to solve this?
Thanks,
-Siddhi

Answer 1

Hi Sidhi,
You can do it easily by using Reuse_ALV_GRID_DISPALY.
The User Command subroutine which you pass to this function module in that you can check which field is selected and what is the value of that and also you can get the table index.
I am giving you a code example where interactivity of ALV report is done .
*& Report  ZRAIL_LOT_REPORT
REPORT  zrail_lot_report.
TABLES :qals,aufk.
TYPE-POOLS:slis.
TYPES:BEGIN OF x_lot,
      sel(1)   TYPE c,                    "SELECTION
      prueflos TYPE qals-prueflos,        "INSPECTION LOT NUMBER
      werk     TYPE qals-werk,            "PLANT
      losmenge TYPE qals-losmenge,        "LOT QUANTITY
      mengeneinh TYPE qals-mengeneinh,   "BASE UNIT OF MEASURE FOR THE INSPECTION LOT QUANTITY
      matnr   TYPE  qals-matnr,          " MATERIAL NO. ATTACHED TO ORDER
      zzequnr  TYPE qals-zzequnr,         "EQUIPMENT NO.
      zzassembly TYPE qals-zzassembly,    "ASSEMBLY
      herkunft  TYPE qals-herkunft,       "INSPECTION LOT ORIGIN
      aufnr     TYPE qals-aufnr,          "ORDER NO.
      sttxt     TYPE qals_d02-sttxt,      "LOT STATUS
      objnr     TYPE qals-objnr,          "OBJECT NUMBER
      enstehdat TYPE qals-enstehdat,      "lot creation date
      pruefer   TYPE qamr-pruefer,        "Name of the Inspector
      END OF x_lot.
TYPES:BEGIN OF x_ordmat,
      aufnr TYPE aufk-aufnr,             "Order No.
      equnr TYPE afih-equnr,             "Equipment No. attached to Order
      zmatnr TYPE aufk-zmatnr,           "Material No. attached to Order
      bautl  TYPE afih-bautl,            "Assembly attached to Order
      END OF x_ordmat.
TYPES:BEGIN OF x_status,
      objnr TYPE jest-objnr,
      stat  TYPE jest-stat,
      txt04 TYPE tj02t-txt04,
      END OF x_status.
DATA:it_qals TYPE STANDARD TABLE OF x_lot,
     wa_qals TYPE x_lot.
DATA:it_ordmat TYPE TABLE OF x_ordmat,
     wa_ordmat TYPE x_ordmat.
DATA:it_status TYPE STANDARD TABLE OF x_status,
     wa_status TYPE x_status.
DATA:mytabix TYPE sy-tabix.
DATA: wa_layout   TYPE slis_layout_alv,
      wa_fieldcat TYPE slis_fieldcat_alv,
      it_fieldcat TYPE TABLE OF slis_fieldcat_alv,
      it_fcat TYPE TABLE OF slis_fieldcat_alv.
DATA:mytabix1 TYPE sy-tabix.
SELECTION-SCREEN BEGIN OF BLOCK  b1 WITH FRAME TITLE text-001.
SELECT-OPTIONS: s_werks FOR qals-werk,
                s_zmatnr FOR aufk-zmatnr,
                s_assbly FOR qals-zzassembly,
                s_equnr FOR qals-zzequnr,
                s_lotor FOR qals-herkunft,
                s_lotdat FOR qals-enstehdat.
SELECTION-SCREEN END OF BLOCK b1.
INITIALIZATION.
  s_lotdat-low = sy-datum - 7.
  s_lotdat-high = sy-datum.
  APPEND s_lotdat.
START-OF-SELECTION.
  PERFORM get_data_qals.
  PERFORM build_fieldcat.
  PERFORM display_data.
  EXIT.
END-OF-SELECTION.
*&      Form  get_data_qals
      text
-->  p1        text
<--  p2        text
FORM get_data_qals .
  IF it_qals[] IS INITIAL.
    SELECT a~prueflos
           a~werk
           a~losmenge
           a~mengeneinh
           a~zzequnr
           a~zzassembly
           a~herkunft
           a~aufnr
           a~objnr
           a~matnr
           a~enstehdat
           b~pruefer
           FROM qals AS a INNER JOIN qamr AS b
           ON aprueflos = bprueflos
           INTO CORRESPONDING FIELDS OF TABLE it_qals
           WHERE werk IN s_werks
           AND   zzassembly IN s_assbly
           AND   zzequnr    IN s_equnr
           AND   herkunft   IN s_lotor
           AND   enstehdat  IN s_lotdat.
  ENDIF.
  IF it_ordmat[] IS INITIAL.
    SELECT a~aufnr
           a~zmatnr
           b~bautl
           b~equnr
           FROM aufk AS a INNER JOIN afih AS b
           ON aaufnr = baufnr
           INTO CORRESPONDING FIELDS OF TABLE it_ordmat FOR ALL ENTRIES IN it_qals
           WHERE a~aufnr = it_qals-aufnr
            AND zmatnr IN s_zmatnr.
  ENDIF.
  IF it_status[] IS INITIAL.
    SELECT a~objnr
           a~stat
           b~txt04
           FROM  tj02t AS b
           INNER JOIN jest AS a ON bistat = astat
           INTO CORRESPONDING FIELDS OF TABLE it_status FOR ALL ENTRIES IN it_qals
           WHERE a~objnr = it_qals-objnr
           AND   b~spras = sy-langu
           AND   a~inact = space.
  ENDIF.
  LOOP AT it_qals INTO wa_qals.
    mytabix = sy-tabix.
    READ TABLE it_ordmat INTO wa_ordmat WITH KEY aufnr = wa_qals-aufnr.
    IF sy-subrc = 0.
      IF wa_qals-herkunft = '14'.
        wa_qals-matnr = wa_ordmat-zmatnr.
        wa_qals-zzequnr =  wa_ordmat-equnr.
        wa_qals-zzassembly = wa_ordmat-bautl.
        MODIFY it_qals FROM wa_qals INDEX  mytabix TRANSPORTING matnr zzassembly zzequnr.
      ENDIF.
    ENDIF.
    LOOP AT it_status INTO wa_status WHERE objnr = wa_qals-objnr.
      CONCATENATE wa_qals-sttxt wa_status-txt04 INTO wa_qals-sttxt SEPARATED BY space.
      CLEAR :wa_status.
    ENDLOOP.
    MODIFY it_qals FROM wa_qals INDEX  mytabix TRANSPORTING sttxt.
    CLEAR :wa_qals,wa_ordmat,mytabix.
  ENDLOOP.
  IF s_zmatnr[] IS NOT INITIAL.
    DELETE it_qals WHERE matnr IS INITIAL.
  ENDIF.
ENDFORM.                    " get_data_qals
*&      Form  build_fieldcat
      text
-->  p1        text
<--  p2        text
FORM build_fieldcat .
  wa_layout-zebra = 'X'.
  wa_layout-colwidth_optimize = 'X'.
  wa_layout-box_fieldname = 'SEL'.
  wa_layout-box_tabname = 'IT_QALS'.
  CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
   EXPORTING
    I_PROGRAM_NAME               =
      i_internal_tabname           = 'IT_QALS'
      i_structure_name             = 'QALS_D02'
    I_CLIENT_NEVER_DISPLAY       = 'X'
    I_INCLNAME                   =
    I_BYPASSING_BUFFER           =
    I_BUFFER_ACTIVE              =
    CHANGING
      ct_fieldcat                  = it_fieldcat
  IF sy-subrc = 0.
    LOOP AT  it_fieldcat INTO wa_fieldcat.
      CASE  wa_fieldcat-fieldname .
        WHEN  'PRUEFLOS'.
          wa_fieldcat-col_pos = 1.
          wa_fieldcat-hotspot = 'X'.
          APPEND wa_fieldcat TO it_fcat.
        WHEN   'WERK'.
          wa_fieldcat-col_pos = 3.
          APPEND wa_fieldcat TO it_fcat.
        WHEN  'LOSMENGE'.
          wa_fieldcat-col_pos = 4.
          wa_fieldcat-no_out = ''.
          APPEND wa_fieldcat TO it_fcat.
        WHEN  'MENGENEINH'.
          wa_fieldcat-col_pos = 5.
          wa_fieldcat-no_out = ''.
          APPEND wa_fieldcat TO it_fcat.
        WHEN 'ZZEQUNR'.
          wa_fieldcat-col_pos = 6.
          wa_fieldcat-no_out = ''.
          wa_fieldcat-hotspot = 'X'.
          APPEND wa_fieldcat TO it_fcat.
        WHEN  'ZZASSEMBLY'.
          wa_fieldcat-col_pos = 7.
          wa_fieldcat-no_out = ''.
          wa_fieldcat-hotspot = 'X'.
          APPEND wa_fieldcat TO it_fcat.
        WHEN  'HERKUNFT'.
          wa_fieldcat-col_pos = 8.
          APPEND wa_fieldcat TO it_fcat.
        WHEN  'AUFNR'.
          wa_fieldcat-col_pos = 9.
          wa_fieldcat-hotspot = 'X'.
          APPEND wa_fieldcat TO it_fcat.
        WHEN  'ENSTEHDAT'."enstehdat
          wa_fieldcat-col_pos = 10.
          APPEND wa_fieldcat TO it_fcat.
        WHEN  'STTXT'.
          wa_fieldcat-col_pos = 12.
          wa_fieldcat-hotspot = 'X'.
          APPEND wa_fieldcat TO it_fcat.
        WHEN OTHERS.
      ENDCASE.
      CLEAR wa_fieldcat.
    ENDLOOP.
    wa_fieldcat-fieldname = 'MATNR'.
    wa_fieldcat-tabname  =  'IT_QALS'.
    wa_fieldcat-col_pos = 2.
    wa_fieldcat-ref_tabname = 'AUFK'.
    wa_fieldcat-hotspot = 'X'.
    wa_fieldcat-seltext_l = 'Material No.'.
    APPEND wa_fieldcat TO it_fcat.
    wa_fieldcat-fieldname = 'PRUEFER'.
    wa_fieldcat-tabname  =  'IT_QALS'.
    wa_fieldcat-col_pos = 11.
    wa_fieldcat-ref_tabname = 'QAMR'.
    wa_fieldcat-seltext_l = 'Name of the Inspector'.
    APPEND wa_fieldcat TO it_fcat.
  ENDIF.
ENDFORM.                    " build_fieldcat
*&      Form  display_data
      text
-->  p1        text
<--  p2        text
FORM display_data .
  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
   EXPORTING
   i_callback_program                = 'ZRAIL_LOT_REPORT'
  I_CALLBACK_PF_STATUS_SET          = ' '
     i_callback_user_command           = 'USER_COMMAND'
     is_layout                         = wa_layout
      it_fieldcat                       = it_fcat
  IT_EXCLUDING                      =
  IT_SPECIAL_GROUPS                 =
  IT_SORT                           =
  IT_FILTER                         =
  IS_SEL_HIDE                       =
  I_DEFAULT                         = 'X'
  I_SAVE                            = ' '
  IS_VARIANT                        =
  IT_EVENTS                         =
  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
  I_HTML_HEIGHT_TOP                 = 0
  I_HTML_HEIGHT_END                 = 0
  IT_ALV_GRAPHICS                   =
  IT_HYPERLINK                      =
  IT_ADD_FIELDCAT                   =
  IT_EXCEPT_QINFO                   =
  IR_SALV_FULLSCREEN_ADAPTER        =
    TABLES
      t_outtab                          = it_qals
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_data
*&      Form  USER_COMMAND
      text
     -->R_UCOMM      text
     -->RS_SELFIELD  text
FORM user_command USING r_ucomm TYPE sy-ucomm  rs_selfield TYPE slis_selfield.
  CASE rs_selfield-fieldname  .
    WHEN 'PRUEFLOS'.
      SET PARAMETER ID 'QLS' FIELD rs_selfield-value.
      CALL TRANSACTION 'QA03' AND SKIP FIRST SCREEN.
    WHEN 'ZZEQUNR'.
      SET PARAMETER ID 'EQN' FIELD  rs_selfield-value.
      CALL TRANSACTION 'IE03' AND SKIP FIRST SCREEN.
    WHEN 'ZMATNR'.
      SET PARAMETER ID 'MAT' FIELD rs_selfield-value.
      CALL TRANSACTION 'MM03' AND SKIP FIRST SCREEN.
    WHEN 'ZZASSEMBLY'.
      SET PARAMETER ID 'MAT' FIELD rs_selfield-value.
      CALL TRANSACTION 'MM03' AND SKIP FIRST SCREEN.
    WHEN 'AUFNR'.
      SET PARAMETER ID 'ANR' FIELD rs_selfield-value.
      CALL TRANSACTION 'IW33' AND SKIP FIRST SCREEN.
    WHEN 'STTXT'.
      MOVE rs_selfield-tabindex TO mytabix1.
      PERFORM show_status.
  ENDCASE.
ENDFORM.                    "USER_COMMAND
*&      Form  show_status
      text
-->  p1        text
<--  p2        text
FORM show_status .
  DATA:it_systat TYPE TABLE OF bapi2045ss,
       wa_sysstat TYPE bapi2045ss,
       it_bapi2045us TYPE TABLE OF bapi2045us.
  DATA:it_fsys TYPE TABLE OF slis_fieldcat_alv.
  DATA:insplot TYPE bapi2045d_il0-insplot.
  DATA:language TYPE bapi2045la.
  CLEAR wa_qals.
  READ TABLE it_qals INTO wa_qals INDEX mytabix1.
  insplot = wa_qals-prueflos.
  language-langu = sy-langu.
  CALL FUNCTION 'BAPI_INSPLOT_GETSTATUS'
    EXPORTING
      number        = insplot
      language      = language
    TABLES
      system_status = it_systat
      user_status   = it_bapi2045us.
  CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
    EXPORTING
      i_program_name     = 'ZRAIL_LOT_REPORT'
      i_internal_tabname = 'IT_SYSTAT'
      i_structure_name   = 'BAPI2045SS'
    CHANGING
      ct_fieldcat        = it_fsys.
  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    EXPORTING
      i_callback_program = 'ZRAIL_LOT_REPORT'
      it_fieldcat        = it_fsys
    TABLES
      t_outtab           = it_systat.
ENDFORM.                    " show_status
IIn the subrouitne the User command the Parameter rs_selfield will give you the selected or clicked field and its value its record no .
I hope this will help you.