validation.vb

humar resourse management

                    If oDetails.DoE < oDetails.DoI Then
                        ErrMessage += "- Passport will not Expire before Issued Date " & vbNewLine & ""
                        VStatus = False
                    End If

                End If
                'Passport Details - [END]

                'Education [START]
                If oDetails.Institute <> "" Then
                    If Not ValidateString(oDetails.Institute) Then
                        ErrMessage += "- Invalid Input in University / Institute Name " & vbNewLine & ""
                        VStatus = False
                    End If

                    If oDetails.Course <> "" Then
                        If Not ValidateString(oDetails.Course) Then
                            ErrMessage += "- Invalid Input in Course Name " & vbNewLine & ""
                            VStatus = False
                        End If
                    End If

                    If oDetails.Major <> "" Then
                        If Not ValidateString(oDetails.Major) Then
                            ErrMessage += "- Invalid Input in Major Name " & vbNewLine & ""
                            VStatus = False
                        End If
                    End If

                    If oDetails.YoP > Date.Now.ToShortDateString Then
                        ErrMessage += "- Year of Passed Cannot be Feature Date " & vbNewLine & ""
                        VStatus = False
                    End If
                End If

                If oDetails.InstituteNew1 <> "" Then
                    If Not ValidateString(oDetails.InstituteNew1) Then
                        ErrMessage += "- Invalid Input in University / Institute Name of 2nd Row " & vbNewLine & ""
                        VStatus = False
                    End If

                    If oDetails.CourseNew1 <> "" Then
                        If Not ValidateString(oDetails.CourseNew1) Then
                            ErrMessage += "- Invalid Input in Course Name of 2nd Row " & vbNewLine & ""
                            VStatus = False
                        End If
                    End If

                    If oDetails.MajorNew1 <> "" Then
                        If Not ValidateString(oDetails.MajorNew1) Then
                            ErrMessage += "- Invalid Input in Major Name of 2nd Row " & vbNewLine & ""
                            VStatus = False
                        End If
                    End If

                    If oDetails.YoPNew1 > Date.Now.ToShortDateString Then
                        ErrMessage += "- Year of Passed Cannot be Feature Date of 2nd Row " & vbNewLine & ""
                        VStatus = False
                    End If


                    If oDetails.InstituteNew2 <> "" Then
                        If Not ValidateString(oDetails.InstituteNew2) Then
                            ErrMessage += "- Invalid Input in University / Institute Name of 3rd Row " & vbNewLine & ""
                            VStatus = False
                        End If

                        If oDetails.CourseNew2 <> "" Then
                            If Not ValidateString(oDetails.CourseNew2) Then
                                ErrMessage += "- Invalid Input in Course Name of 3rd Row " & vbNewLine & ""
                                VStatus = False
                            End If
                        End If

                        If oDetails.MajorNew2 <> "" Then
                            If Not ValidateString(oDetails.MajorNew2) Then
                                ErrMessage += "- Invalid Input in Major Name of 3rd Row " & vbNewLine & ""
                                VStatus = False
                            End If
                        End If

                        If oDetails.YoPNew2 > Date.Now.ToShortDateString Then
                            ErrMessage += "- Year of Passed Cannot be Feature Date of 3rd Row " & vbNewLine & ""
                            VStatus = False
                        End If
                    End If
                End If
                'Education Detais [END]

                'Experience Details [START]

                'If there is only one row
                If oDetails.Company1 <> "" Then
                    If Not ValidateString(oDetails.Company1) Then
                        ErrMessage += "- Invalid Input in Company " & vbNewLine & ""
                        VStatus = False
                    End If

                    If oDetails.Country1 <> "" Then
                        If Not ValidateString(oDetails.Country1) Then
                            ErrMessage += "- Invalid Input in Country " & vbNewLine & ""
                            VStatus = False
                        End If
                    End If

                    If oDetails.Years1 <> "" Then
                        If (ValidateMsYs(oDetails.Years1)) Then
                            If (Val(oDetails.Years1) < 0) Or (Val(oDetails.Years1) > 40) Then
                                ErrMessage += "- No. Of Years should be between 0 to 40 " & vbNewLine & ""
                                VStatus = False
                            End If
                        Else
                            ErrMessage += "- Invalid Input in No. Of Years " & vbNewLine & ""
                            VStatus = False
                        End If
                    End If

                    If oDetails.Months1 <> "" Then
                        If (ValidateMsYs(oDetails.Months1)) Then
                            If (Val(oDetails.Months1) < 0) Or (Val(oDetails.Months1) > 11) Then
                                ErrMessage += "- No. Of Months should be between 0 to 11 " & vbNewLine & ""
                                VStatus = False
                            End If
                        Else
                            ErrMessage += "- Invalid Input in No. Of Months " & vbNewLine & ""
                            VStatus = False
                        End If
                    End If


                    If oDetails.Job1 <> "" Then
                        If Not ValidateString(oDetails.Job1) Then
                            ErrMessage += "- Invalid Input in Job " & vbNewLine & ""
                            VStatus = False
                        End If
                    End If
                End If

                If oDetails.Company2 <> "" Then
                    If Not ValidateString(oDetails.Company2) Then
                        ErrMessage += "- Invalid Input in Company @ Row 2 " & vbNewLine & ""
                        VStatus = False
                    End If

                    If oDetails.Country2 <> "" Then
                        If Not ValidateString(oDetails.Country2) Then
                            ErrMessage += "- Invalid Input in Country @ Row 2 " & vbNewLine & ""
                            VStatus = False
                        End If
                    End If

                    If oDetails.Years2 <> "" Then
                        If (ValidateMsYs(oDetails.Years2)) Then
                            If (Val(oDetails.Years2) < 0) Or (Val(oDetails.Years2) > 40) Then
                                ErrMessage += "- No. Of Years should be between 0 to 40 @ Row 2 " & vbNewLine & ""
                                VStatus = False
                            End If
                        Else
                            ErrMessage += "- Invalid Input in No. Of Years @ Row 2 " & vbNewLine & ""
                            VStatus = False
                        End If
                    End If

                    If oDetails.Months2 <> "" Then
                        If (ValidateMsYs(oDetails.Months2)) Then
                            If (Val(oDetails.Months2) < 0) Or (Val(oDetails.Months2) > 11) Then
                                ErrMessage += "- No. Of Months should be between 0 to 11 @ Row 2 " & vbNewLine & ""
                                VStatus = False
                            End If
                        Else
                            ErrMessage += "- Invalid Input in No. Of Months @ Row 2 " & vbNewLine & ""
                            VStatus = False
                        End If
                    End If


                    If oDetails.Job2 <> "" Then
                        If Not ValidateString(oDetails.Job2) Then
                            ErrMessage += "- Invalid Input in Job @ Row 2 " & vbNewLine & ""
                            VStatus = False
                        End If
                    End If

                    If oDetails.Company3 <> "" Then
                        If Not ValidateString(oDetails.Company3) Then
                            ErrMessage += "- Invalid Input in Company @ Row 3 " & vbNewLine & ""
                            VStatus = False
                        End If

                        If oDetails.Country3 <> "" Then
                            If Not ValidateString(oDetails.Country3) Then
                                ErrMessage += "- Invalid Input in Country @ Row 3 " & vbNewLine & ""
                                VStatus = False
                            End If
                        End If

                        If oDetails.Years3 <> "" Then
                            If (ValidateMsYs(oDetails.Years3)) Then
                                If (Val(oDetails.Years3) < 0) Or (Val(oDetails.Years3) > 40) Then
                                    ErrMessage += "- No. Of Years should be between 0 to 40 @ Row 3 " & vbNewLine & ""
                                    VStatus = False
                                End If
                            Else
                                ErrMessage += "- Invalid Input in No. Of Years @ Row 3 " & vbNewLine & ""
                                VStatus = False
                            End If
                        End If

                        If oDetails.Months3 <> "" Then
                            If (ValidateMsYs(oDetails.Months3)) Then
                                If (Val(oDetails.Months3) < 0) Or (Val(oDetails.Months3) > 11) Then
                                    ErrMessage += "- No. Of Months should be between 0 to 11 @ Row 3 " & vbNewLine & ""
                                    VStatus = False
                                End If
                            Else
                                ErrMessage += "- Invalid Input in No. Of Months @ Row 3 " & vbNewLine & ""
                                VStatus = False
                            End If
                        End If


                        If oDetails.Job3 <> "" Then
                            If Not ValidateString(oDetails.Job3) Then
                                ErrMessage += "- Invalid Input in Job @ Row 3 " & vbNewLine & ""
                                VStatus = False
                            End If
                        End If
                    End If
                End If
                'Experience Details [END]
        End Select
        'Return the result to Main Function
        If VStatus Then
            Return True
        Else
            MessageBox.Show("Error During Validation. Correct Below Error(s) and Try Again!" & vbNewLine & "=================================================" & vbNewLine & ErrMessage, "Data Entry Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End If
    End Function
End Class