Updating address of a partner in crmd_order Service Contract

Question

Hello everybody,
           I have a requirement of updating address of partners in service contracts in SAP CRM. I have tried to create an address number and person number and pass it to crm_order_maintain but it is not working. Please help me with this.
Thanks in advance.
Regards,
Srujana.

Answer 1

I generated a partner set guid from the object guid and obtained new addr and person numbers by using this partner set guid. I am then passing them to crm_order_maintain using the following code but it doesnot seem to work. Please refer to this code and help me.
data: doc_id TYPE char32,
      new_addrnr TYPE AD_ADDRNUM,
      new_addrnp TYPE AD_PERSNUM.
*doc_id = wa_ls_orderadm_h-guid.
DATA: partner_set_guid TYPE crmt_object_guid.
CALL FUNCTION 'CRM_LINK_GET_OW'
  EXPORTING
    iv_guid_hi                     = wa_ls_orderadm_h-guid
   IV_OBJNAME_HI                  = 'ORDERADM_H'
   IV_OBJNAME_SET                 = 'PARTNER'
  IV_GET_ALL                     =
   IV_INHERIT_FROM_STR            = 'X'
IMPORTING
  ET_LINK                        =
   EV_GUID_SET                    = partner_set_guid
EXCEPTIONS
   INVALID_INPUT_DATA             = 1
   NO_ALLOCATED_OBJ_FOUND         = 2
   UNDEFINED_INTERNAL_ERROR       = 3
   OTHERS                         = 4
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 'COM_PARTNER_ADDRESS_COPY'
  EXPORTING
    iv_caller                  = 'CRM'
    IV_DOCUMENT_ID             = doc_id
    iv_partnerset_guid         = partner_set_guid"'00000000000000000000000000000000'
    iv_addr_nr                 = ls_partner_wrk-addr_nr
    IV_ADDR_NP                 = ls_partner_wrk-addr_np
    iv_addr_type               = '2'
  IV_CONVERSION_3_TO_2       = ' '
  IV_MAKE_EMPTY              = ' '
  IV_NEW_ADDRESS_TYPE        = ' '
IMPORTING
   EV_NEW_ADDR_NR             =  new_addrnr
   EV_NEW_ADDR_NP             = new_addrnp
  EV_NEW_ADDR_TYPE           =
EXCEPTIONS
   ERROR_OCCURRED             = 1
   PARAMETER_ERROR            = 2
   OTHERS                     = 3
IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
i passed the generated addrnr and addrnp to the crm_order_maintain as follows
wa_partner1-addr_nr        = new_addrnr."ls_partner_wrk-addr_nr.
wa_partner1-addr_np        = new_addrnp."ls_partner_wrk-addr_np.
wa_partner-addr_nr        = new_addrnr."ls_partner_wrk-addr_nr.
wa_partner-addr_np        = new_addrnp."ls_partner_wrk-addr_np.
wa_partner-addr_type      = ls_partner_wrk-addr_type.
INSERT wa_partner INTO TABLE it_partner.
APPEND wa_partner_att TO it_partner_att.
   INSERT wa_field_names INTO TABLE it_field_names.
    wa_field_names-fieldname  = 'ADDR_NP'.
    wa_field_names-CHANGEABLE  = 'B'.
    INSERT wa_field_names INTO TABLE it_field_names.
    wa_field_names-fieldname  = 'ADDR_NR'.
    wa_field_names-CHANGEABLE  = 'B'.
    INSERT wa_field_names INTO TABLE it_field_names.
    wa_field_names-fieldname  = 'ADDR_ORIGIN'.
    wa_field_names-CHANGEABLE  = 'B'.
    INSERT wa_field_names INTO TABLE it_field_names.
    wa_field_names-fieldname  = 'ADDR_TYPE'.
    wa_field_names-CHANGEABLE  = 'B'.
    INSERT wa_field_names INTO TABLE it_field_names.
    wa_field_names-fieldname  = 'STD_BP_ADDRESS'.
    wa_field_names-CHANGEABLE  = 'B'.
    INSERT wa_field_names INTO TABLE it_field_names.
DATA : lv_bp TYPE bu_partner,
         lv_bp_log(16) TYPE c,
         lv_partner_guid TYPE bu_partner_guid,
         lv_msg_text TYPE bapi_msg,
         lv_error_text TYPE char8000,
         lv_bpbp(4) TYPE c VALUE 'BPBP',
         lv_logical_key TYPE crmt_logical_key,
         lv_length TYPE i.
SELECT SINGLE partner FROM but000 INTO lv_bp  WHERE partner_guid = wa_partner-partner_no.
*Building Logical Key for maintaining partner
      CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
        EXPORTING
          input  = lv_bp
        IMPORTING
          output = lv_bp.
      CONDENSE lv_bp NO-GAPS.
     lv_bp_log = lv_partner_guid+0(10) ."lv_bp.
      CONDENSE lv_bp_log NO-GAPS.
      CONCATENATE '0000'
                  'Z0000009'
                  lv_bp_log
                  lv_bpbp
                  INTO lv_logical_key
                  RESPECTING BLANKS.
   wa_input_fields-ref_handle  = lv_handle.
wa_input_fields-ref_guid = wa_ls_orderadm_h-guid.
wa_input_fields-ref_kind    = 'A'.
wa_input_fields-objectname  = 'PARTNER'.
*wa_input_fields-ref_handle  = '0000000001'.
wa_input_fields-logical_key = lv_logical_key.
wa_input_fields-field_names = it_field_names.
INSERT wa_input_fields INTO TABLE ct_input_fields.
DATA: lv_created_partnerset_guid           TYPE CRMT_OBJECT_GUID.
CALL FUNCTION 'CRM_ORDER_MAINTAIN'
EXPORTING
   IT_PARTNER                    = it_partner
IMPORTING
   ET_EXCEPTION                  = it_exception
CHANGING
  CT_ORDERADM_H                 =
  CT_ORDERADM_I                 =
   CT_INPUT_FIELDS               = ct_input_fields
  CV_LOG_HANDLE                 =
  CT_PARTNER_ATTRIBUTES         =
  CT_DOC_FLOW                   =
EXCEPTIONS
   ERROR_OCCURRED                = 1
   DOCUMENT_LOCKED               = 2
   NO_CHANGE_ALLOWED             = 3
   NO_AUTHORITY                  = 4
   OTHERS                        = 5
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 'CRM_PARTNER_MAINTAIN_SINGLE_OW'
EXPORTING
  IV_REF_GUID                      = wa_ls_orderadm_h-guid
  IV_REF_KIND                      = ls_partner_wrk-ref_kind
  IS_PARTNER_COM                   = wa_partner1
  IV_POPULATE_MODE                 = 'X'
  IV_CHECK_PARTNER_ONLY            = ' '
  IS_PARTNER_CONTROL               = wa_partner_control
IMPORTING
  EV_CREATED_PARTNERSET_GUID       = lv_created_partnerset_guid
CHANGING
  CT_INPUT_FIELD_NAMES             = it_field_names
  CT_PARTNER_ATTRIBUTES_COM        = it_partner_att
EXCEPTIONS
  ERROR_OCCURRED                   = 1
  OTHERS                           = 2
*IF sy-subrc = 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ELSE.
DATA: IT_SAVED_OBJECTS TYPE  CRMT_RETURN_OBJECTS,
    REFERENCE(ET_EXCEPTION) TYPE  CRMT_EXCEPTION_T
      IT_OBJECTS_NOT_SAVED TYPE  CRMT_OBJECT_GUID_TAB.
*DATA: wa_order TYPE CRMT_ORDERADM_H_COM.
*MOVE-CORRESPONDING wa_ls_orderadm_h to wa_order.
*CALL FUNCTION 'CRM_ORDER_H_COMPLETE_OW'
CHANGING
   cs_orderadm_h       = wa_order.
ls_act_to_save = wa_ls_orderadm_h-guid.
  APPEND ls_act_to_save TO lt_act_to_save.
  CALL FUNCTION 'CRM_ORDER_SAVE'
    EXPORTING
      it_objects_to_save = lt_act_to_save
    IMPORTING
      ET_SAVED_OBJECTS = IT_SAVED_OBJECTS
      et_exception = it_exception
      ET_OBJECTS_NOT_SAVED = IT_OBJECTS_NOT_SAVED
    EXCEPTIONS
      document_not_saved = 1
      OTHERS             = 2.
  IF sy-subrc <> 0.
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
            WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  ELSE.
   WAIT UP TO 2 SECONDS.
  commit work.
    CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
      EXPORTING
        wait = c_x.
  WRITE: / 'Service Contract updated = ', p_obj_id.
  ENDIF.
ENDIF.