*&---------------------------------------------------------------------*
*& Report  ZBC401_00_ALV2
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT  zbc401_00_alv2.

TABLES: bkpf.

* Cria referências para os objetos
DATA: r_container1 TYPE REF TO cl_gui_custom_container,
      r_container2 LIKE r_container1,
      r_grid_bkpf TYPE REF TO cl_gui_alv_grid,
      r_grid_bseg LIKE r_grid_bkpf.

* Tabelas internas para o conteúdo dos Grids
DATA: it_bkpf TYPE TABLE OF bkpf,
      it_bseg TYPE TABLE OF bseg.

* Include com a classe lcl_event_handler
INCLUDE zbc401_00_alv2_event.

* Cria referências para o objeto event handler.
DATA: r_handler TYPE REF TO lcl_event_handler.

* Tela de seleção
SELECT-OPTIONS: s_bukrs FOR bkpf-bukrs OBLIGATORY,
                s_belnr FOR bkpf-belnr,
                s_gjahr FOR bkpf-gjahr OBLIGATORY.

START-OF-SELECTION.

* seleciona dados do Header do documento contábil
  SELECT * FROM bkpf INTO TABLE it_bkpf
    WHERE bukrs IN s_bukrs AND
          belnr IN s_belnr AND
          gjahr IN s_gjahr.

  CALL SCREEN 0100.

  INCLUDE zbc401_00_alv2_inc.