FoxPro/Visual FoxPro - parameters

 
Vista:

parameters

Publicado por Gerardo (21 intervenciones) el 16/01/2003 20:03:55
Hola,

gracias por la ayuda brindada, ahora necesito saber como transferir datos de una formulario a otro

gracias
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:parameters

Publicado por Roman Suazo (2723 intervenciones) el 16/01/2003 21:30:30
Chequea el comando DO FORM, cuando utilizas este comando podes
definir una lista de parametros que le podes mandar a una forma.
Tambien tenes que investigar la sentencia PARAMETERS o LPARAMETERS, la cual deben ir en el evento init de una forma.
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:parameters

Publicado por saul (728 intervenciones) el 16/01/2003 21:37:28
Fijate que tengo est ejemplo haber si le entiendes

** en un procedimiento que llamo buscar
LOCAL cCodigo,nCodigo
DO FORM busqueda WITH "fase","fase.codigo","fase.nombre" TO cCodigo &&El valor que trae de regreso

fase &&la tabla
fase.codigo &&el campo codigo
fase.nombre &&el nombre nombre

SELECT fase
IF !EMPTY(cCodigo) then
SEEK(cCodigo)
if !found() then
mensaje("codigo no encontrado")
else
thisform.carga_datos()
endif
ENDIF

** y en tu formulario busqueda el evento INIT
lParameter cTabla, cCodigo, cNombre
LOCAL sConsulta
Mybarra.desactiva_boton

thisform.codigo = cCodigo
thisform.nombre = cNombre
thisform.tabla = cTabla

** Se obtienen los valores de la tabla a mostrar
sConsulta ="SELECT "+cCodigo+" As codigo, "+cNombre+" FROM " +cTabla+ " INTO CURSOR busqueda"

** se asignan los valores al Grid
ThisForm.grdBusqueda.RecordSource = sConsulta
ThisForm.grdBusqueda.column1.width = 75
ThisForm.grdBusqueda.column2.width = 379

thisform.refresh

** En el evento un load
IF USED("busqueda")
SELECT busqueda
USE in busqueda
ENDIF
RETURN thisform.valor

** por su puesto que tienes que hacer el formulario y el formulario tiene un grid... Tu entiendes..

suerte
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