Skip to Content
0
Former Member
Oct 11, 2006 at 04:44 AM

Execution Take place more then once ?

23 Views

<b>Hi,

Here is code which is executed for more then once</b>

<i> Private Sub SBO_Application_ItemEvent(ByVal FormUID As String, ByRef pVal As SAPbouiCOM.ItemEvent, ByRef BubbleEvent As Boolean) Handles SBO_Application.ItemEvent

If pVal.FormTypeEx = "139" Or pVal.FormTypeEx = "133" Or pVal.FormTypeEx = "179" Or _

pVal.FormTypeEx = "142" Or pVal.FormTypeEx = "143" Or pVal.FormTypeEx = "141" Or _

pVal.FormTypeEx = "181" Or pVal.FormTypeEx = "720" Or pVal.FormTypeEx = "721" Or _

pVal.FormTypeEx = "65211" Or pVal.FormTypeEx = "65213" Or pVal.FormTypeEx = "65214" Or _

pVal.FormTypeEx = "170" Or pVal.FormTypeEx = "426" Or pVal.FormTypeEx = "606" Or _

pVal.FormTypeEx = "390" Then

'If pVal.ItemUID = "1" Then

If pVal.ItemUID = 88 Then

If pVal.Before_Action = True Then

'If pVal.EventType = SAPbouiCOM.BoEventTypes.et_ITEM_PRESSED Or pVal.EventType = SAPbouiCOM.BoEventTypes.et_CLICK Then

If pVal.EventType = SAPbouiCOM.BoEventTypes.et_COMBO_SELECT Then

If pVal.FormMode = 3 Then

If CompareString_Numbering() = False Then

SBO_Application.MessageBox(" Access Denied : Wrong Numbering !!! ")

BubbleEvent = False

Exit Sub

Else

BubbleEvent = True

End If

End If

End If

End If

End If

End If</i>

<b> Which line is needed to be added so that this event is called only for once .........

Please Provide me sample code if possible.

Regards ,

Ganesh</b>