FoxPro/Visual FoxPro - llevar campo de grid a grid de otro formulario

   
Vista:

llevar campo de grid a grid de otro formulario

Publicado por luifer99 (8 intervenciones) el 14/09/2008 00:22:25
hola amigos.. como dice el titulo no se si podrian ayudarme a llevar un campo de grid a otro grid de otro formulario.. es de un grid de busqueda que quiero llevar a uno de ventas.. estoy haciendo un formulario de ventas

GRACIAS x su tiempo =)
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:llevar campo de grid a grid de otro formulario

Publicado por Saul (El Guatemalteco...) (676 intervenciones) el 14/09/2008 06:08:29
Cuando lo llames haz esto

en tu formaulario uno
tines que tenes un campo que sera el que vaz a buscar

En tu boton busqueda

DO FORM busqueda WITH "factura","factura.nfactura","factura.nombre" TO cCodigo
SELECT factura
IF !EMPTY(cCodigo) then
SEEK(cCodigo)
if !found() then
mensaje("codigo no encontrado")
else
thisform.fac_anu = factura.anulada
ThisForm.habilita_controles(.f.)
thisform.refresh
endif
ENDIF

en tu segunda pantalla

lParameter cTabla, cCodigo, cNombre
LOCAL sConsulta

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 = 150
ThisForm.grdBusqueda.column2.width = 3380

thisform.refresh

tienes que tener un grid..

Cuando cierres segunda pantalla

IF USED("busqueda")
SELECT busqueda
USE in busqueda
ENDIF
RETURN thisform.valor
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