Archivo por meses: octubre 2011

Turisteando por los alrededores de Chetumal

Aquí te dejo el enlace al álbum de fotos publicada en Facebook y las miniaturas que muestra en mi perfil… más abajo te pondré los enlaces a las mismas fotos publicadas en Picasa Web.

 

La Laguna de 7 colores en Bacalar (25 octubre 2011) (17 fotos)

Foto

Foto

FotoFoto

 

 

Atardecer en la bahía de Chetumal (25 octubre 2011) (8 fotos)

Foto

Foto

FotoFoto

 

Los enlaces de Picasa web:

Chetumal, México 2011 – segundo día 25 oct 2011 (1ª parte)

 

Chetumal, México 2011 – segundo día 25 oct 2011 (2ª parte)

 

 

Nos vemos.

Guillermo

de paseo por Chetumal

Un par de fotos después de la llegada a Chetumal, la primera en la piscina del hotel y la segundo por la bahía de Chetumal, además de una foto del cartel anunciador del concierte de Chayanne (dedicado a mi amiga Rosa de Torrox).

 

P1100779
Foto 1. En la piscina del hotel

 

P1100788
Foto 2. Un paseo por la bahía de Chetumal

 

P1100809
Foto 3. El cartel del concierto de Chayanne en Chetumal

 

El enlace a las fotos publicadas en Picasa Web:

Chetumal, México 2011 – primer día 24 oct 2011

 

Nos vemos.

Guillermo

Sorpresa cumpleañera para Ana en Chetumal

Hoy 24 de octubre es el cumple de mi amiga Ana, y este fue el recibimiento para su cumple, algo muy típico de México:

 

Ana no se esperaba el recibimiento… pensó que era algo "típical"

P1100736
Foto 1. 24 octubre 18.20 (hora de España)

 

ya más relajada, prestando más atención al saber que le cantaban a ella por su cumple… ¡FELICIDADES!

P1100768
Foto 2. 24 de octubre 18.31 (hora de España)

 

Estos son los vínculos de la "historia" en mi perfil de Facebook:

Foto 1 y Foto 2

Nos vemos.

Guillermo

Las incidencias del viaje a Chetumal

Aquí te pongo los enlaces (en mi muro de Facebook) a las diferentes "incidencias" del viaje a Chetumal (Quintana Roo, México) que hice en Octubre de 2011 acompañado de mi amiga Ana.

22 de octubre  2011 16.53 me voy pa Chetumal

22 de octubre de 2011 22.27 se retrasa el vuelo de Madrid a Mexico

23 de octubre de 2011 07.11 Parece ser que el avión a Mex sale a las 8.30

23 de octubre de 2011 08.26 parece que no hay vuelos de Mex a Chetumal…

23 de octubre de 2011 08.30 7 y pico horas de retraso

23 de octubre de 2011 08.56 Embarcando

23 de octubre de 2011 09.40 Que no hay comandante…

23 de octubre de 2011 10.25 a las 10.30 llega un piloto…

24 de octubre de 2011 02.13 ya estamos en la capital… ahora a hacer noche aquí

24 de octubre de 2011 03.02 En la "alberca" y gimnasio del hotel…

24 de octubre de 2011 19.38 ya estamos en Chetumal…

¡Vaya viajecito!

Nos vemos.

Guillermo

El número de decimales del tipo decimal de SQL Server

Pues eso… últimamente estoy «trasteando» en un programa (hecho con Visual Basic 2010) que accede a una base de datos de SQL Server Express 2005 y quisiera ir poniendo por aquí las cosillas que me voy encontrando mientras «tecleo» en ese programa, y lo último que he modificado es esto que te muestro, que no es que no lo hubiera detectado antes, pero haciendo pruebas hoy he visto que me había dejado «sin optimizar» un campo de una de las tablas.

El tema es el siguiente:

Cuando añades un campo a una tabla de SQL Server (en mi caso con el SQL Server Management Studio 2008 (Express)) y le indicas que es de tipo decimal, automáticamente te lo pone de esta forma:

decimal(18, 0)

El 18 es la precisión, o número de dígitos que puede tener este número, y el 0 es la «escala» o número de decimales que puede tener este número.

Como verás cero decimales no es algo que sea demasiado aceptable en valores de tipo moneda, que sí, que podía haber elegido el tipo «money» y me hubiese quitado de problemas, pero de haberlo hecho no te estaría contando esto y… puede que un día te diera por usar el tipo «decimal» por aquello de que es el más parecido al tipo «moneda» que tiene el punto net y lo mismo te preguntarías por qué narices me redondea el número cuando lo guarda en la base de datos… sí, podría ocurrirte esto… como le ocurrió a uno que me conozco…

La cuestión es que si quieres usar el tipo «decimal» de SQL Server para que acepte un número de decimales (por ejemplo cuatro decimales) tendrías que declararlo de esta otra forma:

decimal(18, 4)

 

Y debido a que a la hora de usar este valor desde la base de datos el número de dígitos decimales siempre se guarda (aunque sean todos ceros), me he creado una función que recibe un valor de tipo Object y lo convierte en cadena (String), pero quitando los ceros extras que tenga y en el caso de que el valor «total» sea cero, al menos deje un cero (pero siempre que esté a la izquierda del decimal).

 

Esta función para quitar los ceros extras que añade el SQL Server:

''' <summary>
''' Convierte un tipo Object en un valor Decimal,
''' pero se devuelve como cadena.
''' Ese objeto es el valor leído de la base de datos
''' Si el contenido es válido se devuelve el valor
''' si no, se devuelve una cadena vacía.
''' Se quitan los ceros que haya después del signo decimal,
''' si no tiene decimales, no se muestran los ceros.
''' </summary>
Friend Function dataDecimal(ByVal obj As Object) As String
    If obj Is Nothing OrElse obj.Equals(DBNull.Value) Then
        Return ""
    Else
        ' Conversión extra para evitar "sustos"                 (06/Oct/11)
        Dim d As Decimal = 0
        Decimal.TryParse(obj.ToString, d)
        Return d.ToString.TrimEnd("0"c).TrimEnd({"."c, ","c})

        'Return CDec(obj).ToString.TrimEnd("0"c).TrimEnd({"."c, ","c})

    End If
End Function

 

Como ves, no me fio de que el valor recibido sea un valor decimal válido, por eso hago algunas comprobaciones.

La primera es saber si el valor pasado como argumento a la función es un valor nulo, ya sea «nulo de punto net» o nulo de base de datos (DBNull.Value), en ese caso, la función devuelve una cadena vacía.

La segunda es usar TryParse para no producir una excepción (o error) en el caso de que el valor de ese objeto no sea «convertible» a un tipo Decimal.

La función TryParse recibe un valor de tipo cadena que será el valor a convertir (en este caso a un tipo Decimal) y en el segundo parámetro le indicamos un valor (por referencia) del mismo tipo al que queremos convertir, de forma que si la conversión falla, se utilice el valor que previamente tenga dicha variable.

En el caso de que la conversión NO falle, se asignará a la variable de ese segundo argumento el valor que de como resultado la conversión. Por eso debe ser por referencia, para que la variable se pueda modificar dentro de la función.

 

Como queremos quitar todos los ceros que «sobren» por el final, utilizo la función TrimEnd al valor convertido (el que tiene la variable d) indicándole el carácter que quiero quitar, esa función recibe como parámetro un valor de tipo Char indicando qué carácter queremos quitar del final, y como Visual Basic permite indicar los caracteres en la forma «cadena» seguida de la letra c, pues… eso es lo que he hecho, por tanto «0»c significa que es el carácter CERO (o valor 48).

Esto seguramente ya lo sabías, pero… no está de más una aclaración.

 

Si el valor almacenado en la base de datos no tiene decimales (por ejemplo el número 205) con el TrimEnd que hemos hecho se nos quedaría la coma (o el punto) que indica que hay decimales, por tanto volvemos a hacer un TrimEnd al resultado del TrimEnd anterior, pero en este caso queremos quitar tanto las comas como los puntos, es decir, queremos quitar «dos tipos de caracteres», en estos casos, la función TrimEnd permite indicar un array (o arreglo o matriz) de caracteres con cada uno de los caracteres a quitar del final de la cadena.

Los caracteres individuales ya sabes cómo indicarlos, y si lo que quieres indicar es un array, esos caracteres individuales los separas con comas y los incluyes entre llaves: {«.»c, «,»c}.

 

Y esto es todo.

 

Sólo me queda decirte cómo lo utilizo:

En mi caso (en este programa que estoy haciendo) lo hago de dos formas:

En una leo el valor de la tabla en un DataTable y accedo a cada valor por medio de un objeto que representa a la fila (DataRow) a la que estoy accediendo:

 

For Each r As DataRow In dt.Rows
    Dim lvi As New ListViewItem

...

lvi.SubItems.Add(dataDecimal(r("Importe")))

...

 

En la otra accedo a los valores por medio de un objeto SqlDataReader y básicamente hago lo mismo:

 

Dim re As SqlDataReader = cmd.ExecuteReader()

...

ImporteTextBox.Text = dataDecimal(re("Importe"))

...

 

Espero que te sea de utilidad.

 

Nos vemos.
Guillermo

P.S. (08/Dic/18)
Creo que esto también te interesará:
Error al guardar datos decimales: El valor del parámetro ‘xxx’ está fuera del intervalo

Martes 4, dice el Facebook que…

Pues eso… no es una información semanal, la que yo doy de estas estadísticas, aunque si la recibo semanalmente, pero como no es plan de dejar el blog sin contenido actualizado, pues…

La cuestión es que estas son las estadísticas de la página de elGuille.info en Facebook a fecha de hoy 4 de octubre de 2011:

 

Hola, Guillermo:

Este es el resumen del rendimiento de tus páginas de Facebook esta semana:

elGuille

6.516 usuarios activos por mes267 desde la semana pasada

A 3.259 personas les gusta esto25 desde la semana pasada

94 publicaciones en el muro o comentarios esta semana78 desde la semana pasada

295 visitas esta semana32 desde la semana pasada

 

Y si quieres ver el de la semana pasada (27 de septiembre de 2011) es este otro:

 

Hola, Guillermo:

Este es el resumen del rendimiento de tus páginas de Facebook esta semana:

elGuille

6.249 usuarios activos por mes56 desde la semana pasada

A 3.234 personas les gusta esto28 desde la semana pasada

16 publicaciones en el muro o comentarios esta semana48 desde la semana pasada

263 visitas esta semana11 desde la semana pasada

 

Es que no todas las semanas me "fijo" en este mensaje semanal… o lo mismo no lo publiqué por la flecha roja esa señalando pabajo… ¡cualquiera sabe! jejeje

 

Nos vemos.
Guillermo

Domingo 2, de correría, caminata y comiendo con la family

Pues eso, que este domingo 2 de octubre (como suele ser habitual desde hace 55 años) se ha celebrado la Carrera Urbana Feria de Nerja, y este es el segundo año que participo (corriendo) en ella, aclaro lo de corriendo (si es que a lo mío se le puede llamar correr) porque hace años participaba pero informáticamente hablando, ya que hice un programa en el que anotábamos los tiempos y sacábamos los resultados (tanto de la carrera como del trofeo de marcha). Creo que el primer programa lo hice para un Amstrad CPC 128, también tuve versiones para un Atari ST (que fue el primer ordenador que usé con ratón) , aunque lo mismo hice primero el programa para el Atari ST y después para el Amstrad CPC… ¡no me acuerdo!, lo que es seguro es que finalmente lo convertí para MS-DOS y usarlo en un PC compatible para que Tomás (el de los trillizos) lo usara en su PC-AT, eso fue en el año 1991 (si no me falla la memoria), y ahí lo dejé…

A diferencia del año pasado, este año pondré unas pocas fotos, que después gustará recordar cuando podía correr 8 kilómetros sin parar… ¡uf!

Este año he quedado en el puesto (general) 191 (la última -creo que- fue el puesto 196), el año pasado el 226 de 232 (o 233, aunque había un nombre repetido). En cuanto a los tiempos, el año pasado tardé 50m 48s y este año lo he bajado un poquillo: 50m 35s ¡13 segundos! (seguramente algo menos de lo que tardé en abrocharme los tenis). En fin… el que no se consuela es porque no quiere, jeje.

Aquí te dejo algunas fotos:

 

carrera 03oct2011 01 el dorsal
Foto 1. El dorsal

 

carrera 03oct2011 02 de Dani
Foto 2. En plena faena
(foto by Dani Jaime)

 

carrera 03oct2011 03 pal recuerdo
Foto 3. Con la playa y la Cuesta del Cielo de fondo

 

carrera 03oct2011 04 el resultado
Foto 4. La clasificación de los veteranos (algunos)

 

 

Mira tú por donde, tengo las fotos que "tendría" que haber publicado el año pasado, así que… he actualizado el "post" del 3 de octubre de 2010 para añadir las fotos.

También he puesto unas cuantas del atardecer de ese día (muy bonito y deberías verlo) además de algunas fotos en el chill-out Rincón del Sol.

 

 

Después de la carrera (o carreras, ya que hubo más pruebas) se hizo una caminata de un kilómetro y esta es la foto de la gente antes de la salida:

caminata 03oct2011
Foto 5. La salida de la caminata de 1km

 

Y después de abrir boca, tocó comer. En este caso en el mesón de Pepe y Victoria en calle Málaga, donde mi hermana Riti nos invitó a comer para celebrar que se había jubilado, y aquí te dejo "un par" de fotos:

 

comida Riti con Cristina y Antonio
Foto 6. Con mis sobrinos Cristina y Antonio

 

P1100566_lr
Foto 7. Jennie y Cristina

 

P1100568_lr
Foto 8. El fotógrafo retratado

 

P1100585_lr
Foto 9. Grupo casi al completo
(foto tomada por Manolo Escobar -no el del carro-)

 

P1100591_lr
Foto 10. En el paseo

 

P1100596_lr
Foto 11. Los sobrinos pillaron más que el resto…

 

Y esto es todo amigos…

 

 

Nos vemos.
Guillermo

¡Enhorabuena MVP de Microsoft 2011!

Pues eso… después de venir de la playa, o lo que es lo mismo de salir un rato con las piraguas (y con las olas) y de comer y estar tranquilico (a pesar del ventazo que hacía) con la familia de Manolo, pues… al ver el correo, me encuentro con el mensaje de felicitación por mi nombramiento como Microsoft MVP (Most Valuable Professional) de Visual Basic, y con este ya van 15 los años que llevo siendo MVP de Visual Basic, desde el primero que recibiera en noviembre de 1997.

Esta es la carta o mejor dicho, mensaje que he recibido (espero que se pueda publicar):

 

From: …mvpaward…
Sent: sábado, 01 de octubre de 2011 15:35
To: guille…
Subject: ¡Enhorabuena MVP de Microsoft 2011!

 

Estimado/a Guillermo Som,

Enhorabuena. Nos complace presentarle el programa de nombramiento MVP de Microsoft® de 2011. Este nombramiento se concede a los líderes excepcionales de la comunidad técnica que comparten de forma activa su experiencia de alta calidad y de la vida real con otras personas. Le agradecemos especialmente la contribución que ha realizado en las comunidades técnicas en el área de Visual Basic a lo largo del pasado año.

También incluimos en este mensaje:

  • Información acerca de su premio como MVP
  • Cómo activar los beneficios de su premio como MVP
  • Su número de identificación de MVP
  • El Código de conducta del Programa de premios MVP

El programa de nombramiento de MVP de Microsoft nos proporciona una oportunidad única de celebrar y reconocer sus aportaciones importantes, así como de decir “Gracias por su liderazgo técnico”.

Toby Richards
Director general
Soporte En-línea Comunidad


 

Nos vemos.
Guillermo