ALV-表头数据

例图.png

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
   EXPORTING
     I_CALLBACK_PROGRAM                = I_REPID
    I_CALLBACK_PF_STATUS_SET          = 'SET_PF_STATUS'
    I_CALLBACK_USER_COMMAND           = 'USER_COMMAND'
   I_CALLBACK_TOP_OF_PAGE            = 'F_TOP_OF_PAGE'  "表头数据
     IS_LAYOUT                         = GS_LA
     IT_FIELDCAT                       = GT_F[]
   IT_SORT                           = I_SORT
     I_SAVE                            = 'A'
    TABLES
      T_OUTTAB                          = GT_X
   EXCEPTIONS
     PROGRAM_ERROR                     = 1
     OTHERS                            = 2.```

DATA: LT_LISTHEADER TYPE SLIS_T_LISTHEADER,
LS_LISTHEADER LIKE LINE OF LT_LISTHEADER.
LS_LISTHEADER-TYP = 'H'.
LS_LISTHEADER-INFO = '供应商收货清单报表'.
APPEND LS_LISTHEADER TO LT_LISTHEADER.
LS_LISTHEADER-TYP = 'S'.
DATA S TYPE STRING.
S = GT_X-NAME2.
CONCATENATE '工厂：' S INTO LS_LISTHEADER-INFO.
APPEND LS_LISTHEADER TO LT_LISTHEADER.
LS_LISTHEADER-TYP = 'A'.
DATA A TYPE STRING.
CONCATENATE S_BUDAT-LOW'-' S_BUDAT-HIGH INTO A.
CONCATENATE '期间：' A INTO LS_LISTHEADER-INFO.
APPEND LS_LISTHEADER TO LT_LISTHEADER.
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE' "添加图片
EXPORTING
I_LOGO = 'ENJOYSAP_LOGO'
IT_LIST_COMMENTARY = LT_LISTHEADER.```