关于F4 Help帮助窗口的参数F4METHOD的设置

最近由于升级，sap的F4 Help对话框变成了MODAL对话框，以前编写的程序出现一些问题（DYNP_VALUES_UPDATE和F4IF_INT_TABLE_VALUE_REQUEST）。解决办法如下：

1、用sap *用户登录系统，点击菜单HELP－>Settings...－>F4 Help的Display选择Control方式。该参数将存在USR05表中，将影响F4GMETHOD参数。

2、用新的登录用户登录，点击菜单HELP－>Settings...－>F4 Help的Display选择Control或者System Defaults方式。该参数将存在USR05表中，将影响F4METHOD参数。

3、修改F4IF_INT_TABLE_VALUE_REQUEST代码如下：
* immer modal laufen
*{   INSERT         PRDK900023                                        1
IF dynp_update = space OR return_tab IS REQUESTED or
     callcontrol-pvalues ne 'D'.
*}   INSERT
CLEAR: ocx_help_info-dynpprog, ocx_help_info-dynpro.
*{   INSERT         PRDK900023                                        2
endif.
*}   INSERT
就可将Modal窗口变为非Modaless窗口。

4、对F4METHOD和F4GMETHOD访问的SAP标准代码
FORM CHECK_OCX_SWITCHED_ON
CHANGING ACTIVEX.
DATA: ASK_ACTIVEX(10).
statics: is_webgui, is_mozilla.
* L鋟ft der GUI im ITS?

CALL FUNCTION 'ITS_PING'
       EXCEPTIONS
            ITS_NOT_AVAILABLE = 1
            OTHERS            = 2.
IF SY-SUBRC = 0.
*   ITS l鋟ft.
    data: oldservice(128) type c.
    types: begin of struc,
           oldservice(128) type c,
          end   of struc.
    data: oldservice_tab type table of struc with header line.
*   Do we have a webgui service
    if is_webgui is initial.
      call function 'ALEWEB_GET_CONTEXT'
        EXPORTING
          fieldname = '~WEBGUI'
          fieldindex = 1
        TABLES
          DATA_TAB                    = oldservice_tab
       EXCEPTIONS
         INVALID_INDEX               = 1
         SYSTEM_FAILURE              = 2
         ITS_NOT_AVAILABLE           = 3
         COMMUNICATION_FAILURE       = 4
         OTHERS                      = 5.
      IF SY-SUBRC <> 0.
      endif.
      if oldservice_tab eq '1'.
        is_webgui = 'Y'.
      else.
        is_webgui = 'N'.
      endif.
    endif.
*   the search help control support for Mozilla starts with Rel. 700
    if is_mozilla is initial.
      CALL FUNCTION 'ALEWEB_GET_CONTEXT'
        EXPORTING
          FIELDNAME                   = '~USERAGENTTYPE'
          FIELDINDEX                  = 1
        TABLES
          DATA_TAB                    = oldservice_tab
       EXCEPTIONS
         INVALID_INDEX               = 1
         SYSTEM_FAILURE              = 2
         ITS_NOT_AVAILABLE           = 3
         COMMUNICATION_FAILURE       = 4
         OTHERS                      = 5.
      IF SY-SUBRC <> 0.
      ENDIF.
      if oldservice_tab eq 'msiexplorer'.
        is_mozilla = 'N'.
      else.
        is_mozilla = 'Y'.
      endif.
    endif.
*   Is it an EWT
    data: is_ewt.
    call function 'NAVIGATION_CHECK_TCODE_TYPE'
      EXPORTING
        transaction_code     = sy-tcode
        WITH_MESSAGE               = ' '
      EXCEPTIONS
        EASY_WEB_TRANSACTION       = 1
        NOT_HTML_ENABLED           = 2
        OTHERS               = 3.
    if sy-subrc eq 1.
      is_ewt = 'X'.
    endif.
    IF SY-SUBRC <> 0.
    endif.
    if is_mozilla eq 'Y' and is_webgui eq 'Y'.
      clear activex. exit.
    endif.
    if is_webgui ne 'Y' or not is_ewt is initial.
      activex = 'X'. exit.
    endif.
ENDIF.
GET PARAMETER ID 'F4GMETHOD' FIELD ASK_ACTIVEX.
IF SY-SUBRC NE 0.
    PERFORM GETSYSTEMACTIVEXSETTINGS CHANGING ASK_ACTIVEX.
    SET PARAMETER ID 'F4GMETHOD' FIELD ASK_ACTIVEX.
ENDIF.
IF ASK_ACTIVEX EQ 'ActiveX'.         " Its the system default
    ACTIVEX = 'X'.
    GET PARAMETER ID 'F4METHOD' FIELD ASK_ACTIVEX.
    IF SY-SUBRC EQ 0.
      IF ASK_ACTIVEX EQ 'NoActiveX'. CLEAR ACTIVEX. ENDIF.
    ENDIF.
ELSE.                                " Old style is the default
    GET PARAMETER ID 'F4METHOD' FIELD ASK_ACTIVEX.
    IF SY-SUBRC EQ 0.
      IF ASK_ACTIVEX EQ 'ActiveX'. ACTIVEX = 'x'. ENDIF.
    ENDIF.
ENDIF.
endform.                    "CHECK_OCX_SWITCHED_ONxiang