Private Sub BtnEliminar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnEliminar.Click
cargaContenidoFilaSelectBusqueda()
'primero validar que no tenga cursos asociados,
If (Me.gestorAreaEducativa.cursosAsociados(Me.objAreaEducativaEN)) Then
MessageBox.Show("Existen cursos asociados al Área Educativa " + "'" + Me.objAreaEducativaEN.Nombre + "'", "Eliminar Área Educativa", MessageBoxButtons.OK, MessageBoxIcon.Error)
'dentro del AD ya verifico la existencia del Area Educativa
Else
'mensajes de confirmacion
Dim confirmacion As DialogResult = MessageBox.Show("Desea realmente eliminar el Área Educativa " + Me.objAreaEducativaEN.Nombre, "Eliminar Área Educativa", MessageBoxButtons.YesNo, MessageBoxIcon.Warning)
If (confirmacion = Windows.Forms.DialogResult.Yes) Then
Me.gestorAreaEducativa.eliminarAreaEducativa(Me.objAreaEducativaEN)
'mensaje de informacion
MessageBox.Show("Se eliminó exitosamente el Área Educativa " + "'" + Me.objAreaEducativaEN.Nombre + "'", "Eliminar Área Educativa", MessageBoxButtons.OK, MessageBoxIcon.Information)
End If
End If
'ejecuto nuevamente la busqueda para actualizar la grilla
Me.llenaGrillaBuscar()
End Sub