*&---------------------------------------------------------------------*
*&  Include           ZBC401_00_ALV2_EVENT
*&---------------------------------------------------------------------*
CLASS lcl_event_handler DEFINITION.

  PUBLIC SECTION.

    METHODS:
      on_double_click FOR EVENT double_click OF cl_gui_alv_grid
        IMPORTING e_column
                  es_row_no.

ENDCLASS.                    "lcl_event_handler DEFINITION


*----------------------------------------------------------------------*
*       CLASS lcl_event_handler IMPLEMENTATION
*----------------------------------------------------------------------*
*
*----------------------------------------------------------------------*
CLASS lcl_event_handler IMPLEMENTATION.

  METHOD on_double_click.
    DATA: wa_bkpf LIKE LINE OF it_bkpf.

* Recupera a linha selecionada no grid da BKPF
    READ TABLE it_bkpf INTO wa_bkpf INDEX es_row_no-row_id.

* Seleciona os itens do documento contábil
    SELECT * FROM bseg INTO TABLE it_bseg
      WHERE bukrs = wa_bkpf-bukrs AND
            belnr = wa_bkpf-belnr AND
            gjahr = wa_bkpf-gjahr.

* Atualiza o grid dos itens do documento contábil
    CALL METHOD r_grid_bseg->refresh_table_display
*  EXPORTING
*    IS_STABLE      =
*    I_SOFT_REFRESH =
*  EXCEPTIONS
*    FINISHED       = 1
*    others         = 2
            .
    IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*            WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
    ENDIF.


  ENDMETHOD.                    "on_double_click

ENDCLASS.                    "