Commit inicial Ventas Productivo

CGame/CatTamaños.aspx.VB

@@ -0,0 +1,41 @@
+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 CATTamaños
+    Inherits ClsPaginas
+
+
+
+
+
+
+#Region "Propiedades"
+
+    Private Property CveTamaño() As Integer
+        Get
+            Return If(IsNothing(ViewState("CveTamaño")), -1, CInt(ViewState("CveTamaño")))
+        End Get
+        Set
+            ViewState("CveTamaño") = Value
+        End Set
+    End Property
+
+
+
+
+
+
+#End Region
+    Protected  Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
+        If Not IsPostBack Then
+            CargaTamaños()
+        End If
+    End Sub
+    Protected Sub CargaTamaños()
+        Dim ObjTama As New ClsCGame()
+        If ObjTama.GetTamaños(UsuarioActual.CveEmpresa) Then