SIG/CGame/CatTipoEmpaque.aspx.vb

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

Partial Class CGame_CatTipoEmpaque
    Inherits ClsPaginas

#Region "Propiedades"
    Private Property RcveTipoEmpaque() As Int32
        Get
            Return If(IsNothing(ViewState("RcveTipoEmpaque")), 0, CInt(ViewState("RcveTipoEmpaque")))
        End Get
        Set
            ViewState("RcveTipoEmpaque") = Value
        End Set
    End Property
    Private Property CcveTipoEmpaque() As Int32
        Get
            Return If(IsNothing(ViewState("CcveTipoEmpaque")), 0, CInt(ViewState("CcveTipoEmpaque")))
        End Get
        Set
            ViewState("CcveTipoEmpaque") = 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
            RcveTipoEmpaque = If(IsNothing(Request("cveTipoEmpaque")), 0, Request("cveTipoEmpaque").ToString().ToEntero())
            RcveUsuario = If(IsNothing(Request("cveUsuario")), 0, Request("cveUsuario").ToString().ToEntero())
            RcveEmpresa = If(IsNothing(Request("cveEmpresa")), 0, Request("cveEmpresa").ToString().ToEntero())
            CargaTipoEmpaque()
            ChkCGamestatus.Checked = True
        End If
    End Sub
    Protected Sub CargaTipoEmpaque()
        Dim ObjCGam As New ClsCGame()
        If ObjCGam.GetTipoEmpaque(-1, -1, UsuarioActual.CveEmpresa) Then
            GVCGame_TipoEmpaque.DataSource = ObjCGam.DtResultados
        End If

        ObjCGam.Dispose()
        GVCGame_TipoEmpaque.DataBind()
        upDatosCGam.Update()
    End Sub
    Protected Sub LimpiaCGame_TipoEmpaque()
        TxtCGamtipoEmpaque.Text = ""
        DdlTipoEmpaque.SelectedIndex = 0
        ChkEsMaster.Checked = False
        UPModalCGam.Update()
    End Sub
    Protected Sub LnkEditarCGam_Click(sender As Object, e As EventArgs)
        ltlCGamtitulo.Text = "Editar Tipo Empaque"
        divEstatus.Visible = True
        LimpiaCGame_TipoEmpaque()
        Dim gvRow As GridViewRow = DirectCast((DirectCast(sender, LinkButton)).NamingContainer, GridViewRow)
        CcveTipoEmpaque = gvRow.DataKey("CveTipoEmpaque").ToEntero()
        Dim tipoEmpaque As String = gvRow.DataKey("TipoEmpaque")
        Dim estatus As Boolean = CBool(gvRow.DataKey("Estatus"))
        Dim EsMaster As Boolean = CBool(gvRow.DataKey("EsMaster"))
        Dim fechaIng As DateTime = gvRow.DataKey("FechaIng").ToDateTime()
        Dim cveUsuario As Int32 = gvRow.DataKey("CveUsuario").ToEntero()
        Dim cveEmpresa As Int32 = gvRow.DataKey("CveEmpresa").ToEntero()

        TxtCGamtipoEmpaque.Text = tipoEmpaque.ToString()
        DdlTipoEmpaque.SelectedValueExist(gvRow.DataKey("Tipo"))
        ChkCGamestatus.Checked = estatus
        ChkEsMaster.Checked = EsMaster
        RegistraScript("$('#DModalCGame_TipoEmpaque').modal('show')")
        BtnCGamADD.Visible = False
        BtnCGamEdit.Visible = True
        UPModalCGam.Update()
    End Sub
    Protected Sub LnkAgregarCGam_Click(sender As Object, e As EventArgs)
        ltlCGamtitulo.Text = "Agregar Tipo Empaque"
        divEstatus.Visible = False
        RegistraScript("$('#DModalCGame_TipoEmpaque').modal('show')")
        LimpiaCGame_TipoEmpaque()
        BtnCGamADD.Visible = True
        BtnCGamEdit.Visible = False
        UPModalCGam.Update()
    End Sub
    Protected Sub BtnCGamADD_Click(sender As Object, e As EventArgs)

        Dim tipoEmpaque As String = TxtCGamtipoEmpaque.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.AddTipoEmpaque(tipoEmpaque, estatus, fechaIng, cveUsuario, cveEmpresa, DdlTipoEmpaque.SelectedValue.ToEntero, ChkEsMaster.Checked)
        ObjCGam.Dispose()
        If (Continuar) Then
            RegistraScript("$('#DModalCGame_TipoEmpaque').modal('hide')")
            LimpiaCGame_TipoEmpaque()
            UPModalCGam.Update()
            CargaTipoEmpaque()
            Alert("El Tipo de Empaque se ha agregado correctamente.")
        End If
    End Sub
    Protected Sub BtnCGamEdit_Click(sender As Object, e As EventArgs)

        Dim tipoEmpaque As String = TxtCGamtipoEmpaque.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.UpdateTipoEmpaque(CcveTipoEmpaque, tipoEmpaque, estatus, fechaIng, cveUsuario, cveEmpresa, DdlTipoEmpaque.SelectedValue.ToEntero, ChkEsMaster.Checked)
        ObjCGam.Dispose()
        If (Continuar) Then
            RegistraScript("$('#DModalCGame_TipoEmpaque').modal('hide')")
            LimpiaCGame_TipoEmpaque()
            UPModalCGam.Update()
            CargaTipoEmpaque()
            Alert("El Tipo de Empaque 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)
        CcveTipoEmpaque = gvRow.DataKey("CveTipoEmpaque").ToEntero()
        Dim ObjCGam As New ClsCGame()
        Dim Continuar As Boolean = ObjCGam.RemoveTipoEmpaque(CcveTipoEmpaque)
        ObjCGam.Dispose()
        If (Continuar) Then
            CargaTipoEmpaque()
            Alert("El Tipo de Empaque se ha eliminado correctamente.")
        End If
    End Sub
End Class