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

AC/CatClasificacionGeografica.aspx.vb

@@ -13,6 +13,14 @@ Imports Microsoft.Reporting.WebForms
 Partial Class AC_CatClasificacionGeografica
     Inherits ClsPaginas
 
+    Private Property CveClasificacionGeografica() As Integer 'Guardamos el ID de registro para saber cual registro Editar
+        Get
+            Return If(IsNothing(ViewState("CveClasificacionGeografica")), -1, CInt(ViewState("CveClasificacionGeografica")))
+        End Get
+        Set
+            ViewState("CveClasificacionGeografica") = Value
+        End Set
+    End Property
     Private Property DtClasificacionGeografica As DataTable
         Get
             Return CType(ViewState("DtClasificacionGeografica"), DataTable)
@@ -65,24 +73,74 @@ Partial Class AC_CatClasificacionGeografica
         End If
     End Sub
 
+    Protected Sub BtnAgregarClasificacionFuncional_Click(sender As Object, e As EventArgs) Handles BtnAgregarClasificacionFuncional.Click
+        TxtClasificacionGeografica.Text = ""
+        ChkEstatus.Checked = True
+        CheckActiveSection.Visible = False
+        LbAgregar.Text = "Agregar"
+        UpModalTiposD.Update()
+        RegistraScript(String.Format("$('#{0}').modal();", "DivAgregarClasifFuncional"))
+    End Sub
+
+    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
+        CveClasificacionGeografica = GvRow.DataKey("CveClasificacionGeografica").ToEntero
+        TxtClasificacionGeografica.Text = GvRow.DataKey("ClasificacionGeografica")
+        CheckActiveSection.Visible = True
+        ChkEstatus.Checked = GvRow.DataKey("Estatus") = "Activo"
+        LbAgregar.Text = "Actualizar"
+        UpModalTiposD.Update()
+        RegistraScript(String.Format("$('#{0}').modal();", "DivAgregarClasifFuncional"))
+    End Sub
+
     Protected Sub LbAgregar_Click(sender As Object, e As System.EventArgs) Handles LbAgregar.Click
         Dim ObjClasificacionGeografica As New ClsAC
-        If ObjClasificacionGeografica.AddClasificacionGeografica(TxtClasificacionGeografica.Text.Trim, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
-            TxtClasificacionGeografica.Text = ""
-            Alert("El Nuevo Registro se guardó correctamente.", TipoMensaje.MsgInformacion)
-            UpTitulos.Update()
-            ViewState("DTClasificacionGeografica") = ObjClasificacionGeografica.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
-            GlobalDTAC_ClasificacionGeografica(UsuarioActual.CveEmpresa) = ObjClasificacionGeografica.DtResultados
+        If LbAgregar.Text = "Agregar" Then
+            If ObjClasificacionGeografica.AddClasificacionGeografica(TxtClasificacionGeografica.Text.Trim, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
+                TxtClasificacionGeografica.Text = ""
+                Alert("El Nuevo Registro se guardó correctamente.", TipoMensaje.MsgInformacion)
+                'UpTitulos.Update()
+                ViewState("DTClasificacionGeografica") = ObjClasificacionGeografica.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
+                GlobalDTAC_ClasificacionGeografica(UsuarioActual.CveEmpresa) = ObjClasificacionGeografica.DtResultados
 
-            If ViewState("Orden").ToString() <> String.Empty Then
-                CargaGrid(ViewState("Orden").ToString())
-            Else
-                CargaGrid("")
+            End If
+        Else
+            If ObjClasificacionGeografica.UpdateClasificacionGeografica(TxtClasificacionGeografica.Text.Trim, ChkEstatus.Checked, CveClasificacionGeografica) Then
+                GvDatos.EditIndex = -1
+                ViewState("DTClasificacionGeografica") = ObjClasificacionGeografica.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
+                GlobalDTAC_ClasificacionGeografica(UsuarioActual.CveEmpresa) = ObjClasificacionGeografica.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
+        RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAgregarClasifFuncional"))
         ObjClasificacionGeografica.Dispose()
     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 ObjClasificacionGeografica As New ClsAC
+        If ObjClasificacionGeografica.RemoveClasificacionGeografica(GvRow.DataKey("CveClasificacionGeografica").ToEntero) Then
+            GvDatos.EditIndex = -1
+            ViewState("DTClasificacionGeografica") = ObjClasificacionGeografica.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
+            GlobalDTAC_ClasificacionGeografica(UsuarioActual.CveEmpresa) = ObjClasificacionGeografica.DtResultados
+            Alert("El Registro se eliminó correctamente.", TipoMensaje.MsgInformacion)
+        End If
+
+        ObjClasificacionGeografica.Dispose()
+
+        If ViewState("Orden").ToString() <> String.Empty Then
+            CargaGrid(ViewState("Orden").ToString())
+        Else
+            CargaGrid("")
+        End If
+    End Sub
+
 #Region "G V  D A T O S"
     Protected Sub GvDatos_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvDatos.RowDataBound
         If e.Row.RowType = DataControlRowType.DataRow Then
@@ -91,16 +149,16 @@ Partial Class AC_CatClasificacionGeografica
                 e.Row.Cells(1).Width = Unit.Pixel(100)
                 e.Row.Cells(2).Width = Unit.Pixel(100)
                 e.Row.Cells(3).Width = Unit.Pixel(100)
-                e.Row.Cells(4).Width = Unit.Pixel(50)
-                e.Row.Cells(5).Width = Unit.Pixel(50)
+                'e.Row.Cells(4).Width = Unit.Pixel(50)
+                'e.Row.Cells(5).Width = Unit.Pixel(50)
             End If
             e.Row.Cells(0).HorizontalAlign = HorizontalAlign.Left
             e.Row.Cells(0).HorizontalAlign = HorizontalAlign.Left
             e.Row.Cells(1).HorizontalAlign = HorizontalAlign.Center
             e.Row.Cells(2).HorizontalAlign = HorizontalAlign.Center
             e.Row.Cells(3).HorizontalAlign = HorizontalAlign.Center
-            e.Row.Cells(4).HorizontalAlign = HorizontalAlign.Center
-            e.Row.Cells(5).HorizontalAlign = HorizontalAlign.Center
+            'e.Row.Cells(4).HorizontalAlign = HorizontalAlign.Center
+            'e.Row.Cells(5).HorizontalAlign = HorizontalAlign.Center
         End If
     End Sub
 
@@ -215,11 +273,11 @@ Partial Class AC_CatClasificacionGeografica
 #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 Clasificacion Geografica")
     End Sub
 
-    Protected Sub BtnImprimir_Click(sender As Object, e As ImageClickEventArgs)
+    Protected Sub BtnImprimir_Click(sender As Object, e As EventArgs)
         ImprimiReporte()
     End Sub
     'No quitar porque no funciona el exporta PDF