class ZCL_ZJERRY_SANDBOX_DPC_EXT definition
public
inheriting from ZCL_ZJERRY_SANDBOX_DPC
create public .
public section.
methods /IWBEP/IF_MGW_APPL_SRV_RUNTIME~GET_ENTITYSET
redefinition .
protected section.
private section.
methods FILL_STATUS_TEXT
changing
!CR_ENTITYSET type ref to DATA .
methods GET_DOMAIN_LIST
returning
value(RT_RESULT) type DD07V_T .
methods GET_STATUS_LIST
exporting
!ER_ENTITYSET type ref to DATA .
ENDCLASS.
CLASS ZCL_ZJERRY_SANDBOX_DPC_EXT IMPLEMENTATION.
* ---------------------------------------------------------------------------------------+
* | Instance Public Method ZCL_ZJERRY_SANDBOX_DPC_EXT->/IWBEP/IF_MGW_APPL_SRV_RUNTIME~GET_ENTITYSET
* +-------------------------------------------------------------------------------------------------+
* | [--->] IV_ENTITY_NAME TYPE STRING(optional)
* | [--->] IV_ENTITY_SET_NAME TYPE STRING(optional)
* | [--->] IV_SOURCE_NAME TYPE STRING(optional)
* | [--->] IT_FILTER_SELECT_OPTIONS TYPE /IWBEP/T_MGW_SELECT_OPTION(optional)
* | [--->] IT_ORDER TYPE /IWBEP/T_MGW_SORTING_ORDER(optional)
* | [--->] IS_PAGING TYPE /IWBEP/S_MGW_PAGING(optional)
* | [--->] IT_NAVIGATION_PATH TYPE /IWBEP/T_MGW_NAVIGATION_PATH(optional)
* | [--->] IT_KEY_TAB TYPE /IWBEP/T_MGW_NAME_VALUE_PAIR(optional)
* | [--->] IV_FILTER_STRING TYPE STRING(optional)
* | [--->] IV_SEARCH_STRING TYPE STRING(optional)
* | [--->] IO_TECH_REQUEST_CONTEXT TYPE REF TO /IWBEP/IF_MGW_REQ_ENTITYSET(optional)
* | [<---] ER_ENTITYSET TYPE REF TO DATA
* | [<---] ES_RESPONSE_CONTEXT TYPE /IWBEP/IF_MGW_APPL_SRV_RUNTIME=>TY_S_MGW_RESPONSE_CONTEXT
* | [!CX!] /IWBEP/CX_MGW_BUSI_EXCEPTION
* | [!CX!] /IWBEP/CX_MGW_TECH_EXCEPTION
* +--------------------------------------------------------------------------------------
METHOD /iwbep/if_mgw_appl_srv_runtime~get_entityset.
CASE iv_entity_name.
WHEN 'OrderStatus'.
get_Status_list( IMPORTING er_entityset = er_entityset ).
WHEN OTHERS.
TRY.
CALL METHOD super->/iwbep/if_mgw_appl_srv_runtime~get_entityset
EXPORTING
iv_entity_name = iv_entity_name
iv_entity_set_name = iv_entity_set_name
iv_source_name = iv_source_name
it_filter_select_options = it_filter_select_options
it_order = it_order
is_paging = is_paging
it_navigation_path = it_navigation_path
it_key_tab = it_key_tab
iv_filter_string = iv_filter_string
iv_search_string = iv_search_string
io_tech_request_context = io_tech_request_context
IMPORTING
er_entityset = er_entityset
es_response_context = es_response_context.
CATCH /iwbep/cx_mgw_busi_exception .
CATCH /iwbep/cx_mgw_tech_exception .
ENDTRY.
IF iv_entity_name = 'Z_C_OrderType'.
fill_status_text( CHANGING cr_entityset = er_entityset ).
ENDIF.
ENDCASE.
ENDMETHOD.
* ---------------------------------------------------------------------------------------+
* | Instance Private Method ZCL_ZJERRY_SANDBOX_DPC_EXT->FILL_STATUS_TEXT
* +-------------------------------------------------------------------------------------------------+
* | [<-->] CR_ENTITYSET TYPE REF TO DATA
* +--------------------------------------------------------------------------------------
method FILL_STATUS_TEXT.
FIELD-SYMBOLS: TYPE zcl_zjerry_sandbox_mpc=>tt_z_c_ordertype.
ASSIGN cr_entityset->* TO .
DATA(idd07v) = get_domain_list( ).
LOOP AT ASSIGNING FIELD-SYMBOL().
READ TABLE idd07v ASSIGNING FIELD-SYMBOL() WITH KEY domvalue_l = -order_status.
IF sy-subrc = 0.
-order_status_text = -ddtext.
ENDIF.
ENDLOOP.
endmethod.
* ---------------------------------------------------------------------------------------+
* | Instance Private Method ZCL_ZJERRY_SANDBOX_DPC_EXT->GET_DOMAIN_LIST
* +-------------------------------------------------------------------------------------------------+
* | [<-()] RT_RESULT TYPE DD07V_T
* +--------------------------------------------------------------------------------------
method GET_DOMAIN_LIST.
CALL FUNCTION 'DD_DOMVALUES_GET'
EXPORTING
domname = 'ZORDER_STATUS_DOMAIN' "<-- Your Domain Here
text = 'X'
langu = sy-langu
TABLES
dd07v_tab = rt_result
EXCEPTIONS
wrong_textflag = 1
OTHERS = 2.
endmethod.
* ---------------------------------------------------------------------------------------+
* | Instance Private Method ZCL_ZJERRY_SANDBOX_DPC_EXT->GET_STATUS_LIST
* +-------------------------------------------------------------------------------------------------+
* | [<---] ER_ENTITYSET TYPE REF TO DATA
* +--------------------------------------------------------------------------------------
METHOD get_status_list.
FIELD-SYMBOLS: TYPE STANDARD table.
CREATE DATA er_entityset TYPE zcl_zjerry_sandbox_mpc=>tt_orderstatus.
ASSIGN er_entityset->* TO .
DATA(idd07v) = get_domain_list( ).
LOOP AT idd07v ASSIGNING FIELD-SYMBOL().
DATA(list) = value zcl_zjerry_sandbox_mpc=>ts_orderstatus(
code = -domvalue_l text = -ddtext ).
APPEND list to .
ENDLOOP.
ENDMETHOD.
ENDCLASS.
class ZCL_ZJERRY_SANDBOX_MPC_EXT definition
public
inheriting from ZCL_ZJERRY_SANDBOX_MPC
create public .
public section.
methods DEFINE
redefinition .
protected section.
private section.
ENDCLASS.
CLASS ZCL_ZJERRY_SANDBOX_MPC_EXT IMPLEMENTATION.
* ---------------------------------------------------------------------------------------+
* | Instance Public Method ZCL_ZJERRY_SANDBOX_MPC_EXT->DEFINE
* +-------------------------------------------------------------------------------------------------+
* | [!CX!] /IWBEP/CX_MGW_MED_EXCEPTION
* +--------------------------------------------------------------------------------------
method DEFINE.
super->define( ).
zcl_fis_shlp_annotation=>create(
io_odata_model = model
io_vocan_model = vocab_anno_model
iv_namespace = 'sap'
iv_entitytype = 'Z_C_OrderType'
iv_property = 'order_status'
iv_search_help = space
iv_search_supported = abap_false
iv_search_help_field = space
iv_valuelist_entityset = 'OrderStatusEntitySet'
iv_valuelist_property = 'Code' ##NO_TEXT
)->add_display_parameter( iv_valuelist_property = 'Text' ).
data(lo_txt_property) = model->get_entity_type( 'Z_C_OrderType' )->get_property( 'order_status' ).
lo_txt_property->set_value_list( /iwbep/if_mgw_odata_property=>gcs_value_list_type_property-fixed_values ).
data(lo_text_anno) = lo_txt_property->/iwbep/if_mgw_odata_annotatabl~create_annotation( 'sap' ).
lo_text_anno->add( iv_key = 'text' iv_value = 'order_status_text').
lo_txt_property = model->get_entity_type( 'OrderStatus' )->get_property( 'Code' ).
lo_txt_property->set_value_list( /iwbep/if_mgw_odata_property=>gcs_value_list_type_property-fixed_values ).
lo_text_anno = lo_txt_property->/iwbep/if_mgw_odata_annotatabl~create_annotation( 'sap' ).
lo_text_anno->add( iv_key = 'text' iv_value = 'Text').
endmethod.
ENDCLASS.
