Iam getting an exception in i this line ...
lr_cat_first->get_property_as_value( EXPORTING iv_attr_name = 'CAT_GUID'
IMPORTING ev_result = lv_category_selected_guid ). "lv_category_selected_guid
lr_schema_entity = lr_entity.
please find below code..CX_SY_NO_HANDLER error..please update?..
METHOD
GET.
DATA: current TYPE REF TO if_bol_bo_property_access.
DATA: dref TYPE REF TO data.
value = ' '. "#EC NOTEXT
IF iterator IS BOUND.
current = iterator->get_current( ).
ELSE.
current = collection_wrapper->get_current( ).
ENDIF.
DATA : lr_current TYPE REF TO cl_crm_bol_entity,
lr_parent TYPE REF TO cl_crm_bol_entity.
lr_current ?= current.
DATA: lr_cuco TYPE REF TO cl_bt120s_c_cucocomplaint_impl,
lr_cuco_wrp TYPE REF TO cl_bsp_wd_collection_wrapper,
lr_entity TYPE REF TO cl_crm_bol_entity,
lr_cat_first TYPE REF TO cl_crm_bol_entity,
lr_adminh TYPE REF TO cl_crm_bol_entity,
lr_cuwrp TYPE REF TO cl_bsp_wd_collection_wrapper,
lr_wdw TYPE REF TO cl_bsp_wd_window,
lv_guid TYPE crmt_genil_object_guid,
* lv_guid TYPE crmt_object_guid,
lr_core TYPE REF TO cl_crm_bol_core.
DATA : lv_category_selected_guid TYPE crmt_object_guid,
lr_schema_entity TYPE REF TO cl_crm_bol_entity,
lr_schema TYPE REF TO cl_crm_bol_entity,
ls_schema TYPE crmt_cat_il_schema,
lr_catego_inf TYPE REF TO if_crm_erms_catego_aspect,
lr_catego TYPE REF TO cl_crm_erms_catego_as_default,
gt_ddlb_tables TYPE crmt_erms_cat_ddlb_tabs,
gt_ddlb_config TYPE bsp_wd_dropdown_table,
gt_ddlb_flags TYPE crmt_erms_cat_ddlb_flag_tab,
gv_ddlb_level TYPE i.
DATA : ls_ddlb_config TYPE bsp_wd_dropdown_line.
DATA: lv_navigation TYPE REF TO if_crm_ui_navigation_service,
lv_supported TYPE abap_bool.
CALL METHOD current->get_property_as_value
EXPORTING
iv_attr_name = 'GUID'
IMPORTING
ev_result = lv_guid.
lr_core = cl_crm_bol_core=>get_instance( ).
lr_parent = lr_core->get_root_entity( iv_object_name = 'BTOrder' iv_object_guid = lv_guid ).
CHECK lr_parent IS BOUND.
lr_adminh = lr_parent->get_related_entity( 'BTOrderHeader' ).
CHECK lr_adminh IS BOUND.
lr_entity = lr_adminh->get_related_entity( 'BTHeaderCategorySet' ).
CHECK lr_entity IS BOUND.
lr_cat_first = lr_entity->get_related_entity( 'BTCategoryFirst' ).
lr_cat_first->get_property_as_value( EXPORTING iv_attr_name = 'CAT_GUID'
IMPORTING ev_result = lv_category_selected_guid ). "lv_category_selected_guid
lr_schema_entity = lr_entity.
IF lr_schema_entity IS BOUND.
lr_schema = lr_schema_entity->get_related_entity( iv_relation_name = 'BTMCSchema_S' ).
IF lr_schema IS BOUND.
lr_schema->get_properties( IMPORTING es_attributes = ls_schema ).
ENDIF.
CALL METHOD cl_crm_erms_catego_ma_default=>if_crm_erms_catego_manager~get_aspect
EXPORTING
iv_asp_id = ' '
iv_asp_state = ' '
iv_asp_tstamp = ' '
iv_asp_guid = ls_schema-asp_guid
IMPORTING
ev_instance = lr_catego_inf.
lr_catego ?= lr_catego_inf.
ENDIF.
CALL METHOD lr_catego->get_ddlb_coupled
EXPORTING
* iv_max_items = lv_max_items
* iv_resolve_unique = lv_resolve_unique
* ir_cat_checker = lr_cat_checker
iv_cat_guid = lv_category_selected_guid
* iv_levels = lv_levels
* iv_display_mode = lv_display_mode
IMPORTING
et_ddlb_tables = gt_ddlb_tables
et_ddlb_config = gt_ddlb_config
et_ddlb_flags = gt_ddlb_flags
ev_curr_level = gv_ddlb_level.
IF sy-subrc = 0.
READ TABLE gt_ddlb_config INTO ls_ddlb_config INDEX 1.
IF sy-subrc = 0.
value = value.
ENDIF.
ENDIF.
ENDMETHOD
.