Cannot locate the Microsoft Visual FoxPro support library

/0 Comentarios/en , /por

VisualFox Pro ha sido uno de los lenguajes que nunca quise aprender, y sin embargo me sigo encontrando con aplicaciones desarrolladas en tal lenguaje.

El primer error con el que me encontré fue no poder correr dichas app, por falta de las DLL requeridas. No hubo oficialemnte un runtime pero existieron varios paquetes que cumplían con dicha opción.

Aquí algunos de ellos

Textos en Crystal Reports sin decimales y otros

/0 Comentarios/en /por

Normalmente edito y creo reportes (en su mayoría) de Crystal Repots XI. Y muchas veces me demoró en la edición por cosas como estas. Por ello decidí abrir esta nueva sección…

Vamos al caso que nos compete en esta ocasión:

Quitar los decimales al usar las funciones cstr o totext

//Ejemplo con cstr con sintaxis Crystal 
NumberVar Numero := 200.555;
cstr(Numero, 0);
//End

//Ejemplo con toText con sintaxis Crystal
NumberVar Numero:= 200.555;
ToText(Numero, 0);
//End

Algunos Ejemplos de la función cstr (se aplican para la función totext)

Los siguientes ejemplos son aplicables tanto a sintaxis Basic como Crystal:

  • CStr ({Pedidos.Enviados})

Devuelve Verdadero cuando el valor en ({pedidos.ENVIADOS}) es verdadero.

  • CStr(123.45)

Devuelve «123,45».

  • CStr(12345.6749,2)

Devuelve «12345,67».

  • CStr(12345.6750,2)

Devuelve «12345,68».

  • CStr(12345.4999,0)

Devuelve «12345».

  • CStr(12345.5000,0)

Devuelve «12346».

  • CStr({archivo.MONTO} * {archivo.CANTIDAD})

Devuelve «44,890.20» cuando Monto = 24.45 y Cantidad = 1836.

«El precio base del elemento # » + {archivo.NÚMERO DE ELEMENTO} + » es $» + CStr({archivo.PRECIO BASE}) + «.»

Imprime la oración «El precio base del elemento A1/4520/B12 es $50.00.» cuando el Número de Elemento es A1/4520/B12 y Precio Base es 50.00, convertido a texto y con formato de dos lugares decimales.

  • CStr(CDate(1996, 11, 1), «aa MMM dd, dddd»)

Devuelve «Viernes, 01 Nov 96».

  • CStr(CDateTime(1995,10,12,3,30,11),»HH:mm, aa MMMM ddd»)

Devuelve «03:30, 95 octubre jue.».

  • CStr(CTime(12, 10, 10), «HH*mm*ss tt», «amStr», «pmStr»)

Devuelve «12*10*10 pmStr».

Quitar microsegundos a una fecha en SQL Server

/0 Comentarios/en , , /por

De la siguiente manera podrán quitar (truncar) la fechas para quitarles los microsegundos.

–Como Quedaria sin los microsegundos

SELECT
CampoFecha
,DATEADD(MILLISECOND,
–DATEPART(MILLISECOND ,
CampoFecha
)
,
CampoFecha
)
as Resultado From Tabla

 

–Update de la Tabla

update Tabla set
CampoFecha=DATEADD(MILLISECOND,
–DATEPART(MILLISECOND ,
CampoFecha
)
,
CampoFecha
)


 

Ultimo dia del Mes con SQL Server y otros

/9 Comentarios/en , , /por

Trabajando con funciones TSQL para realizar cálculos de Fechas

A continuación una serie de funciones en TSQL útiles para el cálculo de fechas:

-->Mes Actual:
-----------------------------------
--Primer día del mes actual
SELECT DATEADD(s,0,DATEADD(mm, DATEDIFF(m,0,GETDATE()),0))
--Último día del mes actual
SELECT DATEADD(s,-1,DATEADD(mm, DATEDIFF(m,0,GETDATE())+1,0))

-->Mes Anterior:
-----------------------------------
--Primer día del mes anterior
SELECT DATEADD(s,0,DATEADD(mm, DATEDIFF(m,0,GETDATE())-1,0))
--Último día del mes anterior
SELECT DATEADD(s,-1,DATEADD(mm, DATEDIFF(m,0,GETDATE()),0))

-->Mes Siguiente:
-----------------------------------
----Primer día del mes siguiente
SELECT DATEADD(s,0,DATEADD(mm, DATEDIFF(m,0,GETDATE())+1,0))
----Último día del mes siguiente
SELECT DATEADD(s,-1,DATEADD(mm, DATEDIFF(m,0,GETDATE())+2,0))


--> Trimestre Actual:
-----------------------------------
----Primer día del trimestre actual
SELECT DATEADD(qq,DATEDIFF(qq,0,GETDATE()),0) 
----Último día del trimestre actual
SELECT DATEADD(qq,DATEDIFF(qq,-1,GETDATE()),-1)

Resultados

Con la fecha 10 de Noviembre del 2017 esto serían los resultados

Primer_Y_Ultimo_Dia_Resultados

 

Otra alternativa

Continuando con el trabajo con fechas con TSQL podemos hacer lo mismo, pero con una función nativa: EOMONTH()

Si les interesa les dejo el link, que incluye como siempre un caso práctico:

Obtener el ultimo día del mes con SQL Server


Obtener el número de la Semana

/0 Comentarios/en , , , /por

Una función muy simple en diferentes lenguajes para obtener el número de la semana.

Obtener el número de semana del año con PERL

my $numeroSemana = POSIX::strftime("%V", gmtime time);

Obtener el número de semana del año con PHP

$numeroSemana = date("W");

o date(«W», epoch). Se usa la letra mayúscula ‘W’.

Obtener el número de semana del año con SQL

En MySQL:

 SELECT WEEKOFYEAR(NOW())


 o


 SELECT WEEK(NOW(),3)

 

En MS SQL Server:

SELECT DATEPART( wk, GETDATE() )

Listar todas las bases de datos con su respectiva ubicación y tamaños

/10 Comentarios/en , /por

Listar todas las bases de datos

Una problemática habitual con la que me enfrentaba en las PCs de desarrollo era que me quedaba sin espacio en los discos por logs inmanejables, y más de una vez olvidar la ubicación de los archivos de las bases en proyectos versionados.

El siguiente script muy simple pero muy útil permite listar las bases, sus respectivos tamaños, archivos que la componen(MDF y LDF). Además es posible agregarle más campos a gusto del lector.( complementa a este script que muestra los tamaños )

select d.database_id,d.name, a.name as filename,a.physical_name as ubication,
 a.type_desc,(a.size/128)as sizeMB, recovery_model_desc,d.state_desc,compatibility_level
from sys.master_files a inner join sys.databases d on (a.database_id = d.database_id)
order by a.type,a.size

Espero que les sea útil, y como siempre cualquier sugerencia será tenida en cuenta..

Hasta la próxima…

 

Usando MYSQL varbinary con Linq to Entities

/0 Comentarios/en , , /por

Continuando mi proyecto de realizar un integrador de una base MYSQL con una base MSSQL, me encontré un nuevo problema con los campos VARBINARY.

Básicamente en ellos guardada textos planos, pero al ser VARBINARY, LINQ to ENTITIES los trataba como ARRAYS (binarios). Para convertir los valores use la siguiente función:

system.text.Encoding.ASCII.GetString(tabla.campo).

 

Los tipos BINARY y VARBINARY son similares a CHAR y VARCHAR, excepto que contienen cadenas de caracteres binarias en lugar de cadenas de caracteres no binarias. Esto es, contienen cadenas de bytes en lugar de cadenas de caracteres. Esto significa que no tienen conjunto de caracteres asignado, y la comparación y ordenación se basa en los valores numéricos de los valores de los bytes

The version of SQL in use does not support datatype ‘datetime2’

/0 Comentarios/en , /por

Actualmente estoy trabajando en un proyecto de integrar información de un motor MYSQL 5.0 a MSSQL 2005. Para ello el integrador esta en VB NET 2010 con DotNet 4.0.

El mejor framework para el diagramado y la realización de consultas fue usar LINQ TO ENTITIES.

Luego de un par de dolores de cabeza(*) pude llevar mi primera prueba al servidor de producción.

Al ejecutarlo obtuve mi primer error «The versión of SQL in use does not support datatype ‘datetime2′» .

En este momento recordé que mi servidor de desarrollo era un MSSQL Server 2008, y el de producción un MSSQL 2005. (L)

Antes de poder ponerme a pensar que hacer decidí googlearlo y encontré una solución simple pero efectiva.

Consiste en buscar el .emdx dentro del projecto de Visual Studio. Modificarlo con un editor de XML, o similar. Y buscar el siguiente código.

ProviderManifestToken=«2008« y reemplazarlo por ProviderManifestToken=«2005«

Algo simple pero efectivo… Al final funcionó…

(*) Si al ejecutar su aplicación se cierra sin más aviso, no se olviden de instalar el MYSQL Connector con el que estuvieron trabajando en el servidor de producción.

Reiniciar contador de campo autoincremental

/0 Comentarios/en , , /por

Trabajar con campos INT con el atributo IDENTITY es muy útil, ya que los valores se generan automáticamente de manera secuencial empezando del 1.

El problema surge cuando debemos reiniciar esa cuenta. Para ello podemos utilizar

En SQL Server 2005 o Posterior

DBCC CHECKIDENT (NOMBRE_TABLA, RESEED, 0)

 En MYSQL 

ALTER TABLE NOMBRE_TABLA AUTO_INCREMENT=0