DBC上传模板增加按钮

*&---------------------------------------------------------------------*
*& Report  Z100
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT Z100 MESSAGE-ID ZHQ NO STANDARD PAGE HEADING.


TABLES SSCRFIELDS.

SELECTION-SCREEN FUNCTION KEY 1.
SELECTION-SCREEN FUNCTION KEY 2.
SELECTION-SCREEN FUNCTION KEY 3.

PARAMETERS P_FILE TYPE RLGRAP-FILENAME OBLIGATORY.

INITIALIZATION.

  TYPE-POOLS ICON.  "第一种方法:引入图标
  SSCRFIELDS-FUNCTXT_01 = '@3N@下载模板'.

  WRITE ICON_ICON_LIST AS ICON TO SSCRFIELDS-FUNCTXT_02+0(4).
  SSCRFIELDS-FUNCTXT_02+4(*) = '发起OA流程审批'.

  WRITE ICON_BIW_INFO_CATALOG AS ICON TO SSCRFIELDS-FUNCTXT_03+0(4).
  SSCRFIELDS-FUNCTXT_03+4(*) = '下载报表'.


AT SELECTION-SCREEN.
  DATA UCOMM TYPE SYUCOMM.
  UCOMM = SSCRFIELDS-UCOMM.

      MESSAGE S000 WITH UCOMM DISPLAY LIKE 'E'.

  IF UCOMM = 'FC01'.
      MESSAGE '开始下载导入模板...' TYPE 'I'.
  ENDIF.




START-OF-SELECTION.
MESSAGE '导入成功' TYPE 'I'.


END-OF-SELECTION.