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

AC/CatFuentesFinanciamientoCONAC.aspx.vb

@@ -9,6 +9,15 @@ Imports Microsoft.Reporting.WebForms
 Partial Class AC_CatFuentesFinanciamientoCONAC
     Inherits ClsPaginas
 
+    Private Property CveFinanciamientoCONAC() As Integer 'Guardamos el ID de registro para saber cual registro Editar
+        Get
+            Return If(IsNothing(ViewState("CveFinanciamientoCONAC")), -1, CInt(ViewState("CveFinanciamientoCONAC")))
+        End Get
+        Set
+            ViewState("CveFinanciamientoCONAC") = Value
+        End Set
+    End Property
+
     Private Property DtFuentesFinanciamientoCONAC As DataTable
         Get
             Return CType(ViewState("DtFuentesFinanciamientoCONAC"), DataTable)
@@ -61,22 +70,73 @@ Partial Class AC_CatFuentesFinanciamientoCONAC
         End If
     End Sub
 
-    Protected Sub LbAgregar_Click(sender As Object, e As System.EventArgs) Handles LbAgregar.Click
+    Protected Sub BtnMostrarModal_Click(sender As Object, e As EventArgs) Handles BtnMostrarModal.Click
+        TxtClaveFinanciamientoCONAC.Text = ""
+        TxtNombre.Text = ""
+        CheckActiveSection.Visible = False
+        ChkEstatus.Checked = True
+        LbAgregar.Text = "Agregar"
+        UpModalTiposD.Update()
+        RegistraScript(String.Format("$('#{0}').modal();", "DivModal"))
+    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
+        CveFinanciamientoCONAC = GvRow.DataKey("CveFinanciamientoCONAC").ToEntero
+        TxtClaveFinanciamientoCONAC.Text = GvRow.DataKey("ClaveFinanciamientoCONAC")
+        TxtNombre.Text = GvRow.DataKey("Nombre")
+        CheckActiveSection.Visible = True
+        ChkEstatus.Checked = GvRow.DataKey("Estatus") = "Activo"
+        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 ObjFuentesFinanciamientoCONAC As New ClsAC
-        If ObjFuentesFinanciamientoCONAC.AddFuenteFinanciamientoCONAC(TxtClaveFinanciamientoCONAC.Text.Trim, TxtNombre.Text.Trim, UsuarioActual.CveUsuario) Then
-            TxtNombre.Text = ""
-            TxtClaveFinanciamientoCONAC.Text = ""
-            Alert("El Nuevo Registro se guardó correctamente.", TipoMensaje.MsgInformacion)
-            UpTitulos.Update()
+        If ObjFuentesFinanciamientoCONAC.RemoveFuenteFinanciamientoCONAC(GvRow.DataKey("CveFinanciamientoCONAC").ToEntero) Then
+            GvDatos.EditIndex = -1
             ViewState("DTFuentesFinanciamientoCONAC") = ObjFuentesFinanciamientoCONAC.DtResultados
             GlobalDTAC_FuentesFinanciamientoCONAC = ObjFuentesFinanciamientoCONAC.DtResultados
+            Alert("El Registro se eliminó correctamente.", TipoMensaje.MsgInformacion)
+        End If
 
-            If ViewState("Orden").ToString() <> String.Empty Then
-                CargaGrid(ViewState("Orden").ToString())
-            Else
-                CargaGrid("")
+        ObjFuentesFinanciamientoCONAC.Dispose()
+
+        If ViewState("Orden").ToString() <> String.Empty Then
+            CargaGrid(ViewState("Orden").ToString())
+        Else
+            CargaGrid("")
+        End If
+    End Sub
+
+    Protected Sub LbAgregar_Click(sender As Object, e As System.EventArgs) Handles LbAgregar.Click
+        Dim ObjFuentesFinanciamientoCONAC As New ClsAC
+        If LbAgregar.Text = "Agregar" Then
+            If ObjFuentesFinanciamientoCONAC.AddFuenteFinanciamientoCONAC(TxtClaveFinanciamientoCONAC.Text.Trim, TxtNombre.Text.Trim, UsuarioActual.CveUsuario) Then
+                TxtNombre.Text = ""
+                TxtClaveFinanciamientoCONAC.Text = ""
+                Alert("El Nuevo Registro se guardó correctamente.", TipoMensaje.MsgInformacion)
+                'UpTitulos.Update()
+                ViewState("DTFuentesFinanciamientoCONAC") = ObjFuentesFinanciamientoCONAC.DtResultados
+                GlobalDTAC_FuentesFinanciamientoCONAC = ObjFuentesFinanciamientoCONAC.DtResultados
+
+            End If
+        Else
+            If ObjFuentesFinanciamientoCONAC.UpdateFuenteFinanciamientoCONAC(TxtClaveFinanciamientoCONAC.Text.Trim, TxtNombre.Text.Trim, ChkEstatus.Checked, CveFinanciamientoCONAC) Then
+                GvDatos.EditIndex = -1
+                ViewState("DTFuentesFinanciamientoCONAC") = ObjFuentesFinanciamientoCONAC.DtResultados
+                GlobalDTAC_FuentesFinanciamientoCONAC = ObjFuentesFinanciamientoCONAC.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');", "DivModal"))
         ObjFuentesFinanciamientoCONAC.Dispose()
     End Sub
 
@@ -89,16 +149,16 @@ Partial Class AC_CatFuentesFinanciamientoCONAC
                 e.Row.Cells(2).Width = Unit.Pixel(100)
                 e.Row.Cells(3).Width = Unit.Pixel(100)
                 e.Row.Cells(4).Width = Unit.Pixel(100)
-                e.Row.Cells(5).Width = Unit.Pixel(50)
-                e.Row.Cells(6).Width = Unit.Pixel(50)
+                'e.Row.Cells(5).Width = Unit.Pixel(50)
+                'e.Row.Cells(6).Width = Unit.Pixel(50)
             End If
             e.Row.Cells(0).HorizontalAlign = HorizontalAlign.Center
             e.Row.Cells(1).HorizontalAlign = HorizontalAlign.Left
             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(6).HorizontalAlign = HorizontalAlign.Center
+            'e.Row.Cells(5).HorizontalAlign = HorizontalAlign.Center
+            'e.Row.Cells(6).HorizontalAlign = HorizontalAlign.Center
         End If
     End Sub
 
@@ -211,11 +271,11 @@ Partial Class AC_CatFuentesFinanciamientoCONAC
 #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 Fuente de Financiamiento ")
     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