U00BFHow can I raise an event from visual basic to BW?

Question

Im looking for simple vb code that will raise and event that will trigger some process chains I have in bw.
something similar to
Set R3 = CreateObject("SAP.Functions")
R3.RaiseEvent("myEvent")
I'm sure I saw the code before, but I have looked for hours and couldnt find it again.
Thanks!
David G

Answer 1

Hello, this is how I finally did it and it is working pretty well.
In SAP
1. In SM62 Create new Event: ZGDREV01
2. In RSPC (Process Chain Maintenance)
- Start Variant after Event : ZGDREV01
Periodic Job: Checked (other wise it wil just trigger once)   
3. In SE37 Created a new function module:
Attributes: Remote-Enabled Module
Import:  EVENTID (char string)
Source Code:
FUNCTION ZGDRFM08.
*"*"Local Interface:
*"  IMPORTING
*"     VALUE(EVENTID) TYPE  ZTXTSH
  CALL FUNCTION 'BP_EVENT_RAISE'
  exporting
  eventid = EVENTID.
ENDFUNCTION.
4. In Visual Basic
Public Const TRANDATA_EVENTID = "ZGDREV01" ' EventId to be Raised
Private Sub cmdStartLoad_Click()
   Dim R3 as object
   Set R3 = CreateObject("SAP.Functions")
   Call TriggerLoadEvent(R3, TRANDATA_EVENTID)
End Sub
Public Function TriggerLoadEvent(ByRef R3 As Object, ByVal event_id As String) As Boolean
    Dim FuncVal As Object
    Dim param_event As Object
    On Error GoTo errHandler
    Set FuncVal = R3.Add("ZGDRFM08")
    Set param_event = FuncVal.Exports("EVENTID")
    param_event.value = event_id
    TriggerLoadEvent = FuncVal.call
    Exit Function
errHandler:
    MsgBox Err.description
End Function
Edited by: David Guerra Farias on Feb 11, 2008 11:13 PM