Códigos Fuente de FoxPro/Visual FoxPro

Calculadora de precios de venta para obtención de un beneficio deseado.

Tal vez calificada de simple, pero seamos sinceros... ¿Qué es lo que un comercial de ventas o de atención telefónica necesita?. Las tres preguntas, básicamente:

1. ¿A que precio vendo algo que cuesta X para obtener un beneficio de Y%?.
2. Si he comprado a x y he vendido a y ... ¿cual es el beneficio?
3. ¿A qué descuento único equivale un 50% mas un 5% mas un 2%? (por ejemplo)

Todo ello remozado con la posibilidad de fijar (en un .ini) el beneficio deseado por omisión, o de ver los resultados de un cambio en tiempo real....

He utilizado el esquema de color solarized (claro), por su "agradabilidad"

Teneis algo más de info en un txt en el zip, así como un proyecto con un lanzador (opcional porque el form es independiente)

Realizado en VFP9

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...

SQL anidado
Muestra como trabajar con código optimizado y una consulta personalizada para un usuario final.
Desarrollado en Visual FoxPro 9.0

Con este código podrás escribir código en el campo MEMO de una tabla en ejecución y hacer que un ejecutable ya complilado lo ejecute.
No se si existe otro lenguaje que pueda hacer esto sin compilar.

Ejemplo de un campo Memo:

CAMPO MEMO CLIENTES.VALIDAR

m.Variable00 = 5

1DO WHILE !EMPTY( m.Variable00)

WAIT WINDOW m.Variable00 TIMEOUT .4
m.Variable01= 'ABCD'

2DO WHILE !EMPTY( m.Variable01)

m.Variable02 = LEFT( m.Variable01, 1)
m.Variable01= SUBSTR( m.Variable01, 2)
WAIT WINDOW m.Variable02 TIMEOUT 1

1IF m.Variable02 == 'C'
WAIT WIND 'Se terminó' time 1
LOOP
1ENDIF

WAIT WIND 'Sigo' time 1

2ENDDO

m.Variable00 = m.Variable00 - 1

1ENDDO

2IF 4#4
Wait wind 'Entró 1' time 2
2ELSE
Wait wind 'No debe entrar acá'
2ENDIF

WAIT WINDOW "Proceso Terminado"


Consideraciones importantes.
Delante de las sentensias IF ELSE y ENDIF deberá colocarse un solo número para su adecuada identificación
Delante de las sentensias DO WHILE y ENDDO también.

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.

CAPTURA Y POSTERIOR VISUALIZACION DE LAS FOTOS TOMADAS CON MI PROGRAMA EN VISUAL FOXPRO

Formulario que permite que nuestros usuarios elijan ordenación, por más de un criterio, de una tabla o consulta SQL (como lo permite Excel, por ejemplo...). La salida del formulario tiene la sintaxis que precisaría una sentencia ORDER BY de SQL, convirtiéndose en muy fácil ordenar entonces por los criterios de cliente.

Es fácilmente configurable (con un archivo de texto exterior) y automatiza la selección de campos, la elección de orden (ascendente o descendente), la comprobación de repetición de criterios... etc

Se acompaña un formulario y tabla de ejemplo para la comprobación del código.....

Desarrollado en VFP9 pero no debería presentar problemas en versiones anteriores.

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