ABAP 上传、下载请求文件

时间：2015-06-09 17:33:36 阅读：210 评论：0 收藏：0 [点我收藏+]

标签：abap 上传下载请求号 abap上传请求文件 abap下载请求文件 sap上传请求文件 sap 下载请求文件

*&---------------------------------------------------------------------*
*& REPORT  Z_UP_DOWN_REQUEST
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT  Z_UP_DOWN_REQUEST.

TYPE-POOLS: TRWBO, STMS.
DATA:
    ES_SELECTED_REQUEST TYPE TRWBO_REQUEST_HEADER,
    ES_SELECTED_TASK TYPE TRWBO_REQUEST_HEADER,
    IV_ORGANIZER_TYPE TYPE TRWBO_CALLING_ORGANIZER,
    IS_SELECTION TYPE TRWBO_SELECTION.
DATA: FOLDER TYPE STRING ,
      FLAG TYPE C        ,
      DIR_TRANS TYPE TEXT255  ,
      PATH2 TYPE TEXT255 ,
      LOCALFOLDER(128) TYPE C ,
      UPFILENAME(11) TYPE C.
DATA:
  LT_REQUEST TYPE STMS_TR_REQUESTS,
  LT_TP_MAINTAIN TYPE STMS_TP_MAINTAINS.
DATA:
  ET_REQUEST_INFOS TYPE STMS_WBO_REQUESTS,
  REQUEST_INFO TYPE STMS_WBO_REQUEST,
  REQUEST LIKE E070-TRKORR.
DATA: BEGIN OF IT_MEMO OCCURS 0 ,
        LINE(255) TYPE C,
      END OF IT_MEMO.
DATA: ERROR LIKE BOOLE-BOOLE ,
      ERR_TXT(100) TYPE C .

SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE T1.
PARAMETERS: DOWNLOAD RADIOBUTTON GROUP TYP USER-COMMAND SELE DEFAULT ‘X‘.
PARAMETERS: UPLOAD RADIOBUTTON GROUP TYP.
SELECTION-SCREEN END OF BLOCK B1.
SELECTION-SCREEN BEGIN OF BLOCK B2 WITH FRAME TITLE T2.
PARAMETERS:  P_FILE(255) TYPE C LOWER CASE MODIF ID M2,
             P_CLIENT LIKE TMSBUFFER-TARCLI DEFAULT SY-MANDT
                           MATCHCODE OBJECT H_T000 MODIF ID M2.
SELECTION-SCREEN END OF BLOCK B2.
SELECTION-SCREEN BEGIN OF BLOCK B3 WITH FRAME TITLE T3.
PARAMETERS:P_REQNUM TYPE TRKORR MODIF ID M3,
           P_FOLDER LIKE RLGRAP-FILENAME DEFAULT ‘C:\‘ LOWER CASE MODIF ID M3 ,
           P_MEMO(255) TYPE C MODIF ID M3.
SELECTION-SCREEN END OF BLOCK B3.
INITIALIZATION.
  T1 = ‘选择功能‘.
  T2 = ‘上传参数‘.
  T3 = ‘下载参数‘.
  IF SY-OPSYS = ‘WINDOWS NT‘.
    FLAG = ‘\‘.
  ELSE.
    FLAG = ‘/‘.
  ENDIF.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_REQNUM.
  IV_ORGANIZER_TYPE = ‘W‘.
  IS_SELECTION-REQSTATUS = ‘R‘.
  CALL FUNCTION ‘TR_PRESENT_REQUESTS_SEL_POPUP‘
    EXPORTING
      IV_ORGANIZER_TYPE   = IV_ORGANIZER_TYPE
      IS_SELECTION        = IS_SELECTION
    IMPORTING
      ES_SELECTED_REQUEST = ES_SELECTED_REQUEST
      ES_SELECTED_TASK    = ES_SELECTED_TASK.
  P_REQNUM = ES_SELECTED_REQUEST-TRKORR.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_FOLDER.
  CALL METHOD CL_GUI_FRONTEND_SERVICES=>DIRECTORY_BROWSE
    CHANGING
      SELECTED_FOLDER = FOLDER
    EXCEPTIONS
      CNTL_ERROR      = 1
      ERROR_NO_GUI    = 2
      OTHERS          = 3.
  P_FOLDER = FOLDER.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_FILE.
  DATA:
    FILE TYPE FILE_TABLE,
    RC TYPE I,
    FILE_TABLE TYPE FILETABLE,
    FILE_FILTER TYPE STRING VALUE ‘(K*.*)|K*.*||‘.
  CALL METHOD CL_GUI_FRONTEND_SERVICES=>FILE_OPEN_DIALOG
    EXPORTING
      FILE_FILTER             = FILE_FILTER
    CHANGING
      FILE_TABLE              = FILE_TABLE
      RC                      = RC
    EXCEPTIONS
      FILE_OPEN_DIALOG_FAILED = 1
      CNTL_ERROR              = 2
      ERROR_NO_GUI            = 3
      NOT_SUPPORTED_BY_GUI    = 4
      OTHERS                  = 5.
  IF SY-SUBRC <> 0.
    MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
    WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.
  READ TABLE FILE_TABLE INTO FILE INDEX 1.
  P_FILE = FILE.
AT SELECTION-SCREEN OUTPUT.
  LOOP AT SCREEN.
    CASE SCREEN-GROUP1.
      WHEN ‘M2‘.
        IF DOWNLOAD = ‘X‘.
          SCREEN-ACTIVE = ‘0‘.
        ELSE.
          SCREEN-ACTIVE = ‘1‘.
        ENDIF.
      WHEN ‘M3‘.
        IF DOWNLOAD = ‘X‘.
          SCREEN-ACTIVE = ‘1‘.
        ELSE.
          SCREEN-ACTIVE = ‘0‘.
        ENDIF.
    ENDCASE.
    MODIFY SCREEN.
  ENDLOOP.
START-OF-SELECTION.
  CALL FUNCTION ‘RSPO_R_SAPGPARAM‘
    EXPORTING
      NAME   = ‘DIR_TRANS‘
    IMPORTING
      VALUE  = DIR_TRANS
    EXCEPTIONS
      ERROR  = 0
      OTHERS = 0.
  IF DOWNLOAD = ‘X‘.
    IF P_REQNUM = ‘‘ OR P_FOLDER = ‘‘.
      MESSAGE ‘必须输入请求号和地址‘ TYPE ‘I‘.
      EXIT.
    ENDIF.
    PERFORM DOWNLOADREQUEST.
  ELSE.
    IF P_CLIENT = ‘‘ OR P_FILE = ‘‘ .
      MESSAGE ‘必须输入文件名和CLIENT‘ TYPE ‘I‘.
      EXIT.
    ENDIF.
    PERFORM UPLOADREQUEST.
    PERFORM ADDREQUEST.
  ENDIF.
*&---------------------------------------------------------------------*
*&      FORM  DOWNLOADREQUEST
*&---------------------------------------------------------------------*
FORM DOWNLOADREQUEST .
  CONCATENATE P_REQNUM+3(7) ‘.‘ P_REQNUM(3) INTO P_REQNUM.
  CONCATENATE DIR_TRANS ‘COFILES‘ P_REQNUM INTO PATH2 SEPARATED BY FLAG.
  CONCATENATE P_FOLDER ‘\‘ P_REQNUM INTO LOCALFOLDER.
  PERFORM DOWN_FILE USING PATH2
                          LOCALFOLDER .
  P_REQNUM(1) = ‘R‘.
  CONCATENATE DIR_TRANS ‘DATA‘ P_REQNUM INTO PATH2 SEPARATED BY FLAG.
  CONCATENATE P_FOLDER ‘\‘ P_REQNUM INTO LOCALFOLDER.
  PERFORM DOWN_FILE USING PATH2
                          LOCALFOLDER .
  IF P_MEMO <> ‘‘.
    DATA STR TYPE STRING.
    IT_MEMO-LINE = P_MEMO.
    APPEND IT_MEMO.
    P_REQNUM(1) = ‘K‘.
    P_REQNUM+8(3) = ‘TXT‘.
    CONCATENATE P_FOLDER ‘\‘ P_REQNUM INTO LOCALFOLDER.
    STR = LOCALFOLDER .
    CALL FUNCTION ‘GUI_DOWNLOAD‘
      EXPORTING
        FILENAME = STR
      TABLES
        DATA_TAB = IT_MEMO.
  ENDIF.
  MESSAGE ‘成功下载!‘ TYPE ‘I‘.
ENDFORM.                    " DOWNLOADREQUEST
*&--------------------------------------------------------------------*
*&      FORM  DOWN_FILE
*&--------------------------------------------------------------------*
FORM DOWN_FILE USING    P_PATH
                        FILE_NAME .
  DATA: PATH LIKE RCGFILETR-FTAPPL .
  DATA: LOCALFILE LIKE RCGFILETR-FTFRONT.
  PATH = P_PATH .
  LOCALFILE = FILE_NAME .
  CLEAR:ERROR,ERR_TXT.
  CALL FUNCTION ‘C13Z_FILE_DOWNLOAD_BINARY‘
    EXPORTING
      I_FILE_FRONT_END    = LOCALFILE
      I_FILE_APPL         = PATH
      I_FILE_OVERWRITE    = ‘X‘
    IMPORTING
      E_FLG_OPEN_ERROR    = ERROR
      E_OS_MESSAGE        = ERR_TXT
    EXCEPTIONS
      FE_FILE_OPEN_ERROR  = 1
      FE_FILE_EXISTS      = 2
      FE_FILE_WRITE_ERROR = 3
      AP_NO_AUTHORITY     = 4
      AP_FILE_OPEN_ERROR  = 5
      AP_FILE_EMPTY       = 6
      OTHERS              = 7.
  IF SY-SUBRC <> 0.
    IF SY-MSGTY = ‘‘ .
      SY-MSGTY = ‘E‘ .
    ENDIF .
    MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
            WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.
  IF ERROR = ‘X‘.
    MESSAGE ERR_TXT TYPE ‘I‘.
    STOP.
  ENDIF.
ENDFORM.                               " DOWN_FILE
*&--------------------------------------------------------------------*
*&      FORM  UP_FILE
*&--------------------------------------------------------------------*
FORM UP_FILE USING      P_PATH
                        FILE_NAME .
  DATA: PATH LIKE RCGFILETR-FTAPPL .
  DATA: LOCALFILE LIKE RCGFILETR-FTFRONT.
  PATH = P_PATH .
  LOCALFILE = FILE_NAME .
  CLEAR:ERROR,ERR_TXT.

  SY-CPROG = ‘RC1TCG3Y‘.
  CALL FUNCTION ‘C13Z_FILE_UPLOAD_BINARY‘
    EXPORTING
      I_FILE_FRONT_END   = LOCALFILE
      I_FILE_APPL        = PATH
      I_FILE_OVERWRITE   = ‘X‘
    IMPORTING
      E_FLG_OPEN_ERROR   = ERROR
      E_OS_MESSAGE       = ERR_TXT
    EXCEPTIONS
      FE_FILE_NOT_EXISTS = 1
      FE_FILE_READ_ERROR = 2
      AP_NO_AUTHORITY    = 3
      AP_FILE_OPEN_ERROR = 4
      AP_FILE_EXISTS     = 5
      OTHERS             = 6.
  IF SY-SUBRC <> 0.
    IF SY-MSGTY = ‘‘ .
      SY-MSGTY = ‘E‘ .
    ENDIF .
    MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
            WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.
  IF ERROR = ‘X‘.
    MESSAGE ERR_TXT TYPE ‘I‘.
    STOP.
  ENDIF.
*  IF SY-SUBRC <> 0.
*    CASE SY-SUBRC  .
*      WHEN 1 .
*        MESSAGE ‘本地文件不存在！‘ TYPE ‘I‘ .
*      WHEN 2 .
*        MESSAGE ‘读取本地文件出错！‘ TYPE ‘I‘ .
*      WHEN 3 .
*        MESSAGE ‘服务器权限错误！‘ TYPE ‘I‘ .
*      WHEN 4 .
*        MESSAGE ‘服务器文件打开错误！‘ TYPE ‘I‘ .
*      WHEN 5 .
*        MESSAGE ‘服务器文件已经存在！‘ TYPE ‘I‘ .
*      WHEN 6 .
*        MESSAGE ‘其他错误！‘ TYPE ‘I‘ .
*    ENDCASE .
*  ENDIF.
ENDFORM.                    "UP_FILE
*&---------------------------------------------------------------------*
*&      FORM  UPLOADREQUEST
*&---------------------------------------------------------------------*
FORM UPLOADREQUEST .
  DATA:
      FILENAME LIKE SDBAH-ACTID ,
      EXTENSION LIKE SDBAD-FUNCT,
      N TYPE I ,
      M TYPE I .
  CALL FUNCTION ‘SPLIT_FILENAME‘
    EXPORTING
      LONG_FILENAME  = P_FILE
    IMPORTING
      PURE_FILENAME  = FILENAME
      PURE_EXTENSION = EXTENSION.
  CONCATENATE FILENAME ‘.‘ EXTENSION INTO UPFILENAME .
  CONCATENATE EXTENSION FILENAME INTO REQUEST.
  CONCATENATE DIR_TRANS ‘COFILES‘ UPFILENAME INTO PATH2 SEPARATED BY FLAG.
  PERFORM UP_FILE USING PATH2
                        P_FILE .
  UPFILENAME(1) = ‘R‘.
  CONCATENATE DIR_TRANS ‘DATA‘ UPFILENAME INTO PATH2 SEPARATED BY FLAG.
  N = STRLEN( P_FILE ).
  M = N - 11 .
  P_FILE+M(1) = ‘R‘.
  PERFORM UP_FILE USING PATH2
                        P_FILE .
ENDFORM.                    " UPLOADREQUEST
*&---------------------------------------------------------------------*
*&      FORM  ADDREQUEST
*&---------------------------------------------------------------------*
FORM ADDREQUEST .
  DATA SYSTEM LIKE TMSCSYS-SYSNAM .
  SYSTEM = SY-SYSID.
  CALL FUNCTION ‘TR_AUTHORITY_CHECK_ADMIN‘
    EXPORTING
      IV_ADMINFUNCTION = ‘TADD‘
    EXCEPTIONS
      E_NO_AUTHORITY   = 1
      E_INVALID_USER   = 2
      OTHERS           = 3.
  IF SY-SUBRC <> 0.
    MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
    WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
    EXIT.
  ENDIF.
  CALL FUNCTION ‘TMS_UI_APPEND_TR_REQUEST‘
    EXPORTING
      IV_SYSTEM             = SYSTEM
      IV_REQUEST            = REQUEST
      IV_EXPERT_MODE        = ‘X‘
      IV_CTC_ACTIVE         = ‘X‘
    EXCEPTIONS
      CANCELLED_BY_USER     = 1
      APPEND_REQUEST_FAILED = 2
      OTHERS                = 3.
  CHECK SY-SUBRC = 0.
  CALL FUNCTION ‘TMS_MGR_READ_TRANSPORT_REQUEST‘
    EXPORTING
      IV_REQUEST                 = REQUEST
      IV_TARGET_SYSTEM           = SYSTEM
    IMPORTING
      ET_REQUEST_INFOS           = ET_REQUEST_INFOS
    EXCEPTIONS
      READ_CONFIG_FAILED         = 1
      TABLE_OF_REQUESTS_IS_EMPTY = 2
      SYSTEM_NOT_AVAILABLE       = 3
      OTHERS                     = 4.
  CLEAR REQUEST_INFO.
  READ TABLE ET_REQUEST_INFOS INTO REQUEST_INFO INDEX 1.
  IF REQUEST_INFO-E070-KORRDEV = ‘CUST‘ AND NOT P_CLIENT IS INITIAL.
    CALL FUNCTION ‘TMS_MGR_MAINTAIN_TR_QUEUE‘
      EXPORTING
        IV_COMMAND                 = ‘FILLCLIENT‘
        IV_SYSTEM                  = SYSTEM
        IV_REQUEST                 = REQUEST
        IV_TARCLI                  = P_CLIENT
        IV_MONITOR                 = ‘X‘
        IV_VERBOSE                 = ‘X‘
      IMPORTING
        ET_TP_MAINTAINS            = LT_TP_MAINTAIN
      EXCEPTIONS
        READ_CONFIG_FAILED         = 1
        TABLE_OF_REQUESTS_IS_EMPTY = 2
        OTHERS                     = 3.
    IF SY-SUBRC <> 0.
      MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
      WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
      EXIT.
    ENDIF.
  ENDIF.
  CALL FUNCTION ‘TR_AUTHORITY_CHECK_ADMIN‘
    EXPORTING
      IV_ADMINFUNCTION = ‘IMPS‘
    EXCEPTIONS
      E_NO_AUTHORITY   = 1
      E_INVALID_USER   = 2
      OTHERS           = 3.
  IF SY-SUBRC <> 0.
    MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
    WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
    EXIT.
  ENDIF.
  CALL FUNCTION ‘TMS_UI_IMPORT_TR_REQUEST‘
    EXPORTING
      IV_SYSTEM             = SYSTEM
      IV_REQUEST            = REQUEST
      IV_TARCLI             = P_CLIENT
      IV_SOME_ACTIVE        = SPACE
    EXCEPTIONS
      CANCELLED_BY_USER     = 1
      IMPORT_REQUEST_DENIED = 2
      IMPORT_REQUEST_FAILED = 3
      OTHERS                = 4.
ENDFORM.                    " ADDREQUEST

ABAP 上传、下载请求文件

标签：abap 上传下载请求号 abap上传请求文件 abap下载请求文件 sap上传请求文件 sap 下载请求文件

原文地址：http://blog.csdn.net/champaignwolf/article/details/46426077

踩

(0)

评论一句话评论（0）

分享档案

更多>

2021年07月29日 (22)
2021年07月28日 (40)
2021年07月27日 (32)
2021年07月26日 (79)
2021年07月23日 (29)
2021年07月22日 (30)
2021年07月21日 (42)
2021年07月20日 (16)
2021年07月19日 (90)
2021年07月16日 (35)

周排行