Multiple line selection and then capturing the selected values

Question

Dear all
  in my alv program ,i need to capture multiple line selections  using checkboxes.
I have appended check boxes by adding it in the internal table  & filling in field catalog.
but problem is i'm not able to capture multiple selected check boxes dynamically,
i could capture only the last selected check box,
option i found was to use class method get-selected-rows,but i'm unable to use it properly, could anyone explain in detail
i have already gone through the various examples in sdn but i am not able to work out.
like using parameters etc....
CAN ANY ONE HELP ME WITH THE CODE
help reqired  immediately,
Thanks in advance.

Answer 1

Hi Ankur,
In the PAI, just after the selection of your user event, button or menu,
add this code before getting the selected records.
<b>CALL METHOD grid1->check_changed_data
             IMPORTING
               e_valid = ws_x.</b>
where    grid1  TYPE REF TO cl_gui_alv_grid,
Now fetch the selected records.
Check this code for reference
            C O M P A N Y   C O N F I D E N T I A L                **
       Care should be taken to prevent its unauthorized use.       **
REPORT zfipost MESSAGE-ID f4 NO STANDARD PAGE HEADING .
AUTHOR   : Susmitha Susan Thomas
DATE     : August 18, 2005
*Abridged Version : This report generates a list in Abap List Viewer of
                  all the selected records in VBKPF/VBSEG. * *
                  (TRANSACTION ZPPD:Modified from transaction FBV0)
-- Class definition--
CLASS lcl_event_receiver DEFINITION DEFERRED.
--Tables--
TABLES:  vbkpf. " Belegkopf
TABLES: tsp1d, pri_params, spopli.
TYPE-POOLS slis.
---- Global Variables -
DATA:    anzkr(6)     TYPE n,
         lsind        LIKE sy-lsind,
         no_output(1) TYPE c,
         records(1) TYPE c,
         xpick(1)     TYPE c,
         xpickc(1)    TYPE c,
         xbinp(1)     TYPE c,
         rc           LIKE syst-subrc,
         ok_code LIKE sy-ucomm,
         index TYPE i,
         char_x(1)    TYPE c VALUE 'X',
         post         TYPE c,
         ans          TYPE n,
         user(40) TYPE c.
DATA :BEGIN OF i_doctype OCCURS 0,
         blart LIKE vbkpf-blart,
      END OF i_doctype.
--AlV Initialization--
DATA:  gs_layout TYPE lvc_s_layo,
       gt_fieldcat TYPE lvc_t_fcat,
       gs_fieldcat TYPE lvc_s_fcat,
       gs_index_rows TYPE lvc_t_row,
       l_layout TYPE disvariant,
       g_repid LIKE sy-repid,
       g_max TYPE i VALUE 100,
       ws_row_idx TYPE lvc_t_row ,
       ws_row_no TYPE lvc_t_roid,
       i_excl_func TYPE ui_functions,
       ls_prnt TYPE lvc_s_prnt,
       refresh TYPE c,
       i_fieldcat  TYPE lvc_t_fcat,
      post(1) TYPE c,
       accr_def(1) TYPE c,
       rev_cd(3) TYPE c,
       ch(1) TYPE c.
DATA: list_index LIKE sy-lsind,
      flag TYPE n VALUE 0,
      fl TYPE n VALUE 0,
      g_container TYPE scrfname VALUE 'GRID_CONTAINER',
      grid_container TYPE REF TO cl_gui_docking_container,
      grid1  TYPE REF TO cl_gui_alv_grid,
      custom_container1 TYPE REF TO cl_gui_custom_container,
      event_receiver TYPE REF TO lcl_event_receiver,
      gt_vbkpf1 TYPE STANDARD TABLE OF vbkpf WITH HEADER LINE,
      i_vbkpf TYPE  TABLE OF vbkpf WITH HEADER LINE,
      i_ws_row_idx LIKE ws_row_idx WITH HEADER LINE.
---Internal table containing details of selected documents--
DATA : BEGIN OF gt_vbkpf OCCURS 0,
         xpick(1) TYPE c,
         belnr LIKE vbkpf-belnr,
         gjahr LIKE vbkpf-gjahr,
         bukrs LIKE vbkpf-bukrs,
         blart LIKE vbkpf-blart,
         budat LIKE vbkpf-budat,
         bldat LIKE vbkpf-bldat,
         bktxt LIKE vbkpf-bktxt,
         waers LIKE vbkpf-waers,
         usnam LIKE vbkpf-usnam,
         xblnr LIKE vbkpf-xblnr,
         rev_code(3) TYPE c,
         rev_rsn(15) TYPE c,
         rev_date(10) TYPE c,
         linecolor(4) TYPE c,
       END OF gt_vbkpf.
--Table to store long text--
DATA : BEGIN OF inline OCCURS 0,
tdformat TYPE tdformat,
tdline TYPE tdline,
END OF inline.
DATA: thead LIKE thead OCCURS 0 WITH HEADER LINE.
-- Records to be posted--
DATA:   BEGIN OF tbkpf OCCURS 5.
        INCLUDE STRUCTURE vbkpf.
DATA:   END   OF tbkpf.
---- Constants -
CONSTANTS: awtyp_bkpf TYPE awtyp VALUE 'BKPF '.
CONSTANTS: awtyp_space TYPE awtyp VALUE '     '.
Selection Screen
PARAMETER: funcl   LIKE t020-funcl NO-DISPLAY.   "P(ost),D(isplay),U(pd)
SELECTION-SCREEN SKIP 2.
SELECT-OPTIONS:
         p_bukrs     FOR  vbkpf-bukrs,
         p_belnr     FOR  vbkpf-belnr,
         p_gjahr     FOR  vbkpf-gjahr,
         p_budat     FOR  vbkpf-budat,
         p_bldat     FOR  vbkpf-bldat,
         p_blart     FOR  vbkpf-blart,
         p_xblnr     FOR  vbkpf-xblnr,
         p_bktxt     FOR  vbkpf-bktxt,
         p_usnam     FOR  vbkpf-usnam.
SELECTION-SCREEN SKIP 1.
SELECTION-SCREEN BEGIN OF BLOCK blk
            WITH FRAME TITLE text-010 NO INTERVALS.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 1(35) text-002.
PARAMETER norm_doc    TYPE c
          RADIOBUTTON GROUP doc DEFAULT 'X' .
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 1(35) text-001.
PARAMETER ad_doc       TYPE c
           RADIOBUTTON GROUP doc .
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 1(35) text-003.
PARAMETER all_doc       TYPE c
            RADIOBUTTON GROUP doc .
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN END OF BLOCK blk.
      CLASS lcl_event_receiver DEFINITION
      For capturing events on the ALV                               *
CLASS lcl_event_receiver DEFINITION.
  PUBLIC SECTION.
    METHODS:
to capture all recently changed data.
      handle_data_changed      FOR EVENT data_changed OF
                                       cl_gui_alv_grid
                                       IMPORTING er_data_changed,
for hot spot
      handle_hotspot           FOR EVENT hotspot_click OF
                                       cl_gui_alv_grid
                                       IMPORTING e_column_id e_row_id.
ENDCLASS.   " lcl_event_receiver (Definition)
      CLASS lcl_event_receiver (Implementation)
      For capturing events on the ALV                               *
CLASS lcl_event_receiver IMPLEMENTATION.
  METHOD handle_data_changed.
    PERFORM f2200_handle_data_changed USING er_data_changed.
  ENDMETHOD.
  METHOD handle_hotspot.
    PERFORM f2201_handle_hotspot USING e_column_id e_row_id .
  ENDMETHOD.
ENDCLASS.  " lcl_event_receiver (Implementation)
AT SELECTION-SCREEN
AT SELECTION-SCREEN.
START-OF-SELECTION
START-OF-SELECTION.
---- Colors -
  FORMAT COLOR COL_NORMAL INTENSIFIED OFF.
-------------------- Status und Title Bar----------------------------*
  SET PF-STATUS funcl.
  SET TITLEBAR  funcl.
-- Read Records--
  SELECT * FROM vbkpf INTO TABLE gt_vbkpf1
      WHERE bukrs IN p_bukrs
        AND ausbk IN p_bukrs
        AND belnr IN p_belnr
        AND gjahr IN p_gjahr
        AND budat IN p_budat
        AND bldat IN p_bldat
        AND blart IN p_blart
        AND bktxt IN p_bktxt
        AND xblnr IN p_xblnr
        AND usnam IN p_usnam
        AND bstat EQ 'V'
      AND ( awtyp IN (awtyp_bkpf, awtyp_space) OR
            awtyp IS null )
      ORDER BY PRIMARY KEY.
----Call the ALV Screen -
  PERFORM alv_display.
END-OF-SELECTION.
                     FORM BELEG_PICKUP                              *
      Indicate changing of the selected external record             *
FORM beleg_pickup.
  SET PARAMETER ID 'BUK' FIELD vbkpf-bukrs.
  SET PARAMETER ID 'GJR' FIELD vbkpf-gjahr.
  SET PARAMETER ID 'BLP' FIELD vbkpf-belnr.
  CASE funcl.
     WHEN 'P'.
      IF anzkr IS INITIAL.
        CALL FUNCTION 'ZPRELIMINARY_POSTING_POST_D'
             EXPORTING
                  bukrs = vbkpf-bukrs
                  belnr = vbkpf-belnr
                  gjahr = vbkpf-gjahr.
      ELSE.
        IF sy-ucomm EQ 'BUCH'.
          CALL FUNCTION 'ZPRELIMINARY_POSTING_POST_ALL'
               EXPORTING
                    synch   = char_x
                    bupbi   = xbinp
               TABLES
                    t_vbkpf = tbkpf.
        ELSE.
          CALL FUNCTION 'ZPRELIMINARY_POSTING_POST_ALL'
               EXPORTING
                    bupbi   = xbinp
               TABLES
                    t_vbkpf = tbkpf.
         wait up to 3 seconds.
         commit work.
        ENDIF.
      ENDIF.
    WHEN OTHERS.
      IF sy-tcode = 'ZPPD'.
        funcl = 'P'.
      ENDIF.
      CALL FUNCTION 'ZPRELIMINARY_POSTING_DISPLAY'
           EXPORTING
                bukrs = vbkpf-bukrs
                belnr = vbkpf-belnr
                gjahr = vbkpf-gjahr.
  ENDCASE.
ENDFORM.
                    FORM TBKPF_FUELLEN                              *
            Include  records for posting in TBKPF                   *
FORM tbkpf_fuellen.
  records = 'X'.
  LOOP AT gt_vbkpf.
    IF gt_vbkpf-xpick = 'X'.
      CLEAR anzkr.
      CLEAR records.
      IF sy-subrc = 0.
        anzkr = anzkr + 1.
        MOVE-CORRESPONDING gt_vbkpf TO tbkpf.
        APPEND tbkpf.
      ELSE.
        EXIT.
      ENDIF.
    ENDIF.
  ENDLOOP.
ENDFORM.
                          FORM MALL                                 *
                     Select All documents                           *
FORM mall.
  LOOP AT gt_vbkpf.
    gt_vbkpf-xpick = 'X'.
    MODIFY gt_vbkpf.
  ENDLOOP.
  refresh = 'X'.
  CALL METHOD grid1->refresh_table_display.
ENDFORM.
                         FORM EMAL                                  *
                   Unselect all documents                           *
FORM emal.
  LOOP AT gt_vbkpf.
    gt_vbkpf-xpick = ' '.
    MODIFY gt_vbkpf.
  ENDLOOP.
  refresh = 'X'.
  CALL METHOD grid1->refresh_table_display.
ENDFORM.
                     Form  alv_display                               *
              To display the details on an ALV.                      *
FORM alv_display.
  CALL SCREEN 100.
ENDFORM.                    " alv_display
*&      Module  PB0_100  OUTPUT
MODULE pb0_100 OUTPUT.
  SET PF-STATUS 'MAIN100'.
  SET TITLEBAR 'POSTDOC'.
--To verify that posting is complete.--
---- Setting the layout -
  IF grid1 IS INITIAL.
    PERFORM fill_table.
-- Initializing the field catalog--
    PERFORM fieldcat_init CHANGING i_fieldcat.
-- Initializing the ALV GRID and CONTAINER--
    CLEAR gs_layout.
    gs_layout-info_fname = 'linecolor'.
    gs_layout-grid_title = 'Parked Documents'(100).
    gs_layout-zebra               = 'X'.
    gs_layout-cwidth_opt   = 'X'.
    gs_layout-sel_mode = 'A'.
    gs_layout-edit                = 'X'.
    l_layout-report = sy-repid.
------ Create a custom container control for ALV Control----
    IF cl_gui_alv_grid=>offline( ) IS INITIAL.
      CREATE OBJECT grid_container
         EXPORTING
           dynnr                     = '100'
           ratio                     = '100'
        EXCEPTIONS
         cntl_error                  = 1
         cntl_system_error           = 2
         create_error                = 3
         lifetime_error              = 4
         lifetime_dynpro_dynpro_link = 5
         others                      = 6.
      IF sy-subrc NE 0.
     MESSAGE i000 WITH text-007.  " Error in object creation
        LEAVE LIST-PROCESSING.
      ENDIF.
-- Create an instance of alv control--
      CREATE OBJECT grid1
             EXPORTING
                i_lifetime = 1
                i_parent = grid_container.
---- Disable all unwanted button in the ALV grid -
      PERFORM disable_functions TABLES i_excl_func.
---- Call the display function of ALV grid -
      CALL METHOD grid1->set_table_for_first_display
           EXPORTING
                     is_variant       = l_layout
                     i_save           = 'A'
                     is_layout        = gs_layout
                     is_print         = ls_prnt
                     it_toolbar_excluding          = i_excl_func
           CHANGING  it_outtab        = gt_vbkpf[]
                     it_fieldcatalog  = i_fieldcat.
    ENDIF.                  "  IF cl_gui_alv_grid=>offline IS INITIAL
    CALL METHOD grid1->register_edit_event
        EXPORTING
         i_event_id = cl_gui_alv_grid=>mc_evt_enter.
    CALL METHOD grid1->register_edit_event
      EXPORTING
        i_event_id = cl_gui_alv_grid=>mc_evt_modified.
---- Create a reciever object to handle events -
    CREATE OBJECT event_receiver.
    SET HANDLER event_receiver->handle_data_changed FOR grid1.
    SET HANDLER event_receiver->handle_hotspot FOR grid1.
    CALL METHOD cl_gui_control=>set_focus EXPORTING control = grid1.
  ENDIF.                   " IF grid1 IS INITIAL.
ENDMODULE.                 " PB0_100  OUTPUT
*&      Form  fill_table
     Fills the data table to be passed to the ALV grid.
FORM fill_table.
  LOOP AT gt_vbkpf1.
    MOVE-CORRESPONDING gt_vbkpf1 TO gt_vbkpf.
    IF ad_doc = 'X' OR all_doc = 'X'.
      thead-tdobject = 'BELEG'.
      CONCATENATE gt_vbkpf1-bukrs
                  gt_vbkpf1-belnr
                  gt_vbkpf1-gjahr INTO thead-tdname.
      thead-tdspras = sy-langu.
      thead-tdid = '0004'.
      PERFORM read_text.
      READ TABLE inline INDEX 1.
      gt_vbkpf-rev_code =  inline-tdline.
      REFRESH inline.
      CLEAR inline.
      thead-tdid = '0005'.
      PERFORM read_text.
      READ TABLE inline INDEX 1.
      gt_vbkpf-rev_rsn =  inline-tdline.
      REFRESH inline.
      CLEAR inline.
      thead-tdid = '0006'.
      PERFORM read_text.
      READ TABLE inline INDEX 1.
      gt_vbkpf-rev_date =  inline-tdline.
      REFRESH inline.
      CLEAR inline.
      REFRESH inline.
      CLEAR inline.
    ENDIF.
    APPEND gt_vbkpf.
    CLEAR gt_vbkpf.
ENDLOOP.
  ENDLOOP.
ENDFORM.
*&      Form  fieldcat_init
     Initialize the field catalog
FORM fieldcat_init CHANGING i_fieldcat TYPE lvc_t_fcat.
  DATA: i_fldcat TYPE lvc_t_fcat WITH HEADER LINE.
CHECKBOX
  CLEAR i_fldcat.
  i_fldcat-fieldname = 'XPICK'.
  i_fldcat-checkbox  = 'X'.
i_fldcat-key       = 'X'.
  i_fldcat-tabname   = 'GT_VBKPF'.
  i_fldcat-outputlen   =  '4'.
  i_fldcat-scrtext_l =  'ChkB'.
   APPEND i_fldcat TO i_fieldcat.
  CLEAR i_fldcat.
  i_fldcat-fieldname = 'BELNR'.
  i_fldcat-tabname   = 'GT_VBKPF'.
i_fldcat-key       = 'X'.
  i_fldcat-hotspot   = 'X'.
  i_fldcat-outputlen   =  '15'.
  i_fldcat-scrtext_l =  'Document Number'.
  APPEND i_fldcat TO i_fieldcat.
  CLEAR i_fldcat.
  i_fldcat-fieldname = 'GJAHR'.
  i_fldcat-tabname   = 'GT_VBKPF'.
i_fldcat-key       = 'X'.
  i_fldcat-scrtext_l = 'FYear'.
  i_fldcat-outputlen   = '5'.
  APPEND i_fldcat TO i_fieldcat.
  CLEAR i_fldcat.
  i_fldcat-fieldname = 'BUKRS'.
  i_fldcat-tabname   = 'GT_VBKPF'.
i_fldcat-key       = 'X'.
  i_fldcat-scrtext_l = 'CCode'.
  i_fldcat-outputlen   =  '5'.
  APPEND i_fldcat TO i_fieldcat.
  CLEAR i_fldcat.
  i_fldcat-fieldname = 'BLART'.
  i_fldcat-tabname   = 'GT_VBKPF'.
i_fldcat-key       = 'X'.
  i_fldcat-scrtext_l = 'Type'.
  i_fldcat-outputlen   =  '6'.
  APPEND i_fldcat TO i_fieldcat.
  CLEAR i_fldcat.
  i_fldcat-fieldname = 'BLDAT'.
  i_fldcat-tabname  = 'GT_VBKPF'.
i_fldcat-key      = 'X'.
  i_fldcat-scrtext_l = 'Doc Date'.
  i_fldcat-outputlen   =  '12'.
  APPEND i_fldcat TO i_fieldcat.
  CLEAR i_fldcat.
  i_fldcat-fieldname = 'BUDAT'.
  i_fldcat-tabname  = 'GT_VBKPF'.
i_fldcat-key      = 'X'.
  i_fldcat-scrtext_l = 'Park Date'.
  i_fldcat-outputlen   =  '12'.
  APPEND i_fldcat TO i_fieldcat.
  CLEAR i_fldcat.
  i_fldcat-fieldname = 'BKTXT'.
  i_fldcat-tabname  = 'GT_VBKPF'.
i_fldcat-key      = 'X'.
  i_fldcat-scrtext_l = 'Document Header Text'.
  i_fldcat-outputlen   =  '25'.
  APPEND i_fldcat TO i_fieldcat.
  CLEAR i_fldcat.
  i_fldcat-fieldname = 'WAERS'.
  i_fldcat-tabname  = 'GT_VBKPF'.
i_fldcat-key      = 'X'.
  i_fldcat-scrtext_l = 'Curr'.
  i_fldcat-outputlen   =  '7'.
  APPEND i_fldcat TO i_fieldcat.
  CLEAR i_fldcat.
  i_fldcat-fieldname = 'USNAM'.
  i_fldcat-tabname   = 'GT_VBKPF'.
i_fldcat-key       = 'X'.
  i_fldcat-scrtext_l = 'Parked By'.
  i_fldcat-outputlen   =  '13'.
  APPEND i_fldcat TO i_fieldcat.
  CLEAR i_fldcat.
  i_fldcat-fieldname = 'XBLNR'.
  i_fldcat-tabname   = 'GT_VBKPF'.
i_fldcat-key       = 'X'.
  i_fldcat-scrtext_l = 'Reference Text'.
  i_fldcat-outputlen   =  '19'.
  APPEND i_fldcat TO i_fieldcat.
  IF ad_doc = 'X' OR all_doc = 'X'.
    CLEAR i_fldcat.
    i_fldcat-fieldname = 'REV_CODE'.
    i_fldcat-tabname   = 'GT_VBKPF'.
   i_fldcat-key       = 'X'.
    i_fldcat-scrtext_l = 'RC'.
    i_fldcat-outputlen   =  '2'.
    APPEND i_fldcat TO i_fieldcat.
    CLEAR i_fldcat.
    i_fldcat-fieldname = 'REV_RSN'.
    i_fldcat-tabname   = 'GT_VBKPF'.
   i_fldcat-key       = 'X'.
    i_fldcat-scrtext_l = 'Rev Reason'.
    i_fldcat-outputlen   =  '15'.
    APPEND i_fldcat TO i_fieldcat.
    CLEAR i_fldcat.
    i_fldcat-fieldname = 'REV_DATE'.
    i_fldcat-tabname   = 'GT_VBKPF'.
   i_fldcat-key       = 'X'.
    i_fldcat-scrtext_l = 'Rev Date'.
    i_fldcat-outputlen   =  '10'.
    APPEND i_fldcat TO i_fieldcat.
  ENDIF.
ENDFORM.                    " fieldcat_init
*&      Module  PAI_100  INPUT
MODULE pai_100 INPUT.
  CASE ok_code.
    WHEN 'BACK'.
      IF sy-dynnr = '1000'.
        PERFORM exit_program.
      ELSEIF sy-dynnr = '0100'.
        LEAVE TO TRANSACTION 'ZPPD'.
      ENDIF.
    WHEN 'EXIT'.
      IF sy-dynnr = '1000'.
        PERFORM exit_program.
      ELSEIF sy-dynnr = '0100'.
        LEAVE TO TRANSACTION 'ZPPD'.
      ENDIF.
    WHEN '%EX'.
      IF sy-dynnr = '1000'.
        PERFORM exit_program.
      ELSEIF sy-dynnr = '0100'.
        LEAVE TO TRANSACTION 'ZPPD'.
      ENDIF.
    WHEN 'BINP'.
      DATA : ws_x TYPE c VALUE 'X'.
      CALL FUNCTION 'POPUP_TO_CONFIRM'
          EXPORTING
               titlebar      = 'Posting Documents Via Batch Input'
               text_question =
           'Are you sure you want to post all the selected documents?'
               text_button_1 = 'Yes'
               text_button_2 = 'No'
               start_column  = 25
               start_row     = 6
          IMPORTING
               answer        = ans.
      IF ans = '1'.
        CALL METHOD grid1->check_changed_data
             IMPORTING
               e_valid = ws_x.
        xbinp = 'X'.
        PERFORM tbkpf_fuellen.
        IF records = 'X'.
          MESSAGE s999(zv) WITH text-007.
        ELSE.
          PERFORM beleg_pickup.
        ENDIF.
      ENDIF.
    WHEN 'MALL'.
      PERFORM mall.
    WHEN 'EMAL'.
      PERFORM emal.
    WHEN 'RW'.
      IF sy-dynnr = '1000'.
        PERFORM exit_program.
      ELSEIF sy-dynnr = '0100'.
        LEAVE TO TRANSACTION 'ZPPD'.
      ENDIF.
    WHEN 'BUCH'.
      CALL FUNCTION 'POPUP_TO_CONFIRM'
           EXPORTING
                titlebar      = 'Posting Document'
                text_question =
            'Are you sure you want to post all documents selected?'
                text_button_1 = 'Yes'
                text_button_2 = 'No'
                start_column  = 25
                start_row     = 6
           IMPORTING
                answer        = ans.
      IF ans = '1'.
        CALL METHOD grid1->check_changed_data
          IMPORTING
            e_valid = ws_x.
            perform tbkpf_fuellen.
        IF records = 'X'.
          MESSAGE s999(zv) WITH text-007.
        ELSE.
          PERFORM beleg_pickup.
        ENDIF.
      ENDIF.
    WHEN 'PICK'.
      DATA : check TYPE n,
             no_rec TYPE c.
      check = 0.
      no_rec = 'X'.
      CALL METHOD grid1->check_changed_data
        IMPORTING
          e_valid = ws_x.
      index = 0.
      LOOP AT gt_vbkpf.
        funcl = 'D'.
        index = index + 1.
        IF gt_vbkpf-xpick = 'X'.
          check = 1.
          CLEAR no_rec.
          READ TABLE gt_vbkpf1 INDEX index INTO vbkpf.
          PERFORM beleg_pickup.
        ENDIF.
      ENDLOOP.
      IF check = 0.
        CALL METHOD grid1->get_selected_rows
          IMPORTING
            et_index_rows = ws_row_idx.
        IF NOT ws_row_idx IS INITIAL.
          CLEAR no_rec.
        ENDIF.
        LOOP AT ws_row_idx INTO i_ws_row_idx.
          READ TABLE gt_vbkpf1 INDEX i_ws_row_idx-index INTO vbkpf.
          PERFORM beleg_pickup.
        ENDLOOP.
        IF no_rec = 'X'.
          MESSAGE s999(zv) WITH text-007.
        ENDIF.
      ENDIF.
    WHEN '&RNT_PREV'.
      CALL METHOD grid1->set_function_code
      CHANGING c_ucomm = ok_code.
    WHEN '&RNT'.
      CALL METHOD grid1->set_function_code
      CHANGING c_ucomm = ok_code.
    WHEN '%SC'.
      CALL METHOD grid1->set_function_code
      CHANGING c_ucomm = ok_code.
    WHEN '&OL0'.
      CALL METHOD grid1->set_function_code
     CHANGING c_ucomm = ok_code.
    WHEN '&OAD'.
      CALL METHOD grid1->set_function_code
      CHANGING c_ucomm = ok_code.
    WHEN '&AVE'.
      CALL METHOD grid1->set_function_code
     CHANGING c_ucomm = ok_code.
    WHEN '&AQW'.
      CALL METHOD grid1->set_function_code
     CHANGING c_ucomm = ok_code.
    WHEN '&XXL'.
      CALL METHOD grid1->set_function_code
     CHANGING c_ucomm = ok_code.
    WHEN '%PC'.
      CALL METHOD grid1->set_function_code
     CHANGING c_ucomm = ok_code.
    WHEN '&CRTEMPL'.
      CALL METHOD grid1->set_function_code
     CHANGING c_ucomm = ok_code.
    WHEN OTHERS.
     do nothing.
  ENDCASE.
  CLEAR ok_code.
ENDMODULE.                 " PAI_100  INPUT
*&      Form  exit_program
     Exits from the program after freeing the grid and container     *
FORM exit_program.
  IF NOT grid_container IS INITIAL.
    CALL METHOD grid_container->free.
  ENDIF.
  IF NOT grid1 IS INITIAL.
    CALL METHOD grid1->free
       EXCEPTIONS
         cntl_error        = 1
         cntl_system_error = 2
         OTHERS            = 3.
  ENDIF.
  LEAVE PROGRAM.
ENDFORM.                    " exit_program
*&      Form  f2200_handle_data_changed
      To handle event of change in data in ALV.
     -->P_ER_DATA_CHANGED  text
FORM f2200_handle_data_changed USING    ir_data_changed
                                         TYPE REF TO
                                         cl_alv_changed_data_protocol.
  DATA : ls_mod_cell TYPE lvc_s_modi ,
         lv_value TYPE lvc_value,
         lflg_check TYPE i.
  DATA : wa_vbkpf LIKE LINE OF gt_vbkpf.
  SORT ir_data_changed->mt_mod_cells BY row_id .
  LOOP AT ir_data_changed->mt_mod_cells
                     INTO ls_mod_cell
                     WHERE fieldname = 'I_PICK'.
    IF NOT ls_mod_cell-value IS INITIAL .
      CALL METHOD ir_data_changed->modify_cell
        EXPORTING
          i_row_id    = ls_mod_cell-row_id
          i_fieldname = ls_mod_cell-fieldname
          i_value     = ls_mod_cell-value.
      READ TABLE gt_vbkpf INTO wa_vbkpf
                 INDEX ls_mod_cell-row_id.
      IF ls_mod_cell-fieldname = 'I_PICK'.
        wa_vbkpf-xpick = ls_mod_cell-value.
      ENDIF.
      MODIFY gt_vbkpf  FROM wa_vbkpf
                          INDEX ls_mod_cell-row_id.
    ENDIF .
  ENDLOOP .
ENDFORM.                    " f2200_handle_data_changed
*&      Form  f2201_handle_hotspot
            To handle event of clicking on hyperlink
     -->P_E_COLUMN_ID  text
FORM f2201_handle_hotspot USING    p_e_column_id  p_e_row_id.
  READ TABLE gt_vbkpf1 INDEX p_e_row_id INTO vbkpf.
  funcl = 'D'.
  PERFORM beleg_pickup.
  PERFORM exit_program.
ENDFORM.                    " f2201_handle_hotspot
Regards,
Susmitha
Dont forget to reward points for useful answers