FoxPro/Visual FoxPro - Retornar 2 valores de un formulario modal

 
Vista:

Retornar 2 valores de un formulario modal

Publicado por Pablo (26 intervenciones) el 19/07/2009 01:08:42
Estimado Amigos

Estoy necesitando retornar de un formulario modal mas de 2 valores de 2 textbox que tengo en el formulario modal, al formulario que lo llama:

Codigo en el boton que llama al formulario modal.
do form frmValores with valor1, valor2, valor3 to vRetorno

Y en el evento unload del formulario frmValores, quiero colocar 2 valores de retorno, pero solo se me permite uno, alguno de uds. sabe la manera de poder realizar lo que necesito
return thisform.pValor1 (quisiera tambien retornar thisform.pValor2)

Espero sus sugerencias. Gracias de antemano

Saludos
Pablo
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Retornar 2 valores de un formulario modal

Publicado por enrique (1041 intervenciones) el 20/07/2009 17:17:09
Prueba lo siguiente

Codigo en el boton que llama al formulario modal.

vRetorno1 = 0 && o el tipo de dato que desees
vRetorno2 = 0 && o el tipo de dato que desees
do form frmValores with valor1, valor2, valor3

en el formulario cargas a vRetorno1 y vRetorno2 el valor que corresponda y listo
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Retornar n valores de un formulario modal

Publicado por Fernando Arbe (1 intervención) el 14/09/2009 19:40:43
Yo recomendaria que creas una tabla publica en la cual se almacenan los valores retornados, por ejemplo:

Codigo en el boton que llama al formulario modal.
---------------------------------------------------------------------
do form frmValores with valor1, valor2, valor3
messagebox(Cur_Retorno.retorno1)
messagebox(Cur_Retorno.retorno2)
USE IN SELECT("Cur_Retorno")

Codigo del evento Unload del formulario frmValores
------------------------------------------------------------------------
set datasession to &&al cerrar el formulario, vuelves a una sesion de datos publica

&&Creamos la tabla de retorno con la columna
&& "retorno1" del tipo integer, "retorno2" del tipo varchar(200)
create cursor Cur_Retorno (retorno1 i, retorno2 v(200))

insert into Cur_Retorno ;
(retorno1, retorno2) values ( ;
thisform.pValor1;
, thisform.pValor2 ;
)
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar