[VFP] Datos del formulario 2 al 1

[Easy Gestion]

Hola Grupo:

Mi consulta debe de ser de las simple... pero....

Tengo dos formulario, en el formulario 1 vario controles, y un boton "buscar", que se dirige al formulario 2, una vez en el formulario 2, seleccione desde una grilla el datos que deseo, trato de enviar ese dato desde el evento click  de un boton al formulario 1, de esta forma, formulario1.nombre.value = VerPacientes.nombre, esto me funciona correcto siempre y cuando el formulario 1 sea WindowType=1 (modal), en caso contrario me da error, alguien sabe por que sucede esto, como se soluciona?

PD: El error que me da es: No se encuentra el objeto formulario1, si es que el formulario 1 esta en WindowType=0 (modeless)

Gracias por sus respuestas.

Gabriel

[Hugo C.]

Puedes hacer algo como esto

el el click del boton del formulario 1

PUBLIC oForm1
oForm1 = THISFORM

DO FORM FORM2

y en le FORM2
oForm1.caption = "XYZ"

No olvidar

RELEASE oForm1

Saludos

[Mauricio Molinero,]

Hola Gabriel cuando llames al segundo formulario pasale un parametro
como referencia al primer formulario, asi:

Do form Form2 with ThisForm

Y en el Init del segundo formulario recibe el parametro con

LPARAMETERS toForm1

Tambien puedes crear una propiedad y dejar la referencia guardada ..

LPARAMETERS toForm1

ThisForm.oPrimerForm = toForm1

Saludos!

Mauricio R. Molinero,

[Easy Gestion]

gracias por responder, aplique lo que me explicaron y funciono correctamente.

Gracias nuevamente.

[Irlandes 1960]

Hola, en mi caso cuando necesito un formulario de consultas asociadas (por ejemplo, de clientes, proveedores, planes de cuentas) por que lo que hay que consultar es complejo, uso formularios modales, invocados con algo asi como

            do formularioconsulta to lcrespuesta

el formulario de consulta no permite que salgas de el sin hacer algo, ya sea encontrar lo que buscas o cerrarlo, pero nunca ignorarlo, y la respuesta se evalua en la variable local lcrespuesta.
el formulario modal de consulta devuelve el resultado en el evento UNLOAD con la instruccion return

            RETURN respuesta_elegida

esa variable esta vacia si el usuario no eligio nada, y eso te permite saber el resultado de la consulta.

espero te sea util

JK