在R/3Dialog里面call web dynpro之后，单击web dynpro按钮控制R/3

最新推荐文章于 2025-01-12 14:46:48 发布

原创最新推荐文章于 2025-01-12 14:46:48 发布 · 824 阅读

0 ·

本内容遵循CC 4.0 BY-SA版权协议

收录于

web dynpro记录

本文介绍如何在WebDynpro中触发事件，并在R3系统中捕捉这些事件进行处理。通过使用特定的API和类，可以在WebDynpro应用与R3系统之间建立有效的通信。文中详细解释了事件触发及捕捉的技术实现。

其实质是在web dynpro中触发一个事件，然后在R3中去捕捉那个事件。
然后执行相应的操作。
捕捉事件使用继承自cl——gui——wdr——ciewer的类
然后使用此类去call web dynpro 并注册事件

=====================in web dynpro=======================================
DATA l_componentcontroller TYPE REF TO ig_componentcontroller .
DATA l_api_componentcontroller TYPE REF TO if_wd_component.
DATA l_sapgui_manager TYPE REF TO cl_wdr_sapgui_integration.

l_componentcontroller =   wd_this->get_componentcontroller_ctr( ).
l_api_componentcontroller = l_componentcontroller->wd_get_api( ).
l_sapgui_manager = l_api_componentcontroller->get_sapgui_manager( ).

IF l_sapgui_manager IS NOT INITIAL.
      l_sapgui_manager->fire(
      EXPORTING
        name = 'SELECT_PHASE'
        param1 = l_phase ).
ENDIF.

======================in R3 dialog=======================
*----------------------------------------------------------------------*
*       CLASS cl_my_gui_wdr_viewer DEFINITION
*----------------------------------------------------------------------*
*
*----------------------------------------------------------------------*
CLASS cl_my_gui_wdr_viewer DEFINITION INHERITING FROM cl_gui_wdr_viewer.
PUBLIC SECTION.
    METHODS: on_wd_event FOR EVENT wd_event OF cl_gui_wdr_viewer
                 IMPORTING action parameters.
ENDCLASS.                    "cl_my_gui_wdr_viewer DEFINITION
*----------------------------------------------------------------------*
*       CLASS cl_my_gui_wdr_viewer IMPLEMENTATION
*----------------------------------------------------------------------*
*
*----------------------------------------------------------------------*
CLASS cl_my_gui_wdr_viewer IMPLEMENTATION.
METHOD on_wd_event.
    FIELD-SYMBOLS: <fs_parameter> TYPE wdr_name_value.
    DATA l_num type n.
    IF action = 'SELECT_PHASE'.
      READ TABLE parameters ASSIGNING <fs_parameter> INDEX 1.
      TRY.
        l_num = <fs_parameter>-value.
      CATCH cx_root.
        MESSAGE e088(st) WITH text-001.
      ENDTRY.
      if l_num lt 1 or l_num gt 3.
        MESSAGE e088(st) WITH text-001.
      endif.
      phase = <fs_parameter>-value.
    ENDIF.
ENDMETHOD.                    "on_wd_event
ENDCLASS.                    "cl_my_gui_wdr_viewer IMPLEMENTATION

标签

#web #dialog #manager #class #api