lcNombreArchivo
= Sys(2015) + ".prg"

Strtofile(CampoMemo, lcNombreArchivo
)

Compile (lcNombreArchivo)   
&& en VFP 6 SP 3 o superior

DO (lcNombreArchivo)

ExecScript(CampoMemo) 
&&   En VFP 7

Un ejemplo como podemos
crear tablas en Word con datos de tablas de VFP, a través de
Automatización.

USE
employee

lcTemp = SYS(2015)+".txt"



COPY fields empl_id, last_name
TO (lcTemp) TYPE csv

 

lnFields = 2

 

_ClipText = chrtran(FileToStr(lcTemp),["],"")

 

erase (lcTemp)

 

#define wdSeparateByCommas 2



oWordDocument=createobject("word.application") && Create word object

 

WITH oWordDocument

              
.documents.add

        

               
WITH .ActiveDocument

                       
.Range.Paste

                       
.Range.ConvertToTable(wdSeparateByCommas,,lnFields)

               
ENDWITH

     

             
.visible = .t.

             
.Activate

ENDWITH

 

oCrypt = NEWOBJECT("_cryptapi",HOME()+"ffc\_crypt.vcx")

oCrypt.encryptSessionStreamString("Encriptando Texto","clave", @cEncryptedString)

LOCAL objXL, objXLchart, intRotate



objXL = CreateObject("Excel.Application")

objXL.Workbooks.Add

objXL.Cells(1,1).Value = 50

objXL.Cells(1,2).Value = 10

objXL.Cells(1,3).Value = 15

objXL.Range("A1:C1").Select



objXLchart = objXL.Charts.Add()

objXL.Visible = .t.

objXLchart.Type = -4100



For intRotate = 5 To 180 Step 5

     
objXLchart.Rotation = intRotate

Next



For intRotate = 175 To 0 Step -5

     
objXLchart.Rotation = intRotate

Next

oFS=CreateObject("scripting.filesystemobject")
? oFS.Drives("c:\").SerialNumber

Si quiere que nadie cambie
el tamaño de las columnas de un grid, puede utilizar esta forma.

THISFORM.Grid1.SetAll("Resizable", .F.,
"Column")

RUN COPY
 Archivo1.txt +
Archivo2.txt  Destino.txt



Otra forma seria utilizando la función
strtofile



strtofile(filetostr("Archivo1.txt") + filetostr("Archivo2.txt"),
"Destino.txt")

ofs = CreateObject("scripting.filesystemobject")

ofs.copyfolder("c:\Origen","e:\Destino")

Forma de avanzar o retroceder dentro de un grid.

Thisform.Grid1.DoScroll(2)

Thisform.Grid1.DoScroll(3)

Donde los parámetros de
este método son los siguientes:

0 Desplazamiento hacia arriba

1 Desplazamiento hacia abajo

2 Desplazamiento retroceso de página

3 Desplazamiento avance de página

4 Desplazamiento a la izquierda

5 Desplazamiento a la derecha

6 Desplazamiento página a la izquierda

7 Desplazamiento página a la derecha

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

DECLARE INTEGER GetDesktopWindow IN WIN32API

DECLARE INTEGER LockWindowUpdate IN WIN32API INTEGER lnHandle

 

hWin = GetDeskTopWindow()

 

LockWindowUpdate(hWin) 
&& Bloquea actualización de la pantalla

       REPORT FORM NombreReporte.frx TO PRINTER

LockWindowUpdate(0)      && No
actualiza la pantalla

#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)

oForm = Thisform


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

oForm.ctlMonth.Top
= 2

oForm.ctlMonth.Left
= 2

oForm.ctlMonth.Visible
= .t.

oForm.Show()