Puedes hacer que tu PC se
apague con doble clic, para ello deberás crear un icono que te permita
hacer esta función, para realizar este truco sigue estos pasos:

Haz clic con el ratón derecho en una zona libre del Escritorio y luego
selecciona Nuevo y Acceso directo.

En la ventana del acceso directo debes escribir shutdown -s -t 00 y pulsa
el botón Siguiente, después le pones el nombre que quieras al acceso
directo y pinchas el botón Finalizar.

 

Si quieres dejar algo de
tiempo para cerrar las aplicaciones debes poner esto shutdown.exe -s -t 12
de esta forma dejarás un margen prudencial de 12 segundos para apagar el
PC.

Cuando realizas
automatización con Excel y deseas manipular los libros de un documento
debes conocer el nombre de estos. Este truco te explica como hacerlo.

Primera
forma:

oExcel =
Createobject("Excel.Application")

oExcel.Workbooks.Open(GetFile("XLS"))



For Each oSheet In oExcel.Sheets

      ? oSheet.Name

Endfor

oExcel.ActiveWorkbook.Close()

oExcel.Quit()

Segunda forma

oExcel = Createobject("Excel.Application")

oExcel.Workbooks.Open(GetFile("XLS"))



For ln_Loop = 1 To oExcel.Sheets.Count

     oSheet = oExcel.Sheets[ln_Loop]

     ? oSheet.Name

EndFor



oExcel.ActiveWorkbook.Close()

oExcel.Quit()

 

Esta es la forma de conocer
a que base de datos esta vinculada una tabla sin invocar la función INDBC().

Las tablas internamente
almacenan las características de estas, por ejemplo el
número de campos, el tipo de tabla, en fin. En este ejemplo vamos a
conocer la base de datos a la que esta vinculada la tabla seleccionada por
el usuario.

Local cArchivo, cBD



cArchivo=Fopen(Getfile("DBF"))



If cArchivo==-1 THEN

      
=Messagebox("El archivo se encuentra abierto ... acción no realizada")

Endif



=Fseek(cArchivo,32)

Do While !Feof(cArchivo)

     If Asc(Fread(cArchivo,1))==13
THEN

        
cBD=Fread(cArchivo,264)

        
Exit

     Endif

EndDo



=Fclose(cArchivo)

If Type("cBD")= "C" THEN

    =MessageBox(Trim(cBD))

Endif

A través de este truco
podrás saber fácilmente si un archivo determinado existe dentro del
proyecto abierto actualmente.

En este
caso quiero buscar los archivos cuyo nombre contenga la palabra "descu".

FOR EACH o IN _VFP.ActiveProject.Files

    IF "descu"
$ o.name

         ?
o.name

    EndIf

NEXT



 

Con este
código podrás conocer el número de celdas y columnas utilizadas por un
documento de Excel.

oE = CreateObject("Excel.Application")

oE.Workbooks.Open(Getfile("XLS"))



?oE.ActiveSheet.UsedRange.Rows.Count

?oE.ActiveSheet.UsedRange.Columns.Count



 

Existen
diversas formas de conocer si una propiedad existe en un objeto. Aquí te
muestra algunas formas.

Puedes
hacerlo con Type

If Type("Thisform.Text1.Value")
# "U"

    =Messagebox("La propiedad existe")

Else

    =Messagebox("La propiedad no existe en el objeto")

EndIf



Con Vartype



If VarType(Thisform.Text1.Value) # "U"

    =Messagebox("La propiedad existe")

Else

    =Messagebox("La propiedad no existe en el objeto")

EndIf

La diferencia entre TYPE y
VARTYPE es que en esta ultima el objeto a evaluar no se encierra entre
comillas y además de eso que Vartype realiza esta comprobación de forma
más veloz.

Con
PemStatus

If
PEMSTATUS(Thisform.Text1, "Value", 5)

    =Messagebox("La propiedad existe")

Else

    =Messagebox("La propiedad no existe en el objeto")

EndIf

Cuando
realizamos algunos cálculos queremos colocar entre paréntesis aquellos que
sean negativos; puedes hacerlo de la siguiente forma.


Num = -1

Num =Iif(Num<0,"(" + Alltrim(Str(-Num,10,2))+")",Alltrim(Str(Num,10,2)))

? Num

oForm = Createobject("Grafico")

oForm.Show(1)

Define Class Grafico
As Form

   
Add Object oChart
As OleControl
;

   
    WITH OleClass="MSChart20Lib.MSCHart.2",;

       
Top=0,
Left=0,;

       
Width=This.Width,
Height=This.Height



   
Procedure Init

       
Local lnCounter



       
With This.oChart.Object

           
.RowCount = 12

           
.RowLabelCount = 1

           
.Title.Text="Ejemplo
de Grafico"

           
.ColumnCount
= 1

           
.ChartType=1

           
.Column
= 1

           
Rand(-1)



           
For
lnCounter =1
To
12

               
.Row
= lnCounter

               
.RowLabel = 0 + lnCounter

               
.Data
=
Rand()*100

           
EndFor

       
EndWith

   
EndProc

EndDefine