Need to create the sales order by using FM; crm_order_maintain

Question

Dear Expert's.
can any body help me on creation of sales order by using FM; crm_order_maintain.
Regards,
Tanveer.Ahmed

Answer 1

data: et_status type crmt_status_comt,
      es_status type crmt_status_com,
      ct_orderadm_h type  crmt_orderadm_h_comt,
      cs_orderadm_h type  crmt_orderadm_h_com,
      ct_orderadm_i type  crmt_orderadm_i_comt,
      cs_orderadm_i type  crmt_orderadm_i_com,
      ct_input_fields type crmt_input_field_tab,
      cs_input_fields type crmt_input_field,
      it_exception type  crmt_exception_t.
data: gt_crmd_orderadm_h like crmd_orderadm_h occurs 0,
      gs_crmd_orderadm_h type crmd_orderadm_h.
data: et_objects_to_save type crmt_object_guid_tab,
      es_objects_to_save type crmt_object_guid.
data: it_saved_objects type crmt_return_objects.
data: gt_field_names type crmt_input_field_names_tab,
      gs_field_names type crmt_input_field_names.
data: cv_log_handle type  balloghndl.
select single * from crmd_orderadm_h into gs_crmd_orderadm_h
where object_id = '0005000400'.
es_objects_to_save  = gs_crmd_orderadm_h-guid.
append es_objects_to_save  to et_objects_to_save .
es_status-ref_guid       = gs_crmd_orderadm_h-guid.
es_status-ref_kind       = 'A'.
es_status-status         = 'E0010'.
es_status-user_stat_proc = 'ZPR01'.
es_status-activate       = 'X'.
append es_status to et_status.
cs_input_fields-ref_guid    = gs_crmd_orderadm_h-guid.
cs_input_fields-ref_kind    = 'A'.
cs_input_fields-objectname  = 'STATUS'.
cs_input_fields-logical_key = 'E0010ZPRO1'.
gs_field_names-fieldname = 'ACTIVATE'.
append gs_field_names to gt_field_names.
cs_input_fields-field_names = gt_field_names[].
append cs_input_fields to ct_input_fields.
call function 'CRM_ORDER_MAINTAIN'
  exporting
    it_status         = et_status
  importing
    et_exception      = it_exception
  changing
    ct_orderadm_h     = ct_orderadm_h
    ct_orderadm_i     = ct_orderadm_i
    ct_input_fields   = ct_input_fields
  exceptions
    error_occurred    = 1
    document_locked   = 2
    no_change_allowed = 3
    no_authority      = 4
    others            = 5.
if sy-subrc = 0.
      call function 'CRM_ORDER_SAVE'
        exporting
          it_objects_to_save        = et_objects_to_save
       importing
         et_saved_objects           = it_saved_objects
       changing
         cv_log_handle              = cv_log_handle
       exceptions
         document_not_saved         = 1
         others                     = 2.
         commit work.
endif.