edit box validation checking properly but combobox validation is not working why this is hapening could u tell me ?
please check
Private Sub SBO_Application_ItemEvent(ByVal FormUID As String, ByRef pVal As SAPbouiCOM.ItemEvent, ByRef BubbleEvent As Boolean) Handles SBO_Application.ItemEvent
Dim oForm As SAPbouiCOM.Form
oForm = SBO_Application.Forms.Item(FormUID)
' Try
Select Case pVal.EventType
Case SAPbouiCOM.BoEventTypes.et_CLICK
If pVal.ItemUID = "1" And pVal.BeforeAction = True Then
If oForm.Mode = SAPbouiCOM.BoFormMode.fm_ADD_MODE Or oForm.Mode = SAPbouiCOM.BoFormMode.fm_UPDATE_MODE Then
''''' '''' '''' ''' '' '''' ''' '''''''''''''''' consignment no
If Trim(oForm.Items.Item("CSno").Specific().Value) = "" Then
SBO_Application.StatusBar.SetText("Enter The Consinment No ", SAPbouiCOM.BoMessageTime.bmt_Long, SAPbouiCOM.BoStatusBarMessageType.smt_Error)
oForm.Items.Item("CSno").Click(SAPbouiCOM.BoCellClickType.ct_Regular)
BubbleEvent = False
Exit Sub
End If
' ' '''''''' cosignor challan no
If oForm.Items.Item("Ccno").Specific().Value = "" Then
BubbleEvent = False
SBO_Application.StatusBar.SetText("Enter The cosignor challan no ", SAPbouiCOM.BoMessageTime.bmt_Long, SAPbouiCOM.BoStatusBarMessageType.smt_Error)
oForm.Items.Item("Ccno").Click(SAPbouiCOM.BoCellClickType.ct_Regular)
Exit Sub
End If
' ' '' ''''''''''''''''' grosss loading weight
If oForm.Items.Item("glwegh").Specific().Value = "0.0" Then
BubbleEvent = False
SBO_Application.StatusBar.SetText("Enter The Gross weight ", SAPbouiCOM.BoMessageTime.bmt_Long, SAPbouiCOM.BoStatusBarMessageType.smt_Error)
oForm.Items.Item("glwegh").Click(SAPbouiCOM.BoCellClickType.ct_Regular)
Exit Sub
End If
' '' ''''''''''''''''' grosss loading tare weight
If oForm.Items.Item("ltwegh").Specific().Value = "0.0" Then
BubbleEvent = False
SBO_Application.StatusBar.SetText("Enter The Tare weight ", SAPbouiCOM.BoMessageTime.bmt_Long, SAPbouiCOM.BoStatusBarMessageType.smt_Error)
oForm.Items.Item("ltwegh").Click(SAPbouiCOM.BoCellClickType.ct_Regular)
Exit Sub
End If
''''''''''''''''''''''''''''''''''''''' combobox''''''''''''''''''''''''''''''''''''''''''''''''
'''''' project code ''''''''''''''''''''''''''''''''''''' this is not working........................''''''''''''''''''''''''''''''
oComboBox = oForm.Items.Item("OrVal").Specific
If Trim(oComboBox.Selected.Value) = "" Then
SBO_Application.StatusBar.SetText("Enter The Project Name ", SAPbouiCOM.BoMessageTime.bmt_Long, SAPbouiCOM.BoStatusBarMessageType.smt_Error)
BubbleEvent = False
Exit Sub
End If
End If
End If
End Select
end sub.
....