Custom Expression creation in Process controlled workflow

Question

Hi All,
I am working on SRM 7.0 and utilizing process controlled workflow to model my approval workflow scenario. Below are the steps that i have done but still i have not got the desired result. May be i am missing something which the forum members can let me know.
step 1: i have copied the standard function module  /SAPSRM/WF_BRF_0EXP001 and made chnages in the code  based on the logic to populate the ev_value.
basically in the coding it is done this way.
initialize
EV_TYPE = 'B'.
  EV_LENGTH = 1.
  CLEAR EV_CURRENCY.
  EV_OUTPUT_LENGTH = 1.
  EV_DECIMALS = 0.
  EV_VALUE = ABAP_FALSE. " no processing
  EV_DATA_MISSING = 'X'.
get event object
  LO_WF_BRF_EVENT ?= IO_EVENT.
get Context Container from BRF event
  LO_CONTEXT_PROVIDER = LO_WF_BRF_EVENT->GET_CONTEXT_PROVIDER( ).
  CALL METHOD LO_CONTEXT_PROVIDER->GET_DOCUMENT
    IMPORTING
      EV_DOCUMENT_GUID = LV_DOCUMENT_GUID
      EV_DOCUMENT_TYPE = LV_DOCUMENT_TYPE.
  CASE LV_DOCUMENT_TYPE.
    WHEN 'BUS2121'.
Get shopping cart instance
      LO_WF_PDO_SC ?= /SAPSRM/CL_WF_PDO_IMPL_FACTORY=>GET_INSTANCE(
        IV_DOCUMENT_GUID = LV_DOCUMENT_GUID
        IV_DOCUMENT_TYPE = LV_DOCUMENT_TYPE
        IV_PDO_EVENT_HANDLING = ABAP_FALSE
custom logic  with the GUID of the shopping cart then populate  value accordingly
        EV_VALUE = ABAP_TRUE.
        CLEAR EV_DATA_MISSING.
step 2: create an event ZEV_001 linked to expresion ZEX_001.
step 3: expression ZEX_001 is of type 0FB001. and the xpression is as below.
  ZEX_002 = OB_WF_TRUE.
step 4: ZEX_002 is of type 0CF001 and output result type is B. the attached function module is the one created above by copying /SAPSRM/WF_BRF_0EXP001
no parameters provided .
step 5: the process step level config completed.
now when i am creating shopping cart  go for approval preview its gives an exception occured  error . i cant see any dump in the system. however  if  in the custom fucnction module code if i do not clear the  EV_DATA_MISSING. then i d o not get the error but my steps is not executed. Inslg1 log i see the  process level executed  but return as space.
as per other post in the forum we have to clear EV_DATA_MISSING but that casuing  exception eror for me. in the dlg1 log howere the steps  expressin i can see executed  with return =X.
hope i am made myself clear . feel free to ask for any more info.
i have below question.
1) do we need to copy  /SAPSRM/WF_BRF_0EXP001  or  /SAPSRM/WF_BRF_0EXP000 for creating a custom FM expression.
2)what does the check box "Calculation of Parameter in Function Module/Badi/method" does
3) how can i do debugging for such FM expression , probably saving the cart and then debugging the expression.
Thanks in advance for any help provided.
Cheers
Iftekhar Alam

Answer 1

Hi ,
   Just put the below code in the FM and try..
    DATA: lo_wf_brf_event     TYPE REF TO /sapsrm/cl_wf_brf_event,
        lo_wf_pdo           TYPE REF TO /sapsrm/if_wf_pdo,
        lo_ctxt_provider    TYPE REF TO /sapsrm/cl_wf_context_provider.
  DATA: lv_document_guid    TYPE /sapsrm/wf_document_guid,
            lv_msg              TYPE string,
            lv_document_type    TYPE /sapsrm/wf_document_type.
  DATA: lx_exception        TYPE REF TO /sapsrm/cx_wf_abort.
*=======================================================================
Preset return parameters
*=======================================================================
  ev_type          = /sapsrm/if_wf_rule_c=>type_bool.
  ev_length        = 1.
  CLEAR ev_currency.
  ev_output_length = 1.
  ev_decimals      = 0.
get event object
  IF NOT io_event IS BOUND.
BRF event Object not bound. No further execution possible.
    MESSAGE e089(/sapsrm/brf) INTO lv_msg.
    TRY.
        CALL METHOD /sapsrm/cl_wf_brf_ccms=>send_message( ).
      CATCH /sapsrm/cx_wf_abort INTO lx_exception.
        ev_data_missing = /sapsrm/if_wf_rule_c=>brf_data_missing.
        EXIT.
    ENDTRY.
    ev_data_missing = /sapsrm/if_wf_rule_c=>brf_data_missing.
    EXIT.
  ENDIF.
*=======================================================================
Get purchasing document
*=======================================================================
get event object
  lo_wf_brf_event ?= io_event.
get context container from BRF event
  lo_ctxt_provider = lo_wf_brf_event->get_context_provider( ).
get Content Container from BRF event
  IF NOT lo_ctxt_provider IS BOUND.
BRF Context Container Object not bound. No further execution possible.
    MESSAGE e090(/sapsrm/brf) INTO lv_msg.
    TRY.
        CALL METHOD /sapsrm/cl_wf_brf_ccms=>send_message( ).
      CATCH /sapsrm/cx_wf_abort INTO lx_exception.
        ev_data_missing = /sapsrm/if_wf_rule_c=>brf_data_missing.
        EXIT.
    ENDTRY.
    ev_data_missing = /sapsrm/if_wf_rule_c=>brf_data_missing.
    EXIT.
  ENDIF.
get document
  CALL METHOD lo_ctxt_provider->get_document
    IMPORTING
      ev_document_guid = lv_document_guid
      ev_document_type = lv_document_type.
get instance
  lo_wf_pdo ?= /sapsrm/cl_wf_pdo_impl_factory=>get_instance(
  iv_document_guid = lv_document_guid
  iv_document_type = lv_document_type
Case lv_document_type.
When u2018BUS2121u2019.
Pass the lv_document_guid to get SC details.
IF THE CONDITION TRUE..
          CLEAR: ev_data_missing.
          ev_value        = c_x.
ELSE.
          ev_data_missing = c_x.
          ev_value        = c_blnk.
ENDIF.
        WHEN OTHERS.
          ev_data_missing = c_x.
          ev_value        = c_blnk.
      ENDCASE.
Make sure the check expression will have check as shown below
ZEX_002= 0C_WF_B_FALSE
FYI-
You don't need to have expression ZEX_001 to check the result of ZEX_002, because both expressios resut is type 'B". you can directly attached the ZEX_002 to main Event ZEV_001
Regards,
Saravanan
Edited by: Saravanan Dharmaraj on Jun 23, 2010 12:25 PM