Bienvenido y disfruta el nuevo diseño del sitio web.... agradecería me envíes tus comentarios acerca de los cambios realizados

Para descargar cualquier archivo es necesario estar registrado y hacer click en el titulo del archivo a descargar

Aug 22

Conocer la resolución actual de la pantalla en Windows

Visual Fox Pro, Funciones API Comentarios ( 0 ) »
Cuando mandamos reportes a
la Impresora algunas veces queremos personalizar esta operación; pero
siempre nos muestras la ventanita "Imprimiendo". Esta es la
forma de omitir esa ventana




#define SM_CXSCREEN 0          
&& Ancho de Screen en Píxeles 

#define SM_CYSCREEN 1          
&& Alto de Screen en Píxeles 



#define SM_CXFULLSCREEN 16 &&
Ancho área de cliente

#define SM_CYFULLSCREEN 17 && Alto área de cliente





DECLARE INTEGER GetSystemMetrics IN Win32API;

INTEGER nIndex



? GetSystemMetrics(SM_CXSCREEN)

? GetSystemMetrics(SM_CYSCREEN)

? GetSystemMetrics(SM_CXFULLSCREEN)

? GetSystemMetrics(SM_CYFULLSCREEN)

Por: David Amador T

Aug 22

Agregar un Month View desde código

Visual Fox Pro, Trucos Comentarios ( 0 ) »

Algunas veces queremos incluir un calendario profesional dentro de nuestras
aplicaciones con el fin que el usuario seleccione una fecha y sin tener que
preocuparnos de validarla. Este truco resuelve el problema. El Month View lo
podemos agregar en cualquier parte del Form o del objeto, eso depende de las
propiedades Top y Left.


oForm = Thisform


oForm.AddObject("ctlMonth",
"oleControl",
"MSComCtl2.MonthView.2")

oForm.ctlMonth.Top
= 2

oForm.ctlMonth.Left
= 2

oForm.ctlMonth.Visible
= .t.

oForm.Show()



Por: David Amador T

Aug 22

Determinar el Service Pack instalado

Visual Fox Pro, Trucos Comentarios ( 0 ) »

Con tantos errores de VFP siempre debemos instalar algunos SP; pero para
determinar si tenemos instalado alguno y cual versión utilice este truco. Sino
tiene instalado ninguno devolverá una cadena vacía.



? OS(7)



 
Por: David Amador T

Aug 22

Conocer la versión del Sistema Operativo

Visual Fox Pro, Trucos Comentarios ( 1 ) »

Nos devuelve el nombre y la versión del sistema operativo que estamos
ejecutando. No nos dice si es Window 98, 95 o ME; solo nos devuelve el nombre y
versión: por ejemplo: Windows 4.9021



? OS(1)



 
Por: David Amador T

Aug 22

Agregar ceros ( 0 ) a la izquierda de un número

Visual Fox Pro, Trucos Comentarios ( 0 ) »

Si deseas agregar 0 a un número a la izquierda de este, puedes hacer esto. Se
utiliza mucho en la generación de Factura.



nVar = 350 &&
Variable a agregar 0



?PADL(nVar,5,"0")




&& el número 5 especifica el ancho de la cadena de números




Resultado


00350



 
Por: David Amador T

Aug 22

Convertir a Hexadecimal números

Visual Fox Pro, Trucos Comentarios ( 0 ) »

Existen diversas formas de convertir a Hexadecimal, pero talvez esta es la
más fácil. OJO. Solo convierte Enteros.



? Transform(123456,
"@0")



 
Por: David Amador T

Aug 22

Sumar días a fechas 

Visual Fox Pro, Trucos Comentarios ( 0 ) »
Un buen truco si deseas
sumarle días a una fecha determinada. Dos formas diferentes


? date(2001, 12, 31) + 32
&& Devuelve 02/01/02


Otra forma


ldAñoinicio = {^2002/01/01}

? ldAñoinicio + Val("32") - 1  &&
Devuelve 02/01/02

Por: David Amador T

Aug 22

Generar nombre de archivo de forma aleatoria

Visual Fox Pro, Trucos Comentarios ( 0 ) »

Utiliza esta función de
VFP si deseas crear archivos que no tengan el mismo nombre.


? SYS(2023) + "" + SYS(2015)  


&& Genera
archivos en el directorio Temp de Windows

Por: David Amador T

Aug 22

Cambiar dinámicamente propiedades de un Grid

Visual Fox Pro, Trucos Comentarios ( 0 ) »
Muestra los datos de tu
grid dependiendo una condición determinada y manipulando el Fondo y color
de las celdas.




thisform.Grid1.SetAll("dynamicbackcolor", ;

"IIF( empledos.edad > 40, RGB(255,0,0), RGB(255,255,255))",

"Column")





En este caso se cambia el fondo de la
celda para aquellos empleados que tengan una edad superior a 40
años
Por: David Amador T

Aug 22

Quitar botones de la barra del Preview

Visual Fox Pro, Trucos Comentarios ( 0 ) »
Truco indispensable si
deseas quitar algunos botones de la barra del preview e impedir así que
se imprima desde ahí o se seleccione alguna opción.




Bueno para realizar este truco te
recomiendo cierres todo. Ahora ve al menú VER, luego a ToolBars
(Barra de herramientas), luego selecciona la barra Print Preview
(VISTA PRELIMINAR) y ahora haz click en Customize (PERSONALIZAR).
Ahora la barra te aparecerá deshabilitada detrás de ventana de
personalización, ve a la barra y con click sostenido quita todos
los botones que quieras y listo la configuración se guardara en
Foxuser.dbf



Si deseas que el usuario
final no pueda acceder a los botones debes distribuir el archivo
Foxuser.dbf con tu proyecto.

Por: David Amador T

Aug 22

Formateando texto en Excel

Visual Fox Pro, Trucos Comentarios ( 3 ) »
Por: David Amador T

Aug 22

Generar números aleatorios y almacenarlos en tablas

Visual Fox Pro, Trucos Comentarios ( 0 ) »
Este truco te genera una
secuencia de números desde un limite inferior hasta un limite superior y
los almacena en una tabla. Utiliza un procedimiento llamado
GenerarAleatorio al cual se le pasan el limite inferior y el limite
superior de la generación de números


Rand(-1)

Create cursor Valaleatorios (rnd b(2))



For ix=1 to 1000

     Insert into Valaleatorios values (round(GenerarAleatorio(2,8),0))

Endfor



Locate

Browse





Function GenerarAleatorio



lParameter nLowerLimit, nUpperLimit



DO CASE 

        CASE nLowerLimit>nUpperLimit

                 
RETURN null

        CASE nLowerLimit=nUpperLimit

                 
RETURN nLowerLimit

        Otherwise

                 
Return rand()*(nUpperlimit-nLowerLimit)+nLowerLimit

ENDCASE 

Por: David Amador T

Aug 22

Comprimir fácilmente y profesionalmente con el PKZIP

Visual Fox Pro, Trucos Comentarios ( 0 ) »

Uno de los temas de mayor consulta en mi correo. Esta truco te permite
comprimir y descomprimir archivos fácilmente usando PKZIP. Puedes omitir la
pantalla de DOS con un truco anterior.



Run PKZIP -a -& a:\nombrezip
c:\programadatos\*.dbf



Este truco te permite comprimir archivo de de forma fácil, el carácter & te
permite agregarle soporte de Spanning; es decir, si estas comprimiendo en un
Diskette y el espacio no es suficiente, entonces el mismo te pedirá otro
diskette.




Por: David Amador T

Aug 22

Directorios especiales de Windows sin API

Visual Fox Pro, Trucos Comentarios ( 0 ) »
Existen algunas formas sencillas y sin
mucho código para conocer los directorios principales de
Windows y son funciones propias de VFP.



?GETENV("temp") && Directorio de archivos temporales


?GETENV("windir")  && Directorio de Windows

Por: David Amador T

Aug 22

Agregar imagen al _Screen

Visual Fox Pro, Trucos Comentarios ( 0 ) »
En ocasiones queremos que en el fondo de
nuestras aplicaciones, es decir en el _screen se vea el logo
de nuestro programa o de la empresa. Este es un buen truco
para personalizar las aplicaciones.


_screen.addobject("oImg",
"image")

_screen.oImg.picture = "c:\imagen.jpg"

_screen.oImg.visible = .T.

_screen.oImg.stretch = 1

_screen.oImg.width = 640

_screen.oImg.height = 400

Por: David Amador T

Siguiente Pagina Pagina Anterior