Unnamed

Imports EN
Imports LN
Imports Comunes

Public Class FrmRegistrarAreaEducativa
    Private gestorAreaEducativa As New AreaEducativaLN
    Private objAreaEducativaEN As New AreaEducativaEN
    Private boolBtnCancelarPresionado As Boolean = False
    Private boolExito As Boolean = False

    Public Sub New()

        ' Llamada necesaria para el Diseñador de Windows Forms.
        InitializeComponent()
        ' Agregue cualquier inicialización después de la llamada a InitializeComponent().
    End Sub

    Private Sub FrmRegistrarAreaEducativa_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.gestorAreaEducativa.insertarIdAreaEducativa()
    End Sub


    'Registrar Area Educativa
    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

    Private Sub BtnGrabar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnGrabar.Click
        Me.registrarAreaEducativa()
    End Sub


    Private Sub TbxNombre_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TbxNombre.KeyPress
        Validaciones.soloCaracteresNumerosEspaciosGuion(e)
    End Sub

    Private Sub BtnCancelar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnCancelar.Click
        Me.boolBtnCancelarPresionado = True
        Me.gestorAreaEducativa.eliminarUltimoIdAreaEducativa()
        Me.Close()
        'agregar codigo que me envia al menu principal
    End Sub

    Private Sub FrmRegistrarAreaEducativa_FormClosing(ByVal sender As System.Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles MyBase.FormClosing
        If ((Me.boolBtnCancelarPresionado = False) And (Me.boolExito = False)) Then
            Me.gestorAreaEducativa.eliminarUltimoIdAreaEducativa()
        End If

    End Sub
    Private Sub TbxDescripcion_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TbxDescripcion.KeyPress
        Validaciones.soloCaracteresNumerosEspaciosGuion(e)
    End Sub

    Private Sub BtnLimpiar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnLimpiar.Click
        Me.TbxNombre.Text = ""
        Me.TbxDescripcion.Text = ""
    End Sub
End Class