ABAP动态内表

将pic1格式的内表改成pic2的样式
pic1.png
pic2.png
使用了动态内表的方法，参考了网上的案例，具体如下
*&---------------------------------------------------------------------*
*& REPORT ZMM002
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT ZMM002.

TABLES:T001.

DATA: BEGIN OF WA_TAB,
  BUKRS(10),
  NETPR LIKE EKPO-NETPR,
  ODATE(8),
END OF WA_TAB.

DATA:ITAB LIKE WA_TAB OCCURS 0 WITH HEADER LINE.

DATA:  GT_FIELDCAT   TYPE LVC_T_FCAT,
      GS_FIELDCAT   TYPE LVC_S_FCAT,
      GS_LAYOUT     TYPE LVC_S_LAYO.

DEFINE : ADD_FIELD.
  GS_FIELDCAT-FIELDNAME = &1.
  GS_FIELDCAT-COLTEXT = &2.
  APPEND GS_FIELDCAT TO GT_FIELDCAT.
END-OF-DEFINITION.


INITIALIZATION.
WA_TAB-BUKRS = 'TX'.
WA_TAB-NETPR = 1213.
WA_TAB-ODATE = 20170501.
APPEND WA_TAB TO ITAB.
WA_TAB-BUKRS = 'TX'.
WA_TAB-NETPR = 121.
WA_TAB-ODATE = 20170503.
APPEND WA_TAB TO ITAB.
WA_TAB-BUKRS = 'TX'.
WA_TAB-NETPR = 112.
WA_TAB-ODATE = 20170505.
APPEND WA_TAB TO ITAB.
WA_TAB-BUKRS = 'AX'.
WA_TAB-NETPR = 12154.
WA_TAB-ODATE = 20170501.
APPEND WA_TAB TO ITAB.
WA_TAB-BUKRS = 'AX'.
WA_TAB-NETPR = 1223.
WA_TAB-ODATE = 20170503.
APPEND WA_TAB TO ITAB.
WA_TAB-BUKRS = 'AX'.
WA_TAB-NETPR = 13.
WA_TAB-ODATE = 20170505.
APPEND WA_TAB TO ITAB.
WA_TAB-BUKRS = 'XX'.
WA_TAB-NETPR = 13.
WA_TAB-ODATE = 20170501.
APPEND WA_TAB TO ITAB.
WA_TAB-BUKRS = 'XX'.
WA_TAB-NETPR = 1213.
WA_TAB-ODATE = 20170503.
APPEND WA_TAB TO ITAB.
WA_TAB-BUKRS = 'XX'.
WA_TAB-NETPR = 3.
WA_TAB-ODATE = 20170505.
APPEND WA_TAB TO ITAB.
WA_TAB-BUKRS = 'ZX'.
WA_TAB-NETPR = 1213.
WA_TAB-ODATE = 20170501.
APPEND WA_TAB TO ITAB.
WA_TAB-BUKRS = 'ZX'.
WA_TAB-NETPR = 1223.
WA_TAB-ODATE = 20170503.
APPEND WA_TAB TO ITAB.
WA_TAB-BUKRS = 'ZX'.
WA_TAB-NETPR = 143.
WA_TAB-ODATE = 20170505.
APPEND WA_TAB TO ITAB.
WA_TAB-BUKRS = 'HX'.
WA_TAB-NETPR = 13.
WA_TAB-ODATE = 20170501.
APPEND WA_TAB TO ITAB.
WA_TAB-BUKRS = 'HX'.
WA_TAB-NETPR = 1213.
WA_TAB-ODATE = 20170503.
APPEND WA_TAB TO ITAB.
WA_TAB-BUKRS = 'HX'.
WA_TAB-NETPR = 113.
WA_TAB-ODATE = 20170505.
APPEND WA_TAB TO ITAB.

START-OF-SELECTION.

PERFORM DYNAMIC_INTERNAL_TABLE.

END-OF-SELECTION.
*&---------------------------------------------------------------------*
*&      FORM  GET_AND_PROCESS_DATA
*&---------------------------------------------------------------------*
*       TEXT
*----------------------------------------------------------------------*
*  -->  P1        TEXT
*  <--  P2        TEXT
*----------------------------------------------------------------------*
FORM DYNAMIC_INTERNAL_TABLE.


  SORT ITAB BY BUKRS ODATE .

  DATA TDATE LIKE SY-DATUM OCCURS 0 WITH HEADER LINE.

  LOOP AT ITAB.
    TDATE = ITAB-ODATE.
    COLLECT TDATE.
  ENDLOOP.

  DATA: DY_TABLE TYPE REF TO DATA,
        DY_WA TYPE REF TO DATA,
        IT_STR TYPE LVC_T_FCAT,  "是TABLE TYPE
        WA_STR TYPE LVC_S_FCAT.  "是一个STRUCTURE  用于存储即将构建的动态内表结构

  FIELD-SYMBOLS: <DYN_TABLE> TYPE TABLE,  "是一个标志，可以理解为一个指针，将来创建的内表就要通过它们来访问
  <DYN_WA> TYPE ANY,
  <FS> TYPE ANY.


  WA_STR-FIELDNAME = 'BUKRS'.
  WA_STR-COL_POS = 1.  " 表示第一列 --- 可省略，默认情况下，1对应到内表的第一列，如果指定，则按指定的列顺序生成内表
  WA_STR-INTTYPE = 'CHAR'. "数据类型
  WA_STR-INTLEN = 20.  "长度
  APPEND WA_STR TO IT_STR.
  CLEAR WA_STR.

  PERFORM INPUT_FIELDCAT  USING 'BUKRS' 'BUKRS'.
  LOOP AT TDATE.
    WA_STR-FIELDNAME = TDATE.
    WA_STR-COL_POS = 1.
    WA_STR-INTTYPE = 'CHAR'.
    WA_STR-INTLEN = 20.
    APPEND WA_STR TO IT_STR.
    CLEAR WA_STR.
     PERFORM INPUT_FIELDCAT  USING TDATE TDATE.
  ENDLOOP.

  CALL METHOD CL_ALV_TABLE_CREATE=>CREATE_DYNAMIC_TABLE
  EXPORTING
    IT_FIELDCATALOG = IT_STR
  IMPORTING
    EP_TABLE        = DY_TABLE.

  ASSIGN DY_TABLE->* TO <DYN_TABLE>.
  CREATE DATA DY_WA LIKE LINE OF <DYN_TABLE>.
  ASSIGN DY_WA->* TO <DYN_WA>.

  DATA FIELDNAME(20).

  LOOP AT ITAB.
    ASSIGN COMPONENT 'BUKRS' OF STRUCTURE <DYN_WA> TO <FS>.  "分配结构里的销售办事处，用FS字段 指向它
    <FS> = ITAB-BUKRS.
    FIELDNAME = ITAB-ODATE. "这里把日期类型定义为CHAR型，因为用DATS报错。
    ASSIGN COMPONENT FIELDNAME OF STRUCTURE <DYN_WA> TO <FS>. "分配结构的日期，将FS指向它
    <FS> = ITAB-NETPR.
    AT END OF BUKRS.
      APPEND <DYN_WA> TO <DYN_TABLE>.
    ENDAT.
  ENDLOOP.

  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY_LVC'
  EXPORTING
*   I_INTERFACE_CHECK                 = ' '
*   I_BYPASSING_BUFFER                =
*   I_BUFFER_ACTIVE                   =
    I_CALLBACK_PROGRAM                = SY-REPID
*    I_CALLBACK_PF_STATUS_SET         = ' '
*   I_CALLBACK_USER_COMMAND           = ' '
*   I_CALLBACK_TOP_OF_PAGE            = ' '
*   I_CALLBACK_HTML_TOP_OF_PAGE       = ' '
*   I_CALLBACK_HTML_END_OF_LIST       = ' '
*   I_STRUCTURE_NAME                  =
*   I_BACKGROUND_ID                   = ' '
    I_GRID_TITLE                      = 'TEST'
*   I_GRID_SETTINGS                   =
    IS_LAYOUT_LVC                     = GS_LAYOUT
    IT_FIELDCAT_LVC                   = GT_FIELDCAT
*   IT_EXCLUDING                      =
*   IT_SPECIAL_GROUPS_LVC             =
*   IT_SORT_LVC                       =
*   IT_FILTER_LVC                     =
*   IT_HYPERLINK                      =
*   IS_SEL_HIDE                       =
*   I_DEFAULT                         = 'X'
*   I_SAVE                            = ' '
*   IS_VARIANT                        =
*   IT_EVENTS                         =
*   IT_EVENT_EXIT                     =
*   IS_PRINT_LVC                      =
*   IS_REPREP_ID_LVC                  =
*   I_SCREEN_START_COLUMN             = 0
*   I_SCREEN_START_LINE               = 0
*   I_SCREEN_END_COLUMN               = 0
*   I_SCREEN_END_LINE                 = 0
*   I_HTML_HEIGHT_TOP                 =
*   I_HTML_HEIGHT_END                 =
*   IT_ALV_GRAPHICS                   =
*   IT_EXCEPT_QINFO_LVC               =
*   IR_SALV_FULLSCREEN_ADAPTER        =
* IMPORTING
*   E_EXIT_CAUSED_BY_CALLER           =
*   ES_EXIT_CAUSED_BY_USER            =
  TABLES
    T_OUTTAB                          = <DYN_TABLE>
* EXCEPTIONS
*   PROGRAM_ERROR                     = 1
*   OTHERS                            = 2
    .
  IF SY-SUBRC <> 0.
* IMPLEMENT SUITABLE ERROR HANDLING HERE
  ENDIF.

ENDFORM.

*&---------------------------------------------------------------------*
*&      FORM  INPUT_FIELDCAT
*&---------------------------------------------------------------------*
*       TEXT
*----------------------------------------------------------------------*
*      -->P_TDATE  TEXT
*      -->P_TDATE  TEXT
*----------------------------------------------------------------------*
FORM INPUT_FIELDCAT  USING    P_TDATE1
                              P_TDATE2.
  ADD_FIELD P_TDATE1 P_TDATE2.

ENDFORM.