Multilevel Workflow for Sales order change [VA02] In SAP ABAP.

Multilevel Workflow for Sales order change [VA02]

    For this type of workflow first we have to find out maximum level for the approval.

    For this we have to create activity.

 

Here we have to mention class name and its method as well as if it required then you to create some variable at container tab for import or export parameter.

Above binding is inside the task now below binding is outside the task.

Class method for finding maximum level for approver.

Method for get maximum level of approver

METHOD get_maxlevel.
  DATA:ls_max_level TYPE zwf_dyn_vbak-zalevel.
  DATA:lv_inita TYPE uname.

  lv_inita =  wfinitiator+2(12).

  IF zterm = 'X'.
    SELECT MAX( zalevel )
     FROM zwf_dyn_vbak
     INTO ls_max_level
     WHERE approveby = lv_inita AND field_name = 'ZTERM'.
    max_level = ls_max_level.
  ENDIF.

  IF kvgr2 = 'X'.
    SELECT MAX( zalevel )
      FROM zwf_dyn_vbak
      INTO ls_max_level
      WHERE approveby = lv_inita AND field_name = 'AVGR2'.
    max_level = ls_max_level.

  ENDIF.
ENDMETHOD.

Next activity is we have to generate loop step in workflow.

After getting maximum level for approver next we have to create an instance for generate link for sales order in email. Below screen for instance binding inside the task.

Next screen is outside binding after task is created.

Now in loop we have to increment the counter using custom container.

Code for Email ID with Approver level:

METHOD get_emailid.

  DATA: is_wf_vbak TYPE zwf_dyn_vbak,
        is_addsmtp TYPE bapiadsmtp.

  DATA : lv_inita TYPE uname,
         lv_add TYPE bapiaddr3.
  DATA : return TYPE bapiret2.

  lv_inita = wfinitiator+2(12).
  IF zterm = 'X'.
    SELECT SINGLE *
    FROM zwf_dyn_vbak
    INTO is_wf_vbak
   WHERE approveby = lv_inita AND zalevel = apprv_level AND             field_name = 'ZTERM'.

    IF sy-subrc = 0.
      email_app = is_wf_vbak-a_emailid.
      email_init = is_wf_vbak-i_emailid.
    ENDIF.
  ENDIF.

  IF kvgr2 = 'X'.
    SELECT SINGLE *
    FROM zwf_dyn_vbak
    INTO is_wf_vbak
   WHERE approveby = lv_inita AND zalevel = apprv_level AND             field_name = 'AVGR2'.

    IF sy-subrc = 0.
      email_app = is_wf_vbak-a_emailid.
      email_init = is_wf_vbak-i_emailid.
    ENDIF.
  ENDIF.
ENDMETHOD.

Now next activity is user decision for whether user has approve or not sales order.

In this user decision we have to create rule. After this we have to set flag whether it is approved or reject. If user has reject the sales order then we have to set loop level with max level.

Next screen for set flag for approve.

Below screen is for set flag for rejection.

After Reject flag set then set the loop level and max level same.

After the approve or reject process we have to check the flag if it is approve or reject.

Binding for approve sales order.

Code for set billing block as well as for approve and reject sales order.

method SET_BILLING_BLOCK.

  DATA:ls_tvfst TYPE tvfst.

  IF zterm = 'X'.
  SELECT SINGLE faksp vtext
    FROM tvfst
    INTO CORRESPONDING FIELDS OF ls_tvfst
    WHERE faksp = '41' AND spras = 'EN'.

  UPDATE vbak
    SET faksk = ls_tvfst-faksp
    WHERE vbeln = vbeln.
ENDIF.

IF kvgr2 = 'X'.
  SELECT SINGLE faksp vtext
    FROM tvfst
    INTO CORRESPONDING FIELDS OF ls_tvfst
    WHERE faksp = '41' AND spras = 'EN'.

  UPDATE vbak
    SET faksk = ls_tvfst-faksp
    WHERE vbeln = vbeln.
ENDIF.
endmethod.

Method for approve sales order

method APPROVE_SALES_ORDER.
  IF zterm = 'X'.
    UPDATE vbak
      SET zzterm1 = ' '
      where vbeln = vbeln.
  ENDIF.

  IF kvgr2 = 'X'.
    UPDATE vbak
      SET zzkvgr2 = ' '
      where vbeln = vbeln.
  ENDIF.
endmethod.

Method for Reject sales order with attachment file for reject reason.

METHOD reject_sales_order.
  IF zterm = 'X' OR kvgr2 = 'X'.
    DATA : lv_docid TYPE so_entryid,
           lv_docid_tmp TYPE char90,
           lt_attach TYPE STANDARD TABLE OF swr_object.

    DATA : ls_attach TYPE swr_object.
    DATA : flag TYPE flag.

    FIELD-SYMBOLS : <ls_rejtext> TYPE solisti1.

    CALL FUNCTION 'SAP_WAPI_GET_ATTACHMENTS'
      EXPORTING
        workitem_id = im_wiid
      TABLES
        attachments = lt_attach.

    IF NOT lt_attach[] IS INITIAL.
      READ TABLE lt_attach INTO ls_attach INDEX 1.
      IF sy-subrc EQ 0.
        REPLACE ALL OCCURRENCES OF 'SOFM' IN ls_attach-object_id WITH space.
        SHIFT ls_attach-object_id LEFT DELETING LEADING space.
*      CONDENSE LV_DOCID NO-GAPS.
        lv_docid_tmp = ls_attach-object_id.
*      CONDENSE LV_DOCID_TMP NO-GAPS.
        lv_docid = lv_docid_tmp.
      ENDIF.
    ENDIF.
***FM to  get content text for Dicument key
    CALL FUNCTION 'SO_DOCUMENT_READ_API1'
      EXPORTING
        document_id                = lv_docid
      TABLES
        object_content             = text
      EXCEPTIONS
        document_id_not_exist      = 1
        operation_no_authorization = 2
        x_error                    = 3
        OTHERS                     = 4.
    IF sy-subrc <> 0.
* Implement suitable error handling here
    ELSE.
      DELETE text WHERE line+0(3) = '000'.
      LOOP AT text ASSIGNING <ls_rejtext>.
        <ls_rejtext>+0(3) = ' '.
      ENDLOOP.
    ENDIF.
  ENDIF.
ENDMETHOD.

After approve from all level we have to remove the billing block.

method UPDATE_VBAK.
DATA:ls_vbak TYPE vbak.

  SELECT SINGLE *
    FROM vbak
    INTO ls_vbak
    WHERE vbeln = vbeln.

    IF ls_vbak-zzterm1 = ' ' and ls_vbak-zzkvgr2 = ' '.
      UPDATE vbak
        SET faksk = ' '
        where vbeln =  vbeln.
    ENDIF.
endmethod.