SAP ABAP 跳转BP

*&---------------------------------------------------------------------*
*& Report YTESTBP
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT YTESTBP.
 CONSTANTS gc_x TYPE c VALUE 'X'.
PARAMETERS:
P_KUNNR TYPE BUT001-partner OBLIGATORY .
  DATA:
    lv_request TYPE REF TO cl_bupa_navigation_request,
    lv_options TYPE REF TO cl_bupa_dialog_joel_options,
    lv_partner TYPE bu_partner,
    lv_partner_role TYPE bus_roles,
    lv_start_tab TYPE BUS_NAVIGATION-BUPA-SUB_HEADER_TAB,
    lv_bupr_main TYPE bus_bupr_maintenance.

* set start-up navigation-----------------------------------------------
  lv_partner = p_kunnr.
*  lv_partner_role-role = 'ISM003'.
*  lv_start_tab = 'CVIC01'.
  CREATE OBJECT lv_request.

*set partner maintenance
  CALL METHOD lv_request->set_maintenance_id
    EXPORTING
      iv_value = lv_request->gc_maintenance_id_partner.

*set partner number to start with (in case of a guid just use the method
*set_partner_guid)
  CALL METHOD lv_request->set_partner_number( lv_partner ).

*set the partner role to start with
  CALL METHOD lv_request->set_bupa_partner_role( lv_partner_role ).

*set the activity you want the user to start the maintenance with
  CALL METHOD lv_request->set_bupa_activity
    EXPORTING
      iv_value = lv_request->gc_activity_display.

  CALL METHOD lv_request->set_bupa_sub_header_tab
    EXPORTING
      iv_value = lv_start_tab.

*set start-up options---------------------------------------------------
  CREATE OBJECT lv_options.

*start the transaction with an invisible locator
  CALL METHOD lv_options->set_locator_visible( space ).

*don't allow navigations to other partners
  CALL METHOD lv_options->set_navigation_disabled( gc_x ).
  CALL METHOD lv_options->set_bupr_create_not_allowed( gc_x ).

  lv_bupr_main-create_allowed = gc_x.
  lv_bupr_main-change_allowed = gc_x.
  lv_bupr_main-delete_allowed = gc_x.

  CALL METHOD lv_options->set_bupr_maintenance( lv_bupr_main ).

  CALL METHOD lv_options->set_activity_switching_off( space ).

*Call the business partner maintenance----------------------------------
*with those parameters
  CALL METHOD cl_bupa_dialog_joel=>start_with_navigation
    EXPORTING
      iv_request = lv_request
      iv_options = lv_options
    EXCEPTIONS
      OTHERS     = 1.