Code for double clicking rows in alvgrido/p and moving it to internal tabl

Question

hi,
code for double clicking rows  in alvgrido/p and moving it to internal table

Answer 1

hi,
      see the following code which uses layout , double_click event in ALVGRID.
TABLES: mara,marc.
DATA:obj_custom TYPE REF TO cl_gui_custom_container,
     obj_alv TYPE REF TO cl_gui_alv_grid.
DATA: it_mara TYPE TABLE OF mara,
      wa_mara TYPE mara,
      wa_layout TYPE lvc_s_layo,
       wa_variant TYPE disvariant,
        x_save.
DATA:it_marc TYPE TABLE OF marc,
      wa_marc TYPE marc.
SELECT-OPTIONS: s_matnr FOR mara-matnr DEFAULT 1 TO 500.
START-OF-SELECTION.
  SELECT * FROM mara INTO TABLE it_mara
    WHERE matnr IN s_matnr.
  CALL SCREEN '100'.
      CLASS cl_dbclick DEFINITION
CLASS cl_dbclick DEFINITION.
  PUBLIC SECTION.
    METHODS dbl FOR EVENT double_click OF cl_gui_alv_grid
      IMPORTING e_row e_column.
ENDCLASS.
DATA: obj1 TYPE REF TO cl_dbclick.
      CLASS cl_dbclick IMPLEMENTATION
CLASS cl_dbclick IMPLEMENTATION.
  METHOD dbl.
    IF e_row-rowtype = space AND NOT e_row-index IS INITIAL.
      READ TABLE it_mara INDEX e_row-index INTO wa_mara.
    SELECT * FROM marc INTO TABLE it_marc
    WHERE matnr = wa_mara-matnr.
        CALL METHOD obj_custom->free
        EXCEPTIONS
          cntl_error        = 1
          cntl_system_error = 2
          OTHERS            = 3.
      IF sy-subrc <> 0.
   MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
              WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
      ENDIF.
      CALL SCREEN '200'.
    ENDIF.
  ENDMETHOD.                    "dbl
ENDCLASS.                    "cl_dbclick IMPLEMENTATION
*&      Module  USER_COMMAND_0100  INPUT
      text
MODULE user_command_0100 INPUT.
  CALL METHOD obj_custom->free
    EXCEPTIONS
      cntl_error        = 1
      cntl_system_error = 2
      OTHERS            = 3.
  IF sy-subrc <> 0.
  MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
             WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.
  CASE sy-ucomm.
    WHEN 'BACK'.
      LEAVE PROGRAM.
  ENDCASE.
ENDMODULE.                 " USER_COMMAND_0100  INPUT
*&      Module  filldata  OUTPUT
      text
MODULE filldata OUTPUT.
  CREATE OBJECT obj_custom
    EXPORTING
      container_name = 'CONTROL'.
  CREATE OBJECT obj_alv
    EXPORTING
      i_parent = obj_custom.
  CREATE OBJECT obj1.
  SET HANDLER obj1->dbl FOR obj_alv.
  CALL METHOD obj_alv->set_table_for_first_display
    EXPORTING
   i_buffer_active               =
   i_bypassing_buffer            =
   i_consistency_check           =
      i_structure_name              = 'MARA'
      is_variant                    = wa_variant
      i_save                        = x_save
   i_default                     = 'X'
      is_layout                     = wa_layout
   is_print                      =
   it_special_groups             =
   it_toolbar_excluding          =
   it_hyperlink                  =
   it_alv_graphics               =
   it_except_qinfo               =
   ir_salv_adapter               =
    CHANGING
      it_outtab                     = it_mara
   it_fieldcatalog               =
   it_sort                       =
   it_filter                     =
EXCEPTIONS
   invalid_parameter_combination = 1
   program_error                 = 2
   too_many_lines                = 3
   others                        = 4
  IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
           WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.
ENDMODULE.                 " filldata  OUTPUT
*&      Module  STATUS_0100  OUTPUT
      text
MODULE status_0100 OUTPUT.
  SET PF-STATUS 'STATUS'.
SET TITLEBAR 'xxx'.
ENDMODULE.                 " STATUS_0100  OUTPUT
*&      Module  STATUS_0200  OUTPUT
      text
MODULE status_0200 OUTPUT.
  SET PF-STATUS 'STATUS'.
*  SET TITLEBAR 'xxx'.
SUPPRESS DIALOG.
     SET PARAMETER ID 'MAT' FIELD wa_mara-matnr.
LEAVE TO LIST-PROCESSING AND RETURN TO SCREEN 0.
*WRITE:/ wa_mara-matnr,
       wa_mara-mbrsh,
       wa_mara-meins.
  CREATE OBJECT obj_custom
    EXPORTING
      container_name = 'CONTROL'.
  CREATE OBJECT obj_alv
    EXPORTING
      i_parent = obj_custom.
  CALL METHOD obj_alv->set_table_for_first_display
    EXPORTING
   i_buffer_active               =
   i_bypassing_buffer            =
   i_consistency_check           =
      i_structure_name              = 'MARC'
   is_variant                    = wa_variant
   i_save                        = x_save
   i_default                     = 'X'
   is_layout                     = wa_layout
   is_print                      =
   it_special_groups             =
   it_toolbar_excluding          =
   it_hyperlink                  =
   it_alv_graphics               =
   it_except_qinfo               =
   ir_salv_adapter               =
    CHANGING
      it_outtab                     = it_marc
   it_fieldcatalog               =
   it_sort                       =
   it_filter                     =
EXCEPTIONS
   invalid_parameter_combination = 1
   program_error                 = 2
   too_many_lines                = 3
   others                        = 4
  IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
           WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.
ENDMODULE.                 " STATUS_0200  OUTPUT
*&      Module  layout  OUTPUT
      text
MODULE layout OUTPUT.
  wa_layout-grid_title = 'MATERIAL DATA'.
  wa_layout-zebra = 'X'.
wa_layout-edit = 'X'.
ENDMODULE.                 " layout  OUTPUT
*&      Module  variant  OUTPUT
      text
MODULE variant OUTPUT.
  wa_variant-report = 'ZALV_GRID1'.
  x_save = 'A'.
ENDMODULE.                 " variant  OUTPUT
*&      Module  USER_COMMAND_0200  INPUT
      text
MODULE user_command_0200 INPUT.
  CASE sy-ucomm.
    WHEN 'BACK'.
      CALL METHOD obj_custom->free
        EXCEPTIONS
          cntl_error        = 1
          cntl_system_error = 2
          OTHERS            = 3.
      IF sy-subrc <> 0.
  MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
             WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
      ENDIF.
      LEAVE TO SCREEN '100'.
  ENDCASE.
ENDMODULE.                 " USER_COMMAND_0200  INPUT
thanks,
raji
reward if helpful