- 使用代码创建SAP CRM服务请求文档的subject测试数据
- SAP CRM服务请求subject value determi
- 如何在CRM WebClient UI里使用HANA Live
- SAP CRM Service Request subject
- 从SAP客户主数据里直接创建商机(Opportunity)
- SAP ABAP OData 服务嵌套创建功能的实现步骤(Cre
- 使用nodejs代码在SAP C4C里创建Individual
- 浅谈 SAP UI5 OData 模型构造函数的输入参数
- 使用 SAP CRM BOL API 搜索订单抬头描述字段包含指
- PHP - AJAX 与 MySQL 交互
Carsten要求所有创建的Service Request的测试数据必须都维护好Subject:
![](https://img.haomeiwen.com/i2085791/f2bb8a5822858354.png)
如何用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:
![](https://img.haomeiwen.com/i2085791/ebd331fa0acbdb53.png)
I have to figure out where this two REF_GUID come from so that I can do the same thing in my code.
![](https://img.haomeiwen.com/i2085791/cdd285e54b9e08bb.png)
![](https://img.haomeiwen.com/i2085791/22107e5c446478bb.png)
![](https://img.haomeiwen.com/i2085791/20a6ee610e4dbc4f.png)
![](https://img.haomeiwen.com/i2085791/0e40d0969dcb0a1f.png)
![](https://img.haomeiwen.com/i2085791/edd4666e77180a99.png)
![](https://img.haomeiwen.com/i2085791/9ca05dbda97c1282.png)
Answer for first guid: CL_CRM_CATEGORY_RUN_BTIL~GET_OSSET_GUID
![](https://img.haomeiwen.com/i2085791/5d7a041fafc61157.png)
Answer for second guid:
![](https://img.haomeiwen.com/i2085791/0c5241fa34bb3ee3.png)
![](https://img.haomeiwen.com/i2085791/5abf2fa9c79552a7.png)
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'
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.
要获取更多Jerry的原创文章,请关注公众号"汪子熙":
![](https://img.haomeiwen.com/i2085791/fc7ecd97deb67090.png)
网友评论