FoxPro/Visual FoxPro - Retornar el valor de 2 variables de un formulario modal al form principal

Amigos :

Hace unos dias realize la pregunta de como pasar una variable de un
formulario a otro
y al final llegue a resolver dicho tema mediante...


Do form XXX To mivariable


Pues bien ahora que se me presento la situacion de querer pasar los
valores de 02 variables al formulario principal noto que solo puede
hacerse utilizando el siguiente comando


Do form XXX With valor 1, valor2


Tengo la siguiente pregunta :


Como le hago para capturar los valores de dichas variables en el
formulario principal sin tener que utilizar variables publicas...


A la espera de sus comentarios y/o sugerencias...


atte.,


Gabriel

Agregalos como propiedad de tu formulario y estaran visibles durante la existencia del mismo
AddProperty o mediante el IDE

Saludos

Hola, podrías usar un array.

DIMENSION aTuArray(2)

DO FORM TuFormulario TO aTuArray

En el formulario crea una propiedad como array y almacena en él los valores que deseas retornar.

Amigo Javier :

Si no es mucho pedirte podrias ser un poco mas ilustrativo con la opcion que planteas...

atte.,

Gabriel

Perdón por lo escueto..te datallo un poco más:

En el Diseñador de Formularios agrega una nueva propiedad como un array. Ve a Menu Formulario --> Nueva Propiedad y ponle de nombre por ejemplo: aValores(2) . Este sería un array de dos dimensiones, tu puedes cambiar eso según los valores que quieras que el form te "devuelva".

Dentro de tu form, según lo que necesites, asignarás los valores a "devolver" en el array. Por ejemplo asi:

Para que el form devuelva el array con los datos, en el evento UNLOAD del form,
escribe: RETURN ThisForm.aValores

MODIFICA la propiedad del form WINDOWTYPE a 1 (Modal)



Para llamar al form harías algo así:

DIMENSION aDatos(2)
* aDatos sería el array que almacenaría los valores que el form te devuelva

DO FORM Ejemplo TO aDatos

MessageBox( aDatos(1) ) && te mostrará 1000

MessageBox( aDatos(2) ) && te mostrará 315

Espero que te sirva.
Javier

Saludos desde Jujuy - Argentina.