Commit inicial Ventas Productivo

CGame/CatEstatus.aspx.VB

@@ -0,0 +1,44 @@
+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 CATEstatus
+    Inherits ClsPaginas
+
+
+
+#Region "Propiedades"
+        Property CveEstatus As Integer
+        Get
+            If Not ViewState("CveEstatus") Is Nothing Then
+                Return ViewState("CveEstatus").ToString.ToEntero
+            Else
+                Return -1
+            End If
+        End Get
+        Set(value As Integer)
+            ViewState("CveEstatus") = value
+        End Set
+    End Property
+
+
+
+#End Region
+    Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
+        If Not IsPostBack Then
+            CargaEstatus()
+        End If
+    End Sub
+    Protected Sub CargaEstatus()
+        Dim ObjEsta As New ClsCGame()
+        If ObjEsta.GetEstatus(UsuarioActual.CveEmpresa) Then
+            GVEstatus.DataSource = ObjEsta.DtResultados
+            GVEstatus.DataBind()
+        End If
+        ObjEsta.Dispose()
+        upDatosEsta.Update()
+