todos los catálgoos ahora tienen el diseño con ventana modal

AC/CatOGClasificaciones.aspx.vb

@@ -9,6 +9,15 @@ Imports Microsoft.Reporting.WebForms
 Partial Class AC_CatOGClasificaciones
     Inherits ClsPaginas
 
+    Private Property CveClasificacion() As Integer 'Guardamos el ID de registro para saber cual registro Editar
+        Get
+            Return If(IsNothing(ViewState("CveClasificacion")), -1, CInt(ViewState("CveClasificacion")))
+        End Get
+        Set
+            ViewState("CveClasificacion") = Value
+        End Set
+    End Property
+
     Private Property DtOGClasificaciones As DataTable
         Get
             Return CType(ViewState("DtOGClasificaciones"), DataTable)
@@ -25,6 +34,17 @@ Partial Class AC_CatOGClasificaciones
         End If
     End Sub
 
+    Protected Sub BtnMostrarModal_Click(sender As Object, e As EventArgs) Handles BtnMostrarModal.Click
+        TxtCodigo.Text = ""
+        TxtOGClasificacion.Text = ""
+        ChkEstatus.Checked = True
+        CheckActiveSection.Visible = False
+        DivAfectable.Visible = False
+        LbAgregar.Text = "Agregar"
+        UpModalTiposD.Update()
+        RegistraScript(String.Format("$('#{0}').modal();", "DivModal"))
+    End Sub
+
     Public Sub CargaDatos()
         Dim ObjClasificaciones As New ClsClasificaciones
         If ObjClasificaciones.GetClasificaciones() Then
@@ -45,24 +65,66 @@ Partial Class AC_CatOGClasificaciones
 
     Protected Sub LbAgregar_Click(sender As Object, e As System.EventArgs) Handles LbAgregar.Click
         Dim ObjClasificaciones As New ClsClasificaciones
-        If ObjClasificaciones.AddClasificaciones(TxtOGClasificacion.Text.Trim, TxtCodigo.Text.Trim, -1, "", -1, "", -1, "", 0, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
-            TxtOGClasificacion.Text = ""
-            TxtCodigo.Text = ""
-            Alert("La Clasificacion de Objeto de Gasto se guardó correctamente.", TipoMensaje.MsgInformacion)
-            UpTitulos.Update()
-            ViewState("DTOGClasificaciones") = ObjClasificaciones.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
-            GlobalDTClasificaciones = ObjClasificaciones.DtResultados
+        If LbAgregar.Text = "Agregar" Then
+            If ObjClasificaciones.AddClasificaciones(TxtOGClasificacion.Text.Trim, TxtCodigo.Text.Trim, -1, "", -1, "", -1, "", 0, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
+                TxtOGClasificacion.Text = ""
+                TxtCodigo.Text = ""
+                Alert("La Clasificacion de Objeto de Gasto se guardó correctamente.", TipoMensaje.MsgInformacion)
+                'UpTitulos.Update()
+                ViewState("DTOGClasificaciones") = ObjClasificaciones.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
+                GlobalDTClasificaciones = ObjClasificaciones.DtResultados
 
-            If ViewState("Orden").ToString() <> String.Empty Then
-                CargaGrid(ViewState("Orden").ToString())
-            Else
-                CargaGrid("")
             End If
+        Else
+            If ObjClasificaciones.UpdateClasificacion(TxtOGClasificacion.Text, TxtCodigo.Text, -1, "", -1, "", -1, "", ChkEstatus.Checked, ChkAfectable.Checked, 0, UsuarioActual.CveUsuario, CveClasificacion) Then
+                GvDatos.EditIndex = -1
+                ViewState("DTOGClasificaciones") = ObjClasificaciones.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
+                GlobalDTClasificaciones = ObjClasificaciones.DtResultados
+                Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion)
+            End If
+        End If
+        If ViewState("Orden").ToString() <> String.Empty Then
+            CargaGrid(ViewState("Orden").ToString())
+        Else
+            CargaGrid("")
         End If
         ObjClasificaciones.Dispose()
     End Sub
 
 #Region "G V  D A T O S"
+    Protected Sub LnkEditar_Click(sender As Object, e As EventArgs)
+        Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) 'obtenemos el renglon que acabamos de seleccionar
+        CveClasificacion = GvRow.DataKey("CveClasificacion").ToEntero
+        TxtCodigo.Text = GvRow.DataKey("Codigo")
+        TxtOGClasificacion.Text = GvRow.DataKey("Clasificacion")
+        ChkAfectable.Checked = GvRow.DataKey("Afectable") = "True"
+        ChkEstatus.Checked = GvRow.DataKey("Estatus") = "Activo"
+        DivAfectable.Visible = True
+        CheckActiveSection.Visible = True
+        LbAgregar.Text = "Actualizar"
+        UpModalTiposD.Update()
+        RegistraScript(String.Format("$('#{0}').modal();", "DivModal"))
+    End Sub
+
+    Protected Sub LnkEliminar_Click(sender As Object, e As EventArgs)
+        Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) 'obtenemos el renglon que acabamos de seleccionar
+        Dim ObjClasificaciones As New ClsClasificaciones
+        If ObjClasificaciones.RemoveClasificacion(GvRow.DataKey("CveClasificacion").ToEntero) Then
+            GvDatos.EditIndex = -1
+            ViewState("DTOGClasificaciones") = ObjClasificaciones.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
+            GlobalDTClasificaciones = ObjClasificaciones.DtResultados
+            Alert("la Clasificacion de Objeto de Gasto se eliminó correctamente.", TipoMensaje.MsgInformacion)
+        End If
+
+        ObjClasificaciones.Dispose()
+
+        If ViewState("Orden").ToString() <> String.Empty Then
+            CargaGrid(ViewState("Orden").ToString())
+        Else
+            CargaGrid("")
+        End If
+    End Sub
+
     Protected Sub GvDatos_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvDatos.RowDataBound
         If e.Row.RowType = DataControlRowType.DataRow Then
             e.Row.Cells(0).Width = Unit.Pixel(75)
@@ -71,8 +133,8 @@ Partial Class AC_CatOGClasificaciones
             e.Row.Cells(3).Width = Unit.Pixel(80)
             e.Row.Cells(4).Width = Unit.Pixel(100)
             e.Row.Cells(5).Width = Unit.Pixel(100)
-            e.Row.Cells(6).Width = Unit.Pixel(50)
-            e.Row.Cells(7).Width = Unit.Pixel(50)
+            'e.Row.Cells(6).Width = Unit.Pixel(50)
+            'e.Row.Cells(7).Width = Unit.Pixel(50)
 
             e.Row.Cells(0).HorizontalAlign = HorizontalAlign.Center
             e.Row.Cells(1).HorizontalAlign = HorizontalAlign.Left
@@ -80,8 +142,8 @@ Partial Class AC_CatOGClasificaciones
             e.Row.Cells(3).HorizontalAlign = HorizontalAlign.Center
             e.Row.Cells(4).HorizontalAlign = HorizontalAlign.Center
             e.Row.Cells(5).HorizontalAlign = HorizontalAlign.Center
-            e.Row.Cells(6).HorizontalAlign = HorizontalAlign.Center
-            e.Row.Cells(7).HorizontalAlign = HorizontalAlign.Center
+            'e.Row.Cells(6).HorizontalAlign = HorizontalAlign.Center
+            'e.Row.Cells(7).HorizontalAlign = HorizontalAlign.Center
         End If
     End Sub
 
@@ -193,11 +255,11 @@ Partial Class AC_CatOGClasificaciones
 #End Region
 
 #Region " EXPORTAR - PDF - EXCEL "
-    Protected Sub ImgExcel_Click(sender As Object, e As ImageClickEventArgs)
+    Protected Sub ImgExcel_Click(sender As Object, e As EventArgs)
         Tbl.ExportToExcel("Catalogo de Clasificaciones de Objeto de Gasto ")
     End Sub
 
-    Protected Sub BtnImprimir_Click(sender As Object, e As ImageClickEventArgs)
+    Protected Sub BtnImprimir_Click(sender As Object, e As EventArgs)
         ImprimirReporte()
     End Sub
     'No quitar porque no funciona el exporta PDF