Against All Odds - Programming of Communicating (S...

uwe_schieferstein · ‎10-12-2010

Introduction

Quite often developers struggle with the communication between ALV grid instances. As soon as a record is selected in the "main" ALV list the details for this records should be displayed in the "detail" ALV list (e.g. Customer -> SalesAreas). Whereas the first double-click event works as expected quite frequently the second event fails, e.g. threads:

CALL METHOD ob_grid1->set_table_for_first_display does not change display

Problem with Custom container ->cl_gui_custom_container/cl_gui_alv_grid

Text edioter in Pop up window

Can I use Docking container in Subscreen

In the past I answered such questions several times but even I have problems to recover my own sample reports from SDN. Therefore, I document this solution a last time in this blog and I show that there is almost no difference whether the two communicating (S)ALV grids are displayed on the same screen, on 2 different main screens or even in a popup.

(1) Example: Both ALV Lists Displayed in Same Main Screen

Below you see the (single) main screen showing the ALV list containing customer records.

As soon as the user double-clicks on a record the details (Salesareas of the customer) are displayed in the second ALV list. For displaying the two ALV grids together on the same screen a splitter container is used.

Double-clicking on a different customer row automatically refreshes the the second ALV grid.

(2) Each ALV List Displayed on Different Main Screen (not shown)

In this case each grid instance is displayed using a separate docking container.

(3) Detailed ALV List Displayed on Popup Screen

As soon as the user double-clicks on a record the details (Salesareas of the customer) are displayed in a popup.

Screens - Keep It Simple and Stupid

Provided that the ALV lists are the only elements displayed on the screens we can keep them quite simple: basic flow logic and NO elements (not even a custom control because it is not required)!

NOTE: The sample report ZUS_SDN_TWO_ALV_GRIDS contains 3 screens (0100, 0200, 0205). The flow logic of all 3 (empty) screens is described in the documenation header of the report (see Appendix: report ZUS_SDN_TWO_ALV_GRIDS).

Initialize & Display Controls Before Calling any Screen

Even though virtually all sample reports (BCALV_...) of SAP show the creation and display of controls (container, grid, tree) within the flow logic of the displaying this is not mandatory. On the contrary, I prefer to do the entire control initialization BEFORE calling any screen. Below you see the START-OF-SELECTION section of my sample report. Within routine INIT_CONTROLS all container and grid instances are created. In addition, I even call method SET_TABLE_FOR_FIRST_DISPLAY within this routine.

As next step I link the main ALV list (parent container = GO_DOCKING) to the target screen '0100'. Eventually, the main screen is called.

What is the advantage of this approach? Well, if you want to display the ALV list on another screen of your application then just do it - by calling again the LINK method of the container.

MODULE user_command_0100 INPUT....* User has pushed button "Display Details"    WHEN 'DETAIL'.      PERFORM entry_show_details.*     Display both ALV grids on same main screen      IF ( p_main  = abap_true ).        *     Display details ALV grid on second main screen              ELSEIF ( p_2ndscr = abap_true ).        CALL METHOD go_docking2->link           EXPORTING            repid                       = gd_repid            dynnr                       = '0200'*          container                   =          EXCEPTIONS            cntl_error                  = 1            cntl_system_error           = 2            lifetime_dynpro_dynpro_link = 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.        LEAVE TO SCREEN 200.*     Display details ALV grid within popup      ELSE.        CALL METHOD go_docking2->link           EXPORTING            repid                       = gd_repid            dynnr                       = '0205'*          container                   =          EXCEPTIONS            cntl_error                  = 1            cntl_system_error           = 2            lifetime_dynpro_dynpro_link = 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.        CALL SCREEN '0205' STARTING AT 5 5                           ENDING AT   100 20.      ENDIF.    WHEN OTHERS.  ENDCASE.  CLEAR: gd_okcode.ENDMODULE. " USER_COMMAND_0100 INPUT

Displaying ALV Grid in Main Screen vs. Popup - So What?

The only difference is the dynpro level:

Leave the Event Handler and Trigger PAI

The advantage of this approach is that you always end up with a clearly defined status. After handling the user-command at PAI the flow moves on to PBO at which flushing of the controls occurs by default.

Classic vs. New ALV Object Model - Nothing Special

Regarding the different modes of displaying ALV lists there is no difference whether you are using class CL_GUI_ALV_GRID or CL_SALV_TABLE because the LINK method belongs to the container controls and not to the grid controls (see Appendix: report ZUS_SDN_TWO_SALV_GRIDS).

Summary

Communicating ALV grids is a standard ABAP development task which is not complicated by different modes of displaying the ALV lists.

The approach described here can be adapted for any kind of communicating controls (e.g. tree & grid).

Appendix

(A) Report ZUS_SDN_TWO_ALV_GRIDS

*&---------------------------------------------------------------------**& Report ZUS_SDN_TWO_ALV_GRIDS *&*&---------------------------------------------------------------------**& Documentation: This reports demonstrates how to communicate between*&                2 ALV grids. The first ALV list display customers,*& the second ALV grid display sales areas for a selected customer.*&*& NOTE: This logic works for any number of communicating grid instances,*&       whether they are displayed on the same screen, on 2 separate*& main screen or in a main screen & popup.*&---------------------------------------------------------------------**& Screen '0100' contains no elements.*& ok_code -> assigned to GD_OKCODE*&*& Flow logic:* PROCESS BEFORE OUTPUT.* MODULE STATUS_0100.* PROCESS AFTER INPUT.* MODULE USER_COMMAND_0100.*&*& Screen '0200' contains no elements.*& ok_code -> assigned to GD_OKCODE*&*& Flow logic:*  PROCESS BEFORE OUTPUT.*   MODULE STATUS_0100.***  PROCESS AFTER INPUT.*   MODULE USER_COMMAND_0100.*& Screen '0205' (popup) contains no elements.*& ok_code -> assigned to GD_OKCODE*&*& Flow logic:*  PROCESS BEFORE OUTPUT.*   MODULE STATUS_0205.***  PROCESS AFTER INPUT.*   MODULE USER_COMMAND_0100.*&---------------------------------------------------------------------*REPORT zus_sdn_two_alv_grids.TYPE-POOLS: abap.DATA: gd_okcode       TYPE ui_func,      gd_repid        TYPE syrepid,       go_docking     TYPE REF TO cl_gui_docking_container,       go_docking2    TYPE REF TO cl_gui_docking_container,       go_splitter    TYPE REF TO cl_gui_splitter_container,       go_cell_top    TYPE REF TO cl_gui_container,       go_cell_bottom TYPE REF TO cl_gui_container,       go_grid1       TYPE REF TO cl_gui_alv_grid,       go_grid2       TYPE REF TO cl_gui_alv_grid,*       gs_variant     TYPE disvariant,       gs_layout      TYPE lvc_s_layo.DATA: gs_knb1 TYPE knb1,      gt_knb1 TYPE STANDARD TABLE OF knb1,      gt_knvv TYPE STANDARD TABLE OF knvv.PARAMETERS:  p_main    RADIOBUTTON GROUP radi  DEFAULT 'X',  p_2ndscr  RADIOBUTTON GROUP radi,  p_popup   RADIOBUTTON GROUP radi.*---------------------------------------------------------------------** CLASS lcl_eventhandler DEFINITION*---------------------------------------------------------------------*CLASS lcl_eventhandler DEFINITION.  PUBLIC SECTION.    CLASS-METHODS:      handle_double_click        FOR EVENT double_click OF cl_gui_alv_grid        IMPORTING          e_row          e_column          es_row_no          sender. " grid instance that has triggered the event    CLASS-DATA:      ms_row    TYPE lvc_s_row  READ-ONLY. " stores selected rowENDCLASS. "lcl_eventhandler DEFINITION*---------------------------------------------------------------------**   CLASS lcl_eventhandler IMPLEMENTATION*---------------------------------------------------------------------*CLASS lcl_eventhandler IMPLEMENTATION.  METHOD handle_double_click.* define local data    DATA: ls_knb1 TYPE knb1.    CHECK ( sender = go_grid1 ).    READ TABLE gt_knb1 INTO ls_knb1 INDEX e_row-index.    CHECK ( ls_knb1-kunnr IS NOT INITIAL ).    lcl_eventhandler=>ms_row = e_row. " save selected row for REFRESH* Triggers PAI of the dynpro with the specified ok-code    CALL METHOD cl_gui_cfw=>set_new_ok_code( 'DETAIL' ).  ENDMETHOD. "handle_double_clickENDCLASS.  "lcl_eventhandler IMPLEMENTATIONSTART-OF-SELECTION.* initialization  REFRESH: gt_knb1,           gt_knvv.  SELECT * FROM knb1 INTO TABLE gt_knb1    WHERE bukrs = '0104'.* Create the control and grid instances in advance* before displaying them on any screen  PERFORM init_controls.* Link the docking container to the target dynpro* NOTE: Now we decide where to display the ALV list  gd_repid  = syst-repid.  CALL METHOD go_docking->link  EXPORTING repid = gd_repid    dynnr = '0100'* CONTAINER =EXCEPTIONS OTHERS = 4.* NOTE: dynpro does not contain any elements  CALL SCREEN '0100'.* Flow logic of dynpro (does not contain any dynpro elements):END-OF-SELECTION.*&---------------------------------------------------------------------**& Module STATUS_0100 OUTPUT*&---------------------------------------------------------------------** text*----------------------------------------------------------------------*MODULE status_0100 OUTPUT.  SET PF-STATUS 'STATUS_0100'. " contains push button "DETAIL"* SET TITLEBAR 'xxx'.ENDMODULE. " STATUS_0100 OUTPUT*&---------------------------------------------------------------------**&      Module  STATUS_0205  OUTPUT*&---------------------------------------------------------------------**       text*----------------------------------------------------------------------*MODULE status_0205 OUTPUT.  SET PF-STATUS '0205_POPUP'.*  SET TITLEBAR 'xxx'.ENDMODULE.                 " STATUS_0205  OUTPUT*&---------------------------------------------------------------------**& Module USER_COMMAND_0100 INPUT*&---------------------------------------------------------------------** text*----------------------------------------------------------------------*MODULE user_command_0100 INPUT.  TRANSLATE gd_okcode TO UPPER CASE.  CASE gd_okcode.    WHEN 'BACK' OR         'END'  OR         'CANC'.      CASE syst-dynnr.        WHEN '0100'.          SET SCREEN 0. LEAVE SCREEN.        WHEN '0200'.          SET SCREEN 100. LEAVE SCREEN.      ENDCASE.*   Leave popup screen    WHEN 'ENTER'  OR         'CANCEL'.      SET SCREEN 0. LEAVE SCREEN.* User has pushed button "Display Details"    WHEN 'DETAIL'.      PERFORM entry_show_details.      IF ( p_main  = abap_true ).      ELSEIF ( p_2ndscr = abap_true ).        CALL METHOD go_docking2->link           EXPORTING            repid                       = gd_repid            dynnr                       = '0200'*          container                   =          EXCEPTIONS            cntl_error                  = 1            cntl_system_error           = 2            lifetime_dynpro_dynpro_link = 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.        LEAVE TO SCREEN 200.      ELSE.        CALL METHOD go_docking2->link           EXPORTING            repid                       = gd_repid            dynnr                       = '0205'*          container                   =          EXCEPTIONS            cntl_error                  = 1            cntl_system_error           = 2            lifetime_dynpro_dynpro_link = 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.        CALL SCREEN '0205' STARTING AT 5 5                           ENDING AT   100 20.      ENDIF.    WHEN OTHERS.  ENDCASE.  CLEAR: gd_okcode.ENDMODULE. " USER_COMMAND_0100 INPUT*&---------------------------------------------------------------------**& Form ENTRY_SHOW_DETAILS*&---------------------------------------------------------------------** text*----------------------------------------------------------------------** --> p1 text* <-- p2 text*----------------------------------------------------------------------*FORM entry_show_details .* define local data  DATA: ld_row TYPE i,        ls_knb1 TYPE knb1,        ls_stable TYPE lvc_s_stbl.  REFRESH: gt_knvv.  READ TABLE gt_knb1 INTO ls_knb1 INDEX lcl_eventhandler=>ms_row-index.  CHECK ( syst-subrc = 0 ).  SELECT * FROM knvv INTO TABLE gt_knvv    WHERE kunnr = ls_knb1-kunnr.* Refresh display of detail ALV list (reuired)  ls_stable-row = abap_true.  ls_stable-col = abap_true.  CALL METHOD go_grid2->refresh_table_display    EXPORTING      is_stable = ls_stable    EXCEPTIONS      OTHERS    = 2.  IF sy-subrc NE 0.*   MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO*   WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.  ENDIF.ENDFORM. " ENTRY_SHOW_DETAILS*&---------------------------------------------------------------------**&      Form  INIT_CONTROLS*&---------------------------------------------------------------------**       text*----------------------------------------------------------------------**  -->  p1        text*  <--  p2        text*----------------------------------------------------------------------*FORM init_controls .* Display both ALV grids on same main screen (splitter)  IF ( p_main = abap_true ).    PERFORM init_controls_main.* Display detailed ALV list on second main screen  ELSEIF ( p_2ndscr = abap_true ).    PERFORM init_controls_2ndscr.* Display detailed ALV list within popup  ELSE.    PERFORM init_controls_popup.  ENDIF.* Display data (before any screen is called !!!)  gs_layout-grid_title = 'Customers'.  CALL METHOD go_grid1->set_table_for_first_display    EXPORTING      i_structure_name = 'KNB1'      is_layout        = gs_layout    CHANGING      it_outtab        = gt_knb1    EXCEPTIONS      OTHERS           = 4.  IF sy-subrc NE 0.* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.  ENDIF.  gs_layout-grid_title = 'Customers Details (Sales Areas)'.  CALL METHOD go_grid2->set_table_for_first_display    EXPORTING      i_structure_name = 'KNVV'      is_layout        = gs_layout    CHANGING      it_outtab        = gt_knvv " empty !!!    EXCEPTIONS      OTHERS           = 4.  IF sy-subrc NE 0.* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.  ENDIF.* Set event handler  SET HANDLER: lcl_eventhandler=>handle_double_click FOR go_grid1.ENDFORM.                    " INIT_CONTROLS*&---------------------------------------------------------------------**&      Form  INIT_CONTROLS_MAIN*&---------------------------------------------------------------------**       text*----------------------------------------------------------------------**  -->  p1        text*  <--  p2        text*----------------------------------------------------------------------*FORM init_controls_main .* Create docking container  CREATE OBJECT go_docking    EXPORTING      parent = cl_gui_container=>screen0      ratio  = 90    EXCEPTIONS      OTHERS = 6.  IF sy-subrc NE 0.*   MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO*   WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.  ENDIF.* Fill entire screen  go_docking->set_extension( 99999 ).* Create splitter container  CREATE OBJECT go_splitter    EXPORTING      parent            = go_docking      rows              = 2      columns           = 1    EXCEPTIONS      cntl_error        = 1      cntl_system_error = 2      OTHERS            = 3.  IF sy-subrc NE 0.*   MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO*   WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.  ENDIF.* Get cell container  CALL METHOD go_splitter->get_container    EXPORTING      row       = 1      column    = 1    RECEIVING      container = go_cell_top.  CALL METHOD go_splitter->get_container    EXPORTING      row       = 2      column    = 1    RECEIVING      container = go_cell_bottom.* Create ALV grids  CREATE OBJECT go_grid1    EXPORTING      i_parent = go_cell_top    EXCEPTIONS      OTHERS   = 5.  IF sy-subrc NE 0.*   MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO*   WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.  ENDIF.* Create 2nd grid instance for details of double-clicked* entry in first ALV grid  CREATE OBJECT go_grid2    EXPORTING      i_parent = go_cell_bottom    EXCEPTIONS      OTHERS   = 5.  IF sy-subrc NE 0.*   MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO*   WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.  ENDIF.ENDFORM.                    " INIT_CONTROLS_MAIN*&---------------------------------------------------------------------**&      Form  INIT_CONTROLS_2NDSCR*&---------------------------------------------------------------------**       text*----------------------------------------------------------------------**  -->  p1        text*  <--  p2        text*----------------------------------------------------------------------*FORM init_controls_2ndscr .* Create docking container  CREATE OBJECT go_docking    EXPORTING      parent = cl_gui_container=>screen0      ratio  = 90    EXCEPTIONS      OTHERS = 6.  IF sy-subrc NE 0.*   MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO*   WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.  ENDIF.  CREATE OBJECT go_docking2    EXPORTING      parent = cl_gui_container=>screen0      ratio  = 90    EXCEPTIONS      OTHERS = 6.  IF sy-subrc NE 0.*   MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO*   WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.  ENDIF.* Fill entire screen  go_docking->set_extension( 99999 ).  go_docking2->set_extension( 99999 ).* Create ALV grids  CREATE OBJECT go_grid1    EXPORTING      i_parent = go_docking    EXCEPTIONS      OTHERS   = 5.  IF sy-subrc NE 0.*   MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO*   WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.  ENDIF.  CREATE OBJECT go_grid2    EXPORTING      i_parent = go_docking2    EXCEPTIONS      OTHERS   = 5.  IF sy-subrc NE 0.*   MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO*   WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.  ENDIF.ENDFORM.                    " INIT_CONTROLS_2NDSCR*&---------------------------------------------------------------------**&      Form  INIT_CONTROLS_POPUP*&---------------------------------------------------------------------**       text*----------------------------------------------------------------------**  -->  p1        text*  <--  p2        text*----------------------------------------------------------------------*FORM init_controls_popup .* Create docking container  CREATE OBJECT go_docking    EXPORTING      parent = cl_gui_container=>screen0      ratio  = 90    EXCEPTIONS      OTHERS = 6.  IF sy-subrc NE 0.*   MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO*   WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.  ENDIF.  CREATE OBJECT go_docking2    EXPORTING      parent = cl_gui_container=>screen1  " Popup !!!      ratio  = 90    EXCEPTIONS      OTHERS = 6.  IF sy-subrc NE 0.*   MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO*   WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.  ENDIF.* Fill entire screen  go_docking->set_extension( 99999 ).  go_docking2->set_extension( 99999 ).* Create ALV grids  CREATE OBJECT go_grid1    EXPORTING      i_parent = go_docking    EXCEPTIONS      OTHERS   = 5.  IF sy-subrc NE 0.*   MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO*   WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.  ENDIF.  CREATE OBJECT go_grid2    EXPORTING      i_parent = go_docking2    EXCEPTIONS      OTHERS   = 5.  IF sy-subrc NE 0.*   MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO*   WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.  ENDIF.ENDFORM.                    " INIT_CONTROLS_POPUP

(B) Report ZUS_SDN_TWO_SALV_GRIDS

*&---------------------------------------------------------------------**& Report ZUS_SDN_TWO_SALV_GRIDS *&*&---------------------------------------------------------------------**& Documentation: This reports demonstrates how to communicate between*&                2 ALV grids. The first ALV list display customers,*& the second ALV grid display sales areas for a selected customer.*&*& NOTE: This logic works for any number of communicating grid instances,*&       whether they are displayed on the same screen, on 2 separate*& main screen or in a main screen & popup.*&---------------------------------------------------------------------**& Screen '0100' contains no elements.*& ok_code -> assigned to GD_OKCODE*&*& Flow logic:* PROCESS BEFORE OUTPUT.* MODULE STATUS_0100.* PROCESS AFTER INPUT.* MODULE USER_COMMAND_0100.*&*& Screen '0200' contains no elements.*& ok_code -> assigned to GD_OKCODE*&*& Flow logic:*  PROCESS BEFORE OUTPUT.*   MODULE STATUS_0100.***  PROCESS AFTER INPUT.*   MODULE USER_COMMAND_0100.*& Screen '0205' (popup) contains no elements.*& ok_code -> assigned to GD_OKCODE*&*& Flow logic:*  PROCESS BEFORE OUTPUT.*   MODULE STATUS_0205.***  PROCESS AFTER INPUT.*   MODULE USER_COMMAND_0100.*&---------------------------------------------------------------------*REPORT zus_sdn_two_salv_grids.TYPE-POOLS: abap.*... §5 Definition is laterclass lcl_handle_events definition deferred.DATA: gd_okcode       TYPE ui_func,      gd_repid        TYPE syrepid,       go_docking     TYPE REF TO cl_gui_docking_container,       go_docking2    TYPE REF TO cl_gui_docking_container,       go_splitter    TYPE REF TO cl_gui_splitter_container,       go_cell_top    TYPE REF TO cl_gui_container,       go_cell_bottom TYPE REF TO cl_gui_container,*       go_table1       TYPE REF TO cl_salv_table,       go_table2       TYPE REF TO cl_salv_table,*       gs_variant     TYPE disvariant,       gs_layout      TYPE lvc_s_layo.DATA: gs_knb1 TYPE knb1,      gt_knb1 TYPE STANDARD TABLE OF knb1,      gt_knvv TYPE STANDARD TABLE OF knvv.PARAMETERS:  p_main    RADIOBUTTON GROUP radi  DEFAULT 'X',  p_2ndscr  RADIOBUTTON GROUP radi,  p_popup   RADIOBUTTON GROUP radi.*... §5 object for handling the events of cl_salv_tabledata: go_events type ref to lcl_handle_events.*---------------------------------------------------------------------**       CLASS lcl_handle_events DEFINITION** NOTE: Copied from SALV_DEMO_TABLE_EVENTS*---------------------------------------------------------------------** §5.1 define a local class for handling events of cl_salv_table*---------------------------------------------------------------------*class lcl_handle_events definition.  public section.    data:      md_row      type i  read-only.    methods:      on_user_command for event added_function of cl_salv_events        importing e_salv_function,      on_before_salv_function for event before_salv_function of cl_salv_events        importing e_salv_function,      on_after_salv_function for event after_salv_function of cl_salv_events        importing e_salv_function,      on_double_click for event double_click of cl_salv_events_table        importing row column                  sender,      on_link_click for event link_click of cl_salv_events_table        importing row column.endclass.                    "lcl_handle_events DEFINITION*---------------------------------------------------------------------**       CLASS lcl_handle_events IMPLEMENTATION*---------------------------------------------------------------------** §5.2 implement the events for handling the events of cl_salv_table*---------------------------------------------------------------------*class lcl_handle_events implementation.  method on_user_command.**    perform show_function_info using e_salv_function text-i08.  endmethod.                    "on_user_command  method on_before_salv_function.**    perform show_function_info using e_salv_function text-i09.  endmethod.                    "on_before_salv_function  method on_after_salv_function.**    perform show_function_info using e_salv_function text-i10.  endmethod.                    "on_after_salv_function  method on_double_click.**    CHECK ( sender = go_table1 ).    me->md_row = row. " save selected row for REFRESH* Triggers PAI of the dynpro with the specified ok-code    CALL METHOD cl_gui_cfw=>set_new_ok_code( 'DETAIL' ).  endmethod.                    "on_double_click  method on_link_click.**    perform show_cell_info using row column text-i06.  endmethod.                    "on_single_clickendclass.                    "lcl_handle_events IMPLEMENTATIONSTART-OF-SELECTION.* initialization  REFRESH: gt_knb1,           gt_knvv.  gd_repid = syst-repid.  SELECT * FROM knb1 INTO TABLE gt_knb1    WHERE bukrs = '0104'.* Create the control and grid instances in advance* before displaying them on any screen  PERFORM init_controls.* Link the docking container to the target dynpro* NOTE: Now we decide where to display the ALV list  gd_repid  = syst-repid.  CALL METHOD go_docking->link  EXPORTING repid = gd_repid    dynnr = '0100'* CONTAINER =EXCEPTIONS OTHERS = 4.* NOTE: dynpro does not contain any elements  CALL SCREEN '0100'.* Flow logic of dynpro (does not contain any dynpro elements):END-OF-SELECTION.*&---------------------------------------------------------------------**& Module STATUS_0100 OUTPUT*&---------------------------------------------------------------------** text*----------------------------------------------------------------------*MODULE status_0100 OUTPUT.  SET PF-STATUS 'STATUS_0100'. " contains push button "DETAIL"* SET TITLEBAR 'xxx'.ENDMODULE. " STATUS_0100 OUTPUT*&---------------------------------------------------------------------**&      Module  STATUS_0205  OUTPUT*&---------------------------------------------------------------------**       text*----------------------------------------------------------------------*MODULE status_0205 OUTPUT.  SET PF-STATUS '0205_POPUP'.*  SET TITLEBAR 'xxx'.ENDMODULE.                 " STATUS_0205  OUTPUT*&---------------------------------------------------------------------**& Module USER_COMMAND_0100 INPUT*&---------------------------------------------------------------------** text*----------------------------------------------------------------------*MODULE user_command_0100 INPUT.  TRANSLATE gd_okcode TO UPPER CASE.  CASE gd_okcode.    WHEN 'BACK' OR         'END'  OR         'CANC'.      CASE syst-dynnr.        WHEN '0100'.          SET SCREEN 0. LEAVE SCREEN.        WHEN '0200'.          SET SCREEN 100. LEAVE SCREEN.      ENDCASE.*   Leave popup screen    WHEN 'ENTER'  OR         'CANCEL'.      SET SCREEN 0. LEAVE SCREEN.* User has pushed button "Display Details"    WHEN 'DETAIL'.      PERFORM entry_show_details.      IF ( p_main  = abap_true ).      ELSEIF ( p_2ndscr = abap_true ).        CALL METHOD go_docking2->link           EXPORTING            repid                       = gd_repid            dynnr                       = '0200'*          container                   =          EXCEPTIONS            cntl_error                  = 1            cntl_system_error           = 2            lifetime_dynpro_dynpro_link = 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.        LEAVE TO SCREEN 200.      ELSE.        CALL METHOD go_docking2->link           EXPORTING            repid                       = gd_repid            dynnr                       = '0205'*          container                   =          EXCEPTIONS            cntl_error                  = 1            cntl_system_error           = 2            lifetime_dynpro_dynpro_link = 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.        CALL SCREEN '0205' STARTING AT 5 5                           ENDING AT   100 20.      ENDIF.    WHEN OTHERS.  ENDCASE.  CLEAR: gd_okcode.ENDMODULE. " USER_COMMAND_0100 INPUT*&---------------------------------------------------------------------**& Form ENTRY_SHOW_DETAILS*&---------------------------------------------------------------------** text*----------------------------------------------------------------------** --> p1 text* <-- p2 text*----------------------------------------------------------------------*FORM entry_show_details .* define local data  DATA: ld_row TYPE i,        ls_knb1 TYPE knb1,        ls_stable TYPE lvc_s_stbl.  REFRESH: gt_knvv.  READ TABLE gt_knb1 INTO ls_knb1 INDEX go_events->md_row.  CHECK ( syst-subrc = 0 ).  SELECT * FROM knvv INTO TABLE gt_knvv    WHERE kunnr = ls_knb1-kunnr.* Refresh display of detail ALV list (reuired)  ls_stable-row = abap_true.  ls_stable-col = abap_true.  CALL METHOD go_table2->refresh    EXPORTING      s_stable     = ls_stable.ENDFORM. " ENTRY_SHOW_DETAILS*&---------------------------------------------------------------------**&      Form  INIT_CONTROLS*&---------------------------------------------------------------------**       text*----------------------------------------------------------------------**  -->  p1        text*  <--  p2        text*----------------------------------------------------------------------*FORM init_controls .* Display both ALV grids on same main screen (splitter)  IF ( p_main = abap_true ).    PERFORM init_controls_main.* Display detailed ALV list on second main screen  ELSEIF ( p_2ndscr = abap_true ).    PERFORM init_controls_2ndscr.* Display detailed ALV list within popup  ELSE.    PERFORM init_controls_popup.  ENDIF.*... §3 Functions*... §3.1 activate ALV generic Functions*... §3.2 include own functions by setting own status**  go_table1->set_screen_status(**    pfstatus      =  'SALV_STANDARD'**    report        =  gd_repid**    set_functions = go_table1->c_functions_all ).*... §6 register to the events of cl_salv_table  data: lr_events type ref to cl_salv_events_table.  lr_events = go_table1->get_event( ).  create object go_events.*... §6.1 register to the event USER_COMMAND  set handler go_events->on_user_command for lr_events.*... §6.2 register to the event BEFORE_SALV_FUNCTION  set handler go_events->on_before_salv_function for lr_events.*... §6.3 register to the event AFTER_SALV_FUNCTION  set handler go_events->on_after_salv_function for lr_events.*... §6.4 register to the event DOUBLE_CLICK  set handler go_events->on_double_click for lr_events.*... §6.5 register to the event LINK_CLICK  set handler go_events->on_link_click for lr_events.ENDFORM.                    " INIT_CONTROLS*&---------------------------------------------------------------------**&      Form  INIT_CONTROLS_MAIN*&---------------------------------------------------------------------**       text*----------------------------------------------------------------------**  -->  p1        text*  <--  p2        text*----------------------------------------------------------------------*FORM init_controls_main .* Create docking container  CREATE OBJECT go_docking    EXPORTING      parent = cl_gui_container=>screen0      ratio  = 90    EXCEPTIONS      OTHERS = 6.  IF sy-subrc NE 0.*   MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO*   WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.  ENDIF.* Fill entire screen  go_docking->set_extension( 99999 ).* Create splitter container  CREATE OBJECT go_splitter    EXPORTING      parent            = go_docking      rows              = 2      columns           = 1    EXCEPTIONS      cntl_error        = 1      cntl_system_error = 2      OTHERS            = 3.  IF sy-subrc NE 0.*   MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO*   WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.  ENDIF.* Get cell container  CALL METHOD go_splitter->get_container    EXPORTING      row       = 1      column    = 1    RECEIVING      container = go_cell_top.  CALL METHOD go_splitter->get_container    EXPORTING      row       = 2      column    = 1    RECEIVING      container = go_cell_bottom.* Create ALV grids  TRY.      CALL METHOD cl_salv_table=>factory        EXPORTING          r_container  = go_cell_top        IMPORTING          r_salv_table = go_table1        CHANGING          t_table      = gt_knb1.      go_table1->display( ).    CATCH cx_salv_msg .  ENDTRY.  TRY.      CALL METHOD cl_salv_table=>factory        EXPORTING          r_container  = go_cell_bottom        IMPORTING          r_salv_table = go_table2        CHANGING          t_table      = gt_knvv.      go_table2->display( ).    CATCH cx_salv_msg .  ENDTRY.ENDFORM.                    " INIT_CONTROLS_MAIN*&---------------------------------------------------------------------**&      Form  INIT_CONTROLS_2NDSCR*&---------------------------------------------------------------------**       text*----------------------------------------------------------------------**  -->  p1        text*  <--  p2        text*----------------------------------------------------------------------*FORM init_controls_2ndscr .* Create docking container  CREATE OBJECT go_docking    EXPORTING      parent = cl_gui_container=>screen0      ratio  = 90    EXCEPTIONS      OTHERS = 6.  IF sy-subrc NE 0.*   MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO*   WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.  ENDIF.  CREATE OBJECT go_docking2    EXPORTING      parent = cl_gui_container=>screen0      ratio  = 90    EXCEPTIONS      OTHERS = 6.  IF sy-subrc NE 0.*   MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO*   WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.  ENDIF.* Fill entire screen  go_docking->set_extension( 99999 ).  go_docking2->set_extension( 99999 ).* Create ALV grids  TRY.      CALL METHOD cl_salv_table=>factory        EXPORTING          r_container  = go_docking        IMPORTING          r_salv_table = go_table1        CHANGING          t_table      = gt_knb1.      go_table1->display( ).    CATCH cx_salv_msg .  ENDTRY.  TRY.      CALL METHOD cl_salv_table=>factory        EXPORTING          r_container  = go_docking2        IMPORTING          r_salv_table = go_table2        CHANGING          t_table      = gt_knvv.      go_table2->display( ).    CATCH cx_salv_msg .  ENDTRY.ENDFORM.                    " INIT_CONTROLS_2NDSCR*&---------------------------------------------------------------------**&      Form  INIT_CONTROLS_POPUP*&---------------------------------------------------------------------**       text*----------------------------------------------------------------------**  -->  p1        text*  <--  p2        text*----------------------------------------------------------------------*FORM init_controls_popup .* Create docking container  CREATE OBJECT go_docking    EXPORTING      parent = cl_gui_container=>screen0      ratio  = 90    EXCEPTIONS      OTHERS = 6.  IF sy-subrc NE 0.*   MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO*   WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.  ENDIF.  CREATE OBJECT go_docking2    EXPORTING      parent = cl_gui_container=>screen1  " Popup !!!      ratio  = 90    EXCEPTIONS      OTHERS = 6.  IF sy-subrc NE 0.*   MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO*   WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.  ENDIF.* Fill entire screen  go_docking->set_extension( 99999 ).  go_docking2->set_extension( 99999 ).* Create ALV grids  TRY.      CALL METHOD cl_salv_table=>factory        EXPORTING          r_container  = go_docking        IMPORTING          r_salv_table = go_table1        CHANGING          t_table      = gt_knb1.      go_table1->display( ).    CATCH cx_salv_msg .  ENDTRY.  TRY.      CALL METHOD cl_salv_table=>factory        EXPORTING          r_container  = go_docking2        IMPORTING          r_salv_table = go_table2        CHANGING          t_table      = gt_knvv.      go_table2->display( ).    CATCH cx_salv_msg .  ENDTRY.ENDFORM.                    " INIT_CONTROLS_POPUP

andrea_olivieri · ‎10-13-2010

Hi Uwe,
Thanks for the effort.
After reading this post we learned something new.
Again, great blog!

Regards
Andrea

SuhaSaha · ‎10-13-2010

I thought Naimesh was the ALV guru. I have added Uwe to this list as well.

Anyway Uwe very educational blog. Thanks for enlightening me.

BR,
Suhas

uwe_schieferstein · ‎10-13-2010

Hello Suhas

Thank you for this compliment.
Actually, we there are three of us:
Naimesh, Marcin (Pciak), and me.

Regards
Uwe

Former Member · ‎10-13-2010

Great Blog. I Was searching for something like this. Thanks for sharing the information. One Question Uwe, Can we create similiar reports using SALV classes ?

MarcinPciak · ‎10-13-2010

Hi Uwe,

It's nice you have refreshed this topic. It seems lots of people are confused about ALV programming if only several controls are included. This will be a nice one to give as a reference to everyone who struggle with multiple ALV-related issues. Thanks for that.

BTW: It seems I have been given a label I am not aware of 😉 Will not complain too much about it, however Guru is the level I can just dream of. Anyway it's a pleasure to see my name next to yours Guys:)

Cheers
Marcin

SuhaSaha · ‎10-14-2010

"Will not complain too much about it, however Guru is the level I can just dream ofWill not complain too much about it, however Guru is the level I can just dream of"

This applies to me buddy. FYI i've started applying Uwe's technique already 😉

Sure a few people would get confused with the K.I.S.S principle Uwe has mentioned in this blog.

Cheers,
Suhas

SuhaSaha · ‎10-14-2010

Hello Vinod,

Let me answer this. I'm sure you might be aware of this: SALV & BCALV techniques cater similar functionalities, but the implementation techniques are different.

Only exception(and this is a major difference) is that in SALV doesn't allow the "Editable Grid" functionality.

Cheers,
Suhas

uwe_schieferstein · ‎10-14-2010

Hello Vinod

I have added a second sample report using class CL_SALV_TABLE. As you can see from the coding there is virtually no difference between these two ALV grid models with respect to the displaying modes.

Regards
Uwe

Former Member · ‎10-15-2010

Thanks Uwe & Suhas.

Regards
Vinod

madhu_vadlamani · ‎01-10-2011

Hi,
Perfect example.Thanks for giving a good blog with an example.
Regards,
Madhu.

Former Member · ‎01-18-2011

Great blog. Can this apply to cl_salv_tree?
I have a requirement to 1) create customer hierarchy tree report. 2) If user select the tree nodes and click button to block or unblock customer sales area. It should first pop up screen to ask some info, take that info to update some Z tables behind the scene and then block or unblock all low level customers in the selected node(s) (this is multi selection) and then show updated data on screen.
I was able to finish the first part and struggle in the second part. There is sample salv_demo_data_update but it does not have the popup screen to get some info.
Thanks.

Former Member · ‎01-18-2011

I thought we can edit the field in cl_salve

lo_item = lo_node->get_item( 'xxx' ).
lo_item->set_editable( abap_true ).

Is this correct?

uwe_schieferstein · ‎01-18-2011

Hello Valerie... §5.3 add a new node to the second node TRY. find the nodes where the data should be changed * and change the data ** nodes = gr_tree->get_nodes( ). * * node1 = nodes->get_top_node( ).* * node1 = node1->get_first_child( ).* * node1->expand( ).ENDFORM. " change_data

Former Member · ‎01-18-2011

I replaced the change_data routine, run it and got run time error
OBJECTS_OBJREF_NOT_ASSIGNED
CX_SY_REF_IS_INITIAL
01/18/2011 16:51:55
   lo_selections = gr_tree->get_selections(
    lo_item       =
     lo_selections->get_selected_item( ).

It stops here, lo_item is always initial.

>> lo_node       = lo_item->get_node( ).
t_node        = lo_node->get_children( ).
t_node        = lo_node->get_subtree( ).
CATCH cx_salv_msg.
ENDTRY.

Former Member · ‎01-18-2011

Sorry, I got it. I selected the whole line and it does not work.
Thanks,

Former Member · ‎01-18-2011

Sorry, I got it. I selected the whole line and it does not work.
Thanks,

uwe_schieferstein · ‎01-19-2011

Hello Valerie

Using tree controls you always have to take care of both options:
- select node (presumably entire line)
- select item (in tree part)

It is always motivating to see that my sample coding can be applied to real world problems.

Regards
Uwe

Former Member · ‎08-24-2011

I tried to implement this approach, but when I refresh the first ALV data and call the screen 100, the first screen stays the same despite my attempt to flush or use the refresh method. Any suggestion?

uwe_schieferstein · ‎08-24-2011

Hello Anatoliy

When you want to refresh an ALV list always ensure that you pass PAI followed by PBO. Probably it is a good idea to place the method call go_grid->REFRESH_TABLE_DISPLAY( ) at PBO.

Regards
Uwe

Against All Odds - Programming of Communicating (S)ALV Grid Controls

Appendix

Are you there, SAP? It's me, Jelena

Integration Point of MM-FI-SD in SAP ERP

SAP Project System - A ready Reference ( Part 1 )