FoxPro/Visual FoxPro - Ayuda con Formulario de Busqueda

   
Vista:

Ayuda con Formulario de Busqueda

Publicado por Oscar Meza (78 intervenciones) el 30/11/2007 16:22:13
Buenos Dias

Amigos del foro quisiera saber si alguien me puede ayudar con el siguiente problema
tengo un formulario de busqueda que le mando los siguientes para metros

lcSQL=SELECT A SQL
lcBuscar=VALOR SOBRE EL CUAL HARA LA BUSQUEDA
lcDevolver=VALOR A DEVOLVER
.F.= (.T.) ES VISTA REMOTA Y (.F.) NO ES VISTA
lcAlias=ES EL NOMBRE DEL CURSOR O TABLA LOCAL

DO Form busqueda.scx WITH lcSQL,cBuscar,lcDevolver,.F.,cAlias TO lnCodigo

El problema se da cuando en el formulario 1 creo un cursor y lo paso como parametro al formulario de busqueda me dice q no exite el alias osea el nombre del cursor
a que se debera esto??, con las vistas remotas si trabaja perfetamente

Este es el codigo en el ini del formulario de busqueda

Parameters cSQL,cOrdenamiento,cLlave,bView,cCursor,nAlto,nAncho
Local lcTabla
IF bView
lcTabla = Sys(2015)

If SQLEXEC(gConexion,cSQL,lcTabla) != 1
* MuestraSQLError()
This.Release
Return
Endif
This.Tabla = lcTabla
This.Llave = cLlave
This.Ordenamiento =cOrdenamiento
This.grdCiudades.RecordSource = lcTabla
This.GrdCiudades.AutoFit

If Pcount() = 7
This.Height = nAlto
This.Width = nAncho
Endif
ELSE
lcTabla=&cCursor

*SELECT * FROM &cCursor INTO CURSOR &lcTabla

This.Tabla = lcTabla
This.Llave = cLlave
This.Ordenamiento =cOrdenamiento
This.grdCiudades.RecordSource = lcTabla
This.GrdCiudades.AutoFit

If Pcount() = 7
This.Height = nAlto
This.Width = nAncho
Endif

ENDIF
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