Need help to build a navigation from billing component BEABDS_BILLDOC to sales order component BT115H_SLSO on follow up create action

Question

Hello Experts,
I have been assigned to a CRM-UI Object which is basically to create follow-up action i.e. creating debit/credit memos with reference of one/multiple billing documents.
SAP has already provided an option to create the follow-up action for 1 billing document at a time, but the requirement is to create follow-up action for multiple billing documents at a time. For example, There are 2 invoices raised against a dealer "DEL" and due to some reason the dealer wants to send back the products.
Now the dealer wants to create only 1 claim/return for those 2 invoices, Which Standard SAP doesn't provide.
I did some of the development and added the 'Follow-up create' Button to the search result work area of the billing search. But could not able to build the link between the Billing and Sales order Components.
It would be really a great favor if you can guide me to build this navigation link.
Please let me know if any further information required.
Please find the attachment for step-by-step process.
Codes and Configs:
Method DO_PREPARE_OUTPUT to provide the “Follow-up Create” Button
method DO_PREPARE_OUTPUT.
CALL METHOD SUPER->DO_PREPARE_OUTPUT .
DATA:
lr_coco                  TYPE REF TO cl_beabds_b_bspwdcomponen_impl,
ls_button                TYPE crmt_thtmlb_button,
lv_usage                  TYPE string,
lv_info                  TYPE string,
lv_info_transfert        TYPE string,
lv_show_btn_transfer      TYPE boolean VALUE abap_false,
lv_show_btn_cancel        TYPE boolean VALUE abap_false,
lv_show_btn_split        TYPE boolean VALUE abap_false,
lv_show_btn_create      TYPE boolean VALUE abap_false,
lr_col                    TYPE REF TO if_bol_bo_col,
lv_show_separator        TYPE abap_bool,
lv_num_marked            TYPE i,
lr_entity                TYPE REF TO if_bol_bo_property_access,
lv_appl                  TYPE bea_appl_ubd.
lr_coco ?= comp_controller.
lr_col  = me->typed_context->ubdheader->collection_wrapper->get_marked( ).
lv_num_marked = lr_col->size( ).
* Decide based on the usage which buttons should appear, others are not shown by default
CALL METHOD lr_coco->get_env_info
IMPORTING
ev_usage          = lv_usage
ev_info          = lv_info
ev_info_transfert = lv_info_transfert.
CASE  lv_usage.
WHEN cl_beabds_b_bspwdcomponen_impl=>gc_usage_search_result.
IF lv_info_transfert = cl_beabds_b_bspwdcomponen_impl=>gc_inf_trans_search_result.
lv_show_btn_create = abap_true.
lv_show_separator = abap_true.
ENDIF.
ENDCASE.
if  lv_show_btn_create  = abap_true.
*  Separator between two buttons if needed
IF lv_show_separator = abap_true.
CLEAR ls_button.
ls_button-type = cl_thtmlb_util=>gc_separator.
APPEND ls_button TO gt_buttons.
lv_show_separator = abap_false.
ENDIF.
CLEAR ls_button.
IF lv_num_marked > 0.
ls_button-enabled = abap_true.
ELSE.
ls_button-enabled = abap_false.
ENDIF.
ls_button-text      = text-001.
ls_button-id        = 'BTN_CREATE'.                    "#EC NOTEXT
ls_button-on_click  = 'CREATE'.                        "#EC NOTEXT
APPEND ls_button TO gt_buttons.
lv_show_separator = abap_true.
ENDIF.
endmethod.
METHOD eh_oncreate.
* Added by wizard: Handler for event 'CREATE'
TYPES: BEGIN OF ty_trans,
process_type      TYPE crmt_process_type,
proc_type_descr_20 TYPE crmt_description_20,
subobject_category TYPE crmt_subobject_category,
subob_cat_descr_20 TYPE crmt_description_20,
END OF ty_trans.
DATA: lt_trans      TYPE STANDARD TABLE OF ty_trans ,
ls_trans      TYPE ty_trans ,
lv_ref_struct TYPE REF TO  ty_trans.
DATA:
lv_struct_ref TYPE REF TO crmt_extbt_il_header_ref,
lv_value_node TYPE REF TO cl_bsp_wd_value_node,
lr_ent        TYPE REF TO if_bol_bo_property_access,
lv_bo_coll    TYPE REF TO if_bol_bo_col,
ls_ref_header TYPE crmt_extbt_il_header_ref,
lv_title      TYPE string,
lr_comp_ctrl  TYPE REF TO cl_beabds_b_bspwdcomponen_impl,
lr_cw        TYPE REF TO cl_bsp_wd_collection_wrapper,
lr_col        TYPE REF TO if_bol_bo_col,
lr_col_proc  TYPE REF TO if_bol_bo_col,
lr_bo        TYPE REF TO cl_crm_bol_entity.
IF gv_fu_popup IS NOT BOUND.
lv_title = cl_wd_utilities=>get_otr_text_by_alias( 'CRM_UIU_BT/FOLLOW_UP' ).
gv_fu_popup = comp_controller->window_manager->create_popup(
iv_interface_view_name = 'MainWindow'
iv_usage_name          = 'UCBTEXTFOLLOWUP'
iv_title              = lv_title ).
ENDIF.
CREATE OBJECT lv_bo_coll TYPE cl_crm_bol_bo_col.
lr_comp_ctrl ?= me->comp_controller.
lr_cw = lr_comp_ctrl->typed_context->ubdheader->collection_wrapper.
lr_col  = lr_cw->get_marked( ).
CREATE DATA lv_struct_ref.
CREATE OBJECT lv_value_node
EXPORTING
iv_data_ref = lv_struct_ref.
CHECK lr_col IS BOUND AND lr_col->size( ) > 0.
CREATE OBJECT lr_col_proc TYPE cl_crm_bol_bo_col.
lr_bo ?= lr_col->get_first( ).
WHILE lr_bo IS BOUND AND lr_bo IS NOT INITIAL.
lr_bo->get_property_as_value(
EXPORTING
iv_attr_name    = 'HEADNO_EXT'
IMPORTING
ev_result      = ls_ref_header-object_id  ).
ls_ref_header-object_type = 'BILLDO'.                  "#EC NOTEXT
lv_value_node->set_properties( ls_ref_header ).
lv_bo_coll->add( lv_value_node ).
lr_bo ?= lr_col->get_next( ).
ENDWHILE.
gv_fu_popup->set_on_close_event( iv_view = me iv_event_name = 'FOLLOWUP_SEL_CLOSED' ).
gv_fu_popup->set_display_mode( if_bsp_wd_popup=>c_display_mode_surrounded ).
gv_fu_popup->open( iv_inbound_plug = 'EXTFOLLOWUP' iv_collection = lv_bo_coll ).
ENDMETHOD.
method EH_ONFOLLOWUP_SEL_CLOSED.
* Added by wizard: Handler for event 'FOLLOWUP_SEL_CLOSED'
DATA:
lr_context_node  TYPE REF TO cl_bsp_wd_context_node,
lr_current      TYPE REF TO cl_crm_bol_entity,
lr_col          TYPE REF TO if_bol_entity_col,
lr_wdw          TYPE REF TO cl_bsp_wd_window.
IF gv_fu_popup->get_fired_outbound_plug( ) EQ 'LEAVE'. "# EC NOTEXT
lr_context_node = gv_fu_popup->get_context_node( iv_cnode_name = 'BTORDER' ). "# EC NOTEXT
CHECK lr_context_node IS BOUND.
lr_current ?= lr_context_node->collection_wrapper->get_current( ).
CHECK lr_current IS BOUND.
CREATE OBJECT lr_col
TYPE
cl_crm_bol_entity_col.
lr_col->add( lr_current ).
lr_wdw = me->comp_controller->if_bsp_wd_window_manager~get_window( 'MainWindow' ).
lr_wdw->call_outbound_plug( iv_outbound_plug = 'NAVIGATE_CREATE' iv_data_collection = lr_col ). "#EC NOTEXT
ELSEIF gv_fu_popup->get_fired_outbound_plug( ) EQ 'LEAVEPROCTYPE'. "# EC NOTEXT
gv_fu_popup->set_on_close_event( iv_view = me iv_event_name = 'FOLLOWUP_SEL_CLOSED' ).
gv_fu_popup->open( iv_inbound_plug = 'EXTFOLLOWUPITEMS' ).
ENDIF.
endmethod.
method OP_NAVIGATE_CREATE.
* Added by wizard: Outbound plug 'NAVIGATE_CREATE'
DATA:
lr_window TYPE REF TO cl_bsp_wd_window.
lr_window = me->view_manager->get_window_controller( ).
lr_window->call_outbound_plug( iv_outbound_plug  = 'NAVIGATE_CREATE'
iv_data_collection = iv_data_collection ).
endmethod.
Thanks,
Subhash.

Answer 1

Hi Srikanth,
I believe You are trying to implement dynamic navigation..
lv_data_collection->add( lv_descriptor_object ).
I can see lv_data_collection is not having the actual entity just the descriptor object details you are adding in the lv_data_collection..
If you don't have the context node binding between source and destination component, add the required data to lv_data_collection
, in the target component inbound plug retrieve the same data entity and set it on the relevant context node.
To get an idea, check standard component for where dynamic navigation is implemented.
Hope this helps..
Cheers,
Sumit Mittal