• Viernes 3 de Mayo de 2024, 06:00

Mostrar Mensajes

Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.


Mensajes - jvankarloz

Páginas: [1]
1
Visual FoxPro / Re: Imagen De Fondo Para Un Formulario
« en: Viernes 15 de Diciembre de 2006, 15:55 »
Te envío un ejemplo, espero sea lo que busacabas...

2
Visual FoxPro / Re: Validar El Textbox
« en: Viernes 15 de Diciembre de 2006, 15:41 »
Normalmente para el tratamiento de números es mejor usar el control Spinner, pero en tu caso sólo tienes que manipular la propiedad InputMask del textbox, especificando cadenas de entradas de números, por ejemplo: "99 999.99", etc.

3
Visual FoxPro / Re: Listas Desplegables
« en: Jueves 5 de Octubre de 2006, 16:03 »
Los combobox son multifuncionales ya que no sólo sirven para mostrar datos de tablas, si te fijas en la ayuda te darás cuenta de ello.
Tendrías que ser más específica en cuanto a tu pedido.

4
Visual FoxPro / Re: Listas Desplegables
« en: Martes 3 de Octubre de 2006, 16:52 »
Suponiendo que debas mostrar datos de la tabla NOMBRES y debes poner los valores del campo "nombre" sin que se repitan en el combo cboNombres

SELECT NOMBRES
IF !BOF() .AND. !EOF()
   THISFORM.cboNombres.AddItem( NOMBRES.nombre )
   SKIP
   DO WHILE !EOF()
      IF !THISFORM.BuscaNombre( NOMBRES.nombre )
         THISFORM.cboNombres.AddItem( NOMBRES.nombre )
      ENDIF
      SKIP
   ENDDO
ENDIF

La función BuscaNombre se encarga de buscar los nombres que van siendo añadidos al combo si encuentra uno que ya existe devuelve .T., en caso contrario devuelve .F. y se añade al combo con el método AddItem, el código de la función BuscaNombre puede ser este:

PARAMETERS cNombre
LOCAL lReturn, k, n

lReturn = .F.
n = THISFORM.cboNombres.ListCount

IF n > 0
   FOR k = 1 TO n
      IF cNombre = THISFORM.cboNombres.List( k )
         lReturn = .T.
         EXIT
      ENDIF
   NEXT
ENDIF

RETURN( lReturn )

5
Visual FoxPro / Re: Ayuda Por Favor
« en: Jueves 21 de Septiembre de 2006, 15:58 »
Si el formulario activo tiene la propiedad WindowType en modal todo el menú se inhabilita, en el caso contrario tendrás el menú completamente habilitado.
Si sólo quieres habilitar o inhabilitar ciertos items del menú usa el comando SET SKIP OF..., o indicar alguna acción en Skip For de la caja de diálogo "Prompt Options" de las opciones de menú.

6
Visual FoxPro / Re: Sistema De Empleados Con Foto
« en: Lunes 21 de Agosto de 2006, 17:07 »
No es aconsejable guardar imágenes en una tabla, debido a que las mismas ocupan mucho espacio y con el tiempo se vuelven algo inestables.
Si usas Visual Fox 8, sólo te quedaría la opción de manejarlas a través de un campo general, en el caso del Visual Fox 9, tienes una mejor opción que son los campos de tipo BLOB.

* unas cuantas líneas para darte una idea para guardar
* una imagen en un campo de tipo BLOB, puedes poner
* este código en el evento Click de un botón
LOCAL cFile

* buscamos la imagen en disco
cFile = GETPICT()

IF !EMPTY( cFile )
  * reemplazar en el campo tipo BLOB lamado "foto"
  REPLACE foto WITH FILETOSTR( cFile ) IN IMAGEN
ENDIF

* luego en un formulario inserta un control "Image"
* y para mostrar la imagen del campo "foto" en el puntero activo
* usas la propiedad "PictureVal"
THISFORM.image1.PictureVal = IMAGEN.foto

Bueno, finalmente se puede hacer en Visual Fox, pero lo mejor es que las fotos escaneadas las guardes en una carpeta o directorio y luego uses un control "Image" para mostrarlas del disco mediante la propiedad "Picture"

7
Visual FoxPro / Re: Contar Registros De Una Tabla
« en: Miércoles 16 de Agosto de 2006, 19:04 »
Algo más fácil y según el nivel de tu pregunta sería:


LOCAL nBlancos

CALCULATE CNT() FOR EMPTY(margesi) TO nBlancos IN INVENTARIO

THISFORM.txtBlancos.Value = nBlancos

8
Visual FoxPro / Re: Cambiar Color En Pageframe
« en: Sábado 5 de Agosto de 2006, 17:36 »
Algunos objetos en Visual Fox muestran características diferentes para Windows XP, Fíjate en la propiedad Themes del frame, cambia su valor y podrás establecer algunas propiedades tal como se hacía en el Windows 98.

Páginas: [1]