Inner Join - ALV Grid (Dynpro)

Code: Alles auswählen.

PROGRAM  ZZ_07_GLOBAL2.

TABLES MBEW.
TABLES MARC.

DATA: ok_code LIKE sy-ucomm.

Types: BEGIN OF wa,
        struc1 TYPE marc,
        struc2 TYPE mbew,
      END OF wa.

DATA: itab TYPE TABLE OF wa.

* Declare reference variables to the ALV grid and the container
DATA:
go_grid TYPE REF TO cl_gui_alv_grid,
go_custom_container TYPE REF TO cl_gui_custom_container.

Code: Alles auswählen.

form LOAD_DATA_INTO_GRID .


* read data from table sflight
SELECT mbew~bwkey mbew~matnr mbew~bwtar
        mbew~vprsv mbew~verpr mbew~stprs  marc~kautb
       FROM MARC
         INNER JOIN MBEW ON marc~matnr = mbew~matnr
         and marc~werks = mbew~bwkey
       INTO TABLE itab where MARC~kautb = 'X'.

CALL METHOD go_grid->set_table_for_first_display
EXPORTING
i_structure_name = 'ZZ07GLOBAL2'
CHANGING
it_outtab = itab.


endform.                    

Code: Alles auswählen.

DATA: BEGIN OF wa,
BWKEY TYPE MBEW-BWKEY,
MATNR TYPE MBEW-MATNR,
BWTAR TYPE MBEW-BWTAR,
VPRSV TYPE MBEW-VPRSV,
VERPR TYPE MBEW-VERPR,
STPRS TYPE MBEW-STPRS,
KAUTB TYPE MARC-KAUTB,
END OF wa.

DATA itab like TABLE OF wa.

Code: Alles auswählen.

form LOAD_DATA_INTO_GRID .

* Join MBEW und MARC
SELECT mbew~bwkey mbew~matnr mbew~bwtar
        mbew~vprsv mbew~verpr mbew~stprs  marc~kautb
       FROM mbew
         INNER JOIN marc ON marc~matnr = mbew~matnr
         and marc~werks = mbew~bwkey
        INTO TABLE gt_data where MARC~kautb = 'X'.

CALL METHOD go_grid->set_table_for_first_display
EXPORTING
i_structure_name = 'ZZ07GLOBAL2'
CHANGING
it_outtab = gt_data.

endform.                    " LOAD_DATA_INTO_GRID

Code: Alles auswählen.

PROGRAM  ZZ_07_GLOBAL2.

DATA: ok_code LIKE sy-ucomm.

DATA: gs_data TYPE ZZ07GLOBAL2.
DATA: gt_data TYPE TABLE OF ZZ07GLOBAL2.

* Declare reference variables to the ALV grid and the container
DATA:
go_grid TYPE REF TO cl_gui_alv_grid,
go_custom_container TYPE REF TO cl_gui_custom_container.

Code: Alles auswählen.

REPORT ZZ_07_GLOBAL2.

TABLES mbew.

SELECT-OPTIONS so_bwkey FOR mbew-bwkey.

START-OF-SELECTION.

DATA:
  lt_data TYPE STANDARD TABLE OF ZZ07GLOBAL2 WITH DEFAULT KEY, "Vollständige OO-Syntax!
  lr_table TYPE REF TO cl_salv_table.

SELECT mbew~bwkey mbew~matnr mbew~bwtar
        mbew~vprsv mbew~verpr mbew~stprs  marc~kautb
       FROM mbew
         INNER JOIN marc ON marc~matnr = mbew~matnr
         and marc~werks = mbew~bwkey
        INTO TABLE gt_data where MARC~kautb = 'X' and mbew~bwkey IN so_bwkey.

CL_SALV_TABLE=>FACTORY(
  IMPORTING
    r_salv_table = lr_table
  CHANGING
    t_table = lt_data ).

lr_table->display( ).