CRM_ORDER_MAINTAIN

CRM_ORDER_MAINTAIN

Hi,

I need to change the appointments related to an order in CRM. And I have been trying to use the Function Module CRM_ORDER_MAINTAIN. But it doesn't work.

Can someone give me an insight on this?

Regards
Priyanka

CRM_ORDER_MAINTAIN

Hi Steff,

Here is the code that I am using..

gs_field_names-fieldname = 'APPT_TYPE'.
gs_field_names-changeable = 'X'.
INSERT gs_field_names INTO TABLE gs_input_fields-field_names.

gs_field_names-fieldname = 'TIMESTAMP_FROM'.
gs_field_names-changeable = 'X'.
INSERT gs_field_names INTO TABLE gs_input_fields-field_names.

gs_field_names-fieldname = 'TIMEZONE_FROM'.
gs_field_names-changeable = 'X'.
INSERT gs_field_names INTO TABLE gs_input_fields-field_names.

gs_field_names-fieldname = 'MODE'.
gs_field_names-changeable = 'X'.
INSERT gs_field_names INTO TABLE gs_input_fields-field_names.

gs_field_names-fieldname = 'REF_KIND'.
gs_field_names-changeable = 'X'.
INSERT gs_field_names INTO TABLE gs_input_fields-field_names.

gs_field_names-fieldname = 'REF_GUID'.
gs_field_names-changeable = 'X'.
INSERT gs_field_names INTO TABLE gs_input_fields-field_names.

gs_field_names-fieldname = 'RULE_NAME'.
gs_field_names-changeable = 'X'.
INSERT gs_field_names INTO TABLE gs_input_fields-field_names.

gs_field_names-fieldname = 'RULE_GUID'.
gs_field_names-changeable = 'X'.
INSERT gs_field_names INTO TABLE gs_input_fields-field_names.

gs_input_fields-ref_guid = lc_header_guid.
gs_input_fields-ref_kind = 'A'.
gs_input_fields-objectname = 'APPOINTMENT'.
gs_input_fields-logical_key = ''.
INSERT gs_input_fields INTO TABLE gt_input_fields.

CALL FUNCTION 'IB_CONVERT_INTO_TIMESTAMP'
EXPORTING
i_datlo = sy-datum
i_timlo = sy-uzeit
* I_TZONE = SY-ZONLO
IMPORTING
e_timestamp = gv_created_at.

CLEAR gs_appointment.
CLEAR gt_appointment.
REFRESH gt_appointment.

gs_appointment-ref_guid = lc_header_guid.
gs_appointment-ref_kind = 'A'.
gs_appointment-appt_type = 'ZESSHIP_DAT'.
gs_appointment-timestamp_from = gv_created_at.
gs_appointment-timezone_from = 'UTC '.
gs_appointment-rule_name = ''.
gs_appointment-rule_guid = ''.
gs_appointment-mode = 'B'.

INSERT gs_appointment INTO TABLE gt_appointment.

CALL FUNCTION 'CRM_ORDER_MAINTAIN'
EXPORTING
it_appointment = gt_appointment
* IMPORTING
* ET_EXCEPTION =
CHANGING
* CT_ORDERADM_H = gt_orderadm_h
* CT_ORDERADM_I =
ct_input_fields = gt_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.
ROLLBACK WORK.
ELSE.
CALL FUNCTION 'CRM_STATUS_UPDATE_DIALOG'.


CALL FUNCTION 'CRM_ORDER_SAVE'
EXPORTING
it_objects_to_save = gt_obj_guids
iv_no_bdoc_send = nobdoc
IMPORTING
et_saved_objects = gt_saved_objects.

COMMIT WORK.

ENDIF.




I had tried using Mode as 'U' and 'I' also.

Regards
Priyanka