ALV Beispiel

Code: Alles auswählen.

REPORT z.

DATA ls_vbak TYPE vbak.
DATA lt_vbap TYPE STANDARD TABLE OF vbap.

TYPES ty_vbap TYPE STANDARD TABLE OF vbap.

PARAMETERS p_vbeln TYPE vbeln DEFAULT '0000001111'.

*----------------------------------------------------------------------*
*       CLASS my_class DEFINITION
*----------------------------------------------------------------------*
CLASS my_class DEFINITION.

  PUBLIC SECTION.
    CLASS-METHODS:
       get_data IMPORTING iv_vbeln TYPE vbeln
                EXPORTING es_vbak  TYPE vbak
                          et_vbap  TYPE ty_vbap,

       display_data IMPORTING is_vbak TYPE vbak
                              it_vbap TYPE ty_vbap.

ENDCLASS.                    "my_class DEFINITION


*----------------------------------------------------------------------*
*       CLASS my_class IMPLEMENTATION
*----------------------------------------------------------------------*
CLASS my_class IMPLEMENTATION.

  METHOD get_data.

    SELECT SINGLE * FROM vbak INTO es_vbak WHERE vbeln = iv_vbeln.

    SELECT * FROM vbap INTO TABLE et_vbap WHERE vbeln = iv_vbeln.

  ENDMETHOD.                    "get_data

  METHOD display_data.

    FIELD-SYMBOLS <vbap> TYPE vbap.

    WRITE: / 'Auftrag', is_vbak-vbeln, 'wurde angelegt am', is_vbak-erdat.
    LOOP AT it_vbap ASSIGNING <vbap>.
      WRITE: /3 <vbap>-posnr,
                <vbap>-matnr.
    ENDLOOP.

  ENDMETHOD.                    "display_data
ENDCLASS.                    "my_class IMPLEMENTATION


START-OF-SELECTION.


  CALL METHOD my_class=>get_data
    EXPORTING
      iv_vbeln = p_vbeln
    IMPORTING
      es_vbak  = ls_vbak
      et_vbap  = lt_vbap.

  CALL METHOD my_class=>display_data
    EXPORTING
      is_vbak = ls_vbak
      it_vbap = lt_vbap.

Code: Alles auswählen.

IMPORTING iv_vbeln TYPE vbeln