External Reference field not populating via CRM_ORDER_MAINTAIN

Question

Hi ,
I am using the FM CRM_ORDER_MAINTAIN and wanted to add EXTERNAL REFERENCE Field in existing Complain Order(Transaction :CRMD_ORDER). I am passing the following parameter to add the Reference. But it is not updating the
with the follwoing Reference number. Could you please help on this.
  ls_ext_ref-REFERENCE_TYPE           = 'Z002'.
  ls_ext_ref-REFERENCE_NUMBER      = '12345678'.
  ls_ext_ref-REFERENCE_TYPE_T        = 'SOCS Number'.
ls_ext_ref-REFERENCE_MODE           = 'A'.
  ls_Ext_ref-handle                                = '0000000001'.
  ls_ext_ref-ref_guid          = gs_orderadm_h-guid.
  ls_ext_ref-ref_kind          = gc_object_ref_kind-orderadm_h.
  INSERT ls_ext_ref INTO TABLE gt_ext_ref.
  ls_input_field-ref_guid    = gs_orderadm_h-guid.
  ls_input_field-ref_kind    = gc_object_ref_kind-orderadm_h.
  ls_input_field-objectname  = gc_object_name-ext_ref.
  ls_input_field-LOGICAL_KEY = '0000000001'.
  ls_input_field_names-fieldname = 'REFERENCE_TYPE_T'.
  INSERT ls_input_field_names INTO TABLE ls_input_field-field_names.
  ls_input_field_names-fieldname = 'REFERENCE_TYPE'.
  INSERT ls_input_field_names INTO TABLE ls_input_field-field_names.
  ls_input_field_names-fieldname = 'REFERENCE_NUMBER'.
  INSERT ls_input_field_names INTO TABLE ls_input_field-field_names.
  INSERT ls_input_field  INTO TABLE  gt_input_fields.
CALL FUNCTION 'CRM_ORDER_MAINTAIN'
    EXPORTING
    ct_orderadm_h   = gt_orderadm_h
     it_ext_ref           = gt_ext_ref
   CHANGING
      ct_input_fields = gt_input_fields.
Get guids
  LOOP AT gt_orderadm_h INTO gs_orderadm_h.
    INSERT gs_orderadm_h-guid INTO TABLE gt_obj_guids.
  ENDLOOP.
  CALL FUNCTION 'CRM_ORDER_SAVE'
    EXPORTING
      IT_OBJECTS_TO_SAVE = gt_obj_guids
    EXCEPTIONS
      DOCUMENT_NOT_SAVED = 1
      OTHERS             = 2.

Answer 1

Hi,
For external reference field
Use Crm_order_read funtion module to read the details.
get the details  of sales  lt_sales and create same structure of sales and pass the value.
IF lt_sales IS NOT INITIAL.
    CLEAR ls_sales.
    READ TABLE lt_sales INTO ls_sales INDEX 1.
    IF sy-subrc = 0.
      ls_sales-po_number_sold  = ls_orderadm_h-object_id. """" Ticket no
      MODIFY lt_sales FROM ls_sales INDEX 1.
    ENDIF.
    CLEAR ls_sales.
    CLEAR ls_sales1.
    READ TABLE lt_sales INTO ls_sales INDEX 1.
    IF sy-subrc = 0.
      MOVE-CORRESPONDING  ls_sales TO ls_sales1.
      ls_sales1-ref_handle    = 1.
      ls_sales1-ref_guid      = lv_hguid .                          ls_sales1-ref_kind      = 'A' .
      h2_ls_sales1-po_number_sold = ls_sales-po_number_sold.  "" this is external reference no field._h2
      INSERT ls_sales1 INTO TABLE lt_sales1.
    ENDIF.
    " Input Fields
    ls_input_field-ref_handle =  1.
    ls_input_field-ref_kind   = 'A' .                  "A
    ls_input_field-ref_guid   = lv_hguid.                   "External System GUID Assignment."
    ls_input_field-objectname = sales.                   "SALES
    ls_input_field_names-fieldname = PO_NUMBER_SOLD.
    INSERT ls_input_field_names INTO TABLE ls_input_field-field_names.
    ls_input_field_names-fieldname = PO_DATE_SOLD.
    INSERT ls_input_field_names INTO TABLE ls_input_field-field_names.
    INSERT ls_input_field  INTO TABLE  it_input_fields.
  ENDIF.
Pass lt_sales1 to crm_order_maintain and crm_order_save.