Doble click en Grilla

[Rubén Dario Lezcano Salinas]

Buenas tardes

Les comento mi caso a ver si hay alguna solución

Tengo una grilla, dentro tengo programado un doble clic

Cuando es la primera ves me carga la grilla, realizo el doble clic y perfecto muestra el resultado

pero....

Ademas tengo un Textbox  donde según lo que escriba me filtra en la grilla y cuando vuelvo a dar el doble clic y ano me funciona.

Como podría solucionar ese problema.

saludos

[Ultraton500]

Hola Rubén, 

- tienes programada alguna condición en el doble click?

Por las dudas intenta ejecutar momentáneamente el código del doble click desde fuera de la grilla para ver si funciona y así comprobar si el problema está en el DblClick o en el código o agrégale un Messagebox() para ver si el código se está ejecutando o no.

Saludos,

Javier.

[Rubén Dario Lezcano Salinas]

El doble clik si funciona fuera de la grilla 

En la grilla funciona bine siempre y cuando no realice el filtro uyna ves que realizo el filtro ya no va

Saludos

--

Rubén Lezcano

[Ultraton500]

Creería que si muestras el código que estás usando en el DblClick y el que realiza el filtro recibirás mas ayuda ya que los datos que has dado hasta el momento no indican demasiado.

Saludos,

Javier.

[Rubén Dario Lezcano Salinas]

Esto es lo que tengo en el interactiveChange del tex donde filtro

IF EMPTY(this.Value)

thisform.pageframe1.page1.command5.Click

else

********************Conecta con Pedidos********************************************************************

a1='select p.id, p.pedidokey, p.riqi, p.fecha_c, p.kehuID, p.yewuyuanID, p.jinez, p.beizhu, v.py, c.bianhao, c.name, c.shengfen, c.chengshi, c.youbian ' 

a2='from  pedidolist p, kehu c, yewuyuan v ' 

a3='where p.kehuid=c.bianhao and p.yewuyuanID= v.bianhao '

a4='order by p.id desc'

ok= sqlexec(conexion,a1+a2+a3+a4,'pe')

IF OK<0

DO PERROR

ENDIF

***********************************************************************************************************

********************Conecta con POEE***********************************************************************

ok = sqlexec(cambios,'select pedidokey, color, color2 from poee where estado="P" or estado="C" or estado="I"','po')

IF ok< 0

DO perror

ENDIF

***********************************************************************************************************

SELECT po

SELECT pe

*********************Unimos Pedidos y POEE*****************************************************************

SELECT p.id, p.pedidokey, p.riqi, p.fecha_c, p.kehuID, p.name, p.yewuyuanID, p.py, p.jinez, p.beizhu, p.bianhao, p.shengfen, p.chengshi, p.youbian, po.color, po.color2 ;

FROM pe p ;

left JOIN po ON p.pedidokey=po.pedidokey ;

into cursor consupedidos readwrite

***********************************************************************************************************

SELECT pedidos

SET FILTER TO consupedidos.kehuID= alltrim(thisform.pageframe1.page1.text29.value) 

THISFORM.pageframe1.page1.gridordenable1.RECORDSOURCE='consupedidos'

thisform.pageframe1.page1.gridordenable1.refresh 

thisform.pageframe1.page1.gridordenable1.Setall("resizable",.f.,"Column") && NO permite que se muevan las columnas

thisform.pageframe1.page1.gridordenable1.SetAll("Readonly",.t.,"Column")&& columnas solo lectura

thisform.pageframe1.page1.gridordenable1.Setall("Fontsize",10,"Column")&& tamaño de letras en columnas

thisform.pageframe1.page1.gridordenable1.Setall("Fontsize",7,"Header")&& tamaño de letras en Encabezado Columnas

thisform.pageframe1.page1.gridordenable1.Setall("FontBold",.t.,"Header")       && Encabezado en negritas

thisform.pageframe1.page1.gridordenable1.Setall("FontBold",.t.,"text1")

*thisform.pageframe1.page1.gridordenable1.SetAll("BackColor", RGB(60,126,227))

*thisform.pageframe1.page1.gridordenable1.BackColor = RGB(240,240,240)

**********Ancho de Columnas Grid 1********************************************

thisform.pageframe1.page1.gridordenable1.column1.Width = 40

thisform.pageframe1.page1.gridordenable1.column2.Width = 104

thisform.pageframe1.page1.gridordenable1.column3.Width = 108

thisform.pageframe1.page1.gridordenable1.column4.Width = 108

thisform.pageframe1.page1.gridordenable1.column5.Width = 71

thisform.pageframe1.page1.gridordenable1.column6.Width = 205

thisform.pageframe1.page1.gridordenable1.column7.Width = 0

thisform.pageframe1.page1.gridordenable1.column8.Width = 180

thisform.pageframe1.page1.gridordenable1.column9.Width = 65

***********Nombre de Columnas**************************************************

thisform.pageframe1.page1.gridordenable1.column1.Header1.Caption="Codigo"

thisform.pageframe1.page1.gridordenable1.column1.Header1.Alignment=2

thisform.pageframe1.page1.gridordenable1.column2.Header1.Caption="Nro Pedido"

thisform.pageframe1.page1.gridordenable1.column2.Header1.Alignment=2

thisform.pageframe1.page1.gridordenable1.column3.Header1.Caption="Fecha Pedido"

thisform.pageframe1.page1.gridordenable1.column3.Header1.Alignment=2

thisform.pageframe1.page1.gridordenable1.column4.Header1.Caption="Envio Pedido"

thisform.pageframe1.page1.gridordenable1.column4.Header1.Alignment=2

thisform.pageframe1.page1.gridordenable1.column5.Header1.Caption="Cod. Cliente"

thisform.pageframe1.page1.gridordenable1.column5.Header1.Alignment=2

thisform.pageframe1.page1.gridordenable1.column6.Header1.Caption="Cliente"

thisform.pageframe1.page1.gridordenable1.column6.Header1.Alignment=2

thisform.pageframe1.page1.gridordenable1.column7.Header1.Caption="Cod. Ven."

thisform.pageframe1.page1.gridordenable1.column7.Header1.Alignment=2

thisform.pageframe1.page1.gridordenable1.column8.Header1.Caption="Vendedor"

thisform.pageframe1.page1.gridordenable1.column8.Header1.Alignment=2

thisform.pageframe1.page1.gridordenable1.column9.Header1.Caption="Total Pedido"

thisform.pageframe1.page1.gridordenable1.column9.Header1.Alignment=2

******************************************************************************************************

IF ban <> 110

SELECT consupedidos

GO top

DO WHILE !EOF()

thisform.pageframe1.page1.gridordenable1.SetAll("DynamicBackColor","thisform.mycolor(consupedidos.color)","Column")

SKIP

ENDDO

ELSE

endif

SELECT consupedidos

GO top

Y cuando veo en la sesión de datos la consulta CONSUPEDIDOS me dice que no pertenece a form

Pero si no realizo ningún filtro va perfecto

Saludos y gracias por tu tiempo

--

Rubén Lezcano

[Jose Mario]

SELECT pedidos

*EL PROBLEMA ESTA AQUI

HACE OTRO SELECT

CON_KEHU= alltrim(thisform.pageframe1.page1.text29.value) 

SELECT * FROM CONSUPEDIDOS WHERE KEHUDID=CONKEHU INTO CURSOR _TMP

*SET FILTER TO consupedidos.kehuID=alltrim(thisform.pageframe1.page1.text29.value) 

THISFORM.pageframe1.page1.gridordenable1.RECORDSOURCE='_TMP'

[Rubén Dario Lezcano Salinas]

Muchas Gracias Jose

He puesto esto

                                                         CON_KEHU= alltrim(thisform.pageframe1.page1.text29.value) 

SELECT * FROM CONSUPEDIDOS WHERE kehuID=CON_KEHU INTO CURSOR _TMP

*SET FILTER TO consupedidos.kehuID=alltrim(thisform.pageframe1.page1.text29.value) 

THISFORM.pageframe1.page1.gridordenable1.RECORDSOURCE='_TMP'

Pero sigue sin funcionar el doble click en la grilla

--

Rubén Lezcano

[Rubén Dario Lezcano Salinas]

Si escribo en el keypress 

La primera ves bien, la segunda ves osea al filtrar y mostrar los datos me dice que es de solo lectura

Saludos

--

Rubén Lezcano

[Rubén Dario Lezcano Salinas]

En esta imagen se puede apreciar como he seleccionado la columna pero no ocurre nada eso despues del filtro de arriba, en teoría debería hacer visible un contenedor

Saludos

--

Rubén Lezcano

[Mario Oviedo]

revisa los set filter que tengas

y antes de hacer otro set filter tenes que volver

a set filter to

porque si no la siguiente consulta la estas haciendo 

en la consulta anterior

si no volves a set filter to

me doy a entender

ya que dices que te funciona la primera vez

[Rubén Dario Lezcano Salinas]

Hola Mario  Te refieres a esto :

SET FILTER TO 

SET FILTER TO consupedidos.py= alltrim(thisform.pageframe1.page1.text32.value)

THISFORM.pageframe1.page1.gridordenable1.RECORDSOURCE='consupedidos'

thisform.pageframe1.page1.gridordenable1.refresh 

Así es como lo tengo u no va

Saludos

--

Rubén Lezcano

[Mario Oviedo]

trata un 95% de no utilizar set filter utiliza select * from (table o cursor) into _tmp

podes hacer las consultas 1000 y ellos solo se cierran

tiene mejor ventajas que el set filter te lo aseguro

yo era reacio a cambiar, y te aseguro que quedaras asombrado

las consultas con generacion de cursores,