Survey BSP application for never answered surveys

Question

Hello Experts,<br />
I need to launch the BSP application CRM_SVY_SERVER for an order whose survey hasn't been answered yet.<br />
<br />
<b>Let me explain it better:</b><br />
The customer survey is properly setup, I'm able to answer it in CRMD_ORDER and see the results in CRM_SURVEY_SUITE.<br />
Now I need to enable answering for an order from the BSP application mentioned. But to create an answer in this application, relating to an order, I need to provide the valueguid of the answer (table CRM_SVY_DB_SVS, field VALUEGUID).<br />
<br />
<b>The main problem is:</b> The valueguid of the answer doesn't exist yet, as the survey wasn't answered yet. If I pass the order header guid (CRMD_ORDERADM_H-GUID) to the application, it says: "Survey not found".<br />
<br />
Is there a way to pass the order header guid (CRMD_ORDERADM_H-GUID) to the BSP application, so it creates the answer valueguid automatically? How this BSP application deals with surveys never answered?<br />
I think i'll have to code a little bit, to instantiate a survey and get a valueguid, before calling the BSP application. If you have any ohter idea, please let me know.<br/>
<br />
Sorry for the long text, its just a lot of details.<br />
<br />
Regards,<br />
Rafael Schaffer<br />
<br />

Answer 1

Hi Rafael,
I'm not sure what's the error. I'll give sample code that's already working in my CRM system. It may give you some ideas.
REPORT  ZTEST3.
INCLUDE:CRM_OBJECT_KINDS_CON,
        CRM_OBJECT_NAMES_CON.
DATA: s_orderadm_h TYPE crmt_orderadm_h_com,
      t_orderadm_h TYPE crmt_orderadm_h_comt,
      s_input_fields TYPE crmt_input_field,
      t_input_fields TYPE crmt_input_field_tab,
      s_field_names TYPE crmt_input_field_names,
      t_field_names TYPE crmt_input_field_names_tab,
      s_activity_h TYPE CRMT_ACTIVITY_H_COM,
      t_activity_h TYPE CRMT_ACTIVITY_H_COMT,
      s_objects_to_save TYPE crmt_object_guid,
      t_objects_to_save TYPE crmt_object_guid_tab,
      s_saved_objects TYPE crmt_return_objects_struc,
      t_saved_objects TYPE crmt_return_objects.
***** SURVEY**********
DATA: lead_guid TYPE guid_32,
      activity_guid TYPE guid_32,
      lead_id TYPE crmt_object_id,
      activity_id TYPE crmt_object_id,
      valueguid TYPE crm_svy_db_sv_guid,
      valueversion TYPE crm_svy_db_sv_vers.
DATA: survey_value_guid TYPE guid_32,
      it_values TYPE CRM_SVY_API_STRING_T.
DATA: et_survey_param TYPE CRM_SVY_API_PARAMETER_T,
      it_survey_param TYPE CRM_SVY_API_PARAMETER_T,
      wa_survey_param TYPE CRM_SVY_API_PARAMETER,
      cs_evaluation_infos TYPE CRM_SVY_RE_TAR_OBJ.
DATA: o_survey_runtime TYPE REF TO cl_crm_svy_runtime,
      o_surveyvalues TYPE REF TO cl_crm_svy_values,
      t_application_params TYPE crm_svy_api_parameter_t,
      t_all_values TYPE survy_t_all_values.
DATA: value TYPE string.
****** END SURVEY *****
DATA: guid_h TYPE CRMT_OBJECT_GUID,
      guid_i TYPE CRMT_OBJECT_GUID,
      process_type TYPE CRMT_PROCESS_TYPE,
      item_type TYPE CRMT_ITEM_TYPE,
      object_type TYPE CRMT_SUBOBJECT_CATEGORY,
      process_mode TYPE CRMT_MODE,
      it_survey_ui TYPE CRMT_SURVEY_UI_TAB.
*   Fill required structures
  CLEAR: s_orderadm_h, t_orderadm_h.
  s_orderadm_h-object_id = 'BUS2000126'."'BUS2000108'.
  s_orderadm_h-process_type = 'ZCRC'.
  s_orderadm_h-description = 'Description nih'.
  APPEND s_orderadm_h TO t_orderadm_h.
******  ADD FIRST PROPERTY TO INPUT FIELDS -> ACTIVITY_H
  CLEAR: s_input_fields, t_input_fields .
  s_input_fields-ref_kind = gc_object_kind-orderadm_h."'A'.
  s_input_fields-objectname = gc_object_name-activity_h."'ACTIVITY_H'."'LEAD_H'.
  CLEAR: s_field_names, t_field_names.
* in order to get location and external reference no values, their fieldnames must be added to these
  s_field_names-fieldname = 'ACT_LOCATION'. APPEND s_field_names TO t_field_names.
  s_field_names-fieldname = 'CATEGORY'. APPEND s_field_names TO t_field_names.
  s_field_names-fieldname = 'EXTERN_ACT_ID'. APPEND s_field_names TO t_field_names.
  s_input_fields-field_names = t_field_names.
  APPEND s_input_fields TO t_input_fields.
******  END FIRST PROPERTY TO INPUT FIELDS -> ACTIVITY_H
******  ADD SECOND  PROPERTY TO INPUT FIELDS -> ORDERADM_H
  CLEAR: s_input_fields.
  CLEAR: s_field_names, t_field_names.
  s_input_fields-ref_kind = gc_object_kind-orderadm_h ."'A'.
  s_input_fields-objectname = gc_object_name-orderadm_h."'ORDERADM_H'.
*Subtable FIELD_NAMES
  s_field_names-fieldname = 'DESCRIPTION'. APPEND s_field_names TO t_field_names.
*/Subtable FIELD_NAMES
  s_input_fields-field_names = t_field_names.
  APPEND s_input_fields TO t_input_fields.
******  END ADD SECOND  PROPERTY TO INPUT FIELDS -> ORDERADM_H
CLEAR: s_activity_h, t_activity_h.
  s_activity_h-ACT_LOCATION = 'Location nih'.
  s_activity_h-EXTERN_ACT_ID = 'Extern ref no nih'.
  s_activity_h-category = 'ZC1'.
  APPEND s_activity_h TO t_activity_h.
* Create activity
  CALL FUNCTION 'CRM_ORDER_MAINTAIN'
    EXPORTING
*    it_lead_h             = t_lead_h
      it_activity_h         = t_activity_h
*    it_partner            = t_partner_h
*      iv_collect_exceptions = ''
    CHANGING
      ct_orderadm_h         = t_orderadm_h
      ct_input_fields       = t_input_fields
    EXCEPTIONS
      error_occurred        = 1
      document_locked       = 2
      no_change_allowed     = 3
      no_authority          = 4
      OTHERS                = 5.
  IF sy-subrc <> 0.
*  MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
*    WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  ENDIF.
* Get GUID of created LEAD for later saving
  READ TABLE t_orderadm_h INTO s_orderadm_h INDEX 1.
  CLEAR: s_objects_to_save.", t_objects_to_save.
*s_objects_to_save = lead_guid = s_orderadm_h-guid.
  s_objects_to_save = activity_guid = s_orderadm_h-guid.
  APPEND s_objects_to_save TO t_objects_to_save.
*** continue to next post
because of SDN forum limitation (2500 line of code from [this link|Formatting issues in SDN postings (character limit and code tags);) , please see my next post to continue my code