Commit inicial Ventas Productivo

CGame/CatTipoCaja.aspx.VB

@@ -0,0 +1,48 @@
+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 CATTipoCaja
+    Inherits ClsPaginas
+
+
+
+
+
+
+#Region "Propiedades"
+
+    Private Property CveTipoCaja() As Int32
+        Get
+            Return If(IsNothing(ViewState("CveTipoCaja")), 0, CInt(ViewState("CveTipoCaja")))
+        End Get
+        Set
+            ViewState("CveTipoCaja") = Value
+        End Set
+    End Property
+
+
+
+
+
+
+#End Region
+    Protected  Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
+        If Not IsPostBack Then
+            CargaTipoCaja()
+        End If
+    End Sub
+    Protected Sub CargaTipoCaja()
+        Dim ObjTipo As New ClsCGame()
+        If ObjTipo.GetTipoCaja(UsuarioActual.CveEmpresa) Then
+            GVTipoCaja.DataSource = ObjTipo.DtResultados
+            GVTipoCaja.DataBind()
+        End If
+        ObjTipo.Dispose()
+        upDatosTipo.Update()
+    End Sub
+