SIG/RH/CatCursosCapacitadores.aspx.vb

Imports System.Data
Imports Extensiones


Partial Class RH_CatCursosCapacitadores
    Inherits ClsPaginas

    Private Property CveCapaciatador As Integer
        Get
            If Not ViewState("CveCapaciatador") Is Nothing Then
                Return ViewState("CveCapaciatador").ToString.ToEntero
            Else
                Return 0
            End If

        End Get
        Set(value As Integer)
            ViewState("CveCapaciatador") = value
        End Set

    End Property

    Private Property Actualizar As Boolean
        Get
            If Not ViewState("Actualizar") Is Nothing Then
                Return DirectCast(ViewState("Actualizar"), Boolean)
            Else
                Return False
            End If
        End Get
        Set(value As Boolean)
            ViewState("Actualizar") = value
        End Set
    End Property


    Private Sub RH_CatCapacitadores_Load(sender As Object, e As EventArgs) Handles Me.Load

        If Not Page.IsPostBack Then
            CargadatosGvCapacitador()
        End If

    End Sub



#Region "Capcitador"

    Private Sub CargadatosGvCapacitador()

        Dim objRH As New ClsRH

        If objRH.CapacitadoresGet(-1, -1, -1, UsuarioActual.Empresa.CveEmpresa) Then
            GvCapacitadores.DataSource = objRH.DtResultados
        Else
            GvCapacitadores.DataSource = Nothing
        End If
        objRH.Dispose()

        GvCapacitadores.DataBind()
        UpGral.Update()

    End Sub

    Protected Sub BtnAgregarCapacitador_Click(sender As Object, e As EventArgs) Handles BtnAgregarCapacitador.Click
        LtlTituloModalCapacitadores.Text = "Agregar Capacitador"
        BtnAgregarCapacitadorModal.Text = "Agregar"
        Actualizar = False
        TxtCapacitador.Text = ""
        TxtCedula.Text = ""
        TxtEspecialidades.Text = ""
        ChkEstatus.Checked = True
        Actualizar = False
        UpGral.Update()
        RegistraScript(String.Format("$('#{0}').modal();", "divAgregarCapacitador"))
    End Sub

    Protected Sub BtnAgregarCapacitadorModal_Click(sender As Object, e As EventArgs) Handles BtnAgregarCapacitadorModal.Click

        Dim objRH As New ClsRH
        Dim Estatus As Integer = 0
        Dim Externo As Integer = 0

        If ChkEstatus.Checked Then
            Estatus = 1
        Else
            Estatus = 0
        End If

        If chkExterno.Checked Then
            Externo = 1
        Else
            Externo = 0
        End If

        RegistraScript(String.Format("$('#{0}').modal('hide');", "divAgregarCapacitador"), "jsHideModalCapacitador")

        UpGral.Update()

        If Not Actualizar Then
            If objRH.CapacitadorAdd(TxtCapacitador.Text, Estatus, Externo, TxtCedula.Text, TxtEspecialidades.Text, UsuarioActual.Empresa.CveEmpresa, UsuarioActual.CveUsuario) Then

                CveCapaciatador = 0
                TxtCapacitador.Text = ""
                TxtEspecialidades.Text = ""
                TxtCedula.Text = ""

                ChkEstatus.Checked = True
                chkExterno.Checked = True

                CargadatosGvCapacitador()
                UpGral.Update()

                Alert("Capacitador Agregado Correctamente", TipoMensaje.MsgInformacion)
            Else
                Alert("Ocurrio un error al guardar  el Capacitador", TipoMensaje.MsgError)
            End If
        Else
            If objRH.CapacitadorUpdate(CveCapaciatador, TxtCapacitador.Text, Estatus, Externo, TxtCedula.Text, TxtEspecialidades.Text, UsuarioActual.Empresa.CveEmpresa, UsuarioActual.CveUsuario) Then

                CveCapaciatador = 0
                TxtCapacitador.Text = ""
                TxtEspecialidades.Text = ""
                TxtCedula.Text = ""

                ChkEstatus.Checked = True
                chkExterno.Checked = True

                CargadatosGvCapacitador()
                UpModaCapacitador.Update()

                Alert("Capacitador Actualizado Correctamente", TipoMensaje.MsgInformacion)
            Else
                Alert("Ocurrio un error al Actualizar  el Capacitador", TipoMensaje.MsgError)
            End If
        End If

        CveCapaciatador = 0
        Actualizar = False
        objRH.Dispose()

    End Sub

    Public Sub Remove_ClickCapacitador(sender As Object, e As EventArgs)

        Dim objRH As New ClsRH
        Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
        Dim activo As Boolean = False
        Dim CveCapacitador As Integer = GvRow.DataKey("CveCapacitador").ToEntero

        If objRH.CapacitadorRemove(CveCapacitador) Then
            CargadatosGvCapacitador()

            Alert("Capacitador Elimino Correctamente ", TipoMensaje.MsgInformacion)
        Else
            Alert("Ocurrio un error al Eliminar el Capacitador", TipoMensaje.MsgError)
        End If
        CveCapaciatador = 0

    End Sub

    Public Sub Edit_ClickCapacitador(sender As Object, e As EventArgs)

        Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
        Dim activo As Boolean = False

        LtlTituloModalCapacitadores.Text = "Editar Capacitador"
        Actualizar = True

        CveCapaciatador = GvRow.DataKey("CveCapacitador").ToEntero
        TxtCapacitador.Text = GvRow.DataKey("Capacitador")
        TxtEspecialidades.Text = GvRow.DataKey("Especialidades")
        TxtCedula.Text = GvRow.DataKey("Cedula")

        ChkEstatus.Checked = Boolean.Parse(GvRow.DataKey("Estatus"))
        chkExterno.Checked = Boolean.Parse(GvRow.DataKey("Externo"))

        BtnAgregarCapacitadorModal.Text = "Actualizar"

        UpModaCapacitador.Update()

        RegistraScript(String.Format("$('#{0}').modal();", "divAgregarCapacitador"))

    End Sub



#End Region



End Class