*&---------------------------------------------------------------------*
*& Report ZTEST
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*
REPORT z_barry_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.
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
评论