DATA : lo_event_params TYPE REF TO if_fpm_parameter,
lr_event TYPE REF TO cl_fpm_event,
lv_window_id TYPE fpm_dialog_window_id,
lo_fpm TYPE REF TO if_fpm.
lv_window_id = ‘CONTENT_AREA_1’ .
CREATE OBJECT lo_event_params type cl_fpm_parameter.
lo_event_params->set_value( EXPORTING
iv_key = if_fpm_constants=>gc_dialog_box-id
iv_value = lv_window_id).
CREATE OBJECT lr_event
EXPORTING
iv_event_id = cl_fpm_event=>GC_EVENT_OPEN_DIALOG_BOX
io_event_data = lo_event_params.
lo_fpm = cl_fpm_factory=>get_instance( ).
lo_fpm->raise_event( lr_event ).
No comments:
Post a Comment