Public Sub registrarAreaEducativa()
Dim boolResultado As Boolean
Me.objAreaEducativaEN.Nombre = Me.TbxNombre.Text
Me.objAreaEducativaEN.Descripcion = Me.TbxDescripcion.Text
If (Me.TbxNombre.Text.Length >= 3) Then
Me.objAreaEducativaEN.IdAreaEducativa = Me.TbxNombre.Text.Substring(0, 3).ToUpper + Me.gestorAreaEducativa.getMaxIdAreaEducativa().ToString
End If
'validando que no exista un Area Educativa con el mismo nombre
If (Me.gestorAreaEducativa.existeAreaEducativa(objAreaEducativaEN)) Then
MessageBox.Show("Ya existe un Área Educativa con el nombre " + "[" + objAreaEducativaEN.Nombre + "]", "Registrar Área Educativa", MessageBoxButtons.OK, MessageBoxIcon.Error)
Else
'mensaje de confirmacion
Dim confirmacion As DialogResult = MessageBox.Show("Desea realmente registrar el Área Educativa " + "[" + objAreaEducativaEN.Nombre + "]", "Registrar Área Educativa", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If (confirmacion = Windows.Forms.DialogResult.Yes) Then
boolResultado = gestorAreaEducativa.insertar(objAreaEducativaEN)
End If
If (boolResultado) Then
MessageBox.Show("Se guardó exitosamente el Área Educativa " + "[" + objAreaEducativaEN.Nombre + "]" + " con el Código " + "[" + Me.gestorAreaEducativa.getIdAreaEducativa(objAreaEducativaEN) + "]", "Registrar Área Educativa", MessageBoxButtons.OK, MessageBoxIcon.Information)
Me.boolExito = True
Me.Close()
Else
'en caso de que no sea exitosa la insercion se muestra un mensaje de error
MessageBox.Show("No se pudo registrar el Área Educativa " + objAreaEducativaEN.Nombre, "Registrar Área Educativa", MessageBoxButtons.OK, MessageBoxIcon.Error)
End If
End If
End Sub