Commit inicial Ventas Productivo

CGame/CatCalidad.aspx.VB

@@ -0,0 +1,37 @@
+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 CATCalidad
+    Inherits ClsPaginas
+
+
+
+#Region "Propiedades"
+
+    Private Property CveCalidad() As Int32
+        Get
+            Return If(IsNothing(ViewState("CveCalidad")), 0, CInt(ViewState("CveCalidad")))
+        End Get
+        Set
+            ViewState("CveCalidad") = Value
+        End Set
+    End Property
+
+
+
+
+
+#End Region
+    Protected  Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
+        If Not IsPostBack Then
+            CargaCalidad()
+        End If
+    End Sub
+    Protected Sub CargaCalidad()
+        Dim ObjCali As New ClsCGame()
+        If ObjCali.GetCalidad(UsuarioActual.CveEmpresa) Then