Tuesday 23 April 2013

FPM initiation from initial screen

   DATA: lo_fpm TYPE REF TO if_fpm.
    lo_fpm = cl_fpm_factory=>get_instance( ).
    lo_fpm->raise_event_by_id( if_fpm_constants=>gc_event-leave_initial_screen ).


or
DATA : lo_fpm TYPE REF TO if_fpm.
  DATA : lo_idr TYPE REF TO if_fpm_idr.
  DATA : lo_gaf TYPE REF TO if_fpm_gaf.
  DATA : lo_aca TYPE REF TO if_fpm_aca.
  DATA : lwa_uibb_key TYPE fpm_s_uibb_key.
  DATA : lt_added_uibbs TYPE fpm_t_uibb_key.

IF io_gaf->mo_event->mv_event_id EQ if_fpm_constants=>gc_event-leave_initial_screen.

    CLEAR lwa_uibb_key.
    lwa_uibb_key-component = 'FPM_FORM_UIBB'
    lwa_uibb_key-interface_view = 'FORM_WINDOW'.
    lwa_uibb_key-CONFIG_KEY-config_id = 'MY_CONFIG'.

    CALL METHOD lo_aca->add_uibb
      EXPORTING
        iv_aca_location = if_fpm_constants=>gc_aca_locations-ii3
        is_uibb_key     = lwa_uibb_key.


  • Get FPM instance
    lo_fpm = cl_fpm_factory=>get_instance( ).
    CHECK lo_fpm  IS NOT INITIAL.

  • Get reference of title management object
    lo_idr ?= lo_fpm->get_service( 'IDR' ).
    lo_idr->set_header_visibility( abap_true ).          
endif.

No comments:

Post a Comment