Informatica

LOS TRUCOS AQUI MOSTRADOS HAN SIDO RECOPILADOS DE VARIAS PAGINAS Y NO SON PROPIEDAD INTELECTUAL DEL AUTOR DE ESTE BLOG, HAN SIDO RECOPILADOS CON EL FIN DE QUE SIRVAN COMO AYUDA A MUCHOS PROGRAMADORES.
Mostrar un reporte dentro de un formulario
Excelente truco con el cual podrás mostrar tu reporte en un formulario.
oRep =Createobject("Form")
With oRep
.Caption= "Titulo del Reporte".WindowState= 2
.Show()
Endwith
Report Form MiReporte.frx Preview Window (oRep.Name)

Hacer que hable el PC
Excelente truco que utiliza el objeto COM SAPI que viene con WinXP el cual "pronuncia" lo que le escribas.
oVoz = CreateObject("SAPI.SpVoice")
oVoz.Speak("Visual fox Pro")
oVoz.Speak("Lo mejor")

Extraer información de los MP3
Quieres conocer la información de los archivos MP3 ?? ...autor, titulo, álbum, año ...

lnFile = Fopen(Getfile())

Fseek(lnFile, -128,2)
lcTag = Fread(lnFile, 128)

? "Titulo: ", Strtran(Substr(lcTag,4,30), Chr(0))
? "Artista: ", Strtran(Substr(lcTag,34,30), Chr(0))
? "Album: ", Strtran(Substr(lcTag,64,30), Chr(0))
? "Año: ", Val(Substr(lcTag,94,4))

Fclose(lnFile)

Suprimir ventana "Imprimiendo" en VFP 8
Uno de las nuevas característicasincorporadas en VFP 8, si deseas puedes impedir que se vea la ventana "Imprimiendo" que se muestra cuando ejecutas un reporte.
Report Form NombreReporte To Printer Prompt NODIALOG Preview

Nombre del dominio en que se logeo el PC
p align="justify">Un pequeño truco para cuando quieras determinar en que dominio se logeo un determinado PC.
? GetEnv("USERDOMAIN")

Determinar si una unidad dered esta disponible
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\")

Compactar base de datos de Access desde VFP
Muy buen truco que permite compactar unabase 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"
Segundo parámetro
"Data Source=" "ruta de la nueva base de datos compactada"Insertando registros en Access desde VFP
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

Imprimir el contenido de un RTF
El RTF es un control ActiveX que permite dar características al texto al estilo de Word. En el ejemplo se muestra como imprimir el contenido de este ActiveX.
Para imprimir el contenido debes utilizar el método SelPrint del control RTF ...
With Thisform.Rtf
.selstart=1.sellength=len(.textrtf)
.selprint

Desplegar el Contenido de un Combo
En ocasiones queremos conocer el contenido de un ComboBoX sin hacer click en él, solamente a lo que él recibe el enfoque. Esta es la forma más fácil de hacerlo.
KEYBOARD _{F4}_
En este caso agregamos este código al evento GOTFOCUS( ) y cuando el Combo reciba el enfoque entonces este se desplegara mostrando la información contenidas enél.

Desplegar un ComboBox al recibir el Enfoque II
En realidad muchas veces deseamos hacer esto, pero lo pensamos bastante y no encontramos la forma de hacerlo. Por fin aquí esta su implementación.
Crea un formulario y agrégale un Combo y un Botón. Al hacer click en el botón debe desplegarse automáticamente el Combo.
Programa lo siguiente en el evento Gotfocus del Combo
tColumna =...