Bienvenido y disfruta el nuevo diseño del sitio web.... agradecería me envíes tus comentarios acerca de los cambios realizados

Para descargar cualquier archivo es necesario estar registrado y hacer click en el titulo del archivo a descargar

Comprimir fácilmente y profesionalmente con el PKZIP

Visual Fox Pro, Trucos Comentarios ( 0 ) »

Uno de los temas de mayor consulta en mi correo. Esta truco te permite
comprimir y descomprimir archivos fácilmente usando PKZIP. Puedes omitir la
pantalla de DOS con un truco anterior.



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



Este truco te permite comprimir archivo de de forma fácil, el carácter & te
permite agregarle soporte de Spanning; es decir, si estas comprimiendo en un
Diskette y el espacio no es suficiente, entonces el mismo te pedirá otro
diskette.





Por: David Amador T

Directorios especiales de Windows sin API

Visual Fox Pro, Trucos Comentarios ( 0 ) »
Existen algunas formas sencillas y sin
mucho código para conocer los directorios principales de
Windows y son funciones propias de VFP
.



?GETENV("temp") && Directorio de archivos temporales


?GETENV("windir")  && Directorio de Windows


Por: David Amador T

Agregar imagen al _Screen

Visual Fox Pro, Trucos Comentarios ( 0 ) »
En ocasiones queremos que en el fondo de
nuestras aplicaciones, es decir en el _screen se vea el logo
de nuestro programa o de la empresa. Este es un buen truco
para personalizar las aplicaciones.


_screen.addobject("oImg",
"image")

_screen.oImg.picture = "c:\imagen.jpg"

_screen.oImg.visible = .T.

_screen.oImg.stretch = 1

_screen.oImg.width = 640

_screen.oImg.height = 400


Por: David Amador T

Agregar Timer al _Screen

Visual Fox Pro, Trucos Comentarios ( 0 ) »

Este es uno de los trucos más solicitados a mi email, con Este truco podemos
hacer que cada cierto tiempo se consulte una tabla de mensajes

Para usuarios en red o chequear Para revisar si tenemos nuevo correo...en fin.



_Screen
.AddObject("oTime","TimerScreen")



* Definicion de la Clase TimerScreen

* Muestra un Reloj en un Wait Window

* Este se actualiza cada un segundo



Define Class
TimerScreen
As Timer

   
Interval
= 1000


    Procedure Timer

       
Wait Window
(Time())
Nowait

   
EndProc

EndDefine







Por: David Amador T

Pasar parámetros a Ejecutables

Visual Fox Pro, Trucos Comentarios ( 0 ) »
En antiguos programas de MSDOS veíamos
que a estos les pasábamos datos desde la línea de comandos;
bueno también es posible que un programa de VFP acepte parámetros
pasados desde la línea de comandos.


Primero debes agregar al prg principal en
la primera línea


PARAMETERS uParam1, uParam2, uParam3


El código anterior se encargara de recoger
los parámetros pasados como argumentos desde la línea de comandos; en
este caso sólo recogerá tres parámetros


Cuando ejecutes el programa debes pasar los
parámetros de la siguiente manera; teniendo en cuenta que todos son leídos
por el ejecutable como tipo carácter, es decir, si le pasas el número 80
el ejecutable lo leera como "80" de tipo carácter


C:programa.exe Para1 200 Para3


Por: David Amador T

Ejecutar Protector de pantalla sin API

Visual Fox Pro, Trucos Comentarios ( 0 ) »
Existen diferentes formas de ejecutar un
protector de pantalla especifico, esta es de las más sencilla



RUN /N nombreprotector.scr
/S


Por: David Amador T

Cambiar teclas pulsadas

Visual Fox Pro, Trucos Comentarios ( 0 ) »

Si quieres volver loco a cualquier
persona utiliza este truco; cuando por ejemplo presionas la
letra a entonces te muestra
x.


If inlist(nKeyCode, 97,
65)

   nodefault

   keyboard "X"

EndIf


Por: David Amador T

Limitar el numero de caracteres que puede introducir el usuario en un TextBox o EditBox

Visual Fox Pro, Trucos Comentarios ( 0 ) »
Si queremos configurar el
número máximo de caracteres que se pueden introducir en los Tetbox y
Editbox.



Tanto el EditBox como el TextBox incorporan la
nueva propiedad MaxLength donde podemos indicar el número máximo de
caracteres que se pueden introducir. Esta propiedad anula a InputMask.
También tenemos que tener en cuenta que sólo es válida para caracteres y
no para números. Para estos deberemos seguir utilizando la técnica de
poner dentro del InputMask tantos 9 como dígitos. 


Por: David Amador T

Anclar la Barra del Preview de Reportes

Visual Fox Pro, Trucos Comentarios ( 1 ) »

Cuando ejecutamos un reporte y este
muestra la barra de Preview, muchas veces deseamos colocarla
anclada al resto de barras.


Primero
ejecutamos el reporte con la cláusula tradicional:


Report
Form nombrereporte.frx preview nowait



If
wexist("Print Preview")


  
 move window _Print Preview_ to 10,10


  
 mouse dblclick at 11,11


Endif

Por: David Amador T

Cambiar propiedades de los reportes desde código

Visual Fox Pro, Trucos Comentarios ( 0 ) »

Podemos manipular las
propiedades de un formulario desde código.


Como sabemos un reporte no
es más que una tabla donde se almacenan los objetos y las propiedades de
estos que luego son invocados por el Dataenvironment.


Bueno para cambiar las
propiedades de los reportes desde código debemos abrir el reporte como
una tabla:


USE nombrereporte.frx 

REPLACE fontface with "Verdana", fontsize WITH 10, fontstyle
WITH 1 FOR objtype = 1



Con esto ponemos como predeterminado la fuente Verdana a 10 puntos y
negrilla, si en fontstyle ponemos 0 tendremos letra normal.


Por: David Amador T

Agregar datos de un cursor a una Tabla

Visual Fox Pro, Trucos Comentarios ( 0 ) »

Este
es un truco bastante importante y sencillo; su aplicación es determinante
cuando queremos agregar los datos a una tabla mostrados en
un cursor


APPEND FROM DBF(_nombre_cursor_)


Por: David Amador T

Obtener el nombre de las tablas contenidas en una Base de Datos

Visual Fox Pro, Trucos Comentarios ( 0 ) »
Para
realizar algunos procesos necesarios de las bases de datos
debemos conocer los nombres de las tablas contenidas en ella.
Por ejemplo a la hora de querer reindexar cada tablas de la B.
D


OPEN DATABASE c:Ruta_Base_de_Datos.dbc

cNomTablas = ADBOBJECT(infVector, "TABLE")

FOR EACH cNomTablas IN infVector

    ? cNomTablas

ENDFOR


 


Por: David Amador T

Quitar acentos de una cadenas de caracteres 

Visual Fox Pro, Trucos Comentarios ( 0 ) »
Algunas veces los acentos son algo molestos
y nos causan inconvenientes, sobre todo al momento de realizar
búsquedas dentro tablas


lCadena = "El
amor es el perdón más fácil"


? CHRTRAN(lCadena, "áéíóúáéíóú",
"aeiouAEIOU")

Por: David Amador T

Impedir que un formulario se cargue al ejecutarse

Visual Fox Pro, Trucos Comentarios ( 0 ) »
En ocasiones se utiliza como remedio para
prevenir que se ejecute múltiples veces un formulario.


En el Evento Init( ) del formulario se
devuelve .F. y el formulario no se cargara


Método Init ( )


   Return .F.


Por: David Amador T

Borrar archivos fácilmente

Visual Fox Pro, Trucos Comentarios ( 0 ) »

Una
forma sencilla de borrar archivos sin complicaciones.


ERASE *.tmp


Por: David Amador T