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.