*&---------------------------------------------------------------------* *& 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.