SAP： ALV双击 显示BP

alv 双击穿透显示BP信息。

入参： i_partner   type   kna1-kunnr.

  METHOD display_bp.
    DATA: l_kunnr TYPE kna1-kunnr.

    " 转内码
    l_kunnr = |{ i_partner ALPHA = IN }|.

    DATA(lo_request) = NEW cl_bupa_navigation_request( ).
    lo_request->set_maintenance_id( lo_request->gc_maintenance_id_partner ).
    lo_request->set_partner_number( l_kunnr ).
    lo_request->set_bupa_partner_role( VALUE bus_roles( ) ).
    lo_request->set_bupa_activity( iv_value = lo_request->gc_activity_display ).
    lo_request->set_bupa_sub_header_tab( VALUE bus_navigation-bupa-sub_header_tab( ) ).

    DATA(lo_options) = NEW cl_bupa_dialog_joel_options( ).
    lo_options->set_locator_visible( space ).
    lo_options->set_navigation_disabled( abap_true ).
    lo_options->set_bupr_create_not_allowed( abap_true ).
    lo_options->set_bupr_maintenance( VALUE bus_bupr_maintenance( create_allowed = abap_true
                                                                  change_allowed = abap_true
                                                                  delete_allowed = abap_true ) ).
    lo_options->set_activity_switching_off( space ).

    cl_bupa_dialog_joel=>start_with_navigation( EXPORTING iv_request = lo_request
                                                          iv_options = lo_options  ).
  ENDMETHOD.