MDG scenario - Integration in workflow

For the integration in a SAP MDG System we provide some functions to implement a compliance check for business partners from the workflow.

Let us start with the check out of an workflow. For this case we provide the class /AEB/CL_CMP_PB_SYNC_CHK_BC.

The first step is to ensure that in the workflow the 2 final steps of the workflow saving the change request as a business partner and replicating it to the target systems are separated into two steps.

Then, between saving and replicating, the business partner check can be called via this class. It is
important that at that time the business partner has already been saved. The check use the data from the business partner tables. Not from the workflow/the change request.

In case the result of the check is critical workflow has to wait until the Compliance result handling is completed (Until resulthandling BADI is called). In case an error occurs IT has to check for the reason of the error and user has to manually restart the current workflow (Check business partner has to be called again).

PARAMETERS: bu_prt TYPE bu_partner.
PARAMETERS: chg_req TYPE /aeb/cl_cmp_pb_sync_chk_bc=>t_mdg_chg_req_no. "MDG Change Request number"

DATA:
  result      TYPE REF TO /aeb/if_cmp_pb_chk_res_do,
  chk_res_dos TYPE /aeb/if_cmp_pb_ou_chk_res_do=>tt_ou_chk_res_do,
  chk_res_do  TYPE REF TO /aeb/if_cmp_pb_ou_chk_res_do,
  sync_chk_bc TYPE REF TO /aeb/cl_cmp_pb_sync_chk_bc,
  exc         TYPE REF TO /aeb/cx_01_abs_sc,
  parm_exc    TYPE REF TO /aeb/cx_01_pb_missing_parm_sc.

sync_chk_bc = /aeb/cl_cmp_pb_sync_chk_bc=>new( ).
TRY.
    result = sync_chk_bc->check_business_partner( im_partner_number = bu_prt
                                         im_mdg_chg_req_no = chg_req  ).

    WRITE result->get_result_as_string( ).

    /aeb/cl_01_msgbox=>information( im_msg_txt = result->get_result_as_string( ) ).

    chk_res_dos = result->get_ou_chk_res_dos( ).  "each org unit has it's own result
    IF chk_res_dos IS INITIAL. RETURN. ENDIF.
    chk_res_do = chk_res_dos[ 1 ].

    WRITE /.
    WRITE chk_res_do->has_critical( ).  "in this case the workflow has to be stopped
    WRITE /.
    WRITE chk_res_do->has_warning( ).
    WRITE /.
    WRITE chk_res_do->has_error( ). "in this case the workflow has to wait unit manually restart
    WRITE /.
    WRITE chk_res_do->get_org_unit( ).
    WRITE /.
    WRITE chk_res_do->get_status_id( ).
  CATCH  /aeb/cx_cmp_pb_sync_chk_sc INTO exc.
    CASE exc->textid.
      WHEN /aeb/cx_cmp_pb_sync_chk_sc=>cx_bo_not_existing.
"           do error handling
      WHEN  /aeb/cx_cmp_pb_sync_chk_sc=>cx_bo_not_lockable.
"           do error handling
    ENDCASE.
    WRITE exc->/aeb/if_01_cx_message~get_msg_as_str( ).
  CATCH /aeb/cx_01_pb_missing_parm_sc INTO parm_exc.
"           do error handling
    WRITE parm_exc->get_text( ).
ENDTRY.

In every case of an check we call a BADI to handle the result. In case of the check out of the workflow there should not be a todo. But the next step, after a workflow is stopped because of a critical result, the business partner would be released from the Compliance Monitor and this result can be handled via the following BADIs.

/AEB/CMP_BUS_PRT_02 (Suspicious found)
/AEB/CMP_BUS_PRT_03 (Nothing suspicious)
/AEB/CMP_BUS_PRT_07 (Suspicious became good)
All BADIs have 3 parameters:
im_entry_mo, which could be used to change the mdg_chg_req_no
im_check_context, which could be used the indentify where you called from (Monitor, SyncCheck ....)
im_ous_chk_res_do, the results of alle Org.Units

IF im_check_context->get_check_context( ) <> im_check_context->c_chk_context_sync "Sync context is set if called from workflow
     and NOT im_entry_mo->get_mdg_chg_req_no( ) is initial.
*     call the workflow and release it 
*     if release was possible, clear the chg req no
      im_entry_mo->set_mdg_chg_req_no( ). "clear MDG chg req no, if object is not more suspicious
ENDIF.

if im_entry_mo->get_status_id( ) = 'J'. "Status forbidden, this was a real match
* 	complete the workflow
		im_entry_mo->set_mdg_chg_req_no( ).
endif.