En muchas
ocasiones quieres agregar un menú edición a tus aplicaciones... esta es
una forma sencilla.

Puedes
crear un PRG y agregar estas líneas y luego ejecutarlo y listo ya tienes
tu menú edición

DEFINE POPUP _medit

DEFINE BAR _med_slcta OF _medit PROMPT __ KEY CTRL+A

DEFINE BAR _med_paste OF _medit PROMPT __ KEY CTRL+V

DEFINE BAR _med_copy OF _medit PROMPT __ KEY CTRL+C

DEFINE BAR _med_cut OF _medit PROMPT __ KEY CTRL+X

DEFINE BAR _med_undo OF _medit PROMPT __ KEY CTRL+Z

Este truco
te permitirá quitar la barra de menús de Word utilizando automatización.

oWord =
CREATEOBJECT("Word.Application")

oword.Documents.Add

oword.CommandBars("Menu Bar").Enabled = .F.

oword.Visible = .t.

A través de
automatización puedes manipular la característica que desees de Word; en
este caso mostrare el nombre de los documentos utilizados recientemente en
Word.

oWord =
CREATEOBJECT("Word.Application")



For ia=1 to oWord.RecentFiles.Count

     ? oWord.RecentFiles.Item(ia).Name

EndFor



Release oWord

Algunas
veces utilizamos OutLook para almacenar las citas de nuestros clientes;
esta es la forma de conocer las citas a través de automatización.

oOl = NewObject("outlook.application")

oMAPI = oOl.GetNameSpace("MAPI")

oCal = oMAPI.GetDefaultFolder(9)



For Each oItem in oCal.Items

      ? oItem.Subject, oItem.Start, oItem.End

Next

 

Un buen
ejemplo de como utilizar el DatePicker para mostrar el calendario.

oMyform = Create("MiCal")

oMyform.Show

Read Events

Return



Define Class MiCal As Form

      Height = 60

      Caption = "Testing DTPicker"

      AutoCenter = .T.

      MaxButton = .F.

      MinButton = .F.

      AlwaysOnTop = .T.



      Add Object odatetime As odttm With ;

      Width = 85,;

      Top = 5,;

      Height = 25



      Procedure Destroy

            Clear Events

      Endproc

Enddefine





Define Class odttm As OleControl

      OleClass = "MScomctl2.DTPicker.2"

      OleLCID = 1033



      Procedure Init

          This.Left = (Thisform.Width-This.Width)
/ 2

      Endproc

Enddefine

 

Este es un ejemplo básico pero bueno de como interactuar con una base de datos de Access desde VFP.

cStrConn = "DRIVER={Microsoft Access Driver (*.mdb)};" +;
"Dbq=C:somedata.mdb;" +;
"Uid=usuario;" +;
"Pwd=password;"

lnAccess = SQLSTRINGCONNECT(cStrConn)

If lnAccess > 0
      SQLEXEC(lnAccess, "INSERT INTO NombreTabla (campo1, campo2) VALUES(00001, 485745)")
Else
     =MessageBox("No fue posible conectarse a la Base de Datos")
EndIf
 

Muy buen
truco que permite compactar una base de datos de Access desde VFP.

oJE = CreateObject("JRO.JetEngine")



oJE.CompactDatabase("Data Source=" + "d:articulos.mdb", "Data Source="
+ "d:articulos1.mdb")



 

Los parámetros para el
método CompacDatabase son los siguientes

 

Primer parámetro

     "Data Source=" +
"ruta de la base de datos a compactar"

Nuestro
clientes piden muchas cosas (por no decir otra cosa); a unos les gusta el
preview al 100% a otros les gusta verlo al 50% ..... aquí esta la forma de
hacerlo.

Agrega el
siguiente código en el método BeforeOPenTable del dataenvironment (entorno
de datos) del reporte

ZOOM WINDOW "Report Designer" MAX

KEYBOARD "{F3}"
&&75%

*KEYBOARD "{F3}{F3}" &&50%

*KEYBOARD "{F3}{F3}{F3}"
&&25%

*KEYBOARD "{F3}{F3}{F3}{F3}" &&10%

Lo que debes hacer es
enviarle pulsaciones de la tabla F3 con la función Keyboard; cada F3
que envíes hará que el zoom del preview sea más pequeño

cCadConnDSN = "driver
= SQL Server;server=tu_server;uid=sa;pwd=sa_pw"




O

cCadConnDSN = "driver
= {SQL Server};server=tu_server;uid=sa;pwd=sa_pw"




O

cCadConnDSN = "DRIVER
= {SQL Server};" ;

+ "SERVER=tu_server;"
;

+ "UID=nombre_usuario;"
;

+ "PWD=clave_pw;"
;

+ "DATABASE=PUBS;"
;
&& Nombre de la base de datos

+
"WSID=nombre_usuario;"
;

+ "APP=''"

nHanConn =
Sqlstringconnect(m.cCadConnDSN)

If nHanConn > 0

   
=MessageBox("Conectado
a la base de datos de SQl Server")


Else

   
=MessageBox("Error
al conectarse a la base de datos de SQl Server")


EndIf

Esta es la forma más
sencilla para determinar si un equipo de la red esta encendido o si esta
disponible una determinada unidad de red.

Si la unidad esta disponible se devolverá -1 y si la unidad no existe o
esta apagado el PC entonces devolverá -1

? DISKSPACE("\\NombreServidor\C\")

En muchas ocasiones
necesitamos saber si una variable es una matriz o un array ..... aquí
están algunas formas de saberlo.

Puedes
hacerlo con la función TYPE o VARTYPE

? Type("ALEN(aMiArrayXP)")
== "N"

? Type("aMiArrayXP[1]")#"U"

? Vartype(aMiArrayXP[1])#"U"

 

Otra forma de reproducir un
archivo de sonido.... esta vez es utilizando WSH para que ejecute el
archivo.

cWav = GetFile("WAV")

oWsh = CreateObject("Wscript.Shell")

oWsh.Run("sndrec32 /play /close " + cWav ,0, .T.)

 

Esta es una
de las rutina básicas que siempre debemos tener en cuenta para validar
nuestras cadenas de texto o extraer solo los caracteres que necesitemos.

En este
ejemplo quiero extractar todos los caracteres excepto los asteriscos ( * )

? STRTRAN("8S3F292Q843*4567*0Q7S82MU-6",
"*")

De otra
forma

?
CHRTRAN("8S3F292Q843*4567*0Q7S82MU-6", "*", "")

En caso que
solo quiera extractar los números que existan en la cadena

cCadEvalua = "7U.$W592?:0-*3DE4" 
&& Cadena a evaluar

cCaraExt = "1234567890"   
&& Caracteres a extractar

? CHRTRAN( cCadEvalua, CHRTRAN( cCadEvalua, cCaraExt, "" ), "" )



 

? GetEnv("USERDOMAIN")



 

Cuando
utilizamos CursorAdapter e intentamos asignar la estructura de la tabla a
la propiedad CursorSchema y dicha estructura supera los 255 caracteres no
es posible hacerlo porque la ventana de propiedades solo

puede almacenar 255 caracteres en una propiedad.

Lo que
debes hacer es ir al evento INIT del cursoradapter y colocar la estructura
de la tabla de la siguiente forma

TEXT TO
THIS.CursorSchema NOSHOW

    Codigo C(8),
Apellidos C(30),
Nombres C(30),
Salario N(12,2)

ENDTEXT