自写ABAP程序-设置ALV及LIST等的下载默认路径.doc

自写ABAP程序设置ALV及LIST等的下载默认路径HKEY_CURRENT_USERSoftwareSAPSAPGUI FrontSAP Frontend ServerFiletransfer另外，HKEY_CURRENT_USERSoftwareSAPSAPGUI FrontSAP Frontend ServerCode下面放的是最近执行的TCODE，即命令栏Comobox里面的REPORT z_barry_regedit.PARAMETERS : p1(150) TYPE c OBLIGATORY , p2(150) TYPE c OBLIGATORY , p3(150) TYPE c OBLIGATORY .DATA:pstr TYPE string , rc TYPE i , rcc TYPE c , ans TYPE c .INITIALIZATION. PERFORM get_reg.AT SELECTION-SCREEN ON VALUE-REQUEST FOR p1. PERFORM get_path_f4 USING p1.AT SELECTION-SCREEN ON VALUE-REQUEST FOR p2. PERFORM get_path_f4 USING p2.AT SELECTION-SCREEN ON VALUE-REQUEST FOR p3. PERFORM get_path_f4 USING p3.AT SELECTION-SCREEN. PERFORM check_directory_exist USING p1 rcc . IF rcc = . MESSAGE e000(oo) WITH Path路径不存在！. ENDIF. PERFORM check_directory_exist USING p2 rcc . IF rcc = . MESSAGE e000(oo) WITH PathDownload路径不存在！. ENDIF. PERFORM check_directory_exist USING p3 rcc . IF rcc = . MESSAGE e000(oo) WITH PathUpload路径不存在！. ENDIF.START-OF-SELECTION. CALL FUNCTION POPUP_TO_CONFIRM EXPORTING titlebar = 确认更新 text_question = 确认更新数据？ IMPORTING answer = ans. IF ans 1 . LEAVE PROGRAM . ENDIF . PERFORM set_reg.*&-*& Form get_path*&-*FORM get_path_f4 USING para . CALL METHOD cl_gui_frontend_services=directory_browse EXPORTING window_title = File Directory initial_folder = C: CHANGING selected_folder = pstr. CALL METHOD cl_gui_cfw=flush. para = pstr .ENDFORM. get_path*&-*& Form check_DIRECTORY_EXIST*&-*FORM check_directory_exist USING p result . pstr = p. CALL METHOD cl_gui_frontend_services=directory_exist EXPORTING directory = pstr RECEIVING result = result.ENDFORM. check_DIRECTORY_EXIST*&-*& Form get_reg*&-*FORM get_reg. CALL METHOD cl_gui_frontend_services=registry_get_value EXPORTING root = cl_gui_frontend_services=hkey_current_user key = SoftwareSAPSAPGUI FrontSAP Frontend ServerFiletransfer value = Path IMPORTING reg_value = pstr. p1 = pstr. CLEAR pstr. CALL METHOD cl_gui_frontend_services=registry_get_value EXPORTING root = cl_gui_frontend_services=hkey_current_user key = SoftwareSAPSAPGUI FrontSAP Frontend ServerFiletransfer value = PathDownload IMPORTING reg_value = pstr. p2 = pstr. CLEAR pstr. CALL METHOD cl_gui_frontend_services=registry_get_value EXPORTING root = cl_gui_frontend_services=hkey_current_user key = SoftwareSAPSAPGUI FrontSAP Frontend ServerFiletransfer value = PathUpload IMPORTING reg_value = pstr. CALL METHOD cl_gui_cfw=flush. p3 = pstr.ENDFORM. get_reg*&-*& Form set_reg*&-*FORM set_reg . CLEAR pstr. pstr = p1 . CALL METHOD cl_gui_frontend_services=registry_set_value EXPORTING root = cl_gui_frontend_services=hkey_current_user key = SoftwareSAPSAPGUI FrontSAP Frontend ServerFiletransfer value_name = Path value = pstr IMPORTING rc = rc. CLEAR pstr. pstr = p2 . CALL METHOD cl_gui_frontend_services=registry_set_value EXPORTING root = cl_gui_frontend_services=hkey_current_user key = SoftwareSAPSAPGUI FrontSAP Frontend ServerFiletransfer value_name = PathDownload value = pstr IMPORTING rc = rc. CLEAR pstr. pstr = p3 . CALL METHOD cl_gui_frontend_services=registry_set_value EXPORTING root = cl_gui_frontend_services=hkey_current_user