Hyperlink

Code: Alles auswählen.

  case io_event->mv_event_id.
    when GC_EVENT_OPEN_LINK.
*Hier soll z.B. Googel geöffnet werden.
  endcase.

Code: Alles auswählen.

REPORT ztest_cl_gui_execute.

DATA gv_app TYPE string VALUE 'iexplore.exe'.
DATA gv_par TYPE string VALUE 'http://google.de'.

CALL METHOD cl_gui_frontend_services=>execute
  EXPORTING
*   document               =
    application            = gv_app
    parameter              = gv_par
*   default_directory      =
*   maximized              =
*   minimized              =
*   synchronous            =
*   operation              = 'OPEN'
  EXCEPTIONS
    cntl_error             = 1
    error_no_gui           = 2
    bad_parameter          = 3
    file_not_found         = 4
    path_not_found         = 5
    file_extension_unknown = 6
    error_execute_failed   = 7
    synchronous_failed     = 8
    not_supported_by_gui   = 9
    OTHERS                 = 10.

IF sy-subrc <> 0.
* Implement suitable error handling here
ENDIF.

Code: Alles auswählen.

 if io_event->MV_EVENT_ID = 'EVT_LINK_TO'(001).
DATA: lo_fpm          TYPE REF TO   if_fpm,            "Instance du FPM manager
         lo_navigate_to  TYPE REF TO if_fpm_navigate_to,
         ls_url_fields    TYPE fpm_s_launch_url,
         lv_url          TYPE  string.


       lo_fpm = cl_fpm_factory=>get_instance( ).

lv_url = 'http://scn.sap.com/welcome'.

CALL METHOD lo_fpm->get_navigate_to
         RECEIVING
           ro_navigate_to = lo_navigate_to.

* Prepare URL to the external catalogin lv_url.
       ls_url_fields-url = lv_url.     " lv_url  type  string
       ls_url_fields-use_suspend_resume = abap_true.

       CALL METHOD lo_navigate_to->launch_url
         EXPORTING
           is_url_fields = ls_url_fields.

ENDIF.