*&---------------------------------------------------------------------* *& Report Z016 *& *&---------------------------------------------------------------------* *& *& 上传TXT文件 *&---------------------------------------------------------------------* REPORT Z016 MESSAGE-ID ZHQ NO STANDARD PAGE HEADING. TYPES:BEGIN OF MATERIAL, ID TYPE CHAR10, NAME TYPE CHAR50, END OF MATERIAL. DATA GT_MATERIAL TYPE TABLE OF MATERIAL WITH HEADER LINE. PARAMETERS P_FILE TYPE RLGRAP-FILENAME OBLIGATORY. AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_FILE. CALL FUNCTION 'WS_FILENAME_GET' EXPORTING MASK = ',txt,*.txt,' MODE = 'O' TITLE = '我的物料' IMPORTING FILENAME = P_FILE EXCEPTIONS INV_WINSYS = 1 NO_BATCH = 2 SELECTION_CANCEL = 3 SELECTION_ERROR = 4 OTHERS = 5. START-OF-SELECTION. DATA TEMP_FILE TYPE STRING. TEMP_FILE = P_FILE. CALL FUNCTION 'GUI_UPLOAD' EXPORTING FILENAME = TEMP_FILE * FILETYPE = 'ASC' HAS_FIELD_SEPARATOR = 'X' * HEADER_LENGTH = 0 * READ_BY_LINE = 'X' * DAT_MODE = ' ' * CODEPAGE = ' ' * IGNORE_CERR = ABAP_TRUE * REPLACEMENT = '#' * CHECK_BOM = ' ' * VIRUS_SCAN_PROFILE = * NO_AUTH_CHECK = ' ' * IMPORTING * FILELENGTH = * HEADER = TABLES DATA_TAB = GT_MATERIAL * CHANGING * ISSCANPERFORMED = ' ' * EXCEPTIONS * FILE_OPEN_ERROR = 1 * FILE_READ_ERROR = 2 * NO_BATCH = 3 * GUI_REFUSE_FILETRANSFER = 4 * INVALID_TYPE = 5 * NO_AUTHORITY = 6 * UNKNOWN_ERROR = 7 * BAD_DATA_FORMAT = 8 * HEADER_NOT_ALLOWED = 9 * SEPARATOR_NOT_ALLOWED = 10 * HEADER_TOO_LONG = 11 * UNKNOWN_DP_ERROR = 12 * ACCESS_DENIED = 13 * DP_OUT_OF_MEMORY = 14 * DISK_FULL = 15 * DP_TIMEOUT = 16 * OTHERS = 17 . END-OF-SELECTION. DATA LEN TYPE I. DESCRIBE TABLE GT_MATERIAL LINES LEN. IF LEN > 0. LOOP AT GT_MATERIAL. WRITE : / GT_MATERIAL-ID,'---->',GT_MATERIAL-NAME. ENDLOOP. ELSE. DATA MESSAGE TYPE STRING. CONCATENATE P_FILE '-好像没有找到数据' INTO MESSAGE SEPARATED BY ''. MESSAGE S000 WITH MESSAGE DISPLAY LIKE 'E'. ENDIF.