Trigger a workflow when PR is created using Class and events in ABAP.

-------------------------------------------------------Creating custom class-------------------------------------------------------------------

Step 1: Create a custom class.

Step 2: Give the interfaces.

Step 3: Create an event with parameter E_F_BANFN type BANFN.

Step 4: Create attributes.


Step 5: Create constructor with importing parameter I_F_BANFN.
Step 6: Implement the constructor.

                METHOD constructor.
            DATA : l_f_instid TYPE sibflpor-instid.
            l_f_instid = i_f_banfn.
            g_r_lpor-catid = 'CL'.
            g_r_lpor-typeid = 'ZCL_AB_WF_PR_APPROVAL1'.
            g_r_lpor-instid = l_f_instid.
        ENDMETHOD.

Step 7: Implement the method - BI_PERSISTENT~FIND_BY_LPOR.

        *----- begin of local data
        DATA: l_o_ref_doc     TYPE REF TO zcl_AB_WF_pr_approval1.
        DATA: l_r_doc_key    TYPE banfn.
        *----- end   of local data

        *---- instid is the key of the object
        l_r_doc_key := lpor-instid.
        TRY.
            CREATE OBJECT l_o_ref_doc
              EXPORTING
                i_f_banfn = l_r_doc_key.
          CATCH cx_bo_error .
        *------ object not found
          RETURN.
        ENDTRY.

        *----Load the current instance to result
            result = l_o_ref_doc.
        ENDMETHOD.

Step 8: Implement the method BI_PERSISTENT~LPOR.

     method BI_PERSISTENT~LPOR.
          result = g_r_lpor.
     endmethod.

Step 9: Implement the methods.

        BI_PERSISTENT~REFRESH

        BI_OBJECT~DEFAULT_ATTRIBUTE_VALUE

        BI_OBJECT~EXECUTE_DEFAULT_METHOD

        BI_OBJECT~RELEASE

Step 10: Save and activate.

-------------------------------------------------------------Creating workflow-----------------------------------------------------------------------

Step 1: Goto T-code SWDD.

Step 2: Click on create and save.

Step 3: Select workflow container and create fields.

Step 4: In our case creating pr number, instance for class, object for class and business object.

            * PR number-- Importing and exporting


            * Instance for class - Importing and exporting.


            * Business object -- importing and exporting.


            * Instance for workflow-- Importing and exporting.


            * Create an extended field.


            * Create object key field.


            * Create object type field.


Step 5: Save and activate up to this.

Step 6: Click on GOTO --> basic data and click on starts event tab. Select category CL and give class name and event.

         Note: Binding must be imp and active is also imp.

                * Generate binding and activate the class. 

                 * Save and back.



Step 7: Create activity for Workflow Linkage.


            * Binding must be needed.

            * Main Binding (Below of task).



Step 8: Save and activate.

        * Final workflow.

-----------------------------------------------Raise an event for custom class--------------------------------------------------------------------------------
Step 1: Create BADI implementation for ME_PROCESS_REQ_CUST.
            * Implement the POST method.
                METHOD if_ex_me_process_req_cust~post.
        IF sy-tcode = 'ME51N'.
          DATA: l_o_ref TYPE REF TO zcl_ab_wf_pr_approval1.
        *------    CREATE OBJECT l_o_ref( ).
          CREATE OBJECT l_o_ref
            EXPORTING
              i_f_banfn = im_banfn.
          CALL METHOD l_o_ref->register_wf
            EXPORTING
              i_f_banfn = im_banfn.
        ENDIF.
      ENDMETHOD.

----------------------------------------------------------------Testing the workflow-------------------------------------------------------------------------------


            * Goto ME51N T- Code.
            * Create PR.
            * Goto T-code SWIA.


********************************Thank You*****************************

Comments

Post a Comment

Popular posts from this blog

New syntax for append- VALUE (new syntax 7.4+) in ABAP

Image
* We use APPEND statement to insert the records at the last of the internal table. * In SAP ABAP new syntax, we can use VALUE expression instead of APPEND statement. * Value expression is a powerful mechanism to declare as well as initialize the internal tables. * It is a powerful utility where we can achieve the result with minimal coding. * Value expression is of 2 types.      -  Define the type before using it with VALUE keyword. The type defined is structure type  or table type.      -  Using # character for type and use it with VALUE keyword. Report REPORT  zab_rp_append_value . TYPES :  BEGIN  OF  ls_stu ,          st_id ( 10 )    TYPE  n ,          st_name ( 15 )  TYPE  c ,         END  OF  ls_stu . DATA :  lt_stu  TYPE  TABLE...
Read more

Read statement new syntax in ABAP. (7.4+).

Image
*  Before ABAP 7.4, we used READ TABLE statement to read the first matching record from the internal table  based upon key or index . * In SAP ABAP new syntax, instead of READ TABLE , we can use the table expressions. * We need to use the square bracket [ ], In the square bracket, we need to specify the key or index. * While using table expression, If the table entry does not exist, system throws the exception CX_SY_ITAB_LINE_NOT_FOUND. * Use line_exists statement to check the existence of a record. Report REPORT  zab_rp_read_new . TABLES :   vbak . SELECT-OPTIONS :   s_vbeln  FOR  vbak - vbeln . SELECT  vbeln , erdat , erzet , ernam , auart         FROM  vbak         INTO  TABLE  @DATA ( lt_vbak )          WHERE  vbeln  IN  @s_vbeln . WRITE :   'Index value'  COLOR  5 . READ  T...
Read more

Concatenation new syntax( 7.4+ ).

Image
  Report REPORT  zab_rp_concat_7_4 . DATA :   lv_str1    TYPE  string  VALUE  'ajay' ,       lv_str2    TYPE  string  VALUE  'babu' ,       lv_str3    TYPE  string  VALUE  'varikallu' ,       lv_final1  TYPE  string ,       lv_final2  TYPE  string . CONCATENATE  lv_str1 lv_str2 lv_str3  INTO  lv_final1  SEPARATED  BY  space . WRITE :   /  'Old syntax: '  ,  lv_final1  COLOR  4 . lv_final2  =  | { lv_str1 } { lv_str2 } { lv_str3 } | . WRITE :   /  'New syntax: '  ,  lv_final2  COLOR  5 . Output ****** *********** ******** Thank You ****** ******* *********
Read more