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
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


0