.net

Clasificado en Informática

Escrito el en español con un tamaño de 10,72 KB

 

Private

Function validaciones(ByVal Tipo As String) As Boolean
Dim Msg As String
Dim valida As Boolean = True Msg = "Errores de Ingreso" & vbCrLf & "****************"
' Selección que permite saber si debe validar al ingresar o al modificar,
' ya que cambian los nombres de los campos.
Select Case Tipo
' SI debe validar al ingresar
Case "INGRESA"
If (txtRut_I.Text.Trim.Length = 0) Then
Msg = Msg & vbCrLf & "Debe Ingresar el Rut"
valida = False
End If
If (txtDv_I.Text.Trim.Length > 0) Then
Select Case txtDv_I.Text
Case "0", "1", "2", "3", "4", "5", "6", "7", "8", "9"
Case "K", "k"
Case Else
Msg = Msg & vbCrLf & "Debe Ingresar un Digito Verificador Valido"
valida = False
End Select
Else
Msg = Msg & vbCrLf & "Debe Ingresar el Digito Verificador"
valida = False
End If
If (txtNombre_I.Text.Trim.Length = 0) Then
Msg = Msg & vbCrLf & "Debe Ingresar el Nombre"
valida = False
End If
If (txtSueldo_I.Text.Trim.Length = 0) Then
Msg = Msg & vbCrLf & "Debe Ingresar el Sueldo del Jugador"
valida = False
Else
If ((Val(txtSueldo_I.Text.Trim) < 50000) Or (Val(txtSueldo_I.Text.Trim) > 2000000)) Then
Msg = Msg & vbCrLf & "Debe Ingresar el Valor entre $50.000 y $2.000.000"
valida = False
End If
End If
If (cbbPuesto_I.SelectedIndex <= 0) Then
Msg = Msg & vbCrLf & "Debe Seleccionar el Puesto"
valida = False End If


' SI debe validar al modificar

Case "MODIFICA"
If (txtRut_M.Text.Trim.Length = 0) Then
Msg = Msg & vbCrLf & "Debe Ingresar el Rut"
valida = False
End If
If (txtDv_M.Text.Trim.Length > 0) Then
Select Case txtDv_M.Text
Case "0", "1", "2", "3", "4", "5", "6", "7", "8", "9"
Case "K", "k"
Case Else
Msg = Msg & vbCrLf & "Debe Ingresar un Digito Verificador Valido"
valida = False
End Select
Else
Msg = Msg & vbCrLf & "Debe Ingresar el Digito Verificador"
valida = False
End If
If (txtNombre_M.Text.Trim.Length = 0) Then
Msg = Msg & vbCrLf & "Debe Ingresar el Nombre"
valida = False
End If
If (txtSueldo_M.Text.Trim.Length = 0) Then
Msg = Msg & vbCrLf & "Debe Ingresar el Sueldo del Jugador"
valida = False
Else
If ((Val(txtSueldo_M.Text.Trim) < 50000) Or (Val(txtSueldo_M.Text.Trim) > 2000000)) Then
Msg = Msg & vbCrLf & "Debe Ingresar el Valor entre $50.000 y $2.000.000"
valida = False
End If
End If
If (cbbPuesto_M.SelectedIndex <= 0) Then
Msg = Msg & vbCrLf & "Debe Seleccionar el Puesto"
valida = False
End If
Case "BUSCAR1"
If (txtValorIni.Text.Trim.Length = 0) Then
Msg = Msg & vbCrLf & "Debe Ingresar el Valor Inicial"
valida = False
End If
If (txtValorFin.Text.Trim.Length = 0) Then
Msg = Msg & vbCrLf & "Debe Ingresar el Valor Final"
valida = False
End If
Case "BUSCAR2"
If (cbbPuesto_C.SelectedIndex <= 0) Then
Msg = Msg & vbCrLf & "Debe Seleccionar el Puesto"
valida = False
End If
End Select ' Verifica si algún campo no cumplio con la validación,
' de ser asi muestra un mensaje con los campos faltantes
If Not valida Then
MsgBox(Msg, MsgBoxStyle.Critical, "AVISO")
Return True
Else
Return False
End If
End Function

Entradas relacionadas: