本篇内容主要讲解“怎么创建SAP CRM服务请求文档的subject测试数据”，感兴趣的朋友不妨来看看。本文介绍的方法操作简单快捷，实用性强。下面就让小编来带大家学习“怎么创建SAP CRM服务请求文档的subject测试数据”吧!
Carsten要求所有创建的Service Request的测试数据必须都维护好Subject:
如何用CRM_ORDER_MAINTAIN维护这个field？
First have a look at how SERVICE_OS is filled by CRM_ORDER_MAINTAIN when choosing one value from drop down list:
I have to figure out where this two REF_GUID come from so that I can do the same thing in my code.
Answer for first guid: CL_CRM_CATEGORY_RUN_BTIL~GET_OSSET_GUID
Answer for second guid:
REPORT zcreate_subject.DATA: lt_input_fields TYPE crmt_input_field_tab, ls_input_field LIKE LINE OF lt_input_fields, ls_field_name LIKE LINE OF ls_input_field-field_names, lv_guid TYPE guid_16, lt_orderadm_h_com TYPE crmt_orderadm_h_comt, ls_orderadm_h_com LIKE LINE OF lt_orderadm_h_com, ls_com_structure TYPE string, lv_selection_needed TYPE crmt_boolean, lt_save TYPE crmt_object_guid_tab, lt_saved TYPE crmt_return_objects, lt_service_os TYPE crmt_srv_osset_comt, ls_service_os TYPE LINE OF crmt_srv_osset_comt, lt_osset TYPE crmt_srv_osset_comt1, ls_osset TYPE LINE OF crmt_srv_osset_comt1, ls_read_oss TYPE crmt_srv_osset_wrk, ls_saved LIKE LINE OF lt_saved, lt_subject TYPE crmt_srv_subject_comt, ls_subject TYPE LINE OF crmt_srv_subject_comt.START-OF-SELECTION. CALL FUNCTION 'GUID_CREATE' IMPORTING ev_guid_16 = lv_guid. PERFORM call_order_maintain. PERFORM call_order_save.FORM prepare_service_os. ls_service_os = VALUE #( ref_guid = lv_guid ref_kind = 'A' ). ls_osset-profile_type = 'A'. CALL FUNCTION 'CRM_GUID_CREATE' IMPORTING ev_guid = ls_osset-ref_guid. CALL FUNCTION 'CRM_GUID_CREATE' IMPORTING ev_guid = ls_subject-ref_guid. ls_subject-asp_id = 'YBP_SERVICE'. ls_subject-katalog_type = 'D'. ls_subject-cat_id = 'CA_7'. ls_subject-mode = 'A'. APPEND ls_subject TO ls_osset-subject. APPEND ls_osset TO lt_osset. APPEND LINES OF lt_osset TO ls_service_os-osset. APPEND ls_service_os TO lt_service_os. CLEAR: ls_input_field. ls_input_field-ref_guid = lv_guid. ls_input_field-ref_kind = 'A'. ls_input_field-objectname = 'SERVICE_OS'. ls_field_name-fieldname = 'ASP_ID'. APPEND ls_field_name TO ls_input_field-field_names. ls_field_name-fieldname = 'CAT_ID'. APPEND ls_field_name TO ls_input_field-field_names. ls_field_name-fieldname = 'CODE'. APPEND ls_field_name TO ls_input_field-field_names. ls_field_name-fieldname = 'CODEGRUPPE'. APPEND ls_field_name TO ls_input_field-field_names. ls_field_name-fieldname = 'KATALOGART'. APPEND ls_field_name TO ls_input_field-field_names. ls_field_name-fieldname = 'MODE'. APPEND ls_field_name TO ls_input_field-field_names. ls_field_name-fieldname = 'REF_GUID'. APPEND ls_field_name TO ls_input_field-field_names. APPEND ls_input_field TO lt_input_fields.ENDFORM.FORM call_order_maintain. CLEAR: ls_orderadm_h_com, ls_input_field, lt_input_fields. ls_orderadm_h_com-guid = lv_guid. ls_orderadm_h_com-description = 'created by code on:' && sy-timlo. ls_orderadm_h_com-process_type = 'SRVR'. ls_orderadm_h_com-mode = 'A'. APPEND ls_orderadm_h_com TO lt_orderadm_h_com. ls_input_field-ref_guid = lv_guid. ls_input_field-ref_kind = 'A'. ls_input_field-objectname = 'ORDERADM_H'. ls_field_name-fieldname = 'DESCRIPTION'. APPEND ls_field_name TO ls_input_field-field_names. ls_field_name-fieldname = 'MODE'. APPEND ls_field_name TO ls_input_field-field_names. ls_field_name-fieldname = 'PROCESS_TYPE'. APPEND ls_field_name TO ls_input_field-field_names. APPEND ls_input_field TO lt_input_fields. PERFORM prepare_service_os. CALL FUNCTION 'CRM_ORDER_MAINTAIN' EXPORTING it_service_os = lt_service_os CHANGING ct_orderadm_h = lt_orderadm_h_com ct_input_fields = lt_input_fields EXCEPTIONS OTHERS = 99. IF sy-subrc = 0. WRITE:/ 'Order maintain function is done successfully.'. ENDIF.ENDFORM.FORM call_order_save. INSERT lv_guid INTO TABLE lt_save. CALL FUNCTION 'CRM_ORDER_SAVE' EXPORTING it_objects_to_save = lt_save iv_update_task_local = abap_true iv_no_bdoc_send = abap_true IMPORTING et_saved_objects = lt_saved EXCEPTIONS document_not_saved = 1. IF sy-subrc <> 0. WRITE: / 'Service Request created failed'. ELSE. READ TABLE lt_saved INTO ls_saved INDEX 1. WRITE: / 'Service Request created successfully, id: ' , ls_saved-object_id. ENDIF. COMMIT WORK AND WAIT.ENDFORM.到此，相信大家对“怎么创建SAP CRM服务请求文档的subject测试数据”有了更深的了解，不妨来实际操作一番吧！这里是编程网网站，更多相关内容可以进入相关频道进行查询，关注我们，继续学习！
