Skip to Content
0
Former Member
Feb 09, 2009 at 06:30 AM

validation is not working in combobox?

51 Views

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.

....