Chinaunix首页 | 论坛 | 博客
  • 博客访问: 7184792
  • 博文数量: 655
  • 博客积分: 10264
  • 博客等级: 上将
  • 技术积分: 8278
  • 用 户 组: 普通用户
  • 注册时间: 2007-06-04 17:47
个人简介

ABAP顾问

文章分类

全部博文(655)

文章存档

2017年(2)

2014年(8)

2013年(3)

2012年(2)

2011年(18)

2010年(102)

2009年(137)

2008年(274)

2007年(134)

分类:

2008-08-03 11:52:21

 
HKEY_CURRENT_USER\Software\SAP\SAPGUI Front\SAP Frontend Server\Filetransfer
 
另外,HKEY_CURRENT_USER\Software\SAP\SAPGUI Front\SAP Frontend Server\Code下面放的是最近执行的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       = 'Software\SAP\SAPGUI Front\SAP Frontend Server\Filetransfer'
      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       = 'Software\SAP\SAPGUI Front\SAP Frontend Server\Filetransfer'
      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       = 'Software\SAP\SAPGUI Front\SAP Frontend Server\Filetransfer'
      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        = 'Software\SAP\SAPGUI Front\SAP Frontend Server\Filetransfer'
      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        = 'Software\SAP\SAPGUI Front\SAP Frontend Server\Filetransfer'
      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
      key        = 'Software\SAP\SAPGUI Front\SAP Frontend Server\Filetransfer'
      value_name = 'PathUpload'
      value      = pstr
    IMPORTING
      rc         = rc.
  CALL METHOD cl_gui_cfw=>flush.
ENDFORM.                    " set_reg
阅读(3052) | 评论(0) | 转发(0) |
给主人留下些什么吧!~~