要求所有創(chuàng)建的Service Request的測試數(shù)據(jù)必須都維護好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:

Test code:

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'IMPORTINGev_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'IMPORTINGev_guid = ls_osset-ref_guid.CALL FUNCTION 'CRM_GUID_CREATE'IMPORTINGev_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'EXPORTINGit_service_os = lt_service_osCHANGINGct_orderadm_h = lt_orderadm_h_comct_input_fields = lt_input_fieldsEXCEPTIONSOTHERS = 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'EXPORTINGit_objects_to_save = lt_saveiv_update_task_local = abap_trueiv_no_bdoc_send = abap_trueIMPORTINGet_saved_objects = lt_savedEXCEPTIONSdocument_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.

要獲取更多Jerry的原創(chuàng)文章，請關注公眾號"汪子熙":

總結

以上是生活随笔為你收集整理的使用代码创建SAP CRM服务请求文档的subject测试数据的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內容還不錯，歡迎將生活随笔推薦給好友。