Contabilidad2/CatCuentas.aspx.vb

@@ -206,7 +206,11 @@ Partial Class Contabilidad2_CatCuentas
         End If
 
         If Afectable Then
+            RegistraScript(String.Format("Afectable({0});", nuevacuenta.ClientID))
             Alert("Se va crear una subcuenta en una cuenta afectable", TipoMensaje.MsgAdvertencia)
+        Else
+            RegistraScript("NoAfectable();")
+
         End If
         TxtCuenta.Enabled = True