Doppelclick auf ALV Grid

Code: Alles auswählen.

CLASS lcl_dchandler DEFINITION DEFERRED.

DATA: dcreceiver TYPE REF TO lcl_dchandler.

CLASS lcl_dchandler DEFINITION.

  PUBLIC SECTION.
    METHODS:

    handle_double_click
    FOR EVENT double_click OF cl_gui_alv_grid
    IMPORTING e_row e_column.

ENDCLASS.

CLASS lcl_dchandler IMPLEMENTATION.

  METHOD handle_double_click.

    IF NOT l_cells IS INITIAL.

      CALL FUNCTION 'POPUP_TO_CONFIRM'
           EXPORTING
                titlebar       = 'Data not saved!'
                text_question  = 'Do you want to loose changed data?'
                text_button_1  = 'Yes'(007)
                text_button_2  = 'No'(008)
                default_button = '1'
           IMPORTING
                answer         = answer2.

      IF sy-subrc <> 0.
        MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno.
      ENDIF.

    ELSEIF l_cells IS INITIAL.

      READ TABLE t_2 INDEX e_row-index INTO wa_1.
      PERFORM double USING e_row-index.
      IF g_1->is_ready_for_input( ) EQ 0.
        CALL SCREEN 002 STARTING AT 10 1.
      ELSE.
        CALL SCREEN 003 STARTING AT 10 1.
      ENDIF.

    ENDIF.

    CASE answer2 .
      WHEN '1'.
        READ TABLE t_2 INDEX e_row-index INTO wa_1.
        PERFORM double USING e_row-index.
        IF g_1->is_ready_for_input( ) EQ 0.
          CALL SCREEN 002 STARTING AT 10 1.
        ELSE.
          CALL SCREEN 003 STARTING AT 10 1.
        ENDIF.
      WHEN '2' OR 'A'.
        CALL SCREEN 001.
    ENDCASE.

  ENDMETHOD.

ENDCLASS.

FORM double USING e_row-index.

  CLEAR t_2.
  CLEAR wa_1.
  CLEAR t9citi.

  SELECT *
    FROM t9citi
    INTO CORRESPONDING FIELDS OF TABLE t_2
    WHERE bukrs IN bukrs_sp.

  READ TABLE t_2 INDEX e_row-index INTO wa_1.

  t9citi-bukrs = wa_1-bukrs.
  t9citi-waehr = wa_1-waehr.
  t9citi-acct = wa_1-acct.
  t9citi-sbezeich1 = wa_1-sbezeich1.
....
ENDFORM.

Gruß Gregor