Commit inicial Ventas Productivo

CGame/CatEmpaque.aspx.VB

@@ -0,0 +1,54 @@
+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 CATTiposEtiqueta
+    Inherits ClsPaginas
+
+
+
+
+
+
+
+
+#Region "Propiedades"
+
+    Private Property CveEmpaque() As Integer
+        Get
+            Return If(IsNothing(ViewState("CveEmpaque")), 0, CInt(ViewState("CveEmpaque")))
+        End Get
+        Set
+            ViewState("CveEmpaque") = Value
+        End Set
+    End Property
+
+
+
+
+
+
+
+
+#End Region
+    Protected  Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
+        If Not IsPostBack Then
+            CargaEmpaque()
+        End If
+    End Sub
+    Protected Sub CargaEmpaque()
+        Dim ObjTipo As New ClsCGame()
+        If ObjTipo.GetEmpaques(UsuarioActual.CveEmpresa) Then
+            GvEmpaque.DataSource = ObjTipo.DtResultados
+            GvEmpaque.DataBind()
+        End If
+        ObjTipo.Dispose()
+        upDatosTipo.Update()
+    End Sub
+
+    Protected Sub LimpiaEmpaque()
+        TxtEmpaque.Text = ""