CRM/ABAP-Update BP Partner data.

Question

Hi All,
I'm trying to update partner information for a BP.
I've put in the code as below, but it doesnt seem to work. Any ideas?
Thanks and Regards,
Preethi.
REPORT  zupgrade_activity.
DATA : lt_guid           TYPE TABLE OF crmt_object_guid,
      lt_guid_tab        TYPE crmt_object_guid_tab,
       it_guid_tab       TYPE crmt_object_guid_tab,
       ls_guid           TYPE crmt_object_guid,
       ls_partner        TYPE crmt_partner_com,
       lt_exception      TYPE crmt_exception_t.
DATA : lt_new_partner    TYPE crmt_partner_comt,
       et_saved_objects  TYPE  crmt_return_objects,
       et_not_saved_objects TYPE crmt_object_guid_tab,
       lt_input_fields      TYPE crmt_input_field_tab,
       ls_input_fields      TYPE crmt_input_field,
       lt_input_field_names TYPE crmt_input_field_names_tab,
       ls_input_field_names TYPE crmt_input_field_names.
DATA : lt_orderadm_h      TYPE crmt_orderadm_h_wrkt,
       it_partner         TYPE crmt_partner_external_wrkt,
       lt_attributes_com  TYPE crmt_partner_attribute_com_tab,
       lt_partner_com     TYPE crmt_partner_comt.
..Step1..Retrieve all records with process type Z061 on specified date..
SELECT guid FROM crmd_orderadm_h INTO TABLE lt_guid
WHERE
process_type = 'Z061' AND
created_at GE '20080317000000' AND
created_at LE '20080517235959'.
lt_guid_tab = lt_guid.
IF lt_guid IS NOT INITIAL.
  LOOP AT lt_guid INTO ls_guid.
.Step2..For each record update partner information..
    ls_partner-ref_guid = ls_guid.
    ls_partner-ref_kind = 'A'.
    ls_partner-ref_partner_fct = 00000014.
    ls_partner-ref_partner_no = 0000001040.
    ls_partner-partner_fct = 00000014.
    ls_partner-partner_no = 0000001040.
    ls_partner-ref_no_type = 'BP'.
    ls_partner-ref_display_type = 'BP'.
    ls_partner-relation_partner = '459D77E836F0284481185E26CF1E72F3'.
    ls_partner-display_type =   'BP'.
    ls_partner-no_type =   'BP'.
    ls_partner-ref_partner_handle = '0001'.
    INSERT ls_partner INTO TABLE lt_new_partner.
..Step 3..Populate input fields for changing table in FM CRM_ORDER_MAIN.
    ls_input_fields-ref_guid = ls_guid.
    ls_input_fields-ref_kind = 'A'.
    ls_input_fields-objectname = 'PARTNER'.
    ls_input_field_names-fieldname = 'DISPLAY_TYPE'.
    INSERT ls_input_field_names INTO TABLE lt_input_field_names.
    ls_input_field_names-fieldname = 'KIND_OF_ENTRY'.
    INSERT ls_input_field_names INTO TABLE lt_input_field_names.
    ls_input_field_names-fieldname = 'NO_TYPE'.
    INSERT ls_input_field_names INTO TABLE lt_input_field_names.
    ls_input_field_names-fieldname = 'PARTNER_FCT'.
    INSERT ls_input_field_names INTO TABLE lt_input_field_names.
    ls_input_field_names-fieldname = 'PARTNER_NO'.
    INSERT ls_input_field_names INTO TABLE lt_input_field_names.
    ls_input_field_names-fieldname = 'REF_PARTNER_NO'.
    INSERT ls_input_field_names INTO TABLE lt_input_field_names.
    ls_input_field_names-fieldname = 'REF_PARTNER_FCT'.
    INSERT ls_input_field_names INTO TABLE lt_input_field_names.
    ls_input_fields-field_names = lt_input_field_names.
    INSERT ls_input_fields INTO TABLE lt_input_fields.
    CALL FUNCTION 'CRM_ORDER_MAINTAIN'
      EXPORTING
        it_partner            = lt_new_partner
      CHANGING
        ct_input_fields       = lt_input_fields
        ct_partner_attributes = lt_attributes_com
      EXCEPTIONS
        error_occurred        = 1
        document_locked       = 2
        no_change_allowed     = 3
        no_authority          = 4
        OTHERS                = 5.
    INSERT ls_guid INTO TABLE it_guid_tab.
    CALL FUNCTION 'CRM_ORDER_SAVE'
      EXPORTING
        it_objects_to_save       = it_guid_tab
     IMPORTING
       et_saved_objects          = et_saved_objects
       et_objects_not_saved       = et_not_saved_objects
     EXCEPTIONS
       document_not_saved         = 1
       OTHERS                     = 2.
    CLEAR : ls_partner.
    CLEAR : lt_input_fields, ls_input_fields ,lt_input_field_names ,ls_input_field_names.
    COMMIT WORK AND WAIT.
*..Step4..Calling FM CRM_ORDER_READ in order to check if the record has been updated after saving.
    CALL FUNCTION 'CRM_ORDER_READ'
      EXPORTING
        it_header_guid       = it_guid_tab
      IMPORTING
        et_orderadm_h        = lt_orderadm_h
        et_partner           = it_partner
      EXCEPTIONS
        document_not_found   = 1
        error_occurred       = 2
        document_locked      = 3
        no_change_authority  = 4
        no_display_authority = 5
        OTHERS               = 6.
    IF sy-subrc NE 0.
      RETURN.
    ENDIF.
    CLEAR : it_guid_tab.
  ENDLOOP.
ENDIF.

Answer 1

Hi Ajay,
ELM?
I can tell you that normally, business partners are not physically deleted from the database, but only deletion flagged. It is however possible: sending a delete Bdoc is all it takes. A program for doing this is available in the OSS system.
Duplicate checks (based on address data f.e.) are usually performed by third-part software. We are using Trillium for this purpose, but I can't recommend it.
Kind regards,
Michael.