SIG/CGame/CatTipoMaduracion.aspx.vb

Option Strict On
Imports System.Data
Imports System.Collections.Generic
Imports System.Linq
Imports Extensiones
Imports System.Web.UI.WebControls

Partial Class CGame_CatTipoMaduracion
    Inherits ClsPaginas

#Region "Propiedades"
    Private Property RcveTipoMaduracion() As Int32
        Get
            Return If(IsNothing(ViewState("RcveTipoMaduracion")), 0, CInt(ViewState("RcveTipoMaduracion")))
        End Get
        Set
            ViewState("RcveTipoMaduracion") = Value
        End Set
    End Property
    Private Property CcveTipoMaduracion() As Int32
        Get
            Return If(IsNothing(ViewState("CcveTipoMaduracion")), 0, CInt(ViewState("CcveTipoMaduracion")))
        End Get
        Set
            ViewState("CcveTipoMaduracion") = Value
        End Set
    End Property
    Private Property RcveUsuario() As Int32
        Get
            Return If(IsNothing(ViewState("RcveUsuario")), 0, CInt(ViewState("RcveUsuario")))
        End Get
        Set
            ViewState("RcveUsuario") = Value
        End Set
    End Property
    Private Property RcveEmpresa() As Int32
        Get
            Return If(IsNothing(ViewState("RcveEmpresa")), 0, CInt(ViewState("RcveEmpresa")))
        End Get
        Set
            ViewState("RcveEmpresa") = Value
        End Set
    End Property

#End Region
    Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
        If Not IsPostBack Then
            RcveTipoMaduracion = If(IsNothing(Request("cveTipoMaduracion")), 0, Request("cveTipoMaduracion").ToString().ToEntero())
            RcveUsuario = If(IsNothing(Request("cveUsuario")), 0, Request("cveUsuario").ToString().ToEntero())
            RcveEmpresa = If(IsNothing(Request("cveEmpresa")), 0, Request("cveEmpresa").ToString().ToEntero())
            CargaTipoMaduracion()
            CargaProductos()
            ChkCGamestatus.Checked = True
        End If
    End Sub
    Protected Sub CargaTipoMaduracion()
        Dim ObjCGam As New ClsCGame()
        If ObjCGam.GetTipoMaduracion(-1, -1, -1, UsuarioActual.CveEmpresa) Then
            GVCGame_TipoMaduracion.DataSource = ObjCGam.DtResultados
        End If

        ObjCGam.Dispose()
        GVCGame_TipoMaduracion.DataBind()
        upDatosCGam.Update()
    End Sub
    Protected Sub LimpiaCGame_TipoMaduracion()
        TxtCGamtipoMaduracion.Text = ""
        DdlPS.SelectedIndex = 0
        UPModalCGam.Update()
    End Sub

    Protected Sub CargaProductos()
        Dim ObjCGame As New ClsCGame
        If ObjCGame.GetPS(UsuarioActual.CveEmpresa) Then
            DdlPS.DataSource = ObjCGame.DtResultados
            ObjCGame.Dispose()
        End If
        DdlPS.DataBind()
        UPModalCGam.Update()
    End Sub
    Protected Sub LnkEditarCGam_Click(sender As Object, e As EventArgs)
        ltlCGamtitulo.Text = "Editar Tipo de Maduración"
        LimpiaCGame_TipoMaduracion()
        divEstatus.Visible = True
        Dim gvRow As GridViewRow = DirectCast((DirectCast(sender, LinkButton)).NamingContainer, GridViewRow)
        CcveTipoMaduracion = gvRow.DataKey("CveTipoMaduracion").ToEntero()
        Dim tipoMaduracion As String = gvRow.DataKey("TipoMaduracion")
        Dim estatus As Boolean = CBool(gvRow.DataKey("Estatus"))
        Dim fechaIng As DateTime = gvRow.DataKey("FechaIng").ToDateTime()
        Dim cveUsuario As Int32 = gvRow.DataKey("CveUsuario").ToEntero()
        Dim cveEmpresa As Int32 = gvRow.DataKey("CveEmpresa").ToEntero()

        DdlPS.SelectedValueExist(gvRow.DataKey("CvePS"))
        TxtCGamtipoMaduracion.Text = tipoMaduracion.ToString()
        ChkCGamestatus.Checked = estatus
        RegistraScript("$('#DModalCGame_TipoMaduracion').modal('show')")
        BtnCGamADD.Visible = False
        BtnCGamEdit.Visible = True
        UPModalCGam.Update()
    End Sub
    Protected Sub LnkAgregarCGam_Click(sender As Object, e As EventArgs)
        divEstatus.Visible = False
        ltlCGamtitulo.Text = "Agregar Tipo de Maduración"
        RegistraScript("$('#DModalCGame_TipoMaduracion').modal('show')")
        LimpiaCGame_TipoMaduracion()
        BtnCGamADD.Visible = True
        BtnCGamEdit.Visible = False
        UPModalCGam.Update()
    End Sub
    Protected Sub BtnCGamADD_Click(sender As Object, e As EventArgs)

        Dim tipoMaduracion As String = TxtCGamtipoMaduracion.Text
        Dim estatus As Boolean = ChkCGamestatus.Checked
        Dim fechaIng As DateTime = Now
        Dim cveUsuario As Int32 = UsuarioActual.CveUsuario
        Dim cveEmpresa As Int32 = UsuarioActual.CveEmpresa
        Dim ObjCGam As New ClsCGame()
        Dim Continuar As Boolean = ObjCGam.AddTipoMaduracion(DdlPS.SelectedValue.ToEntero, tipoMaduracion, estatus, fechaIng, cveUsuario, cveEmpresa)
        ObjCGam.Dispose()
        If (Continuar) Then
            RegistraScript("$('#DModalCGame_TipoMaduracion').modal('hide')")
            LimpiaCGame_TipoMaduracion()
            UPModalCGam.Update()
            CargaTipoMaduracion()
            Alert("La variedad se ha agregado correctamente.")
        End If
    End Sub
    Protected Sub BtnCGamEdit_Click(sender As Object, e As EventArgs)

        Dim tipoMaduracion As String = TxtCGamtipoMaduracion.Text
        Dim estatus As Boolean = ChkCGamestatus.Checked
        Dim fechaIng As DateTime = Now
        Dim cveUsuario As Int32 = UsuarioActual.CveUsuario
        Dim cveEmpresa As Int32 = UsuarioActual.CveEmpresa
        Dim ObjCGam As New ClsCGame()
        Dim Continuar As Boolean = ObjCGam.UpdateTipoMaduracion(DdlPS.SelectedValue.ToEntero(), CcveTipoMaduracion, tipoMaduracion, estatus, fechaIng, cveUsuario, cveEmpresa)
        ObjCGam.Dispose()
        If (Continuar) Then
            RegistraScript("$('#DModalCGame_TipoMaduracion').modal('hide')")
            LimpiaCGame_TipoMaduracion()
            UPModalCGam.Update()
            CargaTipoMaduracion()
            Alert("La variedad se ha actualizado correctamente.")
        End If
    End Sub
    Protected Sub LnkEliminarCGam_Click(sender As Object, e As EventArgs)
        Dim gvRow As GridViewRow = DirectCast((DirectCast(sender, LinkButton)).NamingContainer, GridViewRow)
        CcveTipoMaduracion = gvRow.DataKey("CveTipoMaduracion").ToEntero()
        Dim ObjCGam As New ClsCGame()
        Dim Continuar As Boolean = ObjCGam.RemoveTipoMaduracion(CcveTipoMaduracion)
        ObjCGam.Dispose()
        If (Continuar) Then
            CargaTipoMaduracion()
            CargaTipoMaduracion()
            Alert("La variedad se ha eliminado correctamente.")
        End If
    End Sub
End Class