N0 mercy C0de

Mi Proyecto en Codeplex!

2012-01-31T21:02:00.000-08:00

Bueno por fin después de tanto tiempo he subido al servidor CODEPLEX mi primer proyecto de software libre y que me gustaría compartir con todos.

Este proyecto se llama DB2CODE y es una herramienta que ayudara a generar código fuente basado en la estructura de una base de datos. Esta herramienta esta enfocada para ayudar en reducir tiempos de desarrollo ya que muchas veces el generar clases y lógica para acceso a funciones básicas como insertar, actualizar, eliminar y listar en la base de datos toma demasiado tiempo y es demasiado tedioso por lo que no vi la mejor manera de poder hacer un programa que haga todo este trabajo tedioso de forma automática.

El link del proyecto es http://db2code.codeplex.com.

Espero que les sirva y que este proyecto pueda seguir madurando con apoyo de todos.

EVENTO : ¡12 horas de Visual Studio 2010!

2012-01-30T15:59:00.000-08:00

Las 12 Horas de Microsoft Visual Studio 2010 and Microsoft Visual Studio Team Foundation Server.

Útil para sacarle provecho al máximo a la herramientas de desarrollo Visual Studio.

Mayor Informacion en http://www.globbtv.com/vstudio12horas/

Generador de Código basado en Base de Datos

2012-01-15T10:05:00.000-08:00

Bueno aquí le comparte una aplicación llamada GENERADOR ORM que genera código en base a la estructura de la Base de Datos y la divide en un estructura de 3 capas que son las siguientes:

- BE : Es la clase con atributos y métodos que se basa de la estructura de la tabla en la BD.

- LN : Es la clase que posee todos los métodos CRUD básicos como Insertar, Actualizar, Eliminar, etc. Esta clase hace el enlace entre el objeto cargado en memoria BE y la tabla en la Base de Datos.

- SQL : Esto generara los scripts del tipo Stored Procedure que son las acciones sobre la tabla como Insertar, Eliminar, Actualizar, Listar, etc. Estos sp son necesarios para que las clases LN puedan pasar los datos del objeto BE que esta en memoria a la tabla de la base de datos.

El programa tiene como características :

- Genera código para VB.NET y C#.

- Genera código para BE, LN y SQL y permite elegir cual se desea generar.

- Permite elegir las tablas que se generara código.

Descarga : http://dl.dropbox.com/u/49655105/GeneradorORM.zip

Equivalencias entre Tipos de Datos SQL SERVER 2008 y C#

2012-01-04T11:07:00.000-08:00

SQL Server data type	CLR data type (SQL Server)	CLR data type (.NET Framework)
bigint	SqlInt64	Int64, Nullable
binary	SqlBytes, SqlBinary	Byte[]
bit	SqlBoolean	Boolean, Nullable
char	None	None
cursor	None	None
date	SqlDateTime	DateTime, Nullable
datetime	SqlDateTime	DateTime, Nullable
datetime2	SqlDateTime	DateTime, Nullable
DATETIMEOFFSET	None	DateTimeOffset, Nullable
decimal	SqlDecimal	Decimal, Nullable
float	SqlDouble	Double, Nullable
image	None	None
int	SqlInt32	Int32, Nullable
money	SqlMoney	Decimal, Nullable
nchar	SqlChars, SqlString	String, Char[]
ntext	None	None
numeric	SqlDecimal	Decimal, Nullable
nvarchar	SqlChars, SqlString SQLChars is a better match for data transfer and access, andSQLString is a better match for performing String operations.	String, Char[]
nvarchar(1), nchar(1)	SqlChars, SqlString	Char, String, Char[], Nullable
real	SqlSingle	Single, Nullable
rowversion	None	Byte[]
smallint	SqlInt16	Int16, Nullable
smallmoney	SqlMoney	Decimal, Nullable
sql_variant	None	Object
table	None	None
text	None	None
time	TimeSpan	TimeSpan, Nullable
timestamp	None	None
tinyint	SqlByte	Byte, Nullable
uniqueidentifier	SqlGuid	Guid, Nullable
User-defined type(UDT)	None	The same class that is bound to the user-defined type in the same assembly or a dependent assembly.
varbinary	SqlBytes, SqlBinary	Byte[]
varbinary(1), binary(1)	SqlBytes, SqlBinary	byte, Byte[], Nullable
varchar	None	None
xml	SqlXml	None

¡Conoce las principales novedades de SQL Server 2012!

2011-12-04T21:37:00.000-08:00

Las 12 Horas de SQL Server 2012 ¡Conoce las principales novedades de SQL Server 2012 en 12 sesiones!

Horario Titulo

12:12-12:42 Bienvenida e Introducción al evento

12:42-13:42 Enriqueciendo nuestros informes en PowerView

13:42-14:42 Abre tu mente a nuevas posibilidades con T-SQL 2012. Cláusula OVER

14:42-15:12 Entrevista con Pedro Urbina, Desarrollador en Microsoft Corp. De AlwaysON

15:12-16:12 Alta Disponibilidad en SQL Server Denali

16:12-17:12 Profundizando en Reporting Services (SSRS) 2012 para SharePoint 2010

17:12-18:12 Cómo migrar nuestra solución multidimensional al nuevo modelo BISM Tabular y no morir en el intento

18:12-18:42 Entrevista con César Galindo, Lead en PDW

18:42-19:42 Interioridades y casos realistas sobre índices columnares

19:42-20:42 Novedades en Manejabilidad en SQL Server 2012

20:42-21:12 Entrevista con Miguel Llopis, PM Data Explorer Team

21:12-22:12 Data Quality Services

22:12-23:12 Escenarios en nube con SQL Server y SQL Azure

23:12-12:12 Aplicando las novedades de Integration Services 2012 a nuestros escenarios

Mayor Informacion en Microsoft TechNet !!

Convertir columnas de tabla SQL SERVER en variables de VB.NET

2011-12-01T13:35:00.001-08:00

Este utilitario en sql sirve de mucho si se tiene una tabla de SQL SERVER con demasiadas columnas y se desea convertir cada columna en una variable de VB.NET.

SELECT 'DIM ' + t0.name + ' AS ' + UPPER(
CASE
WHEN t2.name IN ('text', 'varchar', 'char') THEN 'String'
WHEN t2.name IN ('ntext', 'nvarchar', 'nchar') THEN 'String'
WHEN t2.name IN ('tinyint', 'smallint', 'int', 'bigint') THEN 'Integer'
WHEN t2.name IN ('bit') THEN 'Boolean'
WHEN t2.name IN ('decimal', 'numeric', 'money', 'smallmoney') THEN 'Double'
WHEN t2.name IN ('float', 'real') THEN 'Double'
WHEN t2.name IN ('smalldatetime', 'datetime') THEN 'Date'
WHEN t2.name IN ('binary', 'varbinary', 'image') THEN 'String'
ELSE 'String'
END) + ' = ' +
CASE
WHEN t2.name IN ('text', 'varchar', 'char') THEN '""'
WHEN t2.name IN ('ntext', 'nvarchar', 'nchar') THEN '""'
WHEN t2.name IN ('tinyint', 'smallint', 'int', 'bigint') THEN '0'
WHEN t2.name IN ('bit') THEN 'False'
WHEN t2.name IN ('decimal', 'numeric', 'money', 'smallmoney') THEN '0.0'
WHEN t2.name IN ('float', 'real') THEN '0.0'
WHEN t2.name IN ('smalldatetime', 'datetime') THEN 'Date.Now'
WHEN t2.name IN ('binary', 'varbinary', 'image') THEN '""'
ELSE '""'
END
FROM sys.columns t0
INNER JOIN sys.tables t1 ON t1.object_id = t0.object_id
INNER JOIN sys.types t2 ON t2.system_type_id = t0.system_type_id
WHERE t1.name = 'TABLE'
ORDER BY t0.column_id

Esta consulta le mostrara todas las columnas de la tabla convertidas en definiciones de variables para VB.NET.

DIM COLUMNA1 AS INTEGER = 0
DIM COLUMNA1 AS STRING = ""
DIM COLUMNA3 AS BOOLEAN = False
DIM COLUMNA4 AS DATE = Date.Now
DIM COLUMNA5 AS DOUBLE = 0.0

(5 row(s) affected)

Contar y/o Sumar filas con filtro en Excel

2011-12-01T06:59:00.000-08:00

Esto es un TIP de una función bien útil en excel para contar y sumar la cantidad de filas después de aplicar un filtro a una columna dentro de excel.

Para esto usaremos una función de excel llamada SUBTOTALES para sumar y contar.

Si se desea sumar un rango de filas de una determinada Columna simplemente usen la función pasandole 2 parámetros, el primero es la operación la cual para sumar es 2 y posteriormente el rango de filas.

=SUBTOTALES(2,CI2:CI5283)

En caso que se desee contar la cantidad de filas afectadas por el filtro, se tendrá que cambiar el primer parámetro enviado a la función por el 9 y posteriormente colocar el rango de filas que desea considerar.

=SUBTOTALES(9,CI2:CI5283)

Espero que re resulte útil ya que a mi me sirvió un montón.

Introducción y Características del Windows Phone 7.5

2011-11-25T22:11:00.000-08:00

Comparto con todos un interesante y largo vídeo que explica las nuevas características de la nueva versión de Windows Phone 7.5 o Mango. Tranquilos que esta en ESPAÑOL.

Como aporte para mi esta nueva apuesta de Microsoft es interesante pero le falta madurar ya que muchas de las mejoras están en su SDK para acceder a funcionalidades del teléfono que anterior mente en su versión 7 no tenia o no se podía.

Por el futuro de este WP7 dependerá de todos nosotros DEVs!

Cambiar Nombre de la Instancia en SQLSERVER

2011-11-25T21:47:00.000-08:00

Si desea cambiar el nombre de la instancia que por defecto se nombro o que se nombro al momento que se instalo el Sql Server puede hacerlo de la manera mas sencilla mediante algunas sentencias sencillas en SQL.

1. Primero revisamos cual es el nombre de la instancia actual .

1 2	`sp_helpserver` `select` `@@servername`

2. Con esto obtenemos el nombre actual y el cual necesitamos saber para poderlo remplazar por otro nombre.

1

2

3

4

sp_dropserver 'old_name'
go
sp_addserver 'new_name','local'
go

3. Con esto ya se cambio el nombre de la instancia pero no se aplicara hasta que reiniciemos el servicio del SQL SERVER en el Windows. Para ello, entramos a la consola de comando.

Inicio>Ejecutar>CMD

Inicio>Accesorios>Simbolo de Sistema

4. Dentro de la consola debemos detener el servicio para que posteriormente lo iniciemos nuevamente.

net stop mssqlserver net start mssqlserver

5. Con esto ya se cambio el nombre de la instancia de tu Sql Server así que verificamos.

1 2	`sp_helpserver` `select` `@@servername`

Con estos sencillos pasos se puede cambiar la instancia del Sql Server que para mi es la mas rápida y sencilla.

Link: http://coderjournal.com/2008/02/how-to-change-instance-name-of-sql-server/

Exportar codigo fuente desde Git

2011-10-05T14:32:00.000-07:00

Si se desea simplemente exportar solamente el código fuente de una aplicación sin la necesidad de copiar los archivos que genera el GIT simplemente lo haría con el siguiente comando.

git archive master | tar -x -C /Carpeta/CarpetaHija

Pero si necesita comprimir el código fuente en un solo archivo puede generar un TAR de la siguiente manera.

git archive master | bzip2 > CodigoFuente.tar.bz2

Y si desea hacerlo con un formato de compresión como el ZIP debería hacerlo de la siguiente manera.

git archive --format zip --output C:/CodigoFuente.zip master

Con esto podrá exportar el código fuente de manera limpia sin archivos adicionales que son clásicos del GIT.

Nota : En windows podría usar Putty o el Cygwin

Link : http://stackoverflow.com/questions/160608/how-to-do-a-git-export-like-svn-export

Exam 70-502: Microsoft .NET Framework 3.5 Windows Presentation Foundation

2011-10-03T16:42:00.000-07:00

Aquí les dejo el libro en ingles y en formato PDF para la certificación con WPF.

MCTS Self-Paced Training Kit (Exam 70-502):

Microsoft® .NET Framework 3.5 Windows® Presentation Foundation

Link : http://doc.hackbbs.org/Programmation/DotNet/Microsoft%20Press%20-%20MCTS%20-%2070-502%20-%20DotNet%203.5%20-%20WPF.pdf

Desinstalar xcode en una mac

2011-09-25T13:15:00.000-07:00

Recientemente estoy incursionando en el mundo de los iphones y para ello necesito instalar el XCODE 4.2 pero he tenido inconvenientes y para ello necesitaba desinstalarlo pero me di con la sorpresa que la mac no cuenta con un sistema de desinstalacion como windows por lo que investigando di con una solución sencilla y rápida.

Con el siguiente comando logras desinstalar correctamente y como manda la ley el xcode sin que te preocupes de haberlo hecho mal. Para ello primero deben acceder al terminal y tener acceso al SUDO (Super usuario).

sudo /Library/uninstall-devtools --mode=all

El "" normalmente se remplaza por la ubicacion en donde se instalo que por defecto es "Developer".

sudo Developer/Library/uninstall-devtools --mode=all

Esta seria la forma correcta de desinstalar el xcode en mac.

Saludos

Link: http://macdevelopertips.com/xcode/how-to-uninstall-xcode.html

Migración Sencilla de Excel a Sql

2011-09-22T09:26:00.000-07:00

Si uno desea migrar información desde Excel a Sql Server no es necesario usar un DTS o alguna herramienta de migración de datos, solo es necesario usar las funciones que tiene el excel para poder generar el script sql para insertar la información en la tabla de la base de datos.

Primero se debe colocar en una columna adicional la siguiente formula:

=CONCATENAR("INSERT INTO tabla01(columna01, columna02) VALUES ('",ESPACIOS(A2),"','",ESPACIOS(B2),"')")

En donde vamos a concatenar el resultado de cada columna en un script que se insertara en la tabla. Esto dará como resultado:

INSERT INTO tabla01(columna01, columna02) VALUES ('C001','Cliente 001')

Esto se replica por cada fila que desea que se migre al Sql Server y solo queda copiar el resultado de la columna que posee la formula y ejecutarla en Sql Server.

Con esto se logra migrar de una manera sencilla la información de un Excel a Sql Server.

Frase del dia

2011-09-19T11:39:00.001-07:00

“El software es como las catedrales, primero lo construimos, luego rezamos.”

Agregar y Eliminar antes del COMMIT en GIT

2011-02-24T12:15:00.000-08:00

Para agregar todos los archivos contenidos dentro de una carpeta o repositorio de GIT se debe utilizar el comando en bash.

git add .

Si desea eliminar toda los archivos y carpetas agregados al GIT, utilice el comando en bash.

git rm --cache -r

Nota: Esto elimina solo en memoria antes de haber hecho el COMMIT.

Clonar un Objeto

2011-01-26T11:22:00.000-08:00

Cuando se crea clase simple y se desea hacer una copia de un objeto a otro del mismo tipo, esto no se realiza ya que se copia la referencia del objeto.

Public Class clsObjeto
Public codigo As String = ""
Public valor As String = ""
End Class

Es decir, si se hace una asignación de un objeto a otro este guardara la referencia del objeto que fue asignado y no serán objetos separadas.

Dim obj01 as New clsObjeto
obj01 .codigo = "01"
obj01 .valor = "Valor 01"

Dim obj02 as clsObjeto= obj01

Esto significa que si modifico el objeto obj02 este cambio se reflejara también en el objeto obj01 ya que se referencia y no se copio.

Para poder hacer una CLONACION de objetos se debe implementar en la clase el metodo Clone.

Public Class clsObjeto
 Implements ICloneable

 Public codigo As String = ""
 Public valor As String = ""

 Public Function Clone() As Object Implements System.ICloneable.Clone
     Return MyBase.MemberwiseClone()
 End Function
End Class

Con esto, se puede hacer una copia exacta de un objeto a otro sin que se mantenga la referencia y no refleje la modificación de un objeto en otro.

Dim obj01 as New clsObjeto
obj01 .codigo = "01"
obj01 .valor = "Valor 01"

Dim obj02 as clsObjeto= obj01..Clone

Como se vera ahora el objeto obj02 tiene los mismos datos que el objeto 0bj01 pero con la diferencia de que si se modifica alguno este cambio no afectara al otro.

Comparar 2 tablas en Sql Server 2005

2010-03-23T07:19:00.000-07:00

Para comparar 2 tablas de una base de datos SQL SERVER 2005 tenemos las sintaxis except e intersect.

Esto retornara todos los registros de table1 que no coincidan con los registros de table2

select * from table1 except select * from table2

Esto retornara todos los registros de table2 que no coincidan con los registros de table1

select * from table2 except select * from table1

Esto retornara todos los registros de table1 que coincidan con los registros de table2

select * from table1 intersect select * from table2

Articulo Original: http://weblogs.sqlteam.com/jeffs/archive/2007/05/02/60194.aspx

Truncar el correlativo de una tabla

2010-02-05T06:55:00.000-08:00

Aquí hay una función de SQL Server que permite el truncar el correlativo de una tabla generada automáticamente, para ello se debe colocar el nombre de la tabla (tutabla) y el valor que desea inicializar con el contador (0) ya que cuando ingrese lo hará con 1.

DBCC CHECKIDENT (tutabla, reseed, 0)

Articulo original: link

Hora de leer

2010-01-19T09:15:00.000-08:00

Aunque no es una costumbre, mi primera promesa es la de leer 2 libros al mes y para ello empezare con 2 títulos llamados “Chicha Power” y “Estados Desunidos de Latinoamérica”, que nunca pensé en leerlos pero me gustaron cuando le eche una ojeada mientras paseaba por la librería Crisol.

Como dije no es mi costumbre, pero creo que creando este habito en mi me será de gran utilidad y productivo.

Estreno en el Peru de la pelicula Luna Nueva

2009-12-15T07:49:00.000-08:00

El estreno de la secuela de la saga de crepúsculo fue el momento más esperado de esta año (para mí lo fue), el cual se realizo el 26 de noviembre y que fue mucho antes de los esperado si tomamos en cuenta que la primera película crepúsculo tardo casi 2 meses en llegar a salas limeñas.

Con gran devoción llegue a verla el mismo 26 de noviembre, aunque con sala muy llena y muchos fanáticos esperando el que sucederá con el amor de Bella hacia Edward mientras Jacob ponía todo de su lado para poder conquistarla y estar con ella.

Aunque para ser sincero no fue como espere que fuera según lo que se basaba el libro; no puedo negar que me lleno de satisfacción poder ver como aumento la devoción a esta saga y que la gente pueda ver lo que muchos solo imaginamos cuando recorríamos cada párrafo del libro.

Ahora solo faltaría esperar un año más para Eclipse y poder desenlazar el final abrupto que tiene la película Luna Nueva.

Problema para instalar SQL SERVER 2008

2009-12-05T18:26:00.001-08:00

Les cuento una anécdota que tuve al instalar el Sql Server 2008 sobre una pc que tenia Windows 7 y Visual Studio 2008 sp1.

Primero empecemos con el error tan raro que me salía al momento de instalar el Sql Server 2008, donde me indicaba que tenia un problema con la versión de VS 2008.

Aunque tenia la ultima versión del VS 2008 sp1, la cual era la solicitada por Sql Server 2008 no era posible instalar. Pero encontré una trampa para poder evitar que haga la validación de la versión de VS.

En la consola de comandos y ubicándonos en la unidad donde se encuentra el instalador de Sql Server escribiremos.
setup /ACTION=install /SkipRules=VSShellInstalledRule RebootRequiredCheck

Con esto se evitara la verificación de versión de VS y podrá terminar la instalación de Sql Server 2008 sin ningún inconveniente.

Es una buena salida para este problema de instalación.

link original.

Nombre de Numero en Letras

2009-11-16T07:28:00.000-08:00

Ahora le dejo una función para poder convertir un monto numérico en un monto en letras, muy útil si se quiere hacer una descripción de un monto para alguna factura o boleta.

Primero crearemos la función llamada "fn_ConvertirNumeroLetras" que recibe 2 parámetros, uno es el numero que deseamos convertir a letras y el otro el nombre de la moneda que deseamos concatenarlo al monto.

Create FUNCTION [dbo].[fn_ConvertirNumeroLetra]

(

@Numero NUMERIC(20,2),

@Moneda VARCHAR(100)

)

RETURNS VARCHAR(512)

AS

BEGIN

DECLARE @lnEntero INT,

@lcRetorno VARCHAR(512),

@lnTerna INT,

@lcMiles VARCHAR(512),

@lcCadena VARCHAR(512),

@lnUnidades INT,

@lnDecenas INT,

@lnCentenas INT,

@lnFraccion INT,

@resultado as varchar(512)

SELECT @lnEntero = CAST(@Numero AS INT),

@lnFraccion = (@Numero - @lnEntero) * 100,

@lcRetorno = '',

@lnTerna = 1

WHILE @lnEntero > 0

BEGIN /* WHILE */

-- Recorro terna por terna

SELECT @lcCadena = ''

SELECT @lnUnidades = @lnEntero % 10

SELECT @lnEntero = CAST(@lnEntero/10 AS INT)

SELECT @lnDecenas = @lnEntero % 10

SELECT @lnEntero = CAST(@lnEntero/10 AS INT)

SELECT @lnCentenas = @lnEntero % 10

SELECT @lnEntero = CAST(@lnEntero/10 AS INT)

-- Analizo las unidades

SELECT @lcCadena =

CASE /* UNIDADES */

WHEN @lnUnidades = 1 AND @lnTerna = 1 THEN 'UNO ' + @lcCadena

WHEN @lnUnidades = 1 AND @lnTerna <> 1 THEN 'UN ' + @lcCadena

WHEN @lnUnidades = 2 THEN 'DOS ' + @lcCadena

WHEN @lnUnidades = 3 THEN 'TRES ' + @lcCadena

WHEN @lnUnidades = 4 THEN 'CUATRO ' + @lcCadena

WHEN @lnUnidades = 5 THEN 'CINCO ' + @lcCadena

WHEN @lnUnidades = 6 THEN 'SEIS ' + @lcCadena

WHEN @lnUnidades = 7 THEN 'SIETE ' + @lcCadena

WHEN @lnUnidades = 8 THEN 'OCHO ' + @lcCadena

WHEN @lnUnidades = 9 THEN 'NUEVE ' + @lcCadena

ELSE @lcCadena

END /* UNIDADES */

-- Analizo las decenas

SELECT @lcCadena =

CASE /* DECENAS */

WHEN @lnDecenas = 1 THEN

CASE @lnUnidades

WHEN 0 THEN 'DIEZ '

WHEN 1 THEN 'ONCE '

WHEN 2 THEN 'DOCE '

WHEN 3 THEN 'TRECE '

WHEN 4 THEN 'CATORCE '

WHEN 5 THEN 'QUINCE '

ELSE 'DIECI' + @lcCadena

END

WHEN @lnDecenas = 2 AND @lnUnidades = 0 THEN 'VEINTE ' + @lcCadena

WHEN @lnDecenas = 2 AND @lnUnidades <> 0 THEN 'VEINTI' + @lcCadena

WHEN @lnDecenas = 3 AND @lnUnidades = 0 THEN 'TREINTA ' + @lcCadena

WHEN @lnDecenas = 3 AND @lnUnidades <> 0 THEN 'TREINTA Y ' + @lcCadena

WHEN @lnDecenas = 4 AND @lnUnidades = 0 THEN 'CUARENTA ' + @lcCadena

WHEN @lnDecenas = 4 AND @lnUnidades <> 0 THEN 'CUARENTA Y ' + @lcCadena

WHEN @lnDecenas = 5 AND @lnUnidades = 0 THEN 'CINCUENTA ' + @lcCadena

WHEN @lnDecenas = 5 AND @lnUnidades <> 0 THEN 'CINCUENTA Y ' + @lcCadena

WHEN @lnDecenas = 6 AND @lnUnidades = 0 THEN 'SESENTA ' + @lcCadena

WHEN @lnDecenas = 6 AND @lnUnidades <> 0 THEN 'SESENTA Y ' + @lcCadena

WHEN @lnDecenas = 7 AND @lnUnidades = 0 THEN 'SETENTA ' + @lcCadena

WHEN @lnDecenas = 7 AND @lnUnidades <> 0 THEN 'SETENTA Y ' + @lcCadena

WHEN @lnDecenas = 8 AND @lnUnidades = 0 THEN 'OCHENTA ' + @lcCadena

WHEN @lnDecenas = 8 AND @lnUnidades <> 0 THEN 'OCHENTA Y ' + @lcCadena

WHEN @lnDecenas = 9 AND @lnUnidades = 0 THEN 'NOVENTA ' + @lcCadena

WHEN @lnDecenas = 9 AND @lnUnidades <> 0 THEN 'NOVENTA Y ' + @lcCadena

ELSE @lcCadena

END /* DECENAS */



-- Analizo las centenas

SELECT @lcCadena =

CASE /* CENTENAS */

WHEN @lnCentenas = 1 AND @lnUnidades = 0 AND @lnDecenas = 0 THEN 'CIEN ' +

@lcCadena

WHEN @lnCentenas = 1 AND NOT(@lnUnidades = 0 AND @lnDecenas = 0) THEN

'CIENTO ' + @lcCadena

WHEN @lnCentenas = 2 THEN 'DOSCIENTOS ' + @lcCadena

WHEN @lnCentenas = 3 THEN 'TRESCIENTOS ' + @lcCadena

WHEN @lnCentenas = 4 THEN 'CUATROCIENTOS ' + @lcCadena

WHEN @lnCentenas = 5 THEN 'QUINIENTOS ' + @lcCadena

WHEN @lnCentenas = 6 THEN 'SEISCIENTOS ' + @lcCadena

WHEN @lnCentenas = 7 THEN 'SETECIENTOS ' + @lcCadena

WHEN @lnCentenas = 8 THEN 'OCHOCIENTOS ' + @lcCadena

WHEN @lnCentenas = 9 THEN 'NOVECIENTOS ' + @lcCadena

ELSE @lcCadena

END /* CENTENAS */

-- Analizo la terna

SELECT @lcCadena =

CASE /* TERNA */

WHEN @lnTerna = 1 THEN @lcCadena

WHEN @lnTerna = 2 AND (@lnUnidades + @lnDecenas + @lnCentenas <> 0) THEN

@lcCadena + ' MIL '

WHEN @lnTerna = 3 AND (@lnUnidades + @lnDecenas + @lnCentenas <> 0) AND

@lnUnidades = 1 AND @lnDecenas = 0 AND @lnCentenas = 0 THEN @lcCadena + '

MILLON '

WHEN @lnTerna = 3 AND (@lnUnidades + @lnDecenas + @lnCentenas <> 0) AND

NOT (@lnUnidades = 1 AND @lnDecenas = 0 AND @lnCentenas = 0) THEN @lcCadena

+ ' MILLONES '

WHEN @lnTerna = 4 AND (@lnUnidades + @lnDecenas + @lnCentenas <> 0) THEN

@lcCadena + ' MIL MILLONES '

ELSE ''

END /* TERNA */

-- Armo el retorno terna a terna

SELECT @lcRetorno = @lcCadena + @lcRetorno

SELECT @lnTerna = @lnTerna + 1

END /* WHILE */

IF @lnTerna = 1

SELECT @lcRetorno = 'CERO'

SELECT @resultado = RTRIM(@lcRetorno) + ' CON ' + LTRIM(STR(@lnFraccion,2)) + '/100 ' + @Moneda



RETURN @resultado

END



GO

Para ejecutarlo solo nos bastara con llamar a la función y pasarle los 2 parámetros mencionados.

SELECT [dbo].fn_ConvertirNumeroLetra(150.50, 'Nuevos Soles')

Esto nos dará como resultado lo siguiente.

CIENTO CINCUENTA CON 50/100 Nuevos Soles

Referencia: http://tinyurl.com/yag3ouo

Validar RUC (SUNAT - PERU)

2009-08-14T14:39:00.000-07:00

Para saber de que el RUC es valido se usa un algoritmo tambien llamado Modulo 11, esto nos permite hacer un calculo de los primeros 10 digitos y validarlo con el digito numero 11, de ser correcto se dice que el RUC es valido.

Aqui le adjunto la funcion que hace la validacion al RUC

Public Function ValidationRUC(ByVal ruc As String) As Boolean
      Try

          If Not IsNumeric(ruc) Then
              Throw New Exception("El valor no es numerico")
          End If

          If ruc.Length <> 11 Then
              Throw New Exception("Numero de digitos invalido")
          End If

          Dim dig01 As Integer = CInt(ruc.Substring(0, 1)) * 5
          Dim dig02 As Integer = CInt(ruc.Substring(1, 1)) * 4
          Dim dig03 As Integer = CInt(ruc.Substring(2, 1)) * 3
          Dim dig04 As Integer = CInt(ruc.Substring(3, 1)) * 2
          Dim dig05 As Integer = CInt(ruc.Substring(4, 1)) * 7
          Dim dig06 As Integer = CInt(ruc.Substring(5, 1)) * 6
          Dim dig07 As Integer = CInt(ruc.Substring(6, 1)) * 5
          Dim dig08 As Integer = CInt(ruc.Substring(7, 1)) * 4
          Dim dig09 As Integer = CInt(ruc.Substring(8, 1)) * 3
          Dim dig10 As Integer = CInt(ruc.Substring(9, 1)) * 2
          Dim dig11 As Integer = CInt(ruc.Substring(10, 1))

          Dim suma As Integer = dig01 + dig02 + dig03 + dig04 + dig05 + dig06 + dig07 + dig08 + dig09 + dig10
          Dim residuo As Integer = suma Mod 11
          Dim resta As Integer = 11 - residuo

          Dim digChk As Integer
          If resta = 10 Then
              digChk = 0
          ElseIf resta = 11 Then
              digChk = 1
          Else
              digChk = resta
          End If

          If dig11 = digChk Then
              Return True
          Else
              Return False
          End If

      Catch ex As Exception
          Throw ex
      End Try
End Function

Ejm:
RUC = 10254824220
FACTOR = 5432765432

Se separa los 10 primeros digitos de la izquierda y se hace un calculo inividual
1 * 5 =5
0 * 4 = 0
2 * 3 = 6
5 * 2 = 10
4 * 7 = 28
8 * 6 = 48
2 * 5 = 10
4 * 4 = 16
2 * 3 = 6
2 * 2 = 4

Se suma el resultado de todas las multiplicaciones
SUMA = 133

Se calcula el residuo de la division por 11
133/ 11 = 1
RESIDUO = 1

Se resta 11 menos el residuo
11 - 1
RESTA = 10

digito de chequeo = RESTA
si resta = 10 entonces digito de cheque = 0
si resta = 11 entonces digito de cheque = 1

Por lo tanto el RUC 10254824220 es valido por que su digito numero 11 es 0 y el digito de chekeo es 0.

Obtener multiples resultados en ADO.NET

2009-08-14T07:10:00.000-07:00

Para poder obtener multiples resultados de consultas SQL en una sola operacion se debe tener en cuenta usar el objeto SqlDataReader. Esta es la forma mas practica de poder ejecutar varias sentencias SQL al mismo tiempo y poder recibirlas con un objeto SqlDataReader.

Aqui se muestra como ejecutar y recuperar el resultados de 3 consultas SQL.

Private Sub MultipleQuery()

       Dim sqlCnn As New SqlConnection("Data Source=ServerName;Initial Catalog=DatabaseName;User ID=UserName;Password=Password")
       Dim sqlCmd As SqlCommand

       'Definimos las 3 sentencias SQL solamente separandolas con ";"
       Dim sql As String = "Select top 2 * from product; " & _
                           "select top 2 * from ordermaster; " & _
                           "select top 2 * from orderdetails"

       Try
           'Abrimos la Conexion 
           sqlCnn.Open()

           'Configuramos el Comando con la conexion y la Sentencia SQL
           sqlCmd = New SqlCommand(sql, sqlCnn)

           'Ejecutamos el Comando y el resultado se lo asignamos a un sqlDataReader
           Dim sqlReader As SqlDataReader = sqlCmd.ExecuteReader()

           'Recorremos el primer resultado de "Select top 2 * from product"
           While sqlReader.Read()
               MsgBox("Primer SQL -  " & sqlReader.Item(0) & "  -  " & sqlReader.Item(1))
           End While

           'Cambiamos al siguiente resultado SQL
           sqlReader.NextResult()

           'Recorremos el segundo resultado de "Select top 2 * from ordermaster"
           While sqlReader.Read()
               MsgBox("Segundo SQL -  " & sqlReader.Item(0) & "  -  " & sqlReader.Item(1))
           End While

           'Cambiamos al siguiente resultado SQL
           sqlReader.NextResult()

           'Recorremos el tercer resultado de "Select top 2 * from orderdetails"
           While sqlReader.Read()
               MsgBox("Tercer SQL -  " & sqlReader.Item(0) & "  -  " & sqlReader.Item(1))
           End While

           sqlReader.Close()
           sqlCmd.Dispose()
           sqlCnn.Close()

       Catch ex As Exception
           MsgBox("No se puedo ejecutar la operacion")
       End Try

   End Sub

Aqui el enlace original: Link Referencial

Primera reunion del PLUG

2009-06-30T08:35:00.000-07:00

El sabado 27 tuvo lugar la primera reunion de PLUG en las instalaciones del Compu Palace en donde se pudo compartir un momento grato entre todos los colaboradores e intercambiando opiniones y experiencias sobre el uso, difucion y ventajas de sistema operativo open source llamado comunmente linux.

Mi Certificacion MCTS Windows Form Application 2008

2009-06-30T08:04:00.000-07:00

Despues de algun tiempo de que obtuve la certificacion MCTS web application 2005. Me quede con las ganas de actulizarme a la nueva version del 2008. Para ello, un amigo me facilito un ticket para rendir el examen gratuitamente y solo lo que debia hacer era estudiar.

Como ya tenia una experiencia similar con la anterior certificacion, solo debia guiarme del libro que te entregan en los cursos para dar el examen, por lo que me consegui uno en formato PDF (Torrents).

Una vez obtenido mi ticket de examen y conseguido el manual solo me faltaba coordinar la fecha del examen. Para ello, escogi el dia viernes 26 a las 2 pm como la gran fecha para rendir mi examen de certificacion MCTS windows form application 2008.

Estube estudiando 15 dias antes de la fecha de mi examen, aunque fue un tiempo suficiente para poder acabar todo el manual aun asi me sentia nervioso el dia que fui a rendir dicho examen.

El dia llego y rendi mi examen a puertas cerradas solamente con el conocimiento aprendido en los dias previos, afortunadamente mi dedicacion tuvo un resultado positivo y pude obtener una nota aprobatoria por 1000 puntos, motivo por que me siento orgulloso.

Ahora puedo mostrar el logo obtenido y el que puedo sustentar como un logro.

Estreno en el Peru de la pelicula Crepuesculo

2008-12-26T10:02:00.000-08:00

Por fin despues de tanta espera se entrenara en Peru la pelicula crepusculo que esta basada en el primer libro de la saga "Crepusculo", su estreno sera el 1 de enero del 2009.

Aunque se puede apreciar la pelicula en copias ilegales de baja calidad desde hace algun tiempo, no he querido adelantarme a verlo hasta que se estrene en una sala de cine. Fuera de que me considero un fanatico a la saga y de haber leido ya 2 de los 4 libros de la saga, espero que la pelicula tenga la escencia del libro y que no sea una burla para los que se quedaron pegados con el libro.

Lo malo para mi es la fecha en la que escogieron el estreno, ya que pensaba no aparecerme en lima hasta el dia 4 de enero XD.

Instalar Mysql 5 sobre linux Debian 4

2008-12-26T09:47:00.000-08:00

La instalacion de Mysql sobre linux se puede ser de una manera muy facil usando los paquetes de la distribucion Debian. Se empezara a listar los pasos por orden

1. Para instalar mysql usaremos el gestor de paquete APT, con la siguiente linea de comando

apt-get install mysql-server-5.0

2. Ahora instalamos el cliente de mysql para poder acceder a servidor de base de datos

apt-get install mysql-client-5.0

3. Una vez instado el Mysql se debe levantar el servidor de base de datos

/etc/init.d/mysql start

4. Una vez inicializado el servicio nos conectamos a la base de datos mysql, colocando el password en lugar de los asteriscos

mysql -uroot -p******

5. Por defecto, solo se podra acceder al servidor desde la misma maquina en la que se instalo. Para poder acceder desde cualquier otra maquina tenemos que habilitar la conexion remota.

GRANT ALL PRIVILEGES ON *.* TO 'usuario'@'%' IDENTIFIED BY 'contrasena' WITH GRANT OPTION;
FLUSH PRIVILEGES;

6. Por ultimo para que permita el acceso remotamente de varias computadoras deberemos modificar el archivo my.cnf

nano /etc/mysql/my.cnf

7. Dentro del archivo buscamos la palabra "bind-address" y lo comentamos con un michi (#)

#bind-address           = 127.0.0.1

8. Por ultimo, reiniciamos el servidor Mysql

/etc/init.d/mysql restart

Instalar Mysql 5 sobre linux Centos 5

2008-11-02T18:38:00.000-08:00

La instalacion de Mysql sobre linux se puede ser de una manera muy facil usando los paquetes de la distribucion Centos. Se empezara a listar los pasos por orden

1. Para instalar mysql usaremos el gestor de paquete YUM, con la siguiente linea de comando

yum install mysql-server

2. Ahora instalamos el cliente de mysql para poder acceder a servidor de base de datos

yum install mysql

3. Una vez instado el Mysql se debe levantar el servidor de base de datos

/sbin/service mysqld start

4. Una vez inicializado el servicio nos conectamos a la base de datos mysql, colocando el password en lugar de los asteriscos

mysql -uroot -p******

5. Por defecto, solo se podra acceder al servidor desde la misma maquina en la que se instalo. Para poder acceder desde cualquier otra maquina tenemos que habilitar la conexion remota.

GRANT ALL PRIVILEGES ON *.* TO 'usuario'@'%' IDENTIFIED BY 'contrasena' WITH GRANT OPTION;
FLUSH PRIVILEGES

Grandes o Tontos errores de la Historia

2008-10-11T21:15:00.000-07:00

En 1879 fue introducida en Estados Unidos una sustancia para tratar la adicción a la morfina: la cocaína.
En 1853 John Coffee construyó la cárcel en Dundalk, Irlanda. Quedó en bancarrota en el proyecto y se convirtió en el primer preso de su propia cárcel.
El "hombre del año" en 1938 según la revista Time era Adolfo Hitler.
Ronald Reagan, el ex-presidente de los Estados Unidos y exactor de cine, fue rechazado para el rol principal en una película de 1964 llamada "The Best Man" porque "no tenía apariencia de presidente".
En 1943, Thomas Watson, director de IBM, hizo una declaración diciendo "yo creo que hay un mercado mundial para quizás cinco computadoras".
"No nos gusta como suenan, y la música de la guitarra esta pasando de moda" dijeron los de Decca Recording Company en 1962 al rechazar a los Beatles.
En un memorandum interno de Western Union en 1876 escribieron lo siguiente después de que Alexander Graham Bell les ofreció venderles los derechos para el teléfono: "Este 'teléfono' tiene muchas cosas en su contra como para ser seriamente considerado un medio de comunicación. El aparato no tiene ningún valor para nosotros".
"640 Kb -de memoria- deben ser suficientes para cualquiera"... Bill Gates en 1981.
El emperador en la silla eléctrica. En Agosto de 1890 un prisionero fue ejecutado en la silla eléctrica. Esta fue la primera ejecución que se hizo por ese método. Cuando el Emperador Menelik II de Abisinia (Etiopía hoy) se enteró, encargó tres sillas eléctricas a los Estados Unidos. El único problema fue que, al llegar el envío, descubrió que necesitaban electricidad para funcionar (Abisinia todavía no contaba con este adelanto). Como el emperador era muy inspirado pronto le encontró la solución. Uso una de ellas como su propio trono imperial.
Las marmotas son pequeños mamíferos Asiáticos famosos por matar cobras, fueron llevadas por los agricultores de Hawaii para tratar de controlar la población de ratas, pero se les paso un pequeño detalle. Las marmotas son animales diurnos y las ratas son animales nocturnos. Hoy en día, las marmotas son consideradas en Hawaii como una plaga, casi tanto como las ratas.
Peter Archer de 47 años de edad fue arrestado por correr desnudo por una calle en Melbourne, Australia, pero fue dejado libre cuando la policía supo que venía huyendo de una funeraria donde un doctor lo había pronunciado oficialmente muerto.

Formato de Fecha y Hora con SQL SERVER 2005

2008-10-11T20:44:00.001-07:00

Para dar formato especifico de fecha y hora en sql server se debe hacer una conversion del tipo datetime a varchar, pero no solamente es cuestion hacer la conversion simple si no adicionalmente pasar el parametro del formato que se desea obtener de dicha convercion. Aqui se muestra el cuadro de conversiones para fechas.

Sin el siglo (aa) (1)	Con el siglo ?(aaaa)	Estándar	Entrada/salida (3)
-	0 o 100 (1, 2)	Valor predeterminado	mes dd aaaa hh:mia.m. (o p. m.)
1	101	EE.UU.	mm/dd/aaaa
2	102	ANSI	aa.mm.dd
3	103	Británico/Francés	dd/mm/aaaa
4	104	Alemán	dd.mm.aa
5	105	Italiano	dd-mm-aa
6	106 (1)	-	dd mes aa
7	107 (1)	-	Mes dd, aa
8	108	-	hh:mi:ss
-	9 o 109 (1, 2)	Valor predeterminado + milisegundos	mes dd aaaa hh:mi:ss:mmma.m. (o p. m.)
10	110	EE.UU.	mm-dd-aa
11	111	JAPÓN	aa/mm/dd
12	112	ISO	aammdd aaaammdd
-	13 o 113 (1, 2)	Europeo predeterminado + milisegundos	dd mes aaaa hh:mi:ss:mmm(24h)
14	114	-	hh:mi:ss:mmm(24h)
-	20 o 120 (2)	ODBC canónico	aaaa-mm-dd hh:mi:ss(24h)
-	21 o 121 (2)	ODBC canónico (con milisegundos)	aaaa-mm-dd hh:mi:ss.mmm(24h)
-	126 (4)	ISO8601	aaaa-mm-ddThh:mi:ss.mmm (sin espacios)
-	127(6, 7)	ISO8601 con zona horaria Z.	aaaa-mm-ddThh:mi:ss.mmmZ (sin espacios)
-	130 (1, 2)	Hijri (5)	dd mes aaaa hh:mi:ss:mmma.m.
-	131 (2)	Hijri (5)	dd/mm/aa hh:mi:ss:mmma.m.

Ejemplo

SELECT CONVERT(VARCHAR(10), GETDATE(), 103) AS 'FECHA'
-- Muestra la fecha con formato dd/mm/aaaa

SELECT CONVERT(VARCHAR(8), GETDATE(), 108) AS 'HORA'
-- Muestra la fecha con formato hh:mi:ss

Link Oficial
http://technet.microsoft.com/es-es/library/ms187928.aspx

Retornar registros separada por comas con MSSQL

2008-09-24T16:48:00.001-07:00

Otra vez reutilizando cosas que me habian funcionado en otro proyectos, pero con la diferencia de plataforma que ahora me obligan a usar, me nacio una duda que anteriormente resolvi y publique en el blog "Retornar registros separada por comas con MYSQL". Ahora el escenario es diferente ya que estoy usando MSSQL (Microsoft SQL Server 2005) con VB.NET 2005.

El punto es que buscaba la solucion para listar el resultado de una consulta de una manera mas personalizada y de forma horizontal usando como separadores la coma ",". Como escribi anteriormente en otro articulo en MYSQL es mucho mas facil por que contiene una funcion , pero lamentablemente BILL no nos da una funcion tan util como aquella, por lo que investigando encontre una forma personalizada para emular dicha funcion el MSSQL

-- Declaramos la variable que contendra el resultado
DECLARE @x varchar(8000)

-- Cargamos los registros consultados en la variable 
SELECT @x = COALESCE(@x+', ','')+ISNULL(CONVERT(varchar,nombre),'')
FROM FILTROS
WHERE ID_FILTROPADRE = 169

-- Mostramos el valor de la consulta separada por comas
SELECT @x

Observacion: Lo malo de esta consulta es que si devuelve demasiados registros y al momento de concatenarlos en la variable supera la longitud de la cadena provoca un error.

Las Reglas de Motivación de Bill Gates

2008-08-17T22:46:00.000-07:00

1' Regla: La vida no es justa, acostúmbrate a ello.

2' Regla: Al mundo no le importara tu autoestima. El mundo esperara que logres algo, independiente si te sientes bien o no contigo mismo.

3' Regla: No ganaras mucho dinero después de haber salido de la preparatoria y no serás un vicepresidente hasta que con tu esfuerzo te hayas ganado ambos logros.

4' Regla: Si piensas que tu profesor es duro, espera a que tengas un jefe.

5' Regla: Dedicarse a voltear hamburguesas no te quita dignidad tus abuelos le llamaban de forma diferente “oportunidad".

6' Regla: Si metes la pata, no es culpa de tus padres, así que no lloriquees por tus errores; aprende de ellos.

7' Regla: Antes de que nacieras, tus padres no eran tan aburridos como son ahora. Ellos empezaron a serlo por pagar tus cuentas, limpiar tu ropa y escucharte hablar acerca da la nueva onda en la que estabas.

8' Regla: En la escuela puede haberse eliminado la diferencia entre ganadores y perdedores, pero en la vida real no.

9' Regla: La vida no se divide en semestres, y muy pocos jefes se interesaran en ayudarte en que te encuentres a ti mismo.

10' Regla: La televisión no es la vida diaria. En la vida cotidiana, la gente de verdad tiene que salir del café de la película para irse a trabajar.

11' Regla: Se amable con los "nerds"(los mas aplicados de tu clase) existen muchas probabilidades de que termines trabajando para uno de ellos.

Generacion automatica de backup en MSSQL 2005 Express con un Windows Service (Parte II)

2008-06-25T20:47:00.001-07:00

La instalacion del servicio tiene como requerimiento que creemos una clase del tipo InstallerClass como el que creamos anteriormente llamado "InstallerService.cs", para la implementacion sigamos los siguientes pasos.

1er paso: Debemos importar la libreria System.ServiceProcess, esta nos permite definir los parametros de instalacion de nuestro servicio.

using System.ServiceProcess

2do paso: Sobre escribimos el metodo InstallerService y definimos los parametros de instalacion de nuestro service.

public InstallerService()
{
  ServiceProcessInstaller serviceProcessInstaller = new ServiceProcessInstaller();
  ServiceInstaller serviceInstaller = new ServiceInstaller();

  //# Service Account Information

  serviceProcessInstaller.Account = ServiceAccount.LocalSystem;
  serviceProcessInstaller.Username = null;
  serviceProcessInstaller.Password = null;

  //# Service Information

  serviceInstaller.DisplayName = "Backup Service";
  serviceInstaller.StartType = ServiceStartMode.Automatic;

  //# This must be identical to the WindowsService.ServiceBase name

  //# set in the constructor of WindowsService.cs

  serviceInstaller.ServiceName = "BackupService";

  this.Installers.Add(serviceProcessInstaller);
  this.Installers.Add(serviceInstaller);
}

Con esto tenemos listo nuestra clase instaladora que nos permitira instalar el service en el sistema.

3er paso: la instalacion y desintalacion del service se hace a travez de comandos por lo que usamos la consola de comandos (CMD). Para instalar usamos "i" y para desinstalar la "u"

InstallUtil /i BackupService.exe
InstallUtil /u BackupService.exe

Lo que hice para facilitar la instalacion y desinstalacion del service fue crear 2 archivo bat donde ingreso dichos comandos.

Aqui te adjunto el codigo del service para la creacion de backup

Generacion automatica de backup en MSSQL 2005 Express con un Windows Service (Parte I)

2008-06-25T20:44:00.000-07:00

La creación de backup de una base de datos es un proceso importante y al mismo tiempo monotomo para los que se encargan de hacerlos, en el caso de MSSQL 2005 este proceso puede ser realizado por tareas programadas, pero en el caso de MSSQL 2005 Express Edition que no posee este gestionador de tareas automaticas solo queda hacerlo manualmente cada cierto tiempo :(.

Para no tener que hacer esta tediosa tarea cada cierto periodo ( cosa que tenia que hacerlo yo :S ) , hice un pequeña aplicacion que en si es un Windows Service que genera un backup automaticamente cada dia.

1er paso: Crear un nuevo proyectollamado BackupServicio del tipo "Windows Service" con C#, esto creara 2 items por defecto el primero llamado Program.cs y Service1.cs lo renombramos BackupService.cs, ademas agregamos un item del tipo "InstallerClass" llamandolo InstallerService.cs. La clase BackupService.cs es donde ira la logica para generar el backup y en la clase InstallerService.cs ira la logica para la instalacion del servicio en el sistema.

2do paso: Agregamos 2 nuevas referencias a nuestro proyecto llamados Microsoft.SqlServer.Smo y Microsoft.SqlServer.ConnectionInfo, estos son importantes para poder hacer el backup de la base de datos y poder llamar a estas librerias.

using Microsoft.SqlServer.Management.Common;
using Microsoft.SqlServer.Management.Smo

3er paso: Crearemos el metodo que realizara el trabajo de generar la base de datos, primero indicamos el nombre del archivo de backup para ello se toma como referencia la fecha actual. Segundo, indicamos el dispositivo donde se generara el backup por lo que indicamos "DeviceType.File" para crearlo como archivo, este se crea por defecto en la carpeta de backup del MSSQL. Por ultimo, indicamos la base de datos que queremos crearle su backup que esta representado por el valor de "this.database" y el nombre del servidor cuyo valor es representado por "this.server".

private void backupDB()
{
try
{
   string fileBackup = "BACKUP_" + DateTime.Now.ToString("yyyyMMdd") + ".bak";

   BackupDeviceItem bdi = new BackupDeviceItem(fileBackup, DeviceType.File);

   Backup bu = new Backup();

   bu.Database = this.database;
   bu.Devices.Add(bdi);
   bu.Initialize = true;

   Server server = new Server(this.server);
   bu.SqlBackup(server);
}
catch (Exception ex)
{
   throw ex;
}
}

Este metodo solo se llamara cuando la hora señalada sea identica a la hora del sistema, para ello el servicio verifica cada segundo dicha condición.

4to paso: Creamos un Timer para que cada segundo verifique si la hora para generar el backup.

using System.Timers;

Timer timer = new Timer();

private void OnElapsedTime(object source, ElapsedEventArgs e)
{
try
{
   String tm1 = DateTime.Now.Hour.ToString() + ':' + DateTime.Now.Minute.ToString() + ':' + DateTime.Now.Second.ToString();
   String tm2 = this.hour + ':' + this.minute + ':' + this.second;

   if (tm1.Equals(tm2))
   {
       this.backupDB();
       EventLog.WriteEntry(this.ServiceName, "Se genero el backup con fecha " + DateTime.Now.ToShortDateString(), System.Diagnostics.EventLogEntryType.Information);
   }
}
catch (Exception ex)
{
   EventLog.WriteEntry(this.ServiceName, "Error: " + ex.ToString(), System.Diagnostics.EventLogEntryType.Error);
}
}

5to paso: Inicializamos el Timer con la configuraciones para que valide cada segundo la condicion de la hora. Para ello usamos el metodo "OnStart" que es el metodo que se ejecuta al momento de inicial el servicio. Ademas, vemos que usamos ElapsedEventHandler este metodo no sirve para decirle que en cada intervalo de tiempo ejecute el metodo OnElapsedTime que contiene la condicion para verificar la hora de sistema.

protected override void OnStart(string[] args)
{
try
{
   this.loadConfiguration();

   timer.Elapsed += new ElapsedEventHandler(OnElapsedTime);

   timer.Interval = 1000;

   timer.Enabled = true;
}
catch (Exception ex)
{
   EventLog.WriteEntry(this.ServiceName, "Error: " + ex.ToString(), System.Diagnostics.EventLogEntryType.Error);
   this.Stop();
}
}

Con esta breve descripcion puedo definir el funcionamiento del programa que aunque ya esta terminado no se puede probar hasta que se intale el servicio en el sistema.

Para instalacion del servicio sigamos sigamo con la segunda parte Aqui