REPORT  zts_kuz_mm.
Type-pools slis.
INITIALIZATION.

  TABLES: mseg.

  SELECTION-SCREEN BEGIN OF BLOCK a1 WITH FRAME.

  PARAMETERS: mybukrs LIKE bkpf-bukrs OBLIGATORY.

  SELECTION-SCREEN END OF BLOCK a1.

START-OF-SELECTION.

DATA: myMSEG LIKE MSEG occurs 0.
DATA: myBKPF LIKE BKPF occurs 0 with header line.


DATA: BEGIN OF OUTING,
        MBLNR LIKE MSEG-MBLNR, "íîìåð äîêóì.
        MJAHR LIKE MSEG-MJAHR, "Ãîä äîêóì
        BUKRS LIKE BKPF-BUKRS, "áàë. åä.
        WERKS LIKE MSEG-WERKS, "çàâîä
        LGORT LIKE MSEG-LGORT, "ñêëàä
        BWART LIKE MSEG-BWART, "âèä äâèæåíèÿ
        BUDAT LIKE BKPF-BUDAT, "äàòà ïðîâîäêè
        SHKZG LIKE MSEG-SHKZG, " ä\ê
        MATNR LIKE MSEG-MATNR, " íîìåð ìàòåðèàëà
        MEINS LIKE MSEG-MEINS,"ÅÈ
        DMBTR LIKE MSEG-DMBTR,"Ñóììà ÂÂ
        WAERS LIKE MSEG-WAERS,""Âàëþòà
        BELNR LIKE MSEG-BELNR,"Ôèíàíñîâûé äîêóìåíò
        LFBJA LIKE MSEG-LFBJA,"Ãîä ôèí. äîêóìåíòà

      END OF OUTING.

DATA OUTING_TABLE LIKE OUTING occurs 10 with header line.
DATA OUTING_TABLE2 LIKE OUTING_TABLE occurs 10.

SELECT BUKRS BUDAT belnr FROM BKPF INTO CORRESPONDING FIELDS of table OUTING_TABLE WHERE bukrs = mybukrs.

CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
      EXPORTING
       i_structure_name = 'OUTING'

      TABLES
        t_outtab         = OUTING_TABLE.

REPORT  zts_kuz_mm.
Type-pools slis.
INITIALIZATION.

  TABLES: mseg.

  SELECTION-SCREEN BEGIN OF BLOCK a1 WITH FRAME.

  PARAMETERS: mybukrs LIKE bkpf-bukrs OBLIGATORY.

  SELECTION-SCREEN END OF BLOCK a1.

START-OF-SELECTION.

DATA: myMSEG LIKE MSEG occurs 0.
DATA: myBKPF LIKE BKPF occurs 0 with header line.


DATA: BEGIN OF OUTING,
        MBLNR LIKE MSEG-MBLNR, "íîìåð äîêóì.
        MJAHR LIKE MSEG-MJAHR, "Ãîä äîêóì
        BUKRS LIKE BKPF-BUKRS, "áàë. åä.
        WERKS LIKE MSEG-WERKS, "çàâîä
        LGORT LIKE MSEG-LGORT, "ñêëàä
        BWART LIKE MSEG-BWART, "âèä äâèæåíèÿ
        BUDAT LIKE BKPF-BUDAT, "äàòà ïðîâîäêè
        SHKZG LIKE MSEG-SHKZG, " ä\ê
        MATNR LIKE MSEG-MATNR, " íîìåð ìàòåðèàëà
        MEINS LIKE MSEG-MEINS,"ÅÈ
        DMBTR LIKE MSEG-DMBTR,"Ñóììà ÂÂ
        WAERS LIKE MSEG-WAERS,""Âàëþòà
        BELNR LIKE MSEG-BELNR,"Ôèíàíñîâûé äîêóìåíò
        LFBJA LIKE MSEG-LFBJA,"Ãîä ôèí. äîêóìåíòà

      END OF OUTING.

DATA OUTING_TABLE LIKE OUTING occurs 10 with header line.
DATA OUTING_TABLE2 LIKE OUTING_TABLE occurs 10.

SELECT BUKRS BUDAT belnr FROM BKPF INTO CORRESPONDING FIELDS of table OUTING_TABLE WHERE bukrs = mybukrs.

*<<<
DATA: gt_fieldcat TYPE slis_t_fieldcat_alv,
           gv_repid TYPE sy-repid.
  gv_repid = sy-repid.
  CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
    EXPORTING
      i_program_name     = gv_repid     "sy-repid
      i_internal_tabname = 'OUTING'
      i_inclname         = gv_repid           "sy-repid
    CHANGING
      ct_fieldcat        = gt_fieldcat.
*>>>

CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
      EXPORTING
*       i_structure_name = 'OUTING'
*<<<
IT_FIELDCAT = gt_fieldcat
*>>>
      TABLES
        t_outtab         = OUTING_TABLE.

i_program_name     = sy-repid