Hi Bharathy,
thanks for the code that you sent me. Indeed the code is quite difficult.
The value of the selection for LV_PRODUCT are ok, as the code is jumping from 01 to 02.
But I have done a Set within the event DDLB_CLICK.
DATA: lv_event TYPE string,
lv_index TYPE int4,
lv_dummy TYPE string,
LV_PRODUCT TYPE ZDTEL00004W,
lv_one_click_lock TYPE sysubrc.
DATA: lcl_entity TYPE REF TO if_bol_bo_property_access,
*** lcl_entity TYPE REF TO cl_bsp_wd_value_node,
lr_current TYPE REF TO if_bol_bo_property_access.
SPLIT htmlb_event_ex->event_defined AT '.' INTO lv_event lv_dummy.
CALL METHOD cl_thtmlb_util=>get_event_info
EXPORTING
iv_event = htmlb_event_ex
IMPORTING
ev_index = lv_index.
me->typed_context->ZTAB00002S->collection_wrapper->find( iv_index = lv_index ).
lcl_entity = typed_context->ZTAB00002S->collection_wrapper->get_current( ).
lr_current ?= lcl_entity.
lr_current->get_property_as_value( EXPORTING iv_attr_name = ' ZZFLD00001J ' IMPORTING ev_result = LV_PRODUCT ).
CASE LV_PRODUCT.
WHEN '01'.
CALL METHOD lr_current->set_property
EXPORTING
iv_attr_name = 'ZZFLD00001J'
iv_value = '01'.
WHEN '02'.
CALL METHOD lr_current->set_property
EXPORTING
iv_attr_name = 'ZZFLD00001J'
iv_value = '02'.
WHEN '03'.
CALL METHOD lr_current->set_property
EXPORTING
iv_attr_name = 'ZZFLD00001J'
iv_value = '03'.
ENDCASE.
This event is invoked from the GET_P of the attribute LOB.
CASE iv_property.
WHEN if_bsp_wd_model_setter_getter~fp_fieldtype.
rv_value = cl_bsp_dlc_view_descriptor=>field_type_picklist.
ENDCASE.
IF iv_property = if_bsp_wd_model_setter_getter=>fp_server_event.
rv_value = 'DDLB_CLICK'.
ENDIF.
But indeed to me it is missing something within the GET_V method of the attribute Portfolioelement.
Regards,
Andrea