cArchivo = GetFile()



Select Tabla

Append Blank

Append General Tabla.Campogral From (cArchivo)

Select Tabla




For i = 1
To TagCount()

    If Tag(i)
= "IndiceCampo"

       
Wait Window
"SI"

   
EndIf

EndFor

oForm = Thisform


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

oForm.ctlMonth.Top
= 2

oForm.ctlMonth.Left
= 2

oForm.ctlMonth.Visible
= .t.

oForm.Show()

? 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

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

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.

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 

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