dialog

    TYPE-POOLS vrm.

DATA values_sales_resp TYPE vrm_values WITH HEADER LINE.

      CALL FUNCTION 'VRM_SET_VALUES'
        EXPORTING
          id              = 'SALES_GROUP'
          values          = values_sales_resp[]
        EXCEPTIONS
          id_illegal_name = 1
          OTHERS          = 2.

 

 

  DESCRIBE TABLE crm LINES tc-lines .

 

MODULE loop_0001_read OUTPUT.
  READ TABLE crm INDEX tc-current_line.
  IF crm-data_change = 'X'.
    LOOP AT SCREEN.
      IF screen-name = 'CRM-IN_WM_DATE'.
        screen-intensified = 1.
*        screen-color = 9.
        MODIFY SCREEN.
      ENDIF.
    ENDLOOP.
  ENDIF.
ENDMODULE.                 " loop_0001_read  OUTPUT
*&---------------------------------------------------------------------*
*&      Module  loop0001_write  INPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE loop0001_write INPUT.
  MODIFY crm INDEX tc-current_line.
  CLEAR crm.
ENDMODULE.                 " loop0001_write  INPUT

 

 

 

 

 

  IF container_1 IS INITIAL .
    CREATE OBJECT container_1
      EXPORTING
        container_name = 'C1'.
    IF g_grid_1 IS INITIAL .
      CREATE OBJECT g_grid_1
        EXPORTING
          i_parent = container_1.
    ENDIF .
    IF g_event_receiver_1 IS INITIAL.
      CREATE OBJECT g_event_receiver_1.
      SET HANDLER:
        g_event_receiver_1->handle_double_click FOR g_grid_1.
    ENDIF.
  ENDIF .

  DATA gs_variant LIKE disvariant.
  DATA g_repid LIKE sy-repid.
  DATA gs_layout TYPE lvc_s_layo.
  g_repid = sy-repid.
  gs_variant-report = g_repid.
  gs_layout-sel_mode = 'A' .
  gs_layout-cwidth_opt = 'X'.

  CALL METHOD g_grid_1->set_table_for_first_display
    EXPORTING
      i_structure_name = 'ZGEP_VCPC_0015_H'
      is_variant       = gs_variant
      i_save           = 'A'
      is_layout        = gs_layout
    CHANGING
      it_outtab        = t_h[].

  IF NOT index IS INITIAL .
    REFRESH lt_rows . CLEAR ls_rows .
    ls_rows-index = index .
    APPEND ls_rows TO lt_rows .
    CALL METHOD g_grid_1->set_selected_rows
      EXPORTING
        it_index_rows = lt_rows.
  ENDIF .

 

 

  DATA container_1 TYPE REF TO cl_gui_custom_container.
  DATA g_grid_1 TYPE REF TO cl_gui_alv_grid .
  DATA lt_rows TYPE lvc_t_row .
  DATA ls_rows TYPE lvc_s_row .
  DATA index TYPE i .

 

    CLASS lv_event_alv DEFINITION.
    PUBLIC SECTION.
      METHODS:
      handle_double_click
          FOR EVENT double_click OF cl_gui_alv_grid
              IMPORTING e_row  e_column.
  ENDCLASS.               "LV_EVENT_ALV
  DATA g_event_receiver_1 TYPE REF TO lv_event_alv .

 

 

  CLASS lv_event_alv IMPLEMENTATION.
******** "handle_double_click
    METHOD handle_double_click.
      CALL METHOD cl_gui_cfw=>set_new_ok_code
        EXPORTING
          new_code = 'ALV_SELE_H'.
    ENDMETHOD.                    "handle_double_click

  ENDCLASS.               "lv_event_alv