Hello all,
Requirement is to navigate from lead overview page(BT108H_LEA) to contact create page(BP_CONT/ContactQuickCreateEF) directly thro one button.i able to get the contact create page with (BP_cont/ContactDetails) however requirement is to get the contact create page with view(BP_CONT/ContactQuickCreateEF).
Please review the following code.
DATA: lr_nav_descr TYPE REF TO if_bol_bo_property_access.
DATA: lr_navigation TYPE REF TO if_crm_ui_navigation_service.
DATA: lr_col TYPE REF TO cl_crm_bol_bo_col.
DATA: rv_value_node TYPE REF TO cl_bsp_wd_value_node.
DATA: process_type TYPE crmt_process_type_db.
DATA dref TYPE REF TO data.
FIELD-SYMBOLS <ref> TYPE crmc_proc_type."crmd_orderadm_h."zprocesstype.
CREATE DATA dref TYPE crmc_proc_type."crmd_orderadm_h."zprocesstype.
ASSIGN dref->* TO <ref>.
<ref>-process_type = 'LEAD'.
CREATE OBJECT rv_value_node
EXPORTING
iv_data_ref = dref.
CALL METHOD rv_value_node->if_bol_bo_property_access~set_property
EXPORTING
iv_attr_name = 'PROCESS_TYPE'
iv_value = <ref>-process_type.
cl_crm_ui_descriptor_obj_srv=>create_ui_object_based(
EXPORTING
iv_ui_object_type = 'BP_CONTACT'
iv_ui_object_action = 'D'
iv_component = 'BP_CONT'
RECEIVING rr_result = lr_nav_descr ).
CHECK lr_nav_descr IS BOUND.
lr_navigation = cl_crm_ui_navigation_service=>get_instance( ).
CHECK lr_navigation IS BOUND.
* Check whether navigation is supported
IF lr_navigation->is_dynamic_nav_supported( lr_nav_descr ) NE abap_true.
RETURN.
ELSE.
CREATE OBJECT lr_col.
lr_col->if_bol_bo_col~add( iv_entity = lr_nav_descr ).
lr_col->if_bol_bo_col~add( iv_entity = rv_value_node ).
lr_navigation->navigate_dynamically( lr_col ).
ENDIF.
Kindly suggest the solution to get the desired output..Many Thanks in advance.
Regards
Ravneet