Option Strict On

Imports Extensiones
Partial Class RH_CatUniformes
    Inherits ClsPaginas

    Private Property CveUniforme As Integer
        Get
            If ViewState("CveUniforme") Is Nothing Then
                Return -1
            Else
                Return DirectCast(ViewState("CveUniforme"), Integer)
            End If
        End Get
        Set(value As Integer)
            ViewState("CveUniforme") = value
        End Set
    End Property

    Private Property Uniforme As String
        Get
            If ViewState("Uniforme") Is Nothing Then
                Return ""
            Else
                Return ViewState("Uniforme").ToString
            End If
        End Get
        Set(value As String)
            ViewState("Uniforme") = value
        End Set
    End Property



    Private Property Estatus As Integer
        Get
            If ViewState("Estatus") Is Nothing Then
                Return -1
            Else
                Return DirectCast(ViewState("Estatus"), Integer)
            End If
        End Get
        Set(value As Integer)
            ViewState("Estatus") = value
        End Set
    End Property

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

        If Not Page.IsPostBack Then
            CargaDatos()
        End If

    End Sub


    Private Sub CargaDatos()

        Dim objRH As New ClsRH

        If objRH.UniformeGet(-1, -1, UsuarioActual.CveEmpresa) Then
            GvDatos.DataSource = objRH.DtResultados
        End If

        objRH.Dispose()
        GvDatos.DataBind()

        UPDatos.Update()

    End Sub


    'RegistraScript("$('#DivModalHojaTecnica').modal({ backdrop: 'static',  keyboard: false});", "MTareas")
    'DivModalUniforme

    Public Sub Edit_Click(sender As Object, e As EventArgs)
        Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)

        CveUniforme = GvRow.DataKey("CveUniforme").ToEntero
        TxtModalUniforme.Text = GvRow.DataKey("Uniforme")
        chkModalUniforme.Checked = Boolean.Parse(GvRow.DataKey("Estatus").ToString)

        RegistraScript("$('#DivModalUniforme').modal({ backdrop: 'static',  keyboard: false});", "MUniforme")

        UpModaluniformes.Update()

    End Sub
    'Delete_Click

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

        Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
        Dim CveUniformeE As Integer = GvRow.DataKey("CveUniforme").ToEntero

        Dim objRH As New ClsRH

        If objRH.UniformeRemove(CveUniformeE, UsuarioActual.CveEmpresa) Then
            Alert("Uniforme eliminado correctamente.")
            CargaDatos()
        End If

        CveUniforme = -1

        objRH.Dispose()

    End Sub

    Private Sub LnkAgregarUniforme_Click(sender As Object, e As EventArgs)

        TxtModalUniforme.Text = ""
        chkModalUniforme.Checked = True

        RegistraScript("$('#DivModalUniforme').modal({ backdrop: 'static',  keyboard: false});", "MUniforme")
    End Sub

    Private Sub LnkModalUniformeAgregar_Click(sender As Object, e As EventArgs) Handles LnkModalUniformeAgregar.Click

        Dim objRH As New ClsRH

        If objRH.UniformeAddUpdate(CveUniforme, TxtModalUniforme.Text.Trim, If(chkModalUniforme.Checked, 1, 0), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then

            CargaDatos()
            RegistraScript("$('#DivModalUniforme').modal('hide');", "MUniforme")
            Alert("Uniforme agregado correctamente.")
            CveUniforme = -1

        End If


        objRH.Dispose()

    End Sub
End Class