Sample ABAP Program to Update Customer with CMD_EI_API

This is a sample ABAP program to Update Customer Or Person / contact with the SAP API Class CMD_EI_API for Customer Modification.
First let’s introduce the main Class Methods , then a sample ABAP Program showing how to use the CMD_EI_API class to update SAP Customer Data.

Class CMD_EI_API Methods

The list of CMD_EI_API Methods will be:

Update Customer with CMD_EI_API Sample ABAP Coding

This sample covers updating customer’s contacts using the Class API CMD_EI_API.

  
  DATA: ls_knvp                   TYPE knvp.
  DATA: ls_master_data            TYPE cmds_ei_main,
        ls_master_data_correct    TYPE cmds_ei_main,
        ls_message_correct        TYPE cvis_message,
        ls_master_data_defective  TYPE cmds_ei_main,
        ls_message_defective      TYPE cvis_message.

  DATA: lt_customers              TYPE cmds_ei_extern_t,
        ls_customer               TYPE cmds_ei_extern,
        ls_sales_data             TYPE cmds_ei_cmd_sales,
        lt_sales                  TYPE cmds_ei_sales_t,
        ls_sales                  TYPE cmds_ei_sales,
        lt_functions              TYPE cmds_ei_functions_t,
        ls_function               TYPE cmds_ei_functions.


"it_relation contains the list of Contacts to uplaod 

 LOOP AT it_relation ASSIGNING .
    MOVE  TO ls_rel.

    AT NEW kunnr.

      CLEAR lv_vkorg.

      REFRESH : lt_functions, lt_sales.
      CLEAR: ls_customer, ls_sales_data.

      SELECT SINGLE vkorg FROM knvp
        INTO lv_vkorg
        WHERE kunnr = ls_rel-kunnr.

      ls_customer-header-object_instance-kunnr = ls_rel-kunnr.
      ls_customer-header-object_task  = 'U'. " I/U/D
      ls_sales_data-current_state = space.
      ls_sales-task = 'M' .
      ls_sales-data_key-vkorg = lv_vkorg.
      ls_sales-data_key-vtweg = '01'.
      ls_sales-data_key-spart = '01'.
      ls_sales-functions-current_state = space.

    ENDAT.

    CLEAR ls_function.
    " Suppression
    IF NOT ( sy-datum GE ls_rel-date_debut AND sy-datum LE ls_rel-date_fin ) .
      ls_function-task = 'D'. " I/U/D/M           
    ENDIF.

    IF ls_function-task NE 'D'.
      SELECT SINGLE * FROM knvp INTO ls_knvp
        WHERE kunnr = ls_rel-kunnr
        AND   ( kunn2 = ls_rel-kunn2 OR parnr = ls_rel-kunn2 ).
      IF sy-subrc NE 0 .
        ls_function-task = 'I'.
      ELSE.
        ls_function-task = 'U'.
      ENDIF.
    ENDIF.

    ls_function-data_key-parvw = ls_rel-parvw. 
    ls_function-data-partner   = ls_rel-kunn2. 
*    ls_function-datax-partner  = 'X'.          

    APPEND ls_function TO lt_functions.

    AT END OF kunnr.

      ls_sales-functions-functions = lt_functions[].
      APPEND ls_sales TO lt_sales.

      ls_sales_data-sales[]  = lt_sales[].
      ls_customer-sales_data = ls_sales_data.
      APPEND ls_customer TO lt_customers.
    ENDAT.

  ENDLOOP.

  ls_master_data-customers = lt_customers[].


  cmd_ei_api=>initialize( ).


  LOOP AT lt_customers INTO ls_customer.
    cmd_ei_api=>lock( iv_kunnr = ls_customer-header-object_instance-kunnr ).
  ENDLOOP.
  
  " Update Customer with CMD_EI_API
  CALL METHOD cmd_ei_api=>maintain_bapi
    EXPORTING
      iv_test_run              = space
      iv_collect_messages      = 'X'
      is_master_data           = ls_master_data
    IMPORTING
      es_master_data_correct   = ls_master_data_correct
      es_message_correct       = ls_message_correct
      es_master_data_defective = ls_master_data_defective
      es_message_defective     = es_message_defective.

  IF es_message_defective IS INITIAL.
    BREAK-POINT.
    COMMIT WORK.
  ELSE.
    BREAK-POINT.
  ENDIF.

  LOOP AT lt_customers INTO ls_customer.
    cmd_ei_api=>unlock( iv_kunnr = ls_customer-header-object_instance-kunnr ) .
  ENDLOOP.