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

AC/CatFinalidad.aspx.vb

@@ -52,6 +52,15 @@ Partial Class AC_CatFinalidad
         End If
     End Sub
 
+    Protected Sub BtnAgregarClasificacionFuncional_Click(sender As Object, e As EventArgs) Handles BtnAgregarClasificacionFuncional.Click
+        TxtFinalidad.Text = ""
+        ChkEstatus.Checked = True
+        CheckActiveSection.Visible = False
+        LbAgregar.Text = "Agregar"
+        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 ObjFinalidad As New ClsAC
         If ObjFinalidad.AddFinalidad(TxtFinalidad.Text.Trim, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then