PS - WORLFLOW

Question

I am writing to solve my one query. I am creating one Workflow in PS Budgeting system. Whenever User is doing some budget supplement to Project through CJ37 system should send a mail to Project manager that for specified Project and WBS said amount budget supplement is happened.
I created BOR subtype ZBUS2054 from BUS2054 and done the delegation
I crated attributes by taking values from Overall budget table BPGE
I created method for budget supplement for transaction CJ37
I create new event called Change
For all newly created attributes, methods and events status made to IMPLEMENTED
by using above mentioned data workflow is created and working fine when testing in workflow screen but whenever i am doing transaction CJ37 workflow is not getting triggered.
Can you plz sujjest what i am missing here ? any addition setting to be done to trigger the workflow ?
Pradeep

Answer 1

Hi,
As it is a custom method, go to SWEC, add an entry for your custom event in the change document table. Then find out the user-exit or BADi for the document and enhance it.
Try the code below.
It is a sample code that i have used to trigger my workflow through a custom event.
*&  Include           ZXM06U31
E_CEBAN = I_CEBAN.
INCLUDE <CNTN01>.
*DATA: PRLITEM LIKE EBAN-BNFPO.
IF SY-TCODE = 'ME51N' OR SY-TCODE = 'ME52N' OR SY-TCODE = 'ME53N'.
  DATA: OBJKEY LIKE  SWEINSTCOU-OBJKEY ,
  INPUT_CONTAINER     LIKE     SWR_CONT OCCURS 0 ,
  MESSAGE_LINES      LIKE     SWR_MESSAG OCCURS 0 ,
  MESSAGE_STRUCT     LIKE     SWR_MSTRUC OCCURS 0 ,
  RETURN_CODE LIKE  SY-SUBRC,
  EVENT_ID LIKE  SWR_STRUCT-EVENT_ID.
  DATA:           PDESNO TYPE TLINE-TDLINE,
                  PDESTINATION1 TYPE STRING .
  DATA: LT_HOLDERS TYPE STANDARD TABLE OF SWHACTOR,
           LWA_HOLDERS TYPE SWHACTOR,
           ACTOR_TAB     LIKE     SWHACTOR OCCURS 0,
  AC_CONTAINER     LIKE     SWR_CONT OCCURS 0 WITH HEADER LINE.
  DATA : WA_PR LIKE EBKN OCCURS 0 WITH HEADER LINE.
  DATA: IT_PR LIKE EBAN OCCURS 0 WITH HEADER LINE.
*submit zMM_R_BUDJETDISP AND RETURN."exporting list to memory and return.
TABLES: ZMM_BUG_DIS.
  DATA: WA_MAKT LIKE MAKT.
  DATA: BEGIN OF ITAB1 OCCURS 0,
          BNFPO LIKE EBAN-BNFPO,
          AUFNR LIKE EBKN-AUFNR,
          PREIS LIKE EBAN-PREIS,
          MATNR LIKE EBAN-MATNR,
          IT_TEXT TYPE STRING,
        END OF ITAB1.
  DATA : ITAB2   TYPE TABLE OF TEXT,
          TDNAME1(70) TYPE C,
              EN1 TYPE THEAD-TDSPRAS,
          OBJECT1 TYPE THEAD-TDOBJECT,
          ID1 TYPE THEAD-TDID.
  DATA: LINES3 TYPE STANDARD TABLE OF TLINE.
  DATA: LINES4 TYPE TLINE.
  SWC_CONTAINER PRLITEM ."IT_EVENT_CONTAINER.
  SWC_CREATE_CONTAINER PRLITEM." IT_EVENT_CONTAINER.
  LOOP AT C_EBKN .
    IF SY-MSGTY EQ 'E' AND SY-MSGID =  'BP' AND SY-MSGNO = '604'.
      LOOP AT C_EBAN WHERE BNFPO = C_EBKN-BNFPO ."where bnfpo = c_eban-banfn.
       PRLITEM = C_EBAN-BNFPO.
       REFRESH LT_HOLDERS[].
       LWA_HOLDERS-OTYPE = 'US'.
       LWA_HOLDERS-OBJID = C_EBAN-BNFPO.
       APPEND LWA_HOLDERS TO LT_HOLDERS.
       APPEND LINES OF LT_HOLDERS TO ACTOR_TAB.
       SWC_SET_ELEMENT AC_CONTAINER 'PRLITEM' '00010' ."C_EBAN-BNFPO .
       SWC_SET_ELEMENT AC_CONTAINER 'PRLITEM' C_EBAN-BNFPO.
      LOOP AT C_EBAN WHERE BNFPO = C_EBKN-BNFPO.
          ITAB1-BNFPO = C_EBKN-BNFPO.
          ITAB1-AUFNR = C_EBKN-AUFNR.
          ITAB1-PREIS = C_EBAN-PREIS.
          ITAB1-MATNR = C_EBAN-MATNR.
          SELECT SINGLE * FROM MAKT INTO WA_MAKT WHERE MATNR EQ C_EBAN-MATNR.
          AC_CONTAINER-ELEMENT = 'MAKTX'.
          AC_CONTAINER-VALUE = WA_MAKT-MAKTX.
          APPEND   AC_CONTAINER.
          AC_CONTAINER-ELEMENT = 'MATNR'.
          AC_CONTAINER-VALUE = C_EBAN-MATNR.
          APPEND   AC_CONTAINER.
          AC_CONTAINER-ELEMENT = 'PREIS'.
          AC_CONTAINER-VALUE = C_EBAN-PREIS.
          APPEND   AC_CONTAINER.
          IF SY-TCODE = 'ME51N'.
            APPEND C_EBAN-BANFN TO ITAB2.
            APPEND C_EBAN-BNFPO TO ITAB2.
            CONCATENATE LINES OF ITAB2 INTO TDNAME1 SEPARATED BY SPACE.
          ELSEIF SY-TCODE = 'ME52N'.
            CONCATENATE C_EBAN-BANFN C_EBAN-BNFPO INTO TDNAME1 .
          ENDIF.
          OBJECT1 = 'EBAN'.
          ID1 = 'B01'.
          EN1 = 'EN'.
          CALL FUNCTION 'READ_TEXT'
            EXPORTING
              CLIENT                  = SY-MANDT
              ID                      = 'B01'
              LANGUAGE                = EN1
              NAME                    = TDNAME1
              OBJECT                  = OBJECT1
            TABLES
              LINES                   = LINES3
            EXCEPTIONS
              ID                      = 1
              LANGUAGE                = 2
              NAME                    = 3
              NOT_FOUND               = 4
              OBJECT                  = 5
              REFERENCE_CHECK         = 6
              WRONG_ACCESS_TO_ARCHIVE = 7
              OTHERS                  = 8.
          LOOP AT LINES3 INTO LINES4.
            IF LINES4-TDLINE = ' '.
              CONTINUE.
            ELSE.
              PDESNO =  LINES4-TDLINE.
              CONCATENATE  PDESTINATION1 PDESNO INTO PDESTINATION1.
            ENDIF.
          ENDLOOP.
          ITAB1-IT_TEXT = PDESTINATION1.
          APPEND ITAB1.
        ENDLOOP.
          AC_CONTAINER-ELEMENT = 'BNFPO'.
          AC_CONTAINER-VALUE = C_EBAN-BNFPO.
          APPEND   AC_CONTAINER.
      AC_CONTAINER-ELEMENT = 'TEXT1'.
      AC_CONTAINER-VALUE = PDESTINATION1.
      APPEND   AC_CONTAINER.
     ENDLOOP.
     LOOP AT C_EBAN WHERE BNFPO = C_EBKN-BNFPO.
       ZMM_BUG_DIS-BNFPO = C_EBAN-BNFPO.
       ZMM_BUG_DIS-MATNR = C_EBAN-MATNR.
       ZMM_BUG_DIS-AUFNR = C_EBKN-AUFNR.
       ZMM_BUG_DIS-PREIS = C_EBAN-PREIS.
*INSERT ZMM_BUG_DIS.
     ENDLOOP.
     EXPORT IT_PR TO MEMORY ID 'PRW'.
*SUBMIT ZS32.
      OBJKEY = C_EBKN-AUFNR.
      CALL FUNCTION 'SAP_WAPI_CREATE_EVENT'
        EXPORTING
          OBJECT_TYPE     = 'BUS2075'
          OBJECT_KEY      = OBJKEY
          EVENT           = 'BUDGETEXCEEDED'
          COMMIT_WORK     = 'X'
          EVENT_LANGUAGE  = SY-LANGU
          LANGUAGE        = SY-LANGU
          USER            = SY-UNAME
        TABLES
          INPUT_CONTAINER = AC_CONTAINER.
         INPUT_CONTAINER = PRLITEM ."IT_EVENT_CONTAINER.
      ENDIF.
    ENDLOOP.
    EXPORT ITAB1 TO MEMORY ID 'ZPR1'.
SUBMIT ZSD122 AND RETURN."exporting list to memory and return.
SUBMIT ZBUDGETREPORT AND RETURN.
  ENDIF.
  DATA : LINES11 TYPE TLINE ,"OCCURS 0 WITH HEADER LINE,
            DESNO TYPE TLINE-TDLINE,
            DESNO1 TYPE TLINE-TDLINE,
            DESNO11 TYPE TLINE-TDLINE,
            EN TYPE THEAD-TDSPRAS,
            TDNAME(70) TYPE C," LIKE THEAD-TDNAME,
            OBJECT TYPE THEAD-TDOBJECT,
            ID TYPE THEAD-TDID.
  DATA: LINES1 TYPE STANDARD TABLE OF TLINE.
  DATA: LINES2 TYPE TLINE.
  DATA: DESTINATION1 TYPE STRING .
  DATA: DESTINATION11 TYPE STRING .
  DATA: DESTINATION111 TYPE STRING .
  DATA: C1(6).
  DATA: ST TYPE STRING.
  TYPES TEXT   TYPE C LENGTH 10.
  DATA  ITAB   TYPE TABLE OF TEXT.
  DATA  RESULT TYPE STRING.
  DATA: LI TYPE I.
  DATA: QT_CH TYPE STRING.
  IF SY-TCODE = 'ME51N' OR SY-TCODE = 'ME52N'.
    LOOP AT C_EBAN ."INTO L_S_EBAN .
ENDLOOP.
      IF ( C_EBAN-BSART = 'ZRAS' OR C_EBAN-BSART = 'ZRFS' OR C_EBAN-BSART = 'ZRPR'
          OR C_EBAN-BSART = 'ZRPU' OR C_EBAN-BSART = 'ZRQS' OR C_EBAN-BSART = 'ZRSS' ).
        IF C_EBAN-MENGE <> '         1.000'.
          CONCATENATE 'Change the Qty for Line Item - ' C_EBAN-BNFPO 'as 1' INTO QT_CH.
          MESSAGE QT_CH TYPE 'E'.
        ENDIF.
      ENDIF.
      IF SY-TCODE = 'ME51N'.
        APPEND C_EBAN-BANFN TO ITAB.
        APPEND C_EBAN-BNFPO TO ITAB.
        CONCATENATE LINES OF ITAB INTO TDNAME SEPARATED BY SPACE.
      ELSEIF SY-TCODE = 'ME52N'.
        CONCATENATE C_EBAN-BANFN C_EBAN-BNFPO INTO TDNAME .
      ENDIF.
      OBJECT = 'EBAN'.
      ID = 'B01'.
      EN = 'EN'.
      CALL FUNCTION 'READ_TEXT'
        EXPORTING
          CLIENT                  = SY-MANDT
          ID                      = ID
          LANGUAGE                = EN
          NAME                    = TDNAME
          OBJECT                  = OBJECT
        TABLES
          LINES                   = LINES1
        EXCEPTIONS
          ID                      = 1
          LANGUAGE                = 2
          NAME                    = 3
          NOT_FOUND               = 4
          OBJECT                  = 5
          REFERENCE_CHECK         = 6
          WRONG_ACCESS_TO_ARCHIVE = 7
          OTHERS                  = 8.
      LOOP AT LINES1 INTO LINES2.
        IF LINES2-TDLINE = ' '.
          CONTINUE.
        ELSE.
          DESNO =  LINES2-TDLINE.
          CONCATENATE  DESTINATION1 DESNO INTO DESTINATION1.
        ENDIF.
      ENDLOOP.
      CONDENSE DESTINATION1 NO-GAPS.
      LI = STRLEN( DESTINATION1 ).
      IF LI <= 0.
        CONCATENATE 'Item Text Is Missing for Line Item ' C_EBAN-BNFPO INTO ST.
        MESSAGE ST TYPE 'E'.
      ENDIF.
      FREE LINES1.
      FREE DESNO.
      FREE DESTINATION1.
      REFRESH LINES1.
      CLEAR LINES1.
      CLEAR DESNO.
      CLEAR DESTINATION1.
      CLEAR ITAB.
      FREE ITAB.
      REFRESH ITAB.
    ENDLOOP.
  ENDIF.
If you have queries do let me know.
Regards,
Raj