JsPlumb una librería basada en jQuery líbre para crear grafos en web

Trabajando con asp.net y jQuery tuve necesidad de pintar flujogramas, buscando en la web encontré varias librerías que cumplian mis requerimientos pero se salían por mucho de mi presupuesto (aunque sinceramente creo que valen lo que cuestan)… Luego me encontré con jsPlumb en http://jsplumb.org una librería basada en jQuery con licencia MIT que permite el dibujo de grafos de forma muy dinámica.

Permite modificar al gusto el formato de los tres elementos necesarios para pintar los grafos: artistas, vertices y puertos. Permite al usuario ajustar la ubicación de los elementos mediante drag and drop. Y si se desea se puede permitir al usuario que modifique el grafo a su gusto.

Muy recomendada.

Un saludo.

SQL Server – Visualizar tiempo de ejecución de Query

Trabajando en SQLServer me surgio la necesidad de ver el tiempo que tomaba el Query que estaba diseñando, para ello bastó con ejecutar el siguiente comando:

set statistics time on

y asi cada vez que ejecutaba uno u otro query en la pestaña de «Mensajes» me aparecía el tiempo que tardaba cada uno de ellos:

Espero sea de ayuda.

Un saludo.

ASP.Net – Error en PostBack al invocar controles con función window.ShowModalDialog de Javascript

Trabajando en Asp.net me encontre que cuando un control ASP.net (.ascx) visualizado mediante la funcion window.showModalDialog de javascript hacia un postback, por ejemplo manejaba el click de un boton, me abria una ventana diferente en donde se procesaba el postback.

La solución: Adicionar la siguiente etiqueta en el diseño del control:

<base target=»_self» />

Si no es posible dejar la etiqueta fija en el diseño del control podemos «inyectarla» desde la funcion Page_Load del mismo control mediante el siguiente codigo:

Me.Page.Header.Controls.Add(New LiteralControl(«<base target=»»_self»» />»))

Espero sea de ayuda.

VBS – Usar expresión regular

Validando un formulario haciendo uso de VBS me encontre con el problema de usar una expresion regular, aqui dejo el código que use para validar que un texto sólo contenga un número entero positivo:

Function ValidarEntero(TextoEntrada)
Dim strMensajeError
strMensajeError = ""
Set regEx = New RegExp
' Modificar la siguiente linea para ajustar al patron que se desea evaluar
regEx.Pattern = "^\d*$"
If Not regEx.Test(TextoEntrada) Then
strMensajeError = "El valor debe ser entero y mayor o igual a Cero(0)"
End If
ValidarEntero = strMensajeError
End Function


Espero sea de ayuda.
Un Saludo.

SQL Server – Error the estimated cost of this query (N) exceeds the configured threshold of M

Trabajando en SQLServer despues de modificar algunos parametros de la configuracion de mi motor de BD me encontré con este error al intentar ejecutar una consulta SQL:

«The query has been canceled because the estimated cost of this query (N) exceeds the configured threshold of 1. Contact the system administrator.»

Googleando encontré la solucion, establecerle a la variable QUERY_GOVERNOR_COST_LIMIT un valor superior al que se indica en el N del error. Ejecutamos entonces por ejemplo:

Set QUERY_GOVERNOR_COST_LIMIT 500

Espero sea de ayuda

VB 2003 – Adicionar comentario a celda en Excel y re-dimensionarlo

Trabajando sobre una exportacion desde VB 2003 a excel me encontre con un pequeño problemita: adicionar comentarios a una celda y ajustar el tamaño del cuadro de comentario para que el contenido del mismo se visualizara completo.
Buscando encontre la solucion:

' Se selecciona la celda sobre la que se quiere el comentario
Range("C1").Select
' Se crea el comentario para la celda
Range("C1").AddComment
' Se establece como visible el comentario
Range("C1").Comment.Visible = False
' Se esteblece el contenido del comentario
Range("C1").Comment.Text Text:="Este es mi hola mundo de comentarios!!"
' Se ajusta el tamaño del cuadro que contiene el comentario para permitir la visualizacion del texto
Range("C1").Comment.Shape.ScaleWidth 2, msoFalse, msoScaleFromTopLeft
Range("C1").Comment.Shape.ScaleHeight 1.5, msoFalse, msoScaleFromTopLeft

Un Saludo.

VB 2003 – Función para validar campos Hora Inicio y Hora Final

A continuación una función que debí crear para validar el formato de dos textBox destinados a recibir hora de inicio y fin de un evento.
La función valida que los textos cumplan con el formato «hh:mm tt» ó con el formato «HH:mm» y además verifica que la fecha final sea mayor que la fecha inicial.

Public Function ValidarTextosFecha() As Boolean
  Dim blnValido As Boolean = True      
  Dim Expresion As System.Text.RegularExpressions.Regex
  Expresion = New System.Text.RegularExpressions.Regex("^((([0]?[1-9]|1[0-2])(:)[0-5][0-9]( )?" & _ 
              "(AM|am|aM|Am|PM|pm|pM|Pm))|(([0]?[0-9]|1[0-9]|2[0-3])(:)[0-5][0-9]))$", _      
              System.Text.RegularExpressions.RegexOptions.IgnoreCase)

  If Not Expresion.IsMatch(txtHoraFin.Text) Then
    Windows.Forms.MessageBox.Show("Formato inválido fecha inicio")
    blnValido = False
  End If
  If Not Expresion.IsMatch(txtHoraInicio.Text) Then
    Windows.Forms.MessageBox.Show("Formato inválido fecha final")
    blnValido = False
  End If
  If blnValido Then

    Dim inthorainicio As Integer = 0
    Dim inthorafin As Integer = 0
    Dim strTemporal As String = ""

    If txtHoraInicio.Text.ToLower.IndexOf("pm") > 0 Then
      inthorainicio = 1200
    End If
    strTemporal = txtHoraInicio.Text.Trim.Replace("am", "").Replace("pm", "").Replace(":", "")
    If txtHoraInicio.Text.ToLower.IndexOf("pm") > 0 Or _
      txtHoraInicio.Text.ToLower.IndexOf("am") > 0 Then
      strTemporal = strTemporal.Substring(0, 2).Replace("12", "00") & _
                    strTemporal.Substring(2, strTemporal.Length - 2)
    End If
    inthorainicio += CInt(strTemporal)

    If txtHoraFin.Text.ToLower.IndexOf("pm") > 0 Then
      inthorafin = 1200
    End If
    strTemporal = txtHoraFin.Text.Trim.Replace("am", "").Replace("pm", "").Replace(":", "")
    If txtHoraFin.Text.ToLower.IndexOf("pm") > 0 Or _
      txtHoraFin.Text.ToLower.IndexOf("am") > 0 Then
      strTemporal = strTemporal.Substring(0, 2).Replace("12", "00") & _
                    strTemporal.Substring(2, strTemporal.Length - 2)
    End If
    inthorafin += CInt(strTemporal)
    If inthorafin <= inthorainicio Then
      Windows.Forms.MessageBox.Show("La hora final debe ser mayor que la hora inicial")
      blnValido = False
    End If
  End If
  Return blnValido
End Function

Espero sea de ayuda.
Un Saludo.

Error al Instalar Infragistics en Windows 7 para procesador de 64 bits

Al ejecutar mi instalador cuando comienza el proceso automatico de instalacion y mas o menos cuando llevaba 2/3 partes de la barra de progreso comenzaba un proceso de rollback y al final simplemente reportaba que un error habia ocurrido.

Buscando en uno que otro foro encontre que la solucion es:

HABILITAR LA COMPATIBILIDAD CON INTERNET INFORMATION SERVER 6.0

Para ello:

1) Abre «Panel de Control»

2) Click en «Programas y caracteristicas»

3) Selecciona «Activar/inactivar Caracteristicas de Windows » del menu izquierdo

4) Expande el nodo «Internet Information Services»  , y luego el nodo «Herramientas de administración web».

5) Chequea el nodo «Compatibilidad con Administracion de IIS6» y click en Aceptar.

Espero sea de ayuda, un saludo.

Asp – Cerrar sesión y limpiar caché de autenticacion

Trabajando es una aplicación web con asp me encontré con la necesidad de implementar el cierre y borrado de sesión. Bueno he aqui el código que usé:

<html>
<header><title>cerrar sesion</title>
<%
Session.Contents.RemoveAll()
Session.Abandon()
%>
</header>
<body>
<!-- Aqui el codigo para mostrar informacion de cierre de sesion -->
<script type="text/javascript">
document.execCommand('ClearAuthenticationCache');
</script>
</body>
</html>

Noten que el código javascript está hasta el final del código, esto es porque si se borra en otro lugar del código se volverá a pedir autenticación para cargar el trozo de pagina siguoente al javascript.

Saludos.

ASP.Net – Establecer Master-Page a Content-Page manualmente

Un detalle que me entretuvo por un rato fue modificarle/establecerle a una pagina existente una master-page.

Existen tres formas para ello:
1. Usando la directiva @page como sigue:

<@Page Languaje=»VB» MasterPageFile=»MiSitio.master»@>

2. Definiendo la Master-Page en el web.config. Esto implicara que la pagina se esteblecera a todas las paginas del sitio. Cabe anotar que todas las Content-Page deberan tener los Content-Controls correspondientes a los definidos en la Master-Page a aplicar. El elemento en el archivo de configuracion se veria asi:

<pages masterPageFile=»MiSitio.master»>

3.Definiendo una Master-Page para que aplique a una carpeta en particular del sitio. Funciona enlazando las Master-Pages a los niveles de la aplicacion.