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

《自写ABAP程序-设置ALV及LIST等的下载默认路径》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、自写ABAP程序－设置ALV及LIST等的下载默认路径 HKEY_CURRENT_USERSoftwareSAPSAPGUIFrontSAPFrontendServerFiletransfer 另外，HKEY_CURRENT_USERSoftwareSAPSAPGUIFrontSAPFrontendServerCode下面放的是最近执行的TCODE，即命令栏Comobox里面的  REPORT z_barry_regedit. PARAMETERS:p1(150)TYPEcOBLIGATORY,            

2、p2(150)TYPEcOBLIGATORY,            p3(150)TYPEcOBLIGATORY.DATA:pstrTYPEstring,    rcTYPEi,rccTYPEc,    ansTYPEc. INITIALIZATION. PERFORMget_reg. ATSELECTION-SCREENONVALUE-REQUESTFORp1. PERFORMget_path_f4USINGp1. ATSELECTION-SCREENONVALUE-REQUESTFORp2. PERFORMget_path_f4US

3、INGp2. ATSELECTION-SCREENONVALUE-REQUESTFORp3. PERFORMget_path_f4USINGp3. ATSELECTION-SCREEN. PERFORMcheck_directory_existUSINGp1rcc. IFrcc=''.   MESSAGEe000(oo)WITH'Path路径不存在！'. ENDIF. PERFORMcheck_directory_existUSINGp2rcc. IFrcc=''.   MESSAGEe000(oo)WITH'PathDownload路径

4、不存在！'. ENDIF. PERFORMcheck_directory_existUSINGp3rcc. IFrcc=''.   MESSAGEe000(oo)WITH'PathUpload路径不存在！'. ENDIF. START-OF-SELECTION. CALLFUNCTION'POPUP_TO_CONFIRM'   EXPORTING     titlebar     ='确认更新'     text_question='确认更新数据？'   IMPORTING     answer       =ans. IFans<>'1

5、' .   LEAVEPROGRAM. ENDIF. PERFORMset_reg. *&---------------------------------------------------------------------**&     Form get_path*&---------------------------------------------------------------------*FORMget_path_f4USINGpara. CALLMETHODcl_gui_frontend_services=>dir

6、ectory_browse   EXPORTING     window_title   ='FileDirectory'     initial_folder ='C:'   CHANGING     selected_folder=pstr. CALLMETHODcl_gui_cfw=>flush. para=pstr.ENDFORM.                   "get_path*&---------------------------------------------------------------------*

7、*&     Form check_DIRECTORY_EXIST*&---------------------------------------------------------------------*FORMcheck_directory_existUSINGpresult. pstr=p. CALLMETHODcl_gui_frontend_services=>directory_exist   EXPORTING     directory=pstr   RECEIVING     result   =result.ENDF

8、ORM.                   "check_DIRECTORY_EXIST*&-------------------------------------------------