Shulou(Shulou.com)05/31 Report--

This article focuses on "how to create subject test data for SAP CRM service request documents". Interested friends may wish to have a look at it. The method introduced in this paper is simple, fast and practical. Let the editor take you to learn how to create subject test data for SAP CRM service request documents.

Carsten requires that the test data of all created Service Request must be properly maintained with Subject:

How to maintain this field with CRM_ORDER_MAINTAIN?

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 = 'Downs. 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. At this point, I believe you have a deeper understanding of "how to create subject test data for SAP CRM service request documents". You might as well do it in practice. Here is the website, more related content can enter the relevant channels to inquire, follow us, continue to learn!

Welcome to subscribe "Shulou Technology Information " to get latest news, interesting things and hot topics in the IT industry, and controls the hottest and latest Internet news, technology news and IT industry trends.