SIG/RH/CatPersonalRequerido.aspx.vb

Imports Extensiones

Partial Class RH_CatPersonalRequerido
    Inherits ClsPaginas

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

        End Get
        Set(value As Integer)
            ViewState("CveRequerimiento") = 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 Page_Load(sender As Object, e As EventArgs) Handles Me.Load

        If Not Page.IsPostBack Then
            CargadatosGvPersonalReq()
        End If

    End Sub

    Private Sub CargadatosGvPersonalReq()
        Dim ObjRH As New ClsRH
        If ObjRH.GetPersonalRequerido(UsuarioActual.CveEmpresa) Then
            GVDatos.DataSource = ObjRH.DtResultados

        Else
            GVDatos.DataSource = Nothing
        End If
        ObjRH.Dispose()
        GVDatos.DataBind()

        UPGVDatos.DataBind()
        UpGral.Update()

    End Sub

    Protected Sub BtnAgregarPersonalReq_Click(sender As Object, e As EventArgs) Handles BtnAgregarPersonalReq.Click
        LtlTituloModalPersonalReq.Text = "Agregar Personal Requerido"
        BtnAgregarPersonalReqModal.Text = "Agregar"

        CargaProyectos()
        CargaTurno()

        CargaDepartamento()

        ReqProyectoDdl.SelectedValueExist(-1)
        ReqSubProyectoDdl.SelectedValueExist(-1)
        ReqTurnoDdl.SelectedValueExist(-1)
        TxtCantidad.Text = ""

        Actualizar = False
        UpGral.Update()
        RegistraScript(String.Format("$('#{0}').modal();", "DivAgregarPersonalReq"))

    End Sub

    Private Sub CargaProyectos()
        ReqProyectoDdl.DataSource = GlobalDTProyectos(UsuarioActual.Empresa.CveEmpresa, 1).FiltraParametros("", "", {"CveProyecto", "Proyecto"})
        ReqProyectoDdl.DataBind()
        ReqProyectoDdl.Items.Insert(0, New ListItem("Seleccione el Proyecto", "-1"))
    End Sub

    Private Sub CargaSubProyectos(CveProyecto As Integer, SubProyectoDdl As DropDownList)
        SubProyectoDdl.Items.Clear()
        SubProyectoDdl.SelectedValue = Nothing
        If CveProyecto > 0 Then
            SubProyectoDdl.DataSource = GlobalDTSubProyectos(CveProyecto)
        End If
        SubProyectoDdl.DataBind()
        SubProyectoDdl.Items.Insert(0, New ListItem("Seleccione el SubProyecto", "-1"))
    End Sub

    Private Sub CargaTurno()
        ReqTurnoDdl.DataSource = GlobalDTTurno.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
        ReqTurnoDdl.DataBind()
    End Sub

    Private Sub CargaDepartamento()
        DdlDepartamento.Items.Clear()
        DdlDepartamento.DataSource = GlobalDTDepartamentos.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
        DdlDepartamento.DataBind()
    End Sub

    Protected Sub BtnAgregarPersonalReqModal_Click(sender As Object, e As EventArgs) Handles BtnAgregarPersonalReqModal.Click

        Dim RHRequerido As New Modelos.RH_PersonalRequerido
        Dim ObjRH As New ClsRH

        If Not Actualizar Then

            RHRequerido.CveSubProyecto = ReqSubProyectoDdl.SelectedValue.ToEntero
            RHRequerido.CveTurno = ReqTurnoDdl.SelectedValue.ToEntero
            RHRequerido.Cantidad = TxtCantidad.Text.ToEntero
            RHRequerido.CveUsuario = UsuarioActual.CveUsuario
            RHRequerido.CveEmpresa = UsuarioActual.CveEmpresa
            RHRequerido.CveDepartamento = DdlDepartamento.SelectedValue.ToEntero

            If ObjRH.AddPersonalRequerido(RHRequerido) Then

                ReqProyectoDdl.SelectedValueExist(-1)
                ReqSubProyectoDdl.SelectedValueExist(-1)
                ReqTurnoDdl.SelectedValueExist(-1)
                DdlDepartamento.SelectedValueExist(-1)
                TxtCantidad.Text = ""

                CargadatosGvPersonalReq()

                RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAgregarPersonalReq"), "jsHideModalPersonalReq")
                UpGral.Update()

                Alert("Personal Requerido Agregado Correctamente", TipoMensaje.MsgInformacion)
            Else
                Alert("Ocurrió un error al guardar el Personal Requerido", TipoMensaje.MsgError)
            End If
        Else

            RHRequerido.CveSubProyecto = ReqSubProyectoDdl.SelectedValue.ToEntero
            RHRequerido.CveTurno = ReqTurnoDdl.SelectedValue.ToEntero
            RHRequerido.Cantidad = TxtCantidad.Text.ToEntero
            RHRequerido.CveRequerimiento = CveRequerimiento
            RHRequerido.CveDepartamento = DdlDepartamento.SelectedValue.ToEntero

            If ObjRH.UpdatePersonalRequerido(RHRequerido) Then

                ReqProyectoDdl.SelectedValueExist(-1)
                ReqSubProyectoDdl.SelectedValueExist(-1)
                ReqTurnoDdl.SelectedValueExist(-1)
                DdlDepartamento.SelectedValueExist(-1)
                DdlDepartamento.SelectedValueExist(-1)

                TxtCantidad.Text = ""

                CargadatosGvPersonalReq()
                UpModalPersonalReq.Update()

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

                UpGral.Update()
                Alert("Personal Requerido Actualizado Correctamente", TipoMensaje.MsgInformacion)
            Else
                Alert("Ocurrió un error al Actualizar el Personal Requerido", TipoMensaje.MsgError)
            End If
        End If
        ObjRH.Dispose()

        CveRequerimiento = -1
        Actualizar = False

    End Sub

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

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

        Dim CveReq As Integer = GvRow.DataKey("CveRequerimiento")

        Dim ObjRH As New ClsRH

        If ObjRH.RemovePersonalRequerido(CveReq, UsuarioActual.CveEmpresa) Then
            CargadatosGvPersonalReq()

            Alert("El personal requerido se eliminó correctamente ", TipoMensaje.MsgInformacion)
        Else
            Alert("Ocurrió un error al Eliminar el Personal Requerido", TipoMensaje.MsgError)
        End If
        ObjRH.Dispose()
        CargadatosGvPersonalReq()

        CveRequerimiento = -1

    End Sub

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

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

        LtlTituloModalPersonalReq.Text = "Editar Personal Requerido"
        Actualizar = True

        CveRequerimiento = GvRow.DataKey("CveRequerimiento")

        CargaProyectos()
        CargaTurno()
        CargaDepartamento()

        ReqProyectoDdl.SelectedValueExist(GvRow.DataKey("CveProyecto").ToEntero)
        CargaSubProyectos(GvRow.DataKey("CveProyecto").ToEntero, ReqSubProyectoDdl)
        ReqSubProyectoDdl.SelectedValueExist(GvRow.DataKey("CveSubProyecto").ToEntero)

        ReqTurnoDdl.SelectedValueExist(GvRow.DataKey("CveTurno").ToEntero)
        TxtCantidad.Text = GvRow.DataKey("Cantidad").ToEntero

        DdlDepartamento.SelectedValueExist(GvRow.DataKey("CveDepartamento").ToEntero)


        BtnAgregarPersonalReqModal.Text = "Actualizar"

        UpModalPersonalReq.Update()

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

    End Sub
    Protected Sub ReqProyectoDdl_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ReqProyectoDdl.SelectedIndexChanged
        CargaSubProyectos(ReqProyectoDdl.SelectedValue.ToEntero, ReqSubProyectoDdl)
    End Sub
End Class