使用ABAP程式碼提交SAP CRM Survey調查問卷

i042416發表於2018-07-19

Jerry之前曾經寫過兩篇關於SAP CRM Survey調查問卷的技術文章:

  • SAP CRM Survey調查問卷的模型設計原理解析

  • 如何使用SAP CRM Marketing Survey建立一個市場問卷調查

我們在瀏覽器裡填寫調查問卷的內容,點選Save儲存按鈕之後,調查問卷的結果被儲存到ABAP後臺。

使用ABAP程式碼提交SAP CRM Survey調查問卷

在ABAP後臺系統的Survey Suite工具裡,能看到使用者填寫的survey結果。

比如下圖的意思是:

問題1:你會用ABAP程式設計嗎?回答會的人有11個,不會的有5個。

問題2:你會用Java程式設計嗎?回答會的人有10個,不會的有6個。

使用ABAP程式碼提交SAP CRM Survey調查問卷

現在我有一個需求:寫一個ABAP程式,呼叫SAP CRM Survey的API來提交請求。

測試程式如下:

DATA(lo_tool) = NEW zcl_crm_survey_tool( ).
lo_tool->submit( iv_question1 = 'X' iv_question2 = '' ).

執行之後,對比上圖,會ABAP的多了1個人,不會Java的多了1個人。

使用ABAP程式碼提交SAP CRM Survey調查問卷

問題的關鍵就是如何設計zcl_crm_survey_tool?

Submit的方法分4個步驟, 見下面註釋:

METHOD submit.
DATA: ret TYPE BAPIRET1.
* Step1: get Survey TemplateDATA(survey_template) = get_survey_template( ).
* Step2: create a new Survey instance guidDATA(survey_guid) = get_new_survey_instance_guid( survey_template ).
* Step3: assemble request bodydata(lv_request_body) = assemble_request_body( iv_question1 = iv_question1
iv_question2 = iv_question2
iv_guid = survey_guid ).
* Step4: Submit survey
CALL FUNCTION 'CRM_SVY_RESULT_DISPATCHER'EXPORTING
survey_data = lv_request_body
IMPORTINGreturn = ret.
WRITE:/ |result: { ret-message } | COLOR COL_NEGATIVE.
COMMIT WORK AND WAIT.
ENDMETHOD.

步驟1:

透過方法get_survey_template拿到Survey的模板程式碼。

以前的文章已經講過,Survey模板以XML的格式儲存在SAP後臺系統,

使用ABAP程式碼提交SAP CRM Survey調查問卷

然而終端使用者在瀏覽器看到的Survey是html格式的,因此中間有一個步驟透過SAP標準的XSLT將xml轉換成html,並且生成一個新的Survey例項。這一系列的動作都封裝在我寫的方法get_survey_template裡面。該方法返回Survey模板的HTML原始碼,基於xml轉換而成。

使用ABAP程式碼提交SAP CRM Survey調查問卷

步驟2:

方法get_new_survey_instance_guid,透過正規表示式將前一步驟生成的Survey例項的guid提取出來。因為後續步驟提交Survey結果時,需要在請求體里加入這個例項guid。

使用ABAP程式碼提交SAP CRM Survey調查問卷

我採用的是正規表示式的方式解析出該guid,詳細步驟參考我的文章:使用ABAP正規表示式解析HTML標籤

步驟3:

assemble_request_body構造提交的請求方法體。在瀏覽器裡測試發現,如果兩個問題的答案都為是,則傳送的請求體如下:

svyApplicationId=CRM_SURVEY_ACTIVITY&SurveyId=JERRY_TEST&svySurveyId=JERRY_TEST&svyVersion=0000000003&SchemaVersion=1 &svySchemaVersion=1 &svyLanguage=EN&conid=&svyValueGuid=FA163EEF573D1ED89E9D22A316FC4754&svyValueVersion=0000000001&svyMandatoryMessage=Fill all mandatory fields before saving&survey/result/question1/answer1_placeholder=answer1_yes&survey/result/question2/answer2_placeholder=answer2_yes&onInputProcessing=SUBMIT

其中藍色的guid則是步驟2提取出的Survey例項,紅色的代表問題1的答案為是,紫色代表問題2的回答為是。

使用ABAP程式碼提交SAP CRM Survey調查問卷

這些XML的詳細原理,參考我的文章 SAP CRM Survey調查問卷的模型設計原理解析。

步驟4:

使用如下函式提交Survey。

CALL FUNCTION 'CRM_SVY_RESULT_DISPATCHER'EXPORTING
survey_data = lv_request_body
IMPORTINGreturn = ret.

要獲取更多Jerry的原創技術文章,請關注公眾號"汪子熙"或者掃描下面二維碼:

使用ABAP程式碼提交SAP CRM Survey調查問卷

使用ABAP程式碼提交SAP CRM Survey調查問卷


來自 “ ITPUB部落格 ” ,連結:http://blog.itpub.net/24475491/viewspace-2158183/,如需轉載,請註明出處,否則將追究法律責任。

相關文章