Fwd: RE: Help with triggering event

[Susan R. Keohan]

On behalf of Chris.Soden at XANSA.COM...
>Menand,
>
>You need to put a "commit work" in to force the event through
>
>Regards
>
>Chris Soden
>Team Manager - Work Management
>Enterprise Solutions
>
>Xansa
>
>420 Thames Valley Park Drive           Email:  Chris.Soden at Xansa.com
><mailto:Chris.Soden at Xansa.com>
>Thames Valley Park                             Tel:    01189 846589
>(direct)
>Reading RG6 1PU                                Fax:    01189 846001
>UK
>www.xansa.com <http://www.xansa.com>
>
>       -----Original Message-----
>       From:   Odedra, Menand [SMTP:MOdedra at krafteurope.com]
>       Sent:   Wednesday, May 16, 2001 8:59 AM
>       To:     SAP-WUG at MITVMA.MIT.EDU
>       Subject:        Help with triggering event
>
>       Hello All
>
>       I`m attempting to trigger a workflow using a triggering event.
>
>       I`ve defined the event 'ZCREATE' as an event of my object type
>'Z_PA22_OBJ'.
>       I`ve got a screen that simply raises the event using
>SWE_EVENT_CREATE.  When
>       I go into the code in debug mode I always get an sy-subrc = 0.
>       However the workflow is not kicked off.
>
>       I`ve attached the code I`m using to the bottom of this message.
>       Any help with this would be much appreciated.
>
>
>       SELECT MAX( PA22_NO ) FROM ZPA22HDR INTO PA22_NO.
>       IF SY-SUBRC = 0.
>         ZPA22HDR-PA22_NO = PA22_NO + 1.
>       ELSE.
>         ZPA22HDR-PA22_NO = 1.
>       ENDIF.
>
>       CASE OKCODE.
>         WHEN 'DONE'.
>           CALL FUNCTION 'SWE_EVENT_CREATE'
>                EXPORTING
>                     OBJTYPE                 = 'Z_PA22_OBJ'
>                     OBJKEY                  = 'PA22_NO'
>                     EVENT                   = 'ZCREATE'.
>       *             CREATOR                 = ' '
>       *             TAKE_WORKITEM_REQUESTER = ' '
>       *             START_WITH_DELAY        = ' '
>       *             START_RECFB_SYNCHRON    = ' '
>       *             NO_COMMIT_FOR_QUEUE     = ' '
>       *             DEBUG_FLAG              = ' '
>       *             NO_LOGGING              = ' '
>       *             IDENT                   =
>       *        IMPORTING
>       *             EVENT_ID                =
>       *        TABLES
>       *             EVENT_CONTAINER         =
>       *        EXCEPTIONS
>       *             OBJTYPE_NOT_FOUND       = 1
>       *             OTHERS                  = 2
>
>       IF SY-SUBRC = 0.
>         SET SCREEN 0.
>         LEAVE SCREEN.
>       ENDIF.
>
>
>       Regards
>
>       Menand Odedra
>       Kraft Foods UK
>       Analyst Programmer (Supply Chain)
>       email: modedra at krafteurope.com
>       Tel: 01242 28 4748
>Whilst this email has been checked for all known viruses, recipients should
>undertake their own virus checking as Xansa will not accept any liability
>whatsoever. This email and any files transmitted with it are confidential
and
>protected by customer privilege.  It is solely for the use of the intended
recipient.
>Please delete the email and notify the sender if you have received it in
error.
>Unauthorised use of the email and its attachments is prohibited. Any
opinions
>expressed in this email are those of the individual and not necessarily the
>company.
>Xansa, Registered Office:- Campus 300, Maylands Avenue, Hemel
>Hempstead, Hertfordshire, HP2 7TQ, England.  Registered in England No.
>1000954.
>http://www.xansa.com
>