SIG/RH/CatUniformesDetalle.aspx.vb

Option Strict On

Imports Extensiones
Partial Class RH_CatUniformesDetalle
    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 CveUniformeDetalle As Integer
        Get
            If ViewState("CveUniformeDetalle") Is Nothing Then
                Return -1
            Else
                Return DirectCast(ViewState("CveUniformeDetalle"), Integer)
            End If
        End Get
        Set(value As Integer)
            ViewState("CveUniformeDetalle") = 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 Property Cantidad As Integer
        Get
            If ViewState("Cantidad") Is Nothing Then
                Return -1
            Else
                Return DirectCast(ViewState("Cantidad"), Integer)
            End If
        End Get
        Set(value As Integer)
            ViewState("Cantidad") = value
        End Set
    End Property

    Private Property Periodo As Integer
        Get
            If ViewState("Periodo") Is Nothing Then
                Return -1
            Else
                Return DirectCast(ViewState("Periodo"), Integer)
            End If
        End Get
        Set(value As Integer)
            ViewState("Periodo") = value
        End Set
    End Property
    Private Sub RH_CatUniformes_Load(sender As Object, e As EventArgs) Handles Me.Load

        If Not Page.IsPostBack Then

            If Not Request.QueryString("CveUniforme") Is Nothing Then
                CveUniforme = Request.QueryString("CveUniforme").ToEntero
            Else
                CveUniforme = -1
            End If

            CargaDatos()
        End If

    End Sub


    Private Sub CargaDatos()


        If CveUniforme > 0 Then

            lnkUniformeDetalleAgregar.Visible = True

            Dim objRH As New ClsRH

            If objRH.UniformeGet(CveUniforme, -1, UsuarioActual.CveEmpresa) Then

                If objRH.DtResultados.Rows.Count > 0 Then

                    TxtUniforme.Text = objRH.DtResultados.Rows(0)("Uniforme").ToString
                    chkUniformeActivo.Checked = If(Boolean.Parse(objRH.DtResultados.Rows(0)("Estatus").ToString), True, False)

                    If objRH.UniformeDetalleGet(-1, CveUniforme, UsuarioActual.CveEmpresa) Then
                        GvDatos.DataSource = objRH.DtResultados
                    Else
                        GvDatos.DataSource = Nothing
                    End If

                End If

                objRH.Dispose()
                GvDatos.DataBind()

                UPDatos.Update()

            End If
        Else
            lnkUniformeDetalleAgregar.Visible = False
            GvDatos.DataSource = Nothing
            GvDatos.DataBind()

            TxtUniforme.Text = ""
            chkUniformeActivo.Checked = False

            UPDatos.Update()


        End If

    End Sub

    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
        CveUniformeDetalle = GvRow.DataKey("CveUniformeDetalle").ToEntero
        TxtModalCantidad.Text = GvRow.DataKey("Cantidad")
        TxtModalPeriodo.Text = GvRow.DataKey("Periodo")

        'DdlPSEdit.DataSource = GlobalDTProductosServicios(UsuarioActual.CveEmpresa)
        'DdlPSEdit.DataBind()
        DdlPSEdit.ddl.Visible = False

        DdlPSEdit.SelectedText = GvRow.DataKey("PS").ToString

        DdlPSEdit.SelectedValue = GvRow.DataKey("CvePS").ToString
        DdlPSEdit.txtText.Value = GvRow.DataKey("PS").ToString
        DdlPSEdit.txtValue.Value = GvRow.DataKey("CvePS").ToString
        LnkModalUniformeDetalleAgregar.Text = "Actualizar"

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

        UpModaluniformes.Update()

    End Sub


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

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

        Dim objRH As New ClsRH

        If objRH.UniformeDetalleRemove(CveUniformeDetalleE) Then
            Alert("Registro eliminado correctamente.")
            CargaDatos()
        End If



        objRH.Dispose()

    End Sub

    Private Sub LnkAgregarUniforme_Click(sender As Object, e As EventArgs) Handles LnkAgregarUniforme.Click


        Response.Redirect("CatUniformesDetalle.aspx", True)

    End Sub

    Private Sub LnkModalUniformeDetellaAgregar_Click(sender As Object, e As EventArgs) Handles LnkModalUniformeDetalleAgregar.Click

        Dim objRH As New ClsRH
        Dim CvePS As Integer

        If DdlPSEdit.SelectedValue.ToEntero = 0 And DdlPSEdit.txtValue.Value.ToEntero = 0 Then
            Alert("Debe seleccionar un  producto")
            Exit Sub
        Else
            If DdlPSEdit.SelectedValue.ToEntero = 0 Then
                CvePS = DdlPSEdit.txtValue.Value.ToEntero
            Else
                CvePS = DdlPSEdit.SelectedValue.ToEntero
            End If
        End If


        If CveUniformeDetalle > 0 Then
            If objRH.UniformeDetalleAddUpdate(CveUniformeDetalle, CveUniforme, CvePS, TxtModalPeriodo.Text.ToEntero, TxtModalCantidad.Text.ToEntero, UsuarioActual.CveUsuario) Then

                RegistraScript("$('#DivModalUniformeDetalle').modal('hide');", "MUniforme")
                Alert("Uniforme actualizado correctamente.")

                CveUniformeDetalle = -1
            End If
        Else
            If objRH.UniformeDetalleAddUpdate(-1, CveUniforme, CvePS, TxtModalPeriodo.Text.ToEntero, TxtModalCantidad.Text.ToEntero, UsuarioActual.CveUsuario) Then

                RegistraScript("$('#DivModalUniformeDetalle').modal('hide');", "MUniforme")
                Alert("Uniforme agregado correctamente.")

                CveUniformeDetalle = -1
            End If

        End If



        objRH.Dispose()
        CargaDatos()

    End Sub

    Private Sub BtnGuardar_Click(sender As Object, e As EventArgs) Handles BtnGuardar.Click

        Dim objRH As New ClsRH

        If CveUniforme > 0 Then

            If objRH.UniformeAddUpdate(CveUniforme, TxtUniforme.Text.Trim, If(chkUniformeActivo.Checked, 1, 0), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
                Alert("Uniforme agregado Actualizado")
                objRH.Dispose()


            End If

        Else
            If objRH.UniformeAddUpdate(-1, TxtUniforme.Text.Trim, If(chkUniformeActivo.Checked, 1, 0), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then


                objRH.Dispose()
                CveUniforme = objRH.DtResultados.Rows(0)(0).ToString.ToEntero
                Response.Redirect($"CatUniformesDetalle.aspx?CveUniforme={CveUniforme}", True)
            End If
        End If




        CargaDatos()
    End Sub

    Private Sub lnkUniformeDetalleAgregar_Click(sender As Object, e As EventArgs) Handles lnkUniformeDetalleAgregar.Click

        DdlPSEdit.txtText.Value = ""
        DdlPSEdit.txtValue.Value = ""
        DdlPSEdit.ddl.Visible = False
        TxtModalCantidad.Text = ""
        TxtModalPeriodo.Text = ""
        LnkModalUniformeDetalleAgregar.Text = "Agregar"

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

    Private Sub BtnEliminar_Click(sender As Object, e As EventArgs) Handles BtnEliminar.Click
        Dim objRH As New ClsRH

        If objRH.UniformeRemove(CveUniforme, UsuarioActual.CveEmpresa) Then
            objRH.Dispose()
            Response.Redirect("CatUniformes.aspx", True)
        Else
            objRH.Dispose()
        End If



    End Sub
End Class