关闭

上传下载文件 .

284人阅读 评论(0) 收藏 举报
分类:
  1. *&---------------------------------------------------------------------*  
  2. *&  包括                ZUPLOAD_DOWNLOAD  
  3. *&---------------------------------------------------------------------*  
  4. *&---------------------------------------------------------------------*  
  5. *&      Form  ws_filename_get  
  6. *&---------------------------------------------------------------------*  
  7. FORM WS_FILENAME_GET USING  P_FILE.  
  8.   CALL FUNCTION 'WS_FILENAME_GET'  
  9.     EXPORTING  
  10.       DEF_FILENAME     = '*.txt'  
  11.       DEF_PATH         = 'C:\'  
  12.       MASK             = ',*.txt.'  
  13.       MODE             = 'O'  
  14.       TITLE            = TEXT-004  
  15.     IMPORTING  
  16.       FILENAME         = P_FILE  
  17.     EXCEPTIONS  
  18.       INV_WINSYS       = 1  
  19.       NO_BATCH         = 2  
  20.       SELECTION_CANCEL = 3  
  21.       SELECTION_ERROR  = 4  
  22.       OTHERS           = 5.  
  23. ENDFORM.                    " ws_filename_get  
  24. *&---------------------------------------------------------------------*  
  25. *&      Form  UPLOAD_FILE  
  26. *&---------------------------------------------------------------------*  
  27. FORM UPLOAD_FILE  TABLES IT_UPLOAD  
  28.                   USING P_FILE.  
  29.   DATA: FSIZEIN  TYPE I,  
  30.         W_REJECT TYPE I,  
  31.         IJIR     TYPE I VALUE 0,  
  32.         W_TYPE   LIKE DD01V-DATATYPE.  
  33.   DATA: P_TYPE LIKE RLGRAP-FILETYPE VALUE 'DAT'.  
  34. *-- Upload the Main Material Master file using Function 'WS_UPLOAD'  
  35.   CALL FUNCTION 'WS_UPLOAD'  
  36.     EXPORTING  
  37.       FILENAME            = P_FILE  
  38.       FILETYPE            = P_TYPE  
  39.     IMPORTING  
  40.       FILELENGTH          = FSIZEIN  
  41.     TABLES  
  42.       DATA_TAB            = IT_UPLOAD  
  43.     EXCEPTIONS  
  44.       CONVERSION_ERROR    = 1  
  45.       FILE_OPEN_ERROR     = 2  
  46.       FILE_READ_ERROR     = 3  
  47.       INVALID_TABLE_WIDTH = 4  
  48.       INVALID_TYPE        = 5  
  49.       NO_BATCH            = 6  
  50.       UNKNOWN_ERROR       = 7  
  51.       OTHERS              = 8.  
  52. *-- If error, display the necessary Error Message.  
  53.   CASE SY-SUBRC.  
  54.     WHEN 1. PERFORM MSG USING '转换错误' 'E'.  
  55.     WHEN 2. PERFORM MSG USING '文件打开错误' 'E'.  
  56.     WHEN 3. PERFORM MSG USING '文件读取错误' 'E'.  
  57.     WHEN 4. PERFORM MSG USING '表宽不对' 'E'.  
  58.     WHEN 5. PERFORM MSG USING '文件类型不对' 'E'.  
  59.     WHEN 6. PERFORM MSG USING '不是批处理' 'E'.  
  60.     WHEN 7. PERFORM MSG USING '不知名的错误' 'E'.  
  61.     WHEN 8. PERFORM MSG USING '其他错误' 'E'.  
  62.   ENDCASE.  
  63.   DELETE IT_UPLOAD INDEX 1.  
  64.   IF IT_UPLOAD[] IS INITIAL.  
  65.     MESSAGE E315 WITH '上载文件错误,请检查'.  
  66.     STOP.  
  67.   ENDIF.  
  68. ENDFORM.                    " UPLOAD_FILE  
  69.   
  70. *&---------------------------------------------------------------------*  
  71. *&      Form  MSG  
  72. *&---------------------------------------------------------------------*  
  73. *       text  
  74. *----------------------------------------------------------------------*  
  75. *      -->MSGTXT     text  
  76. *      -->MSGTYPE    text  
  77. *----------------------------------------------------------------------*  
  78. FORM MSG USING MSGTXT MSGTYPE.  
  79.   CASE MSGTYPE.  
  80.     WHEN 'E'.  MESSAGE E315 WITH MSGTXT.  
  81.     WHEN 'I'.  MESSAGE I315 WITH MSGTXT.  
  82.     WHEN 'S'.  MESSAGE S315 WITH MSGTXT.  
  83.     WHEN 'W'.  MESSAGE W315 WITH MSGTXT.  
  84.     WHEN 'A'.  MESSAGE A315 WITH MSGTXT.  
  85.   ENDCASE.  
  86. ENDFORM.                    "MSG  
  87. *&---------------------------------------------------------------------*  
  88. *&      Form  DOWN_LOAD  
  89. *&---------------------------------------------------------------------*  
  90. FORM DOWN_LOAD  TABLES IT_ERROR  
  91.                 USING  P_DOWN.  
  92.   CONCATENATE P_DOWN '_' SY-DATUM '_' SY-UZEIT '.txt'  
  93.     INTO P_DOWN.  
  94.   CONDENSE P_DOWN.  
  95.   CALL FUNCTION 'WS_DOWNLOAD'  
  96.     EXPORTING  
  97.       FILENAME            = P_DOWN  
  98.       FILETYPE            = 'DAT'  
  99.     TABLES  
  100.       DATA_TAB            = IT_ERROR  
  101.     EXCEPTIONS  
  102.       CONVERSION_ERROR    = 1  
  103.       FILE_OPEN_ERROR     = 2  
  104.       FILE_READ_ERROR     = 3  
  105.       INVALID_TABLE_WIDTH = 4  
  106.       INVALID_TYPE        = 5  
  107.       NO_BATCH            = 6  
  108.       UNKNOWN_ERROR       = 7  
  109.       OTHERS              = 8.  
  110.   IF SY-SUBRC = 0.  
  111.     MESSAGE I999 WITH TEXT-S01 P_DOWN.  
  112.     STOP.  
  113.   ENDIF.  
  114. ENDFORM.                    " DOWN_LOAD  
0
0

查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    个人资料
    • 访问:16469次
    • 积分:383
    • 等级:
    • 排名:千里之外
    • 原创:20篇
    • 转载:11篇
    • 译文:0篇
    • 评论:0条