Double click on list field in ALV grid control

Question

Hello all,
I developed a report with a ALV grid control. I would like to move some functionality from marking a line and pressing a button in the status line to double clicking a specific field in the output list and execute a command there (i.e. double click on PO number and go to PO display TAC then). Can anybody provide some example coding for that?
Thanks so much for your help!
Torsten

Answer 1

Here is your sample program.  Copy this code into a z program.  Create the screen 100 with a container in it and name it "ALV_CONTAINER".  Create the gui-status with "BACK".
report zrich_0001.
tables: ekko.
data: begin of i_alv occurs 0,
      ebeln type ekko-ebeln,
      end of i_alv.
*       CLASS cl_event_receiver DEFINITION      Handles Double Click
class cl_event_receiver definition.
  public section.
    methods handle_double_click
      for event double_click of cl_gui_alv_grid
      importing e_row e_column.
  private section.
endclass.
*       CLASS CL_EVENT_RECEIVER IMPLEMENTATION    Handles Double Click
class cl_event_receiver implementation.
  method handle_double_click.
    perform drill_down using e_row-index.
  endmethod.
endclass.
data: alv_container  type ref to cl_gui_custom_container.
data: event_receiver type ref to cl_event_receiver.
data: alv_grid       type ref to cl_gui_alv_grid.
data: layout    type lvc_s_layo.
data: fieldcat  type lvc_t_fcat.
selection-screen begin of block b1 with frame title text-001 .
select-options: s_ebeln for ekko-ebeln.
selection-screen end of block b1.
start-of-selection.
  perform get_data.
  call screen 100.
*      Module  status_0100  OUTPUT
module status_0100 output.
  set pf-status '0100'.
  set titlebar '0100'.
  data: variant type  disvariant.
  variant-report = sy-repid.
  variant-username = sy-uname.
* Create Controls
  create object alv_container
         exporting
               container_name    = 'ALV_CONTAINER'.
  create object alv_grid
         exporting
               i_parent          =  alv_container.
*  Create Event Receiver
  create object event_receiver.
*  Populate Field Catalog
  perform get_fieldcatalog.
  call method alv_grid->set_table_for_first_display
      exporting
           is_layout              = layout
           is_variant             = variant
           i_save                 = 'U'
           i_structure_name       = 'I_ALV'
      changing
           it_outtab       = i_alv[]
           it_fieldcatalog = fieldcat[].
*   handler for ALV grid
  set handler event_receiver->handle_double_click for alv_grid.
endmodule.
*      Module  USER_COMMAND_0100  INPUT
module user_command_0100 input.
  case sy-ucomm.
    when 'BACK' or 'CANC'.
      if not alv_container is initial.
        call method alv_container->free.
        clear: alv_container.
        free : alv_container.
      endif.
      if sy-subrc = 0.
        set screen 0.
        leave screen.
      else.
        leave program.
      endif.
    when 'EXIT'.
      if not alv_container is initial.
        call method alv_container->free.
        clear: alv_container.
        free : alv_container.
      endif.
      leave program.
  endcase.
endmodule.
* FORM GET_DATA
form get_data.
  select * into corresponding fields of table i_alv
            from ekko
                 where ebeln in s_ebeln.
  sort i_alv ascending by ebeln.
endform.
*      Form  Get_Fieldcatalog - Set Up Columns/Headers
form get_fieldcatalog.
  data: ls_fcat type lvc_s_fcat.
  refresh: fieldcat.
  clear: ls_fcat.
  ls_fcat-reptext    = 'PO Number'.
  ls_fcat-coltext    = 'PO Number'.
  ls_fcat-fieldname  = 'EBELN'.
  ls_fcat-ref_table  = 'I_ALV'.
  ls_fcat-outputlen  = '12'.
  ls_fcat-col_pos    = 1.
  append ls_fcat to fieldcat.
endform.
* DRILL_DOWN
form drill_down using index.
  read table i_alv index index.
  if sy-subrc = 0.
    set parameter id 'BES' field i_alv-ebeln.
    call transaction 'ME23' and skip first screen.
    if not alv_container is initial.
      call method alv_container->free.
      clear: alv_container.
      free : alv_container.
    endif.
  endif.
endform.
Regards,
Rich Heilman