CRM_ORDER_MAINTAIN Partner is not deleted.

Question

Hi All,
I wanted to remove "employee responsible" partner from Order via Z* program. Following is my code. But i m still not able to delete it. Can anybody have a look at code?
lv_partner-ref_guid = 'DDCBF5EB8FA58FF19F94001E6849B4E8'.
lv_partner-ref_handle = '0000000000'.
lv_partner-ref_kind = 'A'.
lv_partner-ref_partner_handle = '0000'.
lv_partner-ref_partner_fct = '00000014'.
lv_partner-ref_partner_no = '200010671'.
lv_partner-ref_no_type = 'BP'.
lv_partner-ref_display_type = 'BP'.
lv_partner-partner_guid = 'DDCDB8C50DFC0CF19F94001E6849B4E8'.
lv_partner-kind_of_entry = ''.
lv_partner-partner_fct = '00000014'.
lv_partner-partner_no = '200010671'.
lv_partner-display_type = 'BP'.
lv_partner-no_type = 'BP'.
lv_partner-mainpartner = 'X'.
INSERT lv_partner INTO TABLE lt_partner.
data: l_key type CRMT_LOGICAL_KEY.
***Input Fields
CONCATENATE '000000000014' '200010671' ' BPBP' INTO l_key.
CLEAR lw_field.
CLEAR lt_field.
lw_field-ref_guid = 'DDCBF5EB8FA58FF19F94001E6849B4E8'.
lw_field-ref_handle = '0000000000'.
lw_field-ref_kind = 'A'.
lw_field-objectname = 'PARTNER'.
lw_field-logical_key = '000000000014200010671       BPBP'.
lw_fp-fieldname = 'PARTNER_FCT'.
INSERT lw_fp INTO TABLE lt_fp.
lw_field-field_names = lt_fp.
INSERT lw_field INTO TABLE lt_field.
data: lt_mode type CRMT_ORDERADM_H_COMT,
      lv_mode type CRMT_ORDERADM_H_COM.
lv_mode-guid = 'DDCBF5EB8FA58FF19F94001E6849B4E8'.
lv_mode-mode = 'D'.
append lv_mode to lt_mode.
* For BADI to change EMP Resp, Status, Text Note
CALL FUNCTION 'CRM_ORDER_MAINTAIN'
EXPORTING
     it_partner                    = lt_partner
CHANGING
    CT_ORDERADM_H                  = lt_mode
    ct_input_fields                = lt_field
IF sy-subrc <> 0.
  MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
          WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
DATA: it_guid TYPE crmt_object_guid_tab.
*      Lv_header_guid type crmt_object_guid.
Lv_header_guid = 'DDCBF5EB8FA58FF19F94001E6849B4E8'.
APPEND LV_HEADER_GUID TO IT_GUID.
CALL FUNCTION 'CRM_ORDER_SAVE'
  EXPORTING
    it_objects_to_save         = it_guid
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 'BAPI_TRANSACTION_COMMIT'
* EXPORTING
*   WAIT          =
* IMPORTING
*   RETURN        =

Answer 1

Hi
Following is my code look like after all the suggestions. But it does not remove the partner. Can you have a look at code?
DATA: lt_activity TYPE crmt_activity_h_comt,
      lt_field TYPE crmt_input_field_tab ,
      lt_fp TYPE crmt_input_field_names_tab.
DATA: lw_activity TYPE crmt_activity_h_com,
      lw_field TYPE crmt_input_field,
      lw_fp TYPE crmt_input_field_names.
DATA: lt_guid TYPE crmt_object_guid_tab,
      lt_part  TYPE crmt_partner_external_wrkt,
      lv_partn TYPE crmt_partner_external_wrk,
      lv_header_guid TYPE crmt_object_guid.
CALL FUNCTION 'CRM_ORDER_READ'
  EXPORTING
    it_header_guid = lt_guid
  IMPORTING
    et_partner     = lt_part.
IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
DATA: lt_partner TYPE crmt_partner_comt,
      lv_partner TYPE crmt_partner_com.
lv_partner-ref_guid = 'DDCBF5EB8FA58FF19F94001E6849B4E8'.
lv_partner-ref_handle = '0000000000'.
lv_partner-ref_kind = 'A'.
lv_partner-ref_partner_handle = '0000'.
lv_partner-ref_partner_fct = '00000014'.
lv_partner-ref_partner_no = '200010671'.
lv_partner-ref_no_type = 'BP'.
lv_partner-ref_display_type = 'BP'.
lv_partner-partner_guid = 'DDCDB8C50DFC0CF19F94001E6849B4E8'.
lv_partner-kind_of_entry = ''.
***lv_partner-partner_fct = '00000014'. " Only comment partner_fct
lv_partner-partner_no = '200010671'.
lv_partner-display_type = 'BP'.
lv_partner-no_type = 'BP'.
lv_partner-mainpartner = 'X'.
INSERT lv_partner INTO TABLE lt_partner.
*data: l_key type CRMT_LOGICAL_KEY.
****Input Fields
*CONCATENATE '000000000014' '200010671' ' BPBP' INTO l_key.
CLEAR lw_field.
CLEAR lt_field.
lw_field-ref_guid = 'DDCBF5EB8FA58FF19F94001E6849B4E8'.
lw_field-ref_handle = '0000000000'.
lw_field-ref_kind = 'A'.
lw_field-objectname = 'PARTNER'.
lw_fp-fieldname = 'PARTNER_FCT'.
INSERT lw_fp INTO TABLE lt_fp.
lw_fp-fieldname = 'PARTNER_NO'.
INSERT lw_fp INTO TABLE lt_fp.
lw_fp-fieldname = 'REF_PARTNER_FCT'.
INSERT lw_fp INTO TABLE lt_fp.
lw_fp-fieldname = 'REF_PARTNER_NO'.
INSERT lw_fp INTO TABLE lt_fp.
lw_fp-fieldname = 'REF_GUID'.
INSERT lw_fp INTO TABLE lt_fp.
lw_field-field_names = lt_fp.
INSERT lw_field INTO TABLE lt_field.
DATA: lt_mode TYPE crmt_orderadm_h_comt,
      lv_mode TYPE crmt_orderadm_h_com.
lv_mode-guid = 'DDCBF5EB8FA58FF19F94001E6849B4E8'.
lv_mode-mode = 'D'.
APPEND lv_mode TO lt_mode.
DATA: it_guid TYPE crmt_object_guid_tab.
     Lv_header_guid type crmt_object_guid.
lv_header_guid = 'DDCBF5EB8FA58FF19F94001E6849B4E8'.
APPEND lv_header_guid TO it_guid.
CALL FUNCTION 'DIALOG_SET_NO_DIALOG'.
CALL FUNCTION 'CRM_ORDER_INITIALIZE'
  EXPORTING
    iv_initialize_whole_buffer = 'X'
  EXCEPTIONS
    OTHERS                     = 2.
CALL FUNCTION 'CRM_ORDER_MAINTAIN'
  EXPORTING
    it_partner      = lt_partner
  CHANGING
    ct_input_fields = lt_field.
IF sy-subrc EQ 0.
  CALL FUNCTION 'CRM_STATUS_UPDATE_DIALOG'.
  lv_header_guid = 'DDCBF5EB8FA58FF19F94001E6849B4E8'.
  APPEND lv_header_guid TO it_guid.
  CALL FUNCTION 'CRM_ORDER_SAVE'
    EXPORTING
      it_objects_to_save = it_guid.
  IF sy-subrc = 0.
    CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
      EXPORTING
        wait = 'X'.
  ENDIF.
endif.