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

Almacenar Grafica en una tabla de VFP

Visual Fox Pro, Trucos Comentarios ( 0 ) »
Este tema es muy
solicitado. Muchas veces necesitamos almacenar una grafica en una tabla de
VFP, este es un ejemplo


cArchivo = GetFile()



Select Tabla

Append Blank

Append General Tabla.Campogral From (cArchivo)


Por: David Amador T

Conocer si una tabla tiene un Indice determinado

Visual Fox Pro, Trucos Comentarios ( 0 ) »

Cuando agregamos Indices a una tabla debemos averiguar si este ya tiene ese
índice, sino ocurrirá un error.







Select
Tabla




For
i = 1
To TagCount()

    If Tag(i)
=
"IndiceCampo"

       
Wait Window
"SI"

   
EndIf

EndFor







 



Por: David Amador T

Modificar la Ventana de VFP con un solo comando

Visual Fox Pro, Trucos Comentarios ( 0 ) »

Sin necesidad de estar escribiendo varios comandos, podemos modificar el
aspecto de la ventana (Screen) de VFP



MODIFY WINDOW "screen"
TITLE
"La Web de VFP"
ZOOM icon file
"dav.ico"
zoom


 



Por: David Amador T

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

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

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

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

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

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

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

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

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

Formateando texto en Excel

Visual Fox Pro, Trucos Comentarios ( 3 ) »

Por: David Amador T

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

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