Catalogo Clasificaiones Viáticos Comprobaciones

General/CatClasificacionesComprobaciones.aspx.vb

@@ -0,0 +1,78 @@
+Option Explicit On
+Option Strict On
+
+Imports Extensiones
+Partial Class Gral_CatClasificacionesComprobaciones
+    Inherits ClsPaginas
+
+    Property CveClasificacion As Integer
+
+        Get
+
+            If ViewState("CveClasificacion") Is Nothing Then
+                Return -1
+            Else
+                Return ViewState("CveClasificacion").ToString.ToEntero
+            End If
+
+        End Get
+
+        Set(value As Integer)
+            ViewState("CveClasificacion") = value
+        End Set
+
+    End Property
+
+    Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
+        If Not Page.IsPostBack Then
+            CargaGridClasificaciones()
+        End If
+    End Sub
+
+#Region " C L A S I F I C A C I O N E S"
+    Protected Sub CargaGridClasificaciones()
+
+        Dim ObjClasificaciones As New ClsClasificaciones()
+        If ObjClasificaciones.GetClasificacionesComprobaciones(UsuarioActual.CveEmpresa, 2) Then
+            GvClasificaciones.DataSource = ObjClasificaciones.DtResultados
+            GvClasificaciones.DataBind()
+        End If
+        ObjClasificaciones.Dispose()
+
+    End Sub
+    Private Sub LbAgregarClasificacion_Click(sender As Object, e As EventArgs) Handles LbAgregarClasificacion.Click
+
+
+        Dim ObjClasificaciones As New ClsClasificaciones()
+
+
+        If ObjClasificaciones.AddClasificacionesComprobaciones(CveClasificacion, UsuarioActual.CveEmpresa, DdlTipoComprobacion.SelectedValue.ToEntero) Then
+            Alert("La clasificación se agregó correctamente.")
+            CargaGridClasificaciones()
+            UpDatos.Update()
+
+            RegistraScript(String.Format("$('#{0}').modal('hide');", "ModalClasificaciones"))
+        End If
+
+        ObjClasificaciones.Dispose()
+
+    End Sub
+
+    Public Sub ActualizaModalClasif(sender As Object, e As EventArgs)
+
+        Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
+
+        TxtClasificaciones.Text = GvRow.DataKey("Clasificacion")
+        CveClasificacion = GvRow.DataKey("CveClasificacion").ToString.ToEntero
+        RegistraScript(String.Format("$('#{0}').modal();", "ModalClasificaciones"))
+
+        DdlTipoComprobacion.SelectedValueExist(GvRow.DataKey("TipoComprobacion"))
+
+        UpModalClasificaciones.Update()
+
+    End Sub
+#End Region
+
+
+
+End Class