How can i trigger workflow from report

Question

hi i create one report and workflow. i want to trigger workflow from report, how can i do this one, please send me any code you have.
Thanks & Regards
Sankar

Answer 1

Hi Sankar,
There is another sample code...
   REPORT ZRGEVTCR.
INCLUDE <CNTN01>.
DATA: OBJKEY  LIKE SWEINSTCOU-OBJKEY,
      EVENTID LIKE SWEDUMEVID-EVTID.
DATA: BEGIN OF EVENT_CONTAINER OCCURS 0.
        INCLUDE STRUCTURE SWCONT.
DATA: END OF EVENT_CONTAINER.
PARAMETERS:
  OBJTYPE  LIKE SWETYPECOU-OBJTYPE DEFAULT 'ZRGMARA',
  MATERIAL LIKE MARA-MATNR,
  EVENT    LIKE SWETYPECOU-EVENT   DEFAULT 'CREATED',
  VOLEH    LIKE MARA-VOLEH,
  LED      LIKE SY-DATUM           DEFAULT '19971231'.
OBJKEY = MATERIAL.
CLEAR EVENT_CONTAINER. REFRESH EVENT_CONTAINER.
set input parameters for CREATED event.
remark: to be more general, we had to use fm SWO_QUERY_PARAMETERS
IF EVENT EQ 'CREATED'.
  SWC_SET_ELEMENT EVENT_CONTAINER 'LatestChangeDate' LED.
  SWC_SET_ELEMENT EVENT_CONTAINER 'VolumeUnit' VOLEH.
ENDIF.
CALL FUNCTION 'SWE_EVENT_CREATE'
     EXPORTING
          OBJTYPE           = OBJTYPE
          OBJKEY            = OBJKEY
          EVENT             = EVENT
     IMPORTING
          EVENT_ID          = EVENTID
     TABLES
          EVENT_CONTAINER   = EVENT_CONTAINER
     EXCEPTIONS
          OBJTYPE_NOT_FOUND = 1.
IF SY-SUBRC NE 0.
  WRITE : / 'Object type', OBJTYPE, 'not found in object repository'.
ELSE.
  IF EVENTID NE 0.
    WRITE : / 'At least one receiver was found'.
    COMMIT WORK.
  ELSE.
    WRITE : / 'No receivers found'.
  ENDIF.
ENDIF.
Hope this will help you to solve your problem that how to trigger workflow from the report.
Thanks,
Pramod