Two ALV Grid in the same screeen

Question

Hi,
  I have created a module pool with a screen.
In this screen I have defined two customer objects and I dipslay two different ALV grid.
DATA: grid_1         TYPE REF TO cl_gui_alv_grid,
          grid_2         TYPE REF TO cl_gui_alv_grid.
When the user puts the values into the field in both lists and pushes "enter", the program gets the input value by method
"get_selected_rows". It works only for the list where there is the cursor.
I need to read the value of each list at the same moment.
Thanks in advance
Marco

Answer 1

*& Report  Z7CC_ALV_OOPS_TWO_ALV_SCREENS                               *
report  z7cc_alv_oops_two_alv_screens           .
* TEMP DECLARATION TYPE DECLARATIONS
* Structure for Sales Order
types: begin of y_vbak      ,
vbeln type vbeln_va ,
end of y_vbak        ,
* Structure for Sales Order Details.
begin of y_vbap           ,
vbeln type vbeln_va    ,
posnr type posnr_va    ,
matnr type matnr       ,
charg type charg_d     ,
arktx type arktx       ,
end of y_vbap             ,
*& Structure of line item ----------
begin of  y_po_item,
ebeln type ekko-ebeln, " PO NUMBER
ebelp type ekpo-ebelp,  "LINE ITEM
matnr like ekpo-matnr,  " Material Number
netpr like ekpo-netpr,  " Price per unit.
menge like ekpo-menge,  " Purchase order quantity.
netwr like ekpo-netwr,  " Net order in Purchase order currency
meins like ekpo-meins,  " UOM
end of y_po_item.
data: t_y_po_item type standard table of y_po_item.
data:  w_container_1        type ref to cl_gui_container        .
data: t_vbap      type standard table of y_vbap.
*--------- END OF TEMP DECLARATION ------------
data: ok_code like sy-ucomm.
*-- Global data definitions for ALV
*--- ALV Grid instance reference
data gr_alvgrid type ref to cl_gui_alv_grid .
*--- Name of the custom control added on the screen
data gc_custom_control_name type scrfname value 'Z7CC_ALV2' .
*--- Custom container instance reference
data gr_ccontainer type ref to cl_gui_custom_container .
*--- Field catalog table
data gt_fieldcat type lvc_t_fcat .
data gt_fieldcat_2 type lvc_t_fcat .
*--- Layout structure
data gs_layout type lvc_s_layo .
*&------- DECLARATION FOR THE NEXT SCREEN ------------------
*--- ALV Grid instance reference
data gr_alvgrid_2 type ref to cl_gui_alv_grid .
*--- Name of the custom control added on the screen-----------
data gc_custom_control_name_2 type scrfname value 'Z7CC_ALV' .
*--- Custom container instance reference
data gr_ccontainer_2 type ref to cl_gui_custom_container .
*Declare your internal table which is supposed to hold the list data.
*&Let’s name it “gt_list”.
*Here is an example declaration.
*--- Internal table holding list data
data begin of gt_list occurs 0.
data   matnr like mara-matnr.
data   maktx like makt-maktx.
data end of gt_list .
data: begin of gt_list_2 occurs 0.
include structure  z7cc_po_header.
data: linecolor(4) type c, "Color for corresponding line
end of gt_list_2.
data: t_gt_list_2   type standard table of z7cc_po_header.
*----- CLASS DECLARATION ------
* FIELD-SYMBOLS
field-symbols <fs_vbap> type y_vbap.
field-symbols <fs_gt_list_2> type z7cc_po_header.
class lcl_event_receiver definition deferred.
data w_event_receiver type ref to lcl_event_receiver.
* Creating a class definition for handling events on the ALV Grid.
class lcl_event_receiver definition.
public section.
methods: handle_top_of_page for event top_of_page
of cl_gui_alv_grid
importing e_dyndoc_id,
handle_hotspot_click for event hotspot_click
of cl_gui_alv_grid
importing e_row_id,
handle_toolbar_event for event toolbar
of cl_gui_alv_grid
importing e_object,
handle_user_command  for event user_command
of cl_gui_alv_grid
importing e_ucomm.
endclass.                    "lcl_event_receiver  DEFINATION
* Implementing the Class for handling events on the ALV Grid.
class lcl_event_receiver implementation.
method handle_top_of_page.
perform show_top_of_page using e_dyndoc_id   w_container_1.
endmethod.                    "handle_top_of_page
method handle_hotspot_click.
perform show_hotspot_click_details using e_row_id.
endmethod.                    "lcl_event_receiver
method handle_toolbar_event.
perform create_alv_toolbar using e_object.
endmethod.                    "handle_toolbar_event
method handle_user_command.
perform handle_user_command using e_ucomm.
endmethod.                    "handle_user_command
endclass.                    "lcl_event_receiver IMPLEMENTATION
data:   w_grid               type ref to cl_gui_alv_grid         .
*-------- END OF CLASS DECLARATION -------------
start-of-selection.
perform populate_table.
call screen 100.
*&      Module  STATUS_0100  OUTPUT
*       text
module status_0100 output.
set pf-status 'Z7CC_ALV1'.
*  SET TITLEBAR 'xxx'.
endmodule.                 " STATUS_0100  OUTPUT
*&      Module  DISPLAY_ALV  OUTPUT
*       text
module display_alv output.
perform display_alv.
endmodule.                 " DISPLAY_ALV  OUTPUT
*&      Form  POPULATE_TABLE
*       text
*  -->  p1        text
*  <--  p2        text
form populate_table .
select ebeln ebelp matnr  netpr menge netwr meins into corresponding fields of table t_y_po_item
from ekpo.
select ekko~ebeln ekko~bukrs ekko~aedat ekko~ernam
ekko~lifnr ekko~zterm ekko~angnr  into corresponding fields of
table t_gt_list_2    from ekko .
endform.                    " POPULATE_TABLE
*&      Form  DISPLAY_ALV
*       text
*  -->  p1        text
*  <--  p2        text
form display_alv .
if gr_alvgrid is initial .
perform create_first_obj_container.
*&----------- ONE MORE CONTROL ON THE SCREEN-------------------
perform create_second_obj_container.
" DISPLAY_ALV
*   Creating ALV Grid instance
perform create_first_alvgrid.
perform create_second_alvgrid.
*  PERFORM FIELD_CATALOG.  " CREATE A FIELD CATALOG.
perform field_cat changing gt_fieldcat.
perform field_cat_1 changing gt_fieldcat_2.
*----Here will be additional preparations
*--e.g. initial sorting criteria, initial filtering criteria, excluding
*--functions
perform call_mthd_display_both_grid.
*&---------  create a field catalog.------------
perform event_handling.
else.
*&-----------CALL ALV GRID REFRESH  TABLE DISPLAY
perform call_mthd_alv_refresh.
endif.
endform.                    "DISPLAY_ALV
*&      Module  USER_COMMAND_0100  INPUT
*       text
module user_command_0100 input.
endmodule.                 " USER_COMMAND_0100  INPUT
*&      Form  EXIT_PROGRAM
*       text
*  -->  p1        text
*  <--  p2        text
form exit_program .
leave program.
endform.                    " EXIT_PROGRAM
*&      Module  PAI  INPUT
*       text
module pai input.
case ok_code.
when '&EXT'.
perform exit_program.
when others.
*     do nothing
endcase.
clear ok_code.
endmodule.                 " PAI  INPUT
*&      Form  CREATE_FIRST_OBJ_CONTAINER
*       text
*  -->  p1        text
*  <--  p2        text
form create_first_obj_container .
create object gr_ccontainer
exporting
container_name              = gc_custom_control_name
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.                    " CREATE_FIRST_OBJ_CONTAINER
*&----------------------------------------