Creating questionnaires for Risk Assessment
Using the Risk Assessment module in Trade Compliance Management you can create questionnaires automatically when checking your documents with export controls . To provide the required data, implement one or more of the following BAdIs accordingly.
For sales documents use BAdI /AEB/CMP_EC_ORDER_06.
For deliveries use BAdI /AEB/CMP_EC_DLV_03.
For purchase documents use BAdI /AEB/CMP_EC_PD_03.
For service orders use BAdI /AEB/CMP_EC_SO_03.
DATA:
quest_parm TYPE REF TO /aeb/if_cmp_pb_ec_cr_quest_do,
additional_info TYPE REF TO /aeb/cl_01_string_nv,
template_id TYPE REF TO /aeb/cl_01_string_nv,
department TYPE REF TO /aeb/cl_01_string_nv,
email TYPE REF TO /aeb/cl_01_string_nv,
user TYPE REF TO /aeb/cl_01_string_nv,
org_unit TYPE string,
org_unit_nv TYPE REF TO /aeb/cl_01_string_nv.
additional_info = im_nullable_value_factory->string( 'some additional information' ).
template_id = im_nullable_value_factory->string( '000025' ).
department = im_nullable_value_factory->string( 'Department' ).
email = im_nullable_value_factory->string( '[email protected]' ).
user = im_nullable_value_factory->string( 'User Name' ).
org_unit = im_context_bc->get_org_unit( ).
org_unit_nv = im_nullable_value_factory->string( org_unit ).
quest_parm = im_data_object_factory->new_cmp_pb_ec_cr_quest_do(
im_additional_info = additional_info
im_department = department
im_email_address = email
im_template_id = template_id
im_user_name = user
im_org_unit = org_unit_nv ).
im_value->set_create_questionnaire_prm( quest_parm ).
TYPE-POOLS: szadr.
DATA:
adr_sel TYPE addr1_sel,
adr TYPE addr1_val,
vbak TYPE vbak,
ernam TYPE ernam,
user_address TYPE usaddress,
adr3_complete TYPE szadr_addr3_complete,
addr3_line TYPE szadr_addr3_line,
s_department TYPE string,
adsmtp_line TYPE szadr_adsmtp_line,
s_email TYPE string,
user_name TYPE string,
quest_parm TYPE REF TO /aeb/if_cmp_pb_ec_cr_quest_do,
additional_info TYPE REF TO /aeb/cl_01_string_nv,
template_id TYPE REF TO /aeb/cl_01_string_nv,
department TYPE REF TO /aeb/cl_01_string_nv,
email TYPE REF TO /aeb/cl_01_string_nv,
user TYPE REF TO /aeb/cl_01_string_nv,
org_unit TYPE string,
org_unit_nv TYPE REF TO /aeb/cl_01_string_nv.
vbak = im_context_bc->get_vbak( ). "needs to be replaced for other business object data
ernam = vbak-ernam.
CALL FUNCTION 'SUSR_USER_READ'
EXPORTING
user_name = ernam
IMPORTING
user_address = user_address.
CALL FUNCTION 'ADDR_PERS_COMP_GET_COMPLETE'
EXPORTING
addrnumber = user_address-addrnumber
persnumber = user_address-persnumber
IMPORTING
addr3_complete = adr3_complete.
LOOP AT adr3_complete-addr3_tab INTO addr3_line.
IF s_department IS INITIAL
AND addr3_line-data-department IS NOT INITIAL.
s_department = addr3_line-data-department.
EXIT.
ENDIF.
ENDLOOP.
LOOP AT adr3_complete-adsmtp_tab INTO adsmtp_line.
IF s_email IS INITIAL
AND adsmtp_line-adsmtp-smtp_addr IS NOT INITIAL.
s_email = adsmtp_line-adsmtp-smtp_addr.
EXIT.
ENDIF.
ENDLOOP.
additional_info = im_nullable_value_factory->string( 'some additional information' ).
template_id = im_nullable_value_factory->string( '000001' ).
department = im_nullable_value_factory->string( s_department ).
email = im_nullable_value_factory->string( s_email ).
user_name = ernam.
user = im_nullable_value_factory->string( user_name ).
org_unit = im_context_bc->get_org_unit( ).
org_unit_nv = im_nullable_value_factory->string( org_unit ).
quest_parm = im_data_object_factory->new_cmp_pb_ec_cr_quest_do(
im_additional_info = additional_info
im_department = department
im_email_address = email
im_template_id = template_id
im_user_name = user
im_org_unit = org_unit_nv ).
im_value->set_create_questionnaire_prm( quest_parm ).
If you like to have a block until the questionnaire is filled out with status ok, you just have to activate the Risk Assessment Integration in the Compliance Profile in the Compliance Engine.
Now that we created a questionnaire there might be the requirement to add the result of the questionnaire to the export controls check. Don't get confused - at the moment you request the creation of a questionnaire you also have the possibilty to get the questionnaire data.
Let's implement a very common case. The questionnaire does have the information about the end usage of the transaction. In this example we assume that there is only one critical result which holds the end usage of the transaction.
DATA:
items TYPE /aeb/if_cmp_pb_ec_item_do=>tt_ec_item_do,
curr_item TYPE REF TO /aeb/if_cmp_pb_ec_item_do,
questionnaire_do TYPE REF TO /aeb/if_cmp_pb_quest_do,
curr_crit_res TYPE REF TO /aeb/if_cmp_pb_quest_critr_do,
quest_parm TYPE REF TO /aeb/if_cmp_pb_ec_cr_quest_do,
additional_info TYPE REF TO /aeb/cl_01_string_nv,
template_id TYPE REF TO /aeb/cl_01_string_nv,
department TYPE REF TO /aeb/cl_01_string_nv,
email TYPE REF TO /aeb/cl_01_string_nv,
user TYPE REF TO /aeb/cl_01_string_nv,
initial_string_nv TYPE REF TO /aeb/cl_01_string_nv,
final_usage_from_questionnaire TYPE REF TO /aeb/cl_01_char_255_nv,
org_unit TYPE string,
org_unit_nv TYPE REF TO /aeb/cl_01_string_nv,
tmp_char255 TYPE /aeb/01_char255.
additional_info = im_nullable_value_factory->string( 'some additional information' ).
template_id = im_nullable_value_factory->string( '000008' ).
department = im_nullable_value_factory->string( 'Sales Department' ).
email = im_nullable_value_factory->string( '[email protected]' ).
user = im_nullable_value_factory->string( 'User Name' ).
org_unit = im_context_bc->get_org_unit( ).
org_unit_nv = im_nullable_value_factory->string( org_unit ).
quest_parm = im_data_object_factory->new_cmp_pb_ec_cr_quest_do(
im_additional_info = additional_info
im_department = department
im_email_address = email
im_template_id = template_id
im_org_unit = org_unit_nv
im_user_name = user ).
im_value->set_create_questionnaire_prm( quest_parm ).
IF NOT im_questionnaire_bc IS INITIAL. "this is an optional paramter, not every context allows to getQuestionaire
questionnaire_do = im_questionnaire_bc->get_questionnaire_for( im_questionnaire_template_id = template_id->v
im_reference_id_host = im_value->get_transaction_ref_id( )->v ).
READ TABLE questionnaire_do->get_critical_results( ) INTO curr_crit_res INDEX 1.
IF curr_crit_res IS NOT INITIAL.
tmp_char255 = curr_crit_res->get_identcode( ).
final_usage_from_questionnaire = im_nullable_value_factory->char_255( tmp_char255 ).
items = im_value->get_items( ).
LOOP AT items INTO curr_item.
curr_item->set_final_usages( final_usage_from_questionnaire ).
ENDLOOP.
ENDIF.
ENDIF.
Always check if the parameter "im_questionnaire_bc" is initial. Because this parameter is not passed in every context. In a context of an export control check it is available.
The next step is to get the data of the questionnaire with the method "get_questionnaire_for". You have to pass the parameter for the template ID and the referenceIdHost. Then you have the questionnaire. For our example scenario we can now read the final usage from the critical results of the questionnaire. Based on that you can set the final usage for each item.
The method getQuestionnaireFor could raise an exception if an error occured when reading the data. It is not necessary to catch this exception as it will be handled outside.
If you don't want to use this logic to pass the data of the questionnaire to the export control checks, you also have the possibility to save the data locally in your ERP System, when the questionnaire update event will be synchronized. Alos if you just like to get the data of the questionnaire without any context.
Updated 5 months ago
Like to read data of Questionnaire without a context?
Or like to handle an update event of a questionnaire?