Commit inicial Ventas Productivo

CGame/CatTipoEmpaque.aspx.vb

@@ -0,0 +1,150 @@
+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