CRM and CX Blogs by Members
Find insights on SAP customer relationship management and customer experience products in blog posts from community members. Post your own perspective today!
cancel
Showing results for 
Search instead for 
Did you mean: 
sumeet_gehlot
Contributor
1,349


This blog will give an overview of sending Provider Contract Custom fields of CRM Order to S4 HANA Provider Contract.

Step1  : Create AET field in SAP CRM using Administrator Business Role.

Enhanced Object - PROVIDER_CONTRACT , Field name  - ZZFIELD using the AET Application Enhancement tool in SAP CRM. In CRMD_ORDERADM_I table Object - ORDERADM_I

Step 2 : Create Z Implementation class of BADI - CRM_ISX_ERP_CONTRACT and redefine                            method  map_create & add custom logic to send the data into CT_ITEM_PARAMETER.

 

Step 3 : Create the same field ZZFIELD in S4 HANA and Append fields in the standard structures  - CI_DFKK_VT_I, CI_FKK_VT_I_DI for saving the provider contract data into table DFKK_VT_I

 

Step 4 : Create Z Implementation class of BADI - FICA_CONTRACT_COL_MAINTAIN and redefine method contract_change & add custom logic to save the data.

 
Method IF_CRM_ISX_ERP_CONTRACT~MAP_CREATE.

*Pass Item guid

CALL FUNCTION 'CRM_PROVIDER_ITEM_STRUCT'
EXPORTING
iv_item_guid = item_guid
IMPORTING
ev_main_rate_plan_item = rateplan_guid
et_orderadm_i = orderadm_i
et_ist_ita3_ext = ist
EXCEPTION
error_occured = 1
OTHERS = 2.

IF sy-subrc EQ 0.
DATA(ls_orderadm_i) = orderadm_i[ guid = ls_item-item_guid ].
IF sy-subrc EQ 0.
DATA(ls_ist) = ist[ ref_guid = rateplan_guid ].
IF sy-subrc EQ 0.
APPEND VALUE #( contract_id = ls_ist-a3extref contract_item_id = ls_ist-cont_itm_id
name = 'ZZFIELD' value = ls_orderadm_i-zzfield ) TO ct_item_parameter.
ENDIF. ENDIF. ENDIF.


ENDMETHOD.

 
METHOD if_fica_contract_maintain_badi~contract_change.

DATA : ls_data TYPE ci_fkk_vt_i_di,
lr_fields TYPE REF TO cl_abap_structdescr.

FIELD-SYMBOLS <ls_any> TYPE any.

TRY.
lr_fields ?= cl_abap_typedescr=>describe_by_data(ls_data).
CATCH cx_sy_move_cast_error.
ENDTRY.

DATA(lt_components) = lr_fields->components.

LOOP AT is_contract-items INTO ls_contract.
LOOP AT ls_contract-parameters into ls_items.
READ TABLE lt_components into data(ls_component) WITH KEY name = ls_items-parameter-name.
IF sy-subrc EQ 0.
ASSIGN COMPONENT ls_component-name OF STRUCTURE ls_data to <ls_any>.
IF sy-subrc EQ 0.
<ls_any> = ls_items-parameter-value.
ENDIF.
ENDIF.
ENDLOOP.
ENDLOOP.

IF ls_data IS NOT INITIAL.
READ TABLE ct_vt_item_data ASSIGNING FIELD-SYMBOL(<ls_item>) WITH KEY vtpid = ls_contract-item-contract_item_id.
IF sy-subrc EQ 0.
<ls_vt_item>-zzfield = ls_data-zzfield.
ENDIF.
ENDIF.
Labels in this area