ItemPressed Event ActionSuccess=True is not firing

Question

Hi,
   I have written code in one of my addons to Capture the ActionSuccess=True part of the ItemPressed event of the "Add" button on the Delivery Note window. This event works perfectly fine when I launch the window from the "Delivery" menu item under Sales A/R.
However, I cannot this event does not fire when the Delivery note is launched from the "Pick and PAck manager" under the Inventory menu.
If pVal.ItemUID = "1" And pVal.ActionSuccess = True And pVal.BeforeAction = False Then
' DO some ACTION
End if
I would appreciate it if you could provide some ideas on whether this a know SAP issue or provide some ideas on how I can fix this issue.
Thanks,
Gopal

Answer 1

The FormDataEvent solved my problem in both cases since I only was interested in doing an action after the delivery was updated/added.
Se VB6-code below to implement this event :
(Events filters added when the addon starts.. :
    Set oFilter = oFilters.Add(et_FORM_DATA_ADD)
    oFilter.Add 140 'Delivery
    Set oFilter = oFilters.Add(et_FORM_DATA_UPDATE)
    oFilter.Add 140 'Delivery
Private Sub m_conApp_FormDataEvent(ByRef BusinessObjectInfo As SAPbouiCOM.BusinessObjectInfo, ByRef BubbleEvent As Boolean)
On Error GoTo ERROR_HANDLER
    If (BusinessObjectInfo.BeforeAction = True) Then 'Before Event
    'Do something
    Else 'After event
        Dim Form As SAPbouiCOM.Form
        Set Form = m_conApp.Forms.Item(BusinessObjectInfo.FormUID)
        Dim bisObj As SAPbouiCOM.BusinessObject
        Set bisObj = Form.BusinessObject
        Dim uid As String
        uid = bisObj.Key
        If (BusinessObjectInfo.Type = "15" And (BusinessObjectInfo.EventType = et_FORM_DATA_ADD Or BusinessObjectInfo.EventType = et_FORM_DATA_UPDATE)) Then
           If uid <> "" Then
            Select Case BusinessObjectInfo.Type
            Case 15 ' Delivery document
                Dim strBpCode As String
                Dim strDocNum As String
                Dim strDocEntry As String
                strDocNum = Trim(Form.DataSources.DBDataSources.Item("ODLN").GetValue("DocNum", 0))
                strBpCode = Trim(Form.DataSources.DBDataSources.Item("ODLN").GetValue("CardCode", 0))
                strDocEntry = Trim(Form.DataSources.DBDataSources.Item("ODLN").GetValue("DocEntry", 0))
                Debug.Print strDocNum + " " + strDocEntry + " " + strBpCode
                Select Case BusinessObjectInfo.EventType
                    Case et_FORM_DATA_UPDATE
                    'DO SOMETHING AFTER DELIVERY-UPDATE
                Case et_FORM_DATA_ADD
                    'DO SOMETHING AFTER ADDING DELIVERY
                End Select
            End Select
           End If
        End If
    End If
Exit Sub
ERROR_HANDLER:
    Debug.Print CStr(Err.Number) + " " + CStr(Err.Description)
End Sub