Pablo,
Siento tremendamente la tabarra que te estamos dando y te pido mil perdones
por ello.
Aqui esta funcionando perfectamente. Antes había un problema con la clase
DBBrowse al hacer un cambio de foco. pero creia que el problema con la clase
TButton estaba solucionado, y que tan sólo se producia el error cuando
intentabas modificar la FilterBar desde el botón. Logicamente si
inmediatemante despues de hacer un lPushed := .T. te sige valiendo lPushed a
falso significa que tu error con la clase TButton sigue presente pero no
obstante en Email anteriores tuyos o de Joaquin me habeis comentado que
funcionaba.
¿Me puedes confirmar que incluso quitando la linea que modifca la FilterBar
sigue fallando? Gracias
Un saludo,
"Pablo Herranz" <
pablo@ibertabaco.com> escribió en el mensaje
news:[email=
423078bd@ozsrv2.ozlan.local...]
423078bd@ozsrv2.ozlan.local...[/email]
> He enlazado con los nuevos obj y
> WITH OBJECT oSender
> :lPushed:=.t.
> LogDebug(:lPushed)
> ::oDbBRowse1:lFilterBar:=:lPushed
> END
> ¡¡¡ El logdebug me devuelve falso !!!
>
> El evento click solo se ejecuta 1 vez
>
> Pablo
>
>
>
>
> "Ignacio Ortiz de Zúñiga" <
InvalidAccount@ozs.com> escribió en el mensaje
> news:42306e20$[email=
1@ozsrv2.ozlan.local...]
1@ozsrv2.ozlan.local...[/email]
>> Pablo,
>>
>> Tenías toda la razón, el evento OnClick se estaba disparando dos veces
>> pero espero que ya esté arreglado. Muchas gracias por tu colaboración. Te
>> mando los nuevos OBJS
>>
>> Un saludo,
>>
>> "Pablo Herranz" <
pablo@ibertabaco.com> escribió en el mensaje
>> news:[email=
42304a1b@ozsrv2.ozlan.local...]
42304a1b@ozsrv2.ozlan.local...[/email]
>>> Ahi va, con datos
>>>
>>> Saludos
>>> Pablo
>>>
>>> "Ignacio Ortiz de Zúñiga" <
InvalidAccount@ozs.com> escribió en el
>>> mensaje
>>> news:42304532$[email=
1@ozsrv2.ozlan.local...]
1@ozsrv2.ozlan.local...[/email]
>>>> Joaquin,
>>>>
>>>> Utiliza el proyecto que te envié con la filterbar y asignale una DBF
>>>> para
>>>> que no falle. Intenta conseguir que no casque y me lo mandas de vuelta
>>>> con
>>>> el error que comentas para que lo investigue.
>>>>
>>>> Gracias de antemano,
>>>>
>>>> "Joaquín Martínez" <
jmartial@interbook.net> escribió en el mensaje
>>>> news:[email=
423038f5@ozsrv2.ozlan.local...]
423038f5@ozsrv2.ozlan.local...[/email]
>>>>> Ignacio,
>>>>>
>>>>> A mí también me va bien haciendo simplemente SetPushed( !lPushed) en
>>>>> el
>>>>> onClick del BtnBmp , pero el Bug está en otro sitio, si en la línea
>>>>> siguiente pones ::oDbBrowse1:lFilterBar:= .T. ( suponiendo que tengas
>>>>> un
>>>>> browse de ese tipo en el mismo form) ¡ SE VUELVE A EVALUAR EL ONCLICK
>>>>> del
>>>>> botón!
>>>>> por lo que SetPushed( !lPushed) en la 1ª vale False y en la segunda se
>>>>> vuelve a True, te da la impresión que no se queda, y es que Xailer
>>>>> manda
>>>>> un
>>>>> OnClick inexplicablente a ese botón.
>>>>>
>>>>>
>>>>> Un Saludo,
>>>>> Joaquín
>>>>>
>>>>> "Ignacio Ortiz de Zúñiga" <
InvalidAccount@ozs.com> escribió en el
>>>>> mensaje
>>>>> news:42300f4f$[email=
1@ozsrv2.ozlan.local...]
1@ozsrv2.ozlan.local...[/email]
>>>>>> Pablo,
>>>>>>
>>>>>> Pues a mi me va perfectamente. Estas seguro de que estás enlazando
>>>>>> con
>>>>>> el
>>>>>> button.obj que te di?
>>>>>>
>>>>>> Podría alguien más probarlo? Vuelvo a poner el OBJ en este email
>>>>>>
>>>>>> Un saludo,
>>>>>>
>>>>>> "Pablo Herranz" <
pablo@ibertabaco.com> escribió en el mensaje
>>>>>> news:[email=
422ff416@ozsrv2.ozlan.local...]
422ff416@ozsrv2.ozlan.local...[/email]
>>>>>> > He probado el proyecto, y efectivamente el boton se pulsa, pero una
>>>>>> > vez
>>>>>> > pulsado no hay manera de quitarle la pulsacion. He publicado el mio
>>>>>> > y
>>>>>> > lo
>>>>>> > adjunto, lo que no ira sera la tabla de datos que se llama
>>>>>> > matvar.dbf
>>>>>> > y
>>>>>> > consta de codigo y nombre
>>>>>> >
>>>>>> > Pablo
>>>>>> >
>>>>>> >
>>>>>> >
>>>>>>
>>>>>>
>>>>>>
>>>>>
>>>>>
>>>>
>>>>
>>>
>>>
>>>
>>
>>
>>
>
>