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)
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)
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
Existen diversas formas de convertir a Hexadecimal, pero talvez esta es la más fácil. OJO. Solo convierte Enteros.
?
Transform(123456, "@0")
? 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
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
Si deseas que el usuario final no pueda acceder a los botones debes distribuir el archivo Foxuser.dbf con tu proyecto.
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
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\*.dbfEste 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.
?GETENV("temp") && Directorio de archivos temporales
?GETENV("windir") && Directorio de Windows
_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
_Screen.AddObject("oTime","TimerScreen")
* Definicion de la Clase TimerScreen
* Muestra un Reloj en un Wait Window
* Este se actualiza cada un segundo
Define Class TimerScreen
As Timer
Interval= 1000
Procedure Timer
Wait Window (Time())
Nowait
EndProc
EndDefine
Primero debes agregar al prg principal en la primera línea
PARAMETERS uParam1, uParam2, uParam3
El código anterior se encargara de recoger los parámetros pasados como argumentos desde la línea de comandos; en este caso sólo recogerá tres parámetros
Cuando ejecutes el programa debes pasar los
parámetros de la siguiente manera; teniendo en cuenta que todos son leídos
por el ejecutable como tipo carácter, es decir, si le pasas el número 80
el ejecutable lo leera como "80" de tipo carácter
C:programa.exe Para1 200 Para3