Códigos Fuente de FoxPro/Visual FoxPro

Mostrando del 1 al 10 de 120 registros
<<>>
Imágen de perfil
Val: 213
Bronce
Ha mantenido su posición en FoxPro/Visual FoxPro (en relación al último mes)
Gráfica de FoxPro/Visual FoxPro

Comprobacion de sintaxis en grupos de correo (RFC)


FoxPro/Visual FoxPro

Publicado el 22 de Abril del 2022 por Baldo (14 códigos)
155 visualizaciones desde el 22 de Abril del 2022
Esta rutina corresponde a una necesidad laboral. Si os sirve pues... ¡ya está hecha!

El asunto es que se puede necesitar un grupo de direcciones de correo electrónico válidas para un envío automatizado (en mi empresa se envian, por ejemplo, los pedidos a proveedor). Correos del tipo [direccion1] [direccion2]... [direccion(n)]...

El verdadero tema es que aunque se podría restringir la entrada a nivel de INPUT, hay que ser especialmente cuidadoso con la corrección en la sintaxis. Además puede que haya que tener presente que distintas rutinas pueden usar distintos separadores (Uso chilkat, por ejemplo, y el separador es "," y no ";"). Para más dificultad, uso direcciones importadas de ficheros externos...

Se hace precisa una rutina que analice el grupo de correos y conforme una cadena correcta, con el separador correcto, de direcciones correctas.

Una expresión REGEX estaría bien. Pero es un tema complicado en demasía. Lo ideal es que se pudieran discriminar direcciones correctas (del tipo [email protected]) sin que se le escape nada (una arroba y un punto al menos, y éste tras la arroba, un dominio de al menos 2 caracteres,ausencia de caracteres especiales...), que además distinga cualquier separador habitual (",",";",[TAB]) y que conforme una lista esperada por nuestra rutina. Es (muy) complicado y tema de petición de ayuda constante (https://stackoverflow.com/questions/4351349/regular-expression-for-delimited-email-address)

VFP es especialmente "plástico" a la hora de tratar cadenas... ¿Por qué no usarlo?)

Por ello he creado esta función:

mail_correcto([cadena],[separador_salida])

Tan simple como parece. Enviamos una cadena, analizamos corrección de los datos y retornamos SOLO LOS EMAIL VALIDOS separados por el [separador_salida].

Lo bueno es que ya nos podemos permitir seguir las estrictas normas (RFC2821 y RFC2822).
Teneis información en: en https://www.jochentopf.com/email/chars.html

La entrada puede tener separadores coma, punto y coma, espacios o [TAB] mezclados. Lo bueno es que al separar sólo correos, textos que me encuentro en ocasiones como "[email protected] (administración)" o similares son parseados correctamente.

Podeis echar un vistazo. Vereis una cadena de "caracteres restringidos" que podeis variar a voluntad si dado el caso (servidor UNIX, uso de caracteres especiales por alguna razón...) no necesitais filtrarlos (yo por defecto hago caso a las recomendaciones de "aunque es válido, mejor no lo uses")

Para el caso de querer simplemente COMPROBAR que los correos incluídos en la cadena son correctos (para avisar a usuario...etc) he incluído una variante que simplemente reporta un .T./.F. si algún correo no es correcto (realmente si alguna palabra no tiene pinta de correo)

mail_correcto_tf([cadena])

Adjunto un Form que simplemente lanza las rutinas para que experimenteis con ellas.

Un saludo.
Screenshot_002
Imágen de perfil
Val: 213
Bronce
Ha mantenido su posición en FoxPro/Visual FoxPro (en relación al último mes)
Gráfica de FoxPro/Visual FoxPro

Herramienta de consulta VisualFox a SQLServer


FoxPro/Visual FoxPro

estrellaestrellaestrellaestrellaestrella(10)
Actualizado el 24 de Marzo del 2022 por Baldo (14 códigos) (Publicado el 23 de Noviembre del 2014)
17.419 visualizaciones desde el 23 de Noviembre del 2014
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...
sin imagen de perfil
Val: 309
Bronce
Ha mantenido su posición en FoxPro/Visual FoxPro (en relación al último mes)
Gráfica de FoxPro/Visual FoxPro

Cerberus


FoxPro/Visual FoxPro

Publicado el 23 de Febrero del 2022 por Santiago Juan
242 visualizaciones desde el 23 de Febrero del 2022
Provee los datos de las personas vacunadas en Perú, son más de 38 millones de personas vacunadas.
También controla el aforo de cualquier negocio.
Esta hecho todo sobre el _screen, sin usar ningún formulario.

Si tiene alguna duda o pregunta pude comunicarse [email protected]

Sr. Santiago Scheppmann

PD. el archivo comprimido es muy pesado y demora mucho en subir, envíenme sus email y se los envío por WETRANSFER.
Imágen de perfil
Val: 213
Bronce
Ha mantenido su posición en FoxPro/Visual FoxPro (en relación al último mes)
Gráfica de FoxPro/Visual FoxPro

Colores tipo Sublimetext en edición


FoxPro/Visual FoxPro

estrellaestrellaestrellaestrellaestrella(4)
Actualizado el 13 de Diciembre del 2021 por Baldo (14 códigos) (Publicado el 19 de Febrero del 2020)
3.175 visualizaciones desde el 19 de Febrero del 2020
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


base
ejemplo-VFP
ejemplo_1
ejemplo_2
ejemplo_3
doble_click
Imágen de perfil
Val: 213
Bronce
Ha mantenido su posición en FoxPro/Visual FoxPro (en relación al último mes)
Gráfica de FoxPro/Visual FoxPro

datepicker para tablet


FoxPro/Visual FoxPro

estrellaestrellaestrellaestrellaestrella(18)
Actualizado el 12 de Noviembre del 2021 por Baldo (14 códigos) (Publicado el 22 de Noviembre del 2014)
14.968 visualizaciones desde el 22 de Noviembre del 2014
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...


datepicker
Imágen de perfil
Val: 9
Ha disminuido su posición en 9 puestos en FoxPro/Visual FoxPro (en relación al último mes)
Gráfica de FoxPro/Visual FoxPro

Conexión a Base de Datos MySQL remota desde VFP


FoxPro/Visual FoxPro

Publicado el 14 de Abril del 2020 por Juan
4.109 visualizaciones desde el 14 de Abril del 2020
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.

connect

El password del usuario es: Poweredby1


3.-Crea un PRG con el siguiente Código Fuente y ejecútalo.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
PUBLIC cnram as String
**-Define the DNS connection​
_dsn="Prueba;"
_server="208.118.63.63;"
_UID="a5a756_pruebas;"
_PWD="Poweredby1;"
_Database="db_a5a756_pruebas;"
_Port="3306"
**
dsn_="DSN="+_dsn+"SERVER="+_server+"UID="+_uid+"PWD="+_pwd+"DATABASE="+_Database+"PORT="+_Port​
*****
cnram=SQLSTRINGCONNECT("&dsn_") &&Se intenta la conexión​
IF cnram<1​
    MESSAGEBOX('NO HAY CONEXIÓN CON LA DB'+_Database,16,'Conexión Fallida!')
    RELEASE ALL​
    CLOSE ALL​
    quit
​ENDIF​
**--

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:

1
2
SQL=sqlexec(cnram,"Select * from clientes;","Cursor")
BROWSE

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
Imágen de perfil
Val: 642
Plata
Ha mantenido su posición en FoxPro/Visual FoxPro (en relación al último mes)
Gráfica de FoxPro/Visual FoxPro

Código único.


FoxPro/Visual FoxPro

Publicado el 19 de Febrero del 2020 por Abel
1.570 visualizaciones desde el 19 de Febrero del 2020
Primera versión de código único de 10 caracteres.
Su limitante en ésta primera versión, es que se podrá usar hasta el año 2061 inclusive.

El mismo toma forma con la fecha, hora, segundos y micro segundos del sistema.
Cualquier sugerencia y/o comentario, será bienvenida.
Imágen de perfil
Val: 17
Ha mantenido su posición en FoxPro/Visual FoxPro (en relación al último mes)
Gráfica de FoxPro/Visual FoxPro

Alert al Estilo BootStrap vfp


FoxPro/Visual FoxPro

Publicado el 24 de Noviembre del 2019 por Mac
2.587 visualizaciones desde el 24 de Noviembre del 2019
En esa ocasión les dejo un sencillo bueno y vistoso alert al estilo bootstrap en visual foxpro.

Se emplea una librería de nuestro compañero Irwin Rodriguez (https://www.youtube.com/playlist?list=PLlFOKoWJ_eWYk6BYLDp1qIdRUDdhOPG2v)

Para quien lo necesite. Cualquier cambio será bien recibida para su mejoría.

Nota:
Al archivo interno llamado aahmsg.SC1 renombrar aahmsg.SCT

Mensaje-tipo-bootstrap-100-vfp