Analytics Designer complements SAC stories by allowing to respond to very specific scenarios.
One of these scenarios is to be able to explore and analyze data following an alert sent by the system (for example a sales revenue warning). Then be able to make simulations to correct this problem (review the material prices) and finally validate the option that solves the problem (update the material prices).
This workflow is called a close loop scenario. It basically gives the power to a business user to do a what-if analysis and to take a concrete action based on his simulation.
In this blog post I will show you how to implement an ODataService in S/4Hana and how to call it from an Analytic Application. I will use a well-known demo at SAP called BestRun Bike.
Demo context
The demo shows BestRun Bikes company tracks, analyzes eBike sales performance issue using SAP Analytics Cloud analytic application and takes the insight into action to improve the sales revenue.
The highlighted features include:
- Embed Explorer, Smart Discovery, R visualization in analytic application
- Call OData actions in the backend S/4HANA system via scripting
I will concentrate the rest of the blog post on the OData part. In this demo all the product prices are read from the S4HANA system using OData Function
In the simulation&planning page we, can see that the sales revenue based on current prices is showing red alert compared to budget.
During the analysis of the eBike sales performance, we can see that the MZ-FZ-E211 eBike model has a much higher price than competitive products.
To adjust the price to the competition, we can run a simulation on the eBike prices. In our simulation we reduce the price by 15%.
This has the effect of increasing the forecast revenue and the quantity sold in a positive way. We need to update the price based on our simulation. The good news is that to change the price you don't need to go into the S/4Hana system. Thanks to Analytics Designer you can directly call an OData service that has been implemented in S/4Hana system. To do so we just need to click on the “Update” button
Create an OData Service in S/4HANA
In S/4Hana you can use 2 versions of OData : version 2 and version 4. In order to write back data you need to use the OData V4 version. In this blog I will explain what are the main steps to create an ABAP OData Service. If you want to have more details regarding the implementation of an OData V4 Service please have a look here
To be able to consume the S/4Hana OData service in this demo we had to:
- Create ABAP CDS view
- Create ABAP OData Service and implement ABAP classes
- Test the OData Service URL
Create ABAP CDS View
For this demo we created 2 ABAP CDS views that read the data from a Pricing table:
- ZMATERIALCOND : Base CDS view to read Material Condition Records
@AbapCatalog.sqlViewName: 'ZMATCONDRECORD'
@AbapCatalog.compiler.compareFilter: true
@AbapCatalog.preserveKey: true
@AccessControl.authorizationCheck: #CHECK
@EndUserText.label: 'Material Conditio Record'
define view ZMATERIALCOND as select from a304 join konp on a304.knumh = konp.knumh{
key a304.matnr as Material,
a304.knumh as ConditionRecord,
@Semantics.amount.currencyCode: 'Currency'
konp.kbetr as Amount,
@Semantics.currencyCode: true
konp.konwa as Currency,
konp.kpein as PriceUnit,
konp.kmein as UoM
}
where a304.kappl = 'V' and a304.kschl = 'PPR0' and a304.vkorg = '1710' and a304.vtweg = '10' and konp.konwa != '';- ZMATERIALPRICE : Consumption CDS view to join Material Valuation & Condition Records
@AbapCatalog.sqlViewName: 'ZMATPRICE'
@AbapCatalog.compiler.compareFilter: true
@AccessControl.authorizationCheck: #CHECK
@EndUserText.label: 'Material price'
@OData.publish: true
define view ZMATERIALPRICE as select from mbew join ZMATERIALCOND on mbew.matnr = ZMATERIALCOND.Material {
key mbew.matnr as materialno
,
@Semantics.amount.currencyCode: 'Currency'
mbew.stprs as StandardPrice,
@Semantics.amount.currencyCode: 'Currency'
mbew.verpr as PeriodicUnitPrice,
@Semantics.amount.currencyCode: 'Currency'
mbew.vjstp as StdPricePreviousYear ,
@Semantics.amount.currencyCode: 'Currency'
ZMATERIALCOND.Amount as ConditionAmount,
@Semantics.currencyCode: true
ZMATERIALCOND.Currency as Currency
// ZMATERIALCOND.PriceUnit as PriceUnit,
//ZMATERIALCOND.UoM as UoM
}To expose these CDS view to external application, we created an ABAP OData service. To do so, you need to type the Transaction Code : SEGW in the S/4Hana System
Create ABAP OData Service
Then we created a new OData service. You need to select the Project Type= OData 4.0 Service.
In our example, we called the project zanalytics_material
Add EntitySet, Entity and OData actions
Once the service has been created we added an entityset called MaterialPriceDataSet and an entity MaterialPriceData
We also needed to implement 2 mandatory classes :
- The model provider class (ZCL_ZANALYTICS_MATERIA_MPC_EXT)
- The data provider class ( ZCL_ZANALYTICS_MATERIA_DPC_EXT)
In the MPC EXT class we declared a new action called “MaterialPriceUpdate“ (line14). This is the action that is called by the analytic application
Here is an example of the implementation for this class
class ZCL_ZANALYTICS_MATERIA_MPC_EXT definition
public
inheriting from ZCL_ZANALYTICS_MATERIA_MPC
create public .
public section.
methods DEFINE_MATERIALDATA
importing
!IO_MODEL type ref to /IWBEP/IF_V4_MED_MODEL .
methods /IWBEP/IF_V4_MP_BASIC~DEFINE
redefinition .
protected section.
private section.
ENDCLASS.
CLASS ZCL_ZANALYTICS_MATERIA_MPC_EXT IMPLEMENTATION.
* <SIGNATURE>---------------------------------------------------------------------------------------+
* | Instance Public Method ZCL_ZANALYTICS_MATERIA_MPC_EXT->/IWBEP/IF_V4_MP_BASIC~DEFINE
* +-------------------------------------------------------------------------------------------------+
* | [--->] IO_MODEL TYPE REF TO /IWBEP/IF_V4_MED_MODEL
* | [--->] IO_MODEL_INFO TYPE REF TO /IWBEP/IF_V4_MODEL_INFO
* | [!CX!] /IWBEP/CX_GATEWAY
* +--------------------------------------------------------------------------------------</SIGNATURE>
method /IWBEP/IF_V4_MP_BASIC~DEFINE.
**TRY.
*CALL METHOD SUPER->/IWBEP/IF_V4_MP_BASIC~DEFINE
* EXPORTING
* IO_MODEL =
* IO_MODEL_INFO =
* .
** CATCH /IWBEP/CX_GATEWAY .
super->/IWBEP/IF_V4_MP_BASIC~DEFINE(
EXPORTING
IO_MODEL = IO_MODEL " OData V4 metadata model
IO_MODEL_INFO = IO_MODEL_INFO " Information of / for the metadata model
).
*CATCH /IWBEP/CX_GATEWAY. " SAP Gateway Exception
*CATCH /IWBEP/CX_GATEWAY. " SAP Gateway Exception
**ENDTRY.
define_materialdata( io_model ).
endmethod.
* <SIGNATURE>---------------------------------------------------------------------------------------+
* | Instance Public Method ZCL_ZANALYTICS_MATERIA_MPC_EXT->DEFINE_MATERIALDATA
* +-------------------------------------------------------------------------------------------------+
* | [--->] IO_MODEL TYPE REF TO /IWBEP/IF_V4_MED_MODEL
* +--------------------------------------------------------------------------------------</SIGNATURE>
METHOD define_materialdata.
DATA:
lo_action TYPE REF TO /iwbep/if_v4_med_action,
lo_action_import TYPE REF TO /iwbep/if_v4_med_action_imp,
lo_parameter TYPE REF TO /iwbep/if_v4_med_act_param,
lo_return TYPE REF TO /iwbep/if_v4_med_act_return.
"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
" Update Material price
"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
lo_action = io_model->create_action( 'MATERIALPRICEUPDATE' ).
lo_action->set_edm_name( 'MaterialPriceUpdate' ).
lo_action_import = lo_action->create_action_import( iv_action_import_name = 'MATERIALPRICEUPDATE' ).
lo_action_import->set_edm_name( 'MaterialPriceUpdate' ).
lo_action_import->set_entity_set_name( 'MATERIALPRICEDATASET' ).
* CATCH /iwbep/cx_v4_med. " Metadata exception
* CATCH /iwbep/cx_v4_med. " OData V4 - Metadata exception
io_model->create_primitive_type( iv_primitive_type_name = 'STRING' )->set_edm_type( /iwbep/if_v4_med_element=>gcs_edm_data_types-string ).
lo_parameter = lo_action->create_parameter( 'MATERIAL' ).
lo_parameter->set_edm_name( 'Material' ).
lo_parameter->set_primitive_type( 'STRING' ).
* lo_parameter->set_entity_type( 'MATERIALPRICEDATA' ).
* lo_parameter->set_is_binding_parameter( ).
* io_model->create_primitive_type( iv_primitive_type_name = 'STRING' )->set_edm_type( /iwbep/if_v4_med_element=>gcs_edm_data_types-string ).
* FREE lo_parameter.
lo_parameter = lo_action->create_parameter( 'PRICE' ).
lo_parameter->set_edm_name( 'price' ).
lo_parameter->set_primitive_type( 'STRING' ).
lo_return = lo_action->create_return( ).
lo_return->set_entity_type( 'MATERIALPRICEDATA' ).
lo_return->set_is_collection( ).
.
ENDMETHOD.
ENDCLASS.In the DPC_EXT Class, we implemented the Read and Update Price methods
The screenshot below is an example of the method “UPDATE_MATERIAL_PRICE”
You can see the places where Material Number and Material Price is being passed in the code.
Here is an example of implementation of this class
class ZCL_ZANALYTICS_MATERIA_DPC_EXT definition
public
inheriting from ZCL_ZANALYTICS_MATERIA_DPC
create public .
public section.
methods READ_MATERIAL_DATA
importing
!IO_REQUEST type ref to /IWBEP/IF_V4_REQU_BASIC_LIST
!IO_RESPONSE type ref to /IWBEP/IF_V4_RESP_BASIC_LIST
!IV_ORDERBY_STRING type STRING
!IV_WHERE_CLAUSE type STRING
!IV_SELECT_STRING type STRING
!LV_SKIP type I
!LV_TOP type I
!IS_DONE_LIST type /IWBEP/IF_V4_REQU_BASIC_LIST=>TY_S_TODO_PROCESS_LIST .
methods /IWBEP/IF_V4_DP_ADVANCED~EXECUTE_ACTION
redefinition .
methods /IWBEP/IF_V4_DP_BASIC~READ_ENTITY_LIST
redefinition .
protected section.
private section.
methods UPDATE_MATERIAL_PRICE
importing
!MATERIAL_NO type STRING
!PRICE type STRING .
ENDCLASS.
CLASS ZCL_ZANALYTICS_MATERIA_DPC_EXT IMPLEMENTATION.
* <SIGNATURE>---------------------------------------------------------------------------------------+
* | Instance Public Method ZCL_ZANALYTICS_MATERIA_DPC_EXT->/IWBEP/IF_V4_DP_ADVANCED~EXECUTE_ACTION
* +-------------------------------------------------------------------------------------------------+
* | [--->] IO_REQUEST TYPE REF TO /IWBEP/IF_V4_REQU_ADV_ACTION
* | [--->] IO_RESPONSE TYPE REF TO /IWBEP/IF_V4_RESP_ADV_ACTION
* | [!CX!] /IWBEP/CX_GATEWAY
* +--------------------------------------------------------------------------------------</SIGNATURE>
METHOD /iwbep/if_v4_dp_advanced~execute_action.
**TRY.
*CALL METHOD SUPER->/IWBEP/IF_V4_DP_ADVANCED~EXECUTE_ACTION
* EXPORTING
* IO_REQUEST =
* IO_RESPONSE =
* .
** CATCH /IWBEP/CX_GATEWAY .
**ENDTRY.
TYPES: BEGIN OF s_matprice_action,
material TYPE string,
price TYPE string,
END OF s_matprice_action.
DATA: ls_matprice_params TYPE s_matprice_action,
lt_materialprice TYPE STANDARD TABLE OF zif_odata_v4_mat_types=>gty_cds_views-materialprice.
DATA:
lv_type_kind TYPE /iwbep/if_v4_med_element=>ty_e_med_element_kind,
lv_action_name TYPE /iwbep/if_v4_med_element=>ty_e_med_internal_name,
lv_action_import_name TYPE /iwbep/if_v4_med_element=>ty_e_med_internal_name,
ls_done TYPE /iwbep/if_v4_requ_adv_action=>ty_s_todo_process_list,
ls_materialdata TYPE zmatprice,
lt_materialdata TYPE STANDARD TABLE OF zmatprice,
ls_todo TYPE /iwbep/if_v4_requ_adv_action=>ty_s_todo_list,
* ls_done TYPE /iwbep/if_v4_requ_adv_action=>ty_s_todo_process_list,
ls_textid LIKE if_t100_message=>t100key,
lo_navigation_node TYPE REF TO /iwbep/if_v4_navigation_node.
* todo list
io_request->get_todos( IMPORTING es_todo_list = ls_todo ).
IF ls_todo-process-action_import = abap_true.
io_request->get_action_import( IMPORTING ev_action_import_name = lv_action_name ).
io_request->get_action( IMPORTING ev_action_name = DATA(lv_action) ).
IF lv_action_name = 'MATERIALPRICEUPDATE'.
io_request->get_parameter_data(
IMPORTING
es_parameter_data = ls_matprice_params " Structure with the action parameters
).
ls_done-parameter_data = abap_true.
update_material_price(
EXPORTING
material_no = ls_matprice_params-material
price = ls_matprice_params-price
).
SELECT * FROM zmaterialprice INTO TABLE @lt_materialprice
WHERE materialno = @ls_matprice_params-material.
* FIELD-SYMBOLS: <fs_material> TYPE zmaterialprice.
*
* LOOP AT lt_materialprice ASSIGNING <fs_material>.
* <fs_material>-conditionamount = ls_matprice_params-price.
** <fs_material>-standardprice = ls_matprice_params-price.
* ENDLOOP.
io_response->set_busi_data( ia_busi_data = lt_materialprice ).
ls_done-action_import = abap_true.
io_response->set_is_done( ls_done ).
ENDIF.
ENDIF.
ENDMETHOD.
* <SIGNATURE>---------------------------------------------------------------------------------------+
* | Instance Public Method ZCL_ZANALYTICS_MATERIA_DPC_EXT->/IWBEP/IF_V4_DP_BASIC~READ_ENTITY_LIST
* +-------------------------------------------------------------------------------------------------+
* | [--->] IO_REQUEST TYPE REF TO /IWBEP/IF_V4_REQU_BASIC_LIST
* | [--->] IO_RESPONSE TYPE REF TO /IWBEP/IF_V4_RESP_BASIC_LIST
* | [!CX!] /IWBEP/CX_GATEWAY
* +--------------------------------------------------------------------------------------</SIGNATURE>
method /IWBEP/IF_V4_DP_BASIC~READ_ENTITY_LIST.
**TRY.
*CALL METHOD SUPER->/IWBEP/IF_V4_DP_BASIC~READ_ENTITY_LIST
* EXPORTING
* IO_REQUEST =
* IO_RESPONSE =
* .
** CATCH /IWBEP/CX_GATEWAY .
**ENDTRY.
data lv_entityset_name type /iwbep/if_v4_med_element=>ty_e_med_internal_name.
data: ls_todo_list type /iwbep/if_v4_requ_basic_list=>ty_s_todo_list,
ls_done_list type /iwbep/if_v4_requ_basic_list=>ty_s_todo_process_list,
lv_where_clause type string,
lv_select_string type string,
lv_orderby_string type string,
lt_selected_property type /iwbep/if_v4_runtime_types=>ty_t_property_path,
lv_skip type i value 0,
lv_top type i value 0,
iv_orderby_string type string,
iv_where_clause type string,
iv_select_string type string,
lt_orderby_property type abap_sortorder_tab.
io_request->get_todos( importing es_todo_list = ls_todo_list ).
" $orderby was called
if ls_todo_list-process-orderby = abap_true.
ls_done_list-orderby = abap_true.
"** only supported as of 751 or 752
"get Open SQL Order by Clause
"io_request->get_osql_orderby_clause( IMPORTING ev_osql_orderby_clause = lv_orderby_string ).
* CATCH /iwbep/cx_gateway. "
io_request->get_orderby( importing et_orderby_property = lt_orderby_property ).
clear lv_orderby_string.
loop at lt_orderby_property into data(ls_orderby_property).
if ls_orderby_property-descending = abap_true.
concatenate lv_orderby_string ls_orderby_property-name 'DESCENDING' into lv_orderby_string separated by space.
else.
concatenate lv_orderby_string ls_orderby_property-name 'ASCENDING' into lv_orderby_string separated by space.
endif.
endloop.
else.
" lv_orderby_string must not be empty.
lv_orderby_string = 'PRIMARY KEY'.
endif.
" $skip / $top handling
if ls_todo_list-process-skip = abap_true.
ls_done_list-skip = abap_true.
io_request->get_skip( importing ev_skip = lv_skip ).
endif.
if ls_todo_list-process-top = abap_true.
ls_done_list-top = abap_true.
io_request->get_top( importing ev_top = lv_top ).
endif.
" $select handling
if ls_todo_list-process-select = abap_true.
ls_done_list-select = abap_true.
io_request->get_selected_properties( importing et_selected_property = lt_selected_property ).
concatenate lines of lt_selected_property into lv_select_string separated by ','.
else.
"check coding. If no columns are specified via $select retrieve all columns from the model instead?
lv_select_string = '*'.
"or better to throw an exception instead?
endif.
" specific sales orders based on $filter?
if ls_todo_list-process-filter = abap_true.
ls_done_list-filter = abap_true.
io_request->get_filter_osql_where_clause( importing ev_osql_where_clause = lv_where_clause ).
endif.
io_request->get_entity_set( importing ev_entity_set_name = lv_entityset_name ).
CASE lv_entityset_name.
WHEN 'MATERIALPRICEDATASET'.
CALL METHOD me->READ_MATERIAL_DATA
EXPORTING
IO_REQUEST = io_request
IO_RESPONSE = io_response
IV_ORDERBY_STRING = lv_select_string
IV_WHERE_CLAUSE = lV_WHERE_CLAUSE
IV_SELECT_STRING = lV_SELECT_STRING
LV_SKIP = LV_SKIP
LV_TOP = LV_TOP
IS_DONE_LIST = ls_done_list
.
WHEN OTHERS.
RAISE EXCEPTION TYPE /iwbep/cx_v4_sample_bas
EXPORTING
textid = /iwbep/cx_v4_sample_bas=>resource_not_implemented
exception_category = /iwbep/cx_v4_sample_bas=>gcs_excep_categories-provider
http_status_code = '501'
is_for_user = abap_true.
ENDCASE.
endmethod.
* <SIGNATURE>---------------------------------------------------------------------------------------+
* | Instance Public Method ZCL_ZANALYTICS_MATERIA_DPC_EXT->READ_MATERIAL_DATA
* +-------------------------------------------------------------------------------------------------+
* | [--->] IO_REQUEST TYPE REF TO /IWBEP/IF_V4_REQU_BASIC_LIST
* | [--->] IO_RESPONSE TYPE REF TO /IWBEP/IF_V4_RESP_BASIC_LIST
* | [--->] IV_ORDERBY_STRING TYPE STRING
* | [--->] IV_WHERE_CLAUSE TYPE STRING
* | [--->] IV_SELECT_STRING TYPE STRING
* | [--->] LV_SKIP TYPE I
* | [--->] LV_TOP TYPE I
* | [--->] IS_DONE_LIST TYPE /IWBEP/IF_V4_REQU_BASIC_LIST=>TY_S_TODO_PROCESS_LIST
* +--------------------------------------------------------------------------------------</SIGNATURE>
method READ_MATERIAL_DATA.
"entity type specific data types
DATA : lt_key_range_materialdata type ZIF_ODATA_V4_MAT_TYPES=>gt_key_range-materialprice,
ls_key_range_salesorder type line of ZIF_ODATA_V4_MAT_TYPES=>gt_key_range-materialprice,
lt_materialprice type standard table of ZIF_ODATA_V4_MAT_TYPES=>gty_cds_views-materialprice,
lt_key_materialprice type standard table of ZIF_ODATA_V4_MAT_TYPES=>gty_cds_views-materialprice.
"generic data types
data: ls_todo_list type /iwbep/if_v4_requ_basic_list=>ty_s_todo_list,
ls_done_list type /iwbep/if_v4_requ_basic_list=>ty_s_todo_process_list,
lv_count type i,
lv_max_index type i.
" Get the request options the application should/must handle
io_request->get_todos( importing es_todo_list = ls_todo_list ).
" Get the request options the application has already handled
ls_done_list = ls_done_list.
" specific sales orders based on navigation?
if ls_todo_list-process-key_data = abap_true.
io_request->get_key_data( importing et_key_data = lt_key_materialprice ).
loop at lt_key_materialprice into data(ls_key_entity).
append value #( sign = 'I' option = 'EQ' low = ls_key_entity-materialno ) to lt_key_range_materialdata.
endloop.
ls_done_list-key_data = abap_true.
endif.
" read_list must either be called with a filter or via navigation
" or $top has to be used to avoid a full table scan
if ls_todo_list-process-filter = abap_false
and ls_todo_list-process-key_data = abap_false
and lv_top = 0.
endif.
if ls_todo_list-return-busi_data = abap_true.
" read data from the CDS view
"value for max_index must only be calculated if the request also contains a $top
if lv_top is not initial.
lv_max_index = lv_top + lv_skip.
else.
lv_max_index = 0.
endif.
select (iv_select_string) from ZMATERIALPRICE
where (iv_where_clause)
and materialno in @lt_key_range_materialdata
order by (iv_orderby_string)
into corresponding fields of table @lt_materialprice
up to @lv_max_index rows.
"skipping entries specified by $skip
"not needed as of NW751 where OFFSET is supported in Open SQL
if lv_skip is not initial.
delete lt_materialprice to lv_skip.
endif.
*
io_response->set_busi_data( it_busi_data = lt_materialprice ).
else.
"if business data is requested count will be calculated by
"the framework
if ls_todo_list-return-count = abap_true.
select count( * ) from ZMATERIALPRICE
where (iv_where_clause) and
materialno in @lt_key_range_materialdata
into @lv_count.
io_response->set_count( lv_count ).
endif.
endif.
ls_done_list = 'X'.
io_response->set_is_done( ls_done_list ).
endmethod.
* <SIGNATURE>---------------------------------------------------------------------------------------+
* | Instance Private Method ZCL_ZANALYTICS_MATERIA_DPC_EXT->UPDATE_MATERIAL_PRICE
* +-------------------------------------------------------------------------------------------------+
* | [--->] MATERIAL_NO TYPE STRING
* | [--->] PRICE TYPE STRING
* +--------------------------------------------------------------------------------------</SIGNATURE>
METHOD update_material_price.
DATA : ls_key_fields TYPE komg,
ls_copy_records TYPE komv,
lt_copy_records TYPE TABLE OF komv,
ls_konp TYPE konp.
CLEAR : ls_key_fields, lt_copy_records.
REFRESH : lt_copy_records.
SELECT SINGLE * FROM a304 INTO @DATA(ls_mat_cond) WHERE
kappl = 'V' AND
kschl = 'PPR0' AND
vkorg = '1710' AND
vtweg = '10' AND
matnr = @material_no.
CHECK sy-subrc = 0.
SELECT SINGLE * FROM konp
INTO ls_konp
WHERE knumh = ls_mat_cond-knumh
AND loevm_ko <> 'X'.
ls_key_fields-bukrs = '1710'.
ls_key_fields-vkorg = '1710'.
ls_key_fields-vtweg = '10'.
ls_key_fields-matnr = material_no.
*lt_copy_records-knumv = ls_mat_cond-knumh.
ls_copy_records-kposn = ls_konp-kopos.
ls_copy_records-kappl = 'V'.
ls_copy_records-kschl = 'PPR0'.
ls_copy_records-kbetr = price.
ls_copy_records-waers = ls_konp-konwa.
ls_copy_records-krech = ls_konp-krech.
ls_copy_records-stfkz = ls_konp-stfkz.
ls_copy_records-kpein = ls_konp-kpein.
ls_copy_records-kmein = ls_konp-kmein.
ls_copy_records-zaehk_ind = ls_konp-zaehk_ind.
APPEND ls_copy_records TO lt_copy_records.
CALL FUNCTION 'RV_CONDITION_COPY'
EXPORTING
application = 'V'
condition_table = '304'
condition_type = 'PPR0'
enqueue = 'X'
key_fields = ls_key_fields
maintain_mode = 'B'
no_authority_check = 'X'
TABLES
copy_records = lt_copy_records
EXCEPTIONS
enqueue_on_record = 1
invalid_application = 2
invalid_condition_number = 3
invalid_condition_type = 4
no_authority_ekorg = 5
no_authority_kschl = 6
no_authority_vkorg = 7
no_selection = 8
table_not_valid = 9
no_material_for_settlement = 10
no_unit_for_period_cond = 11
no_unit_reference_magnitude = 12
invalid_condition_table = 13
OTHERS = 14.
IF sy-subrc = 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.ENDIF.
CALL FUNCTION 'RV_CONDITION_SAVE'.
COMMIT WORK AND WAIT.
* CALL FUNCTION 'RV_CONDITION_RESET'.
* COMMIT WORK.
* SELECT SINGLE * FROM zmaterialprice INTO @DATA(ls_materialprice) WHERE materialno = @mat.
* ls_materialprice-conditionamount = price.
* ls_materialprice-standardprice = price.
*
* UPDATE zmaterialprice FROM ls_materialprice .
ENDIF.
ENDMETHOD.
ENDCLASS.Test the OData service URL
Once the OData service has been implemented you can call it from a URL. To retrieve this URL you can type the transaction code = /n/IWFND/V4_ADMIN
This transaction code is to open OData v4 services. Here you can see list of OData v4 services available in the system and also test them
Then you need to select “ZANALYTICS_MATERIAL” entry and click on Service Test -> Gateway Client
Call an S/4Hana OData action from an Application
In Analytics Designer in SAP Analytics Cloud, you can define OData Services based on an existing live connection in your system which was created using CORS (Cross-origin resource sharing) connectivity
Before calling the OData action “MaterialPriceUpdate“ (that we have defined in our S/4Hana system) from an application the main steps are:
- Define the CORS configuration to your system according to the help page.
- Additionally: Configure support for “if-match” as allowed header in your system.
- Define a direct connection to this system.
- Open an application and add an OData service technical component
Regarding the CORS configuration for S/4Hana system you can consult the following blog
Define a direct connection to this system
In our SAC system we declared a S/4Hana connectivity where we specified different parameters:
- The name of the connection = S4OPHE4
- The connection type = Direct
- Host: cihe4.internal.sde.cloud.sap
- HTTPS Port: 50081
- Client: 400
And we used the SAML Single Sign On authentication method.
Add and configure the OData Services technical component
To be able to call the OData service we needed to create an OData Service technical component in the application. This component has few properties:
Name: name of your technical component
Connection: connection to the S/4Hana system
End-Point URL: OData Service URL generated in S/4Hana
In an analytic application in the Layout Outline in the Scripting Section you can create a new OData Service by clicking on plus button.
In the side panel you can change the name, select the System from the list of available systems whose connections are already created in SAC under Connections, and specify the End-Point URL of the OData Service manually.
In the Metadata section you see all the Entity sets and Actions expose by the OData service. We find well the action “MaterialPriceUpdate“ that we defined previously in our S/4Hana system
Call the OData action
In the demo when we click on the “Update” button we use the following code to call the “MaterialPriceUpdate” action.
The executeAction method accepts 2 arguments:
- Name of an OData Action (in our case MaterialPriceUpdate)
- Parameters (in our case price and Material)
When this method is called then the price is udpated on the S/4Hana system side.
We can check that the price has been correctly changed in the S/4Hana system. In our system we select the "Prices" application.
Then we execute PPR0 condition type
But before we need to change the condition display. This is a very important step. By default, this set material price app is in edit mode, which will lock the price changes. So you neet to set it to display mode first.
Finally we can see that the price has changed to 1104,99 USD.
In Conclusion
In this blog post we learned how to create an OData Service in S/4Hana system and how to call it from an analytic application. Because we used OData v4 we were able to udpate values in S/4Hana system direclty from an analytical application. This workfow is called a close loop scenario and it’s very powerful as a business user can explore, analyze and do simulation of its data and take concrete actions from a simple application.
If you want to know more about all the OData services capabilities in Analytics Designer look at the developer handbook.
- SAP Managed Tags:
5 Comments
