Los códigos más visitados de FoxPro/Visual FoxPro

Programa completo con las funciones básicas de Control de Stock y Facturación, su codificación no es sofisticada pero, es efectiva. El programa en sí no es grande en tamaño, la ayuda CONTROLDESTOCK.HLP que tiene si lo es, para comprender su funcionamiento desde el programa o fuera de él ejecute la ayuda; también posee ayuda en línea. La ayuda en línea sólo la tienen algunas opciones, más precisamente las que aparecen en en el listado de las opciones de la ayuda.
Realizado en Visual FoxPro 6.0.

1.- Primer paso es crear una base de datos en un hosting. En este caso, ya cree una en SmarterASP.net con los siguientes Datos:

Servidor: 208.118.63.63
Usuario: a5a756_pruebas
Password: Poweredby1
Base de Datos: db_a5a756_pruebas

Cree una tabla llamada Clientes para efectos de este ejemplo.

2.- Descargar el Driver MySQL 5.1 para el ODBC en 32bits, ejecuta el ODBC a 32 Bits para configurar una ODBC llamada PRUEBA.

https://downloads.mysql.com/archives/get/p/10/file/mysql-connector-odbc-noinstall-5.1.13-win32.zip

Ojo "Tiene que ser una ODBC en 32 bits" teclea ODBC 32 en el buscador de WINDOWS para localizarlo.

Tu ODBC debe quedar como en la imagen anexa.



El password del usuario es: Poweredby1


3.-Crea un PRG con el siguiente Código Fuente y ejecútalo.

Como pueden ver, la función SQLSTRINGCONNECT() hace la conexión con la variable PÚBLICA CNRAM.

Si la conexión se llevó acabo entonces puedes hacer la siguiente consulta en el COMMAND WINDOW o en cualquier Forma que elabores.

Teclea por ejemplo en COMMAND WINDOW después de ejecutar el código lo siguiente:


Si la conexión se llevó acabo, entonces SQL tendrá un valor positivo...y además se ejecutará el BROWSE de un cursor llamado "CURSOR"

Pues por último les deseo la mejor de las suertes. No he podido elaborar un proyecto de prueba, pero es muy fácil después de lo que les acabo de mandar.

Saludos Cordiales.

Atentamente

Juan Martínez Mañón
www.jvsapps.com

Sistema administrativo para el control de almacén. Gestiona los repuestos, artículos, facturación, proveedores, agenda, stock, etc... (Nueva versión mejorada)
Desarrollado en Visual FoxPro 9.0

datepicker (entrada de fechas) en VFP puro y tamaño suficiente para tablets y dispositivos (Windows 8) que tienen un tamaño de pantalla pequeño (7-10") y una resolución grande (1280x800 o más..), lo que convierte enta entrada en incómoda.

Configurable en aspecto (ver el 'Init') del form datepick.

Se adjunta proyecto con ejemplo básico de funcionamiento...

Los Grid son tan potentes como 'animalitos salvajes' que a veces hay que 'domesticar'.

Mostrar las columnas de un modo visualmente agradable cuando el Grid cambia de ancho suele ser un 'caballo de batalla' muy consultado en la web.

Yo personalmente no uso la opción de 'autosizing' de las columnas habida cuenta de que no hay un control sobre la longitud máxima/mínima en función de los datos actuales (que pueden variar)

En su lugar lo que hago es ajustar tamaños a proporciones lógicas (es habitualmente más largo un nombre y apellidos que una ciudad.. por ejemplo ) y en caso de maximizado, minimizado,
redimensión del form... cambiar el tamaño de las columnas de un modo proporcional al original.

Queda visualmente muy agradable, porque puedes incluso redimensionar el formulario arrastrando y los anchos de columna parecen "flotar" para acomodarse.

Además, no implica esfuerzo en programación apenas (es básicamente un método que hay que Pegar en tu formulario, y dos llamadas)


Como usarlo:


Es realmente muy SIMPLE y requiere tres pasos básicos.

1. En el "Form", crear y pegar el contenido del método "redimension"


2. En el INIT del Form, por ejemplo, cuando ya has hecho carga y muestra del grid, llamar al método con:

THISFORM.REDIMENSION('Nombre del Grid',1)

Este proceso guarda la proporcion relativa al ancho de Grid de cada una de las columnas. Puedes hacer esto para tantos Grid como haya en el Form.

3. En el RESIZE del propio Grid, llamar al método que recalcula el nuevo ancho de cada columna ante cualquiercambio de tamaño, con:

THISFORM.REDIMENSION(THIS.NAME,2)

Obviamente este método se dispara sólo cuando el Grid se redimensiona, con lo que la propiedad 'anchor' del Grid debe ser tal que cambie su anchura cuando la del Form contenedor lo haga.

Y... ¡ nada más !

Nota: El ZIP es muy ligero. Te invito a bajarlo y ejecutar un pequeño vídeo con su funcionamiento.

Código para exportar los datos de una base de datos en VisualFox a una hoja de cálculo Excel. NOTA: Para que funcione, el proyecto debe estar en c:\exportar

Este Form VFP lo uso habitualmente en mis aplicaciones para ejecutarlo con una 'Hotkey' ante alguna necesidad o problema en casa del cliente (con una combinacion 'Ctrl'-Fn...) y poder acceder al servidor SQL, hacer consultas y cambios....etc...

Realmente ya estaba en esta Web, pero bajo la autoría de otro nombre de usuario que no utilizo realmente.

Esta versión, en cualquier caso, es la 2.0, con alguna mejora visual, algo más de información, adaptación al tamaño de pantalla de usuario ante Maximización..... etc...

Como muestra didáctica de lo que se puede llegar a ofrecer a nuestros clientes, una consulta (bastante simplificada, pero efectiva) al valor de cambio entre divisas en tiempo real.

Aunque lo le integrado como la la pestaña "Divisas" de la calculadora de precios (también en esta Web, aunque con código de hace un año), está convertido en un proyecto nuevo ya que el tema de Webservices tiene la suficiente presencia por sí solo.



Como siempre, comentaros que el código puede no ser tan óptimo como funcional. pero ahí tenéis.

PD: la búsqueda de un valor de cambio está convertida en una función en un archivo aparte por si deseáis "jugar" con vuestras aplicaciones :) [ws_divisa_1.prg]

salu2!

Código fuente de una base de datos para la gestión de personal. Contiene Foto del usuario que desee ingresar al sistema, contraseña y nivel del usuario.
Visual FoxPro 6.0

Formulario de Catastro generador con Visual Fox Pro 9, que permite realizar las operaciones basicas de ALTAS, BAJAS, MODIFICACIONES, BLOQUEOS, Y REACTIVASCIONES DE REGISTROS ojala les sirva de algo este aporte.

Lo hice yo mismo, sin la ayuda de nadie.






Saludos

2 funciones para encriptar y desencriptar un string o valor de un campo de una tabla el cual no podra ser leido en forma directa a no ser que se utilice la segunda funcion que desencripta.

Cuando uno es programador con "cincuenta y diez" años, lo de la vista.. (un "papel blanco" brillante) ya va quemando bastoncillos y conos .

VFP permite trabajar con colores definidos, pero de esa paleta reducida de "colores con nombre" que va arrastrando históricamente.

Sin embargo en el registro del sistema se almacenan como ternas RGB y nada impide poner cualquier valor válido.

En la Web se puede ver como alterarlos. Generalmente creando un .REG o escribiendo en el registro,pero esto obliga a experimentar combinaciones previamente, crearse el archivo...

Me hice esta rutina para poder disfrutar de esquemas tipo 'SublimeText' y cmbiarlos instantáneamente. No cambio el font (a mi me sirve el default) ni nada más allá de la edición. En esa clave del registro hay muchas "cositas" de índole funcional y estética. pero para mí lo primero es tener un tema cómodo y relajante.

El programilla permite:

1. Leer los valores actuales (de paso podeis ver como trabajar con "registry.vcx"
2. Modificarlos, y ver un ejemplo antes de aplicar.
3. Grabarlos como .REG para tener varias preferencias y de poder hacer doble click directamente en el sistema...
4. o... imputarlos directamente en el registro de Windows desde la utilidad.

Era una herramienta de uso propio... que espero que os guste


NOTAS

- Proveo VCX, pero ya sabeis que de todos modos es FOUNDATION CLASS

- Pido la versión VFP simplemente para ajustar la clave de registro correctamente

- Como siempre digo, puede no ser código óptimo,pero si funcional (por favor, entended que era simplemente "una herramienta")

- Si alguna vez os "asustais" podeis dar al botón "Reset all" en el propio VFP (Opciones->Editor). Tambien podeis capturar y guardar las opciones por defecto para volver a ellas cuando deseeis.



Baldo martorell
http://www.baldoweb.es

Función que convierte un valor númerico es su equivalente en letras. Limitado a un valor no superior a 999,999,999,999.99

El uso cada vez más frecuente de imágenes hace que sea habitual la necesidad de selección de estas por parte de nuestros usuarios.

drag & drop está... 'ahí' pero más de un usuario programador me ha confesado un cierto... 'respeto'.

Nada más fácil...

Aquí tenéis un formulario que explica (he intentado llenar el código de anotaciones) como hacerlo fácilmente. Uno de las consultas se refería a como gestionar qué tipo de archivos dejo arrastrar y procesar..

Echad un vistazo al código. Vereis que es sencillo...

Espero que os ayude...

Dada dos fechas diferentes; en formato DateTime, esta función devuelve el tiempo transcurrido entre ambas en una sola cadena de texto. Indicando, años, meses, semanas, días, horas, minutos y segundos.
Observa que se toma en cuenta el singular del plural en las cantidades mayores a 1.

Saludos y comenten!

Completo sistema administrativo-contable, donde puedes gestionar los proveedores, clientes, comprobantes y el IVA.
Desarrollado en VFP 9 SP2

Este proyecto permite crear usuarios y crear grupos de usuarios, a los grupos de usuarios se le asignan roles, los cuales no son mas que los accesos o permisos que tendrán los usuarios a cada uno de los formularios del sistema; luego estos roles pueden ser asignados a los usuarios y luego ser modificados y personalizados.
Todo ello, desde el mismo sistema y sin escribir, ni modificar una sola línea de código y sin volver a compilar el proyecto.

Una vez asignados los accesos a un usuario, cuando este intenta cargar un formulario a través del menú del sistema una función evalúa el nivel de acceso que tiene asignado y determina si el usuario tiene permisos para consultar o ver el formulario, de lo contrario, deniega el acceso del mismo, si cuenta con los permisos para cargar el módulo otra función dentro del formulario se encarga de habilitar/deshabilitar los objetos a los que puede tener acceso de acuerdo al nivel de acceso que tenga asignados.
Vea la documentación en pdf incluida para más información y detalles.
Desarrollado en Visual FoxPro 9 SP1

Sistema de control de documentos.
Debe de copiarse en c:\MesaFox. El password de la aplicacion es 101.

Sencillo Programa que Despliega un GRID desde una Tabla llamada GRUPO.DBF de una Base de Datos llamada DATA_SICC.DBC a través de un Código Fuente LIBGRID.PRG en Visual Foxpro

Código fuente de una agenda personal de contactos, donde permite poner imágenes y realizar reportes con imágenes
Desarrollado en Visual FoxPro 9.0

Menú "Android" desarrollado en VFP (9), aunque... sin problemas supongo en otras versiones,
basado en la idea (un gran trabajo) de Marc Howard Orozco Polo, Barranquilla (Colombia). Un
código que podéis encontrar en "La Web del programador" también...

El código está reescrito desde cero, evitando cualquier librería externa de apoyo, para que
lo único necesario sea el screen y los iconos que se utilicen. También he evitado cualquier
control Timer, simulando el "desplazamiento en cortina" sin él :)

Se ha diseñado de acuerdo a "material-designs" de Android. De hecho puedes pulsar el enlace en el ejemplo que te llevará hacia las especificaciones Google sobre 'material design'. En esta misma página, tienes todos los iconos que utiliza Android, las paletas de colores, consejos de diseño... etc.

Este pequeño programa se puede utilizar como el programa Inicio de la Aplicacion EXE o APP.
Oculta la Ventana de VFP. Permite que el Programa quede residente en Memoria. (Visual FoxPro)

Código para Visual FoxPro 9 (ServicePack 1) que calcula el dígito verificador del RUC para Paraguay.

Procedimiento para enviar por mail usando CDO de Microsoft, pero usando una cuenta Gmail
con posibilidad de construir un mensaje en HTML

codigo, que se puede usar en Clipper y Visual Fox Pro, para la conversión de Numeros a Letras.
Como pueden ver es un procedimiento, pero pueden cambiar Procedure por Function y tendrian una función.

Código que toma un archivo de Excel el cual con una sola columna conteniendo un listado de personas entrega otro archivo en Excel, separando nombres y apellidos.
El programa separa uno a uno los elementos que conforman un nombre en cada linea y busca en una tabla conteniendo solo nombres (no apellidos) y así hace la separación, la exactitud del resultado la da la calidad de la información de la tabla, lo que no aparezca en esa tabla es considerado apellido. La ultima columna en el archivo Excel generado, facilita la revisión al colocar un carácter indicando posibles errores.

Este excelente código, te permite crear un código de barras de multitud de formatos (por no decir todos), colores y fuentes... y este mismo, exportarlo a Imagen, imprimirlo o copiarlo al portapapeles.

Ejemplo práctico de cómo hacer un catalogo de cuentas usando el objeto treeview. Permite crear los niveles deseados así como enlazar los datos de las cuentas a texbox.
Desarrollado con Visual FoxPro 9.0.

Quizá esto os pueda ayudar.

Tuve necesidad por un cliente de mostrar pasillos en su (inmenso) almacén para que al menos el interesado se aproximara a la zona (y planta, porque el edificio tenía dos alturas).



El comienzo fue "hard-codeo" puro pero, al hacer cambios de distribución constante me planteé el que el esquema fuera configurable.

Así que... aqui está: Un sistema basado en Una tabla (TMPLANO0.DBF) que contiene definición de las zonas (rectángulos) y sus datos de posición (X/Y), anchura y altura. Al final puede ser útil en una empresa como en un evento (imaginad el plano de mesas de una fiesta, una boda...)



El sistema es simple (lanzad el Form "MUESTRA_PLANO": la tabla comentada contiene la i nformación de las áreas, que se muestran como objetos (definidos en "PLANO_OBJ.VCX"). Estos objetos son objetos del formulario, con lo que al haber dos planos (planta baja y primera planta, por ejemplo) se coloca "por debajo de los objetos" un pageframe que contiene pestañas con los diferentes mapas (en el ejemplo 2, pero podeis aumentarlo hasta vuestra necesidad). Lo único que hay que hacer es ir mostrando/ocultando objetos en función de la página del frame que en ese momento hay en pantalla.



Hay dos objetos definidos:

- Zona (el rectángulo)
- Punto (algo así como el "Pin" de Google, para una definición pás exacta ("Vd. está aquí")

Si quereis dar este servicio cerrado a cliente, solo debeis aportar la tabla con las def iniciones propias de cliente, el form de muestra (MUESTRA_PLANO) y otro que simplemente es para mostrar un grid con los diponobles ("consulta_planos")

Para vuestra comodidad (o aportarlo a cliente en su caso), teneis un Form configurador de las zonas y guardado en tabla (MTO_PLANOS).



Por favor, tomad esto como 'lo que es'. Una herramienta creada ante la necesidad.

Puede que el código no sea óptimo, lo sé, pero ser conscientes de mi simple ánimo de dejar aquí la 'semillita'. Por supuesto, el código es mejorable, pero os aseguro que tal y como está, ya funciona.


Un saludo a toda la comunidad
Baldo Martorell
[email protected]
http://www.baldoweb.eu

Un modo común a muchos lenguajes y OS para buscar texto por patrones son las expresiones regulares (Regex)...

La función REGEXBM os ayuda a utilizarlas en VFP… al ser un un ‘ parser’ del VbScript correspondiente al motor de evaluación de expresiones 'Regex' y devuelve .T. o .F. (para aceptación o rechazo de lo introducido) o los valores de coincidencia (al gusto del programador). Comprobar si el texto que introduce el usuario tiene aspecto de ina IP, un email o una contraseña específica en cuanto a longitud, mayusculización...etc se convierte en una simple llamada a la función con los parámetros concretos.

Dos o tres comprobaciones de patrones que me he visto obligado a usar en mis programas, están ya predefinidas para que no tengáis que definir el patrón, sino unas palabras clave (‘es_url’, ’es_ip’, ’es_mail..’ ). Hay un PDF de ayuda en los archivos.

Como una imagen vale más que mil palabras, acompaño con la función, un form comprobador de expresiones. De este modo podéis comprobar lo fácil que es invocar a REGEXBM, y de paso… os puede servir para llegar al patrón correcto que deseáis diseñar…

Espero que os sea útil.