CLASS relatorio DEFINITION.
*
  PUBLIC SECTION.

    METHODS:

      cria_relatorio.

  PRIVATE SECTION .

    TYPES: BEGIN OF ty_vbak,
             vbeln TYPE vbak-vbeln,
             erdat TYPE erdat,
             auart TYPE auart,
             kunnr TYPE kunnr,
           END   OF ty_vbak.

    DATA: t_vbak TYPE STANDARD TABLE OF ty_vbak.

    DATA: o_alv TYPE REF TO cl_salv_table.

    METHODS:

      pega_ultimas_vinte_vendas.

ENDCLASS.


CLASS relatorio IMPLEMENTATION.

  METHOD pega_ultimas_vinte_vendas.

    SELECT vbeln erdat auart kunnr
           INTO  TABLE t_vbak
           FROM  vbak
           UP TO 20 ROWS.

  ENDMETHOD.

  METHOD cria_relatorio.

    pega_ultimas_vinte_vendas( ).

    cl_salv_table=>factory(
      IMPORTING
        r_salv_table = o_alv
      CHANGING
        t_table      = t_vbak ).

    o_alv->display( ).

  ENDMETHOD.

ENDCLASS.


DATA: o_relatorio TYPE REF TO relatorio.

START-OF-SELECTION.

  CREATE OBJECT o_relatorio.

  o_relatorio->cria_relatorio( ).