Tu logica es aplastante.
El Exit se ejecuta al picar en el segundo control.
Y yo le digo que se vaya al cuarto. Tonterias mias.
Paco V
"Ignacio Ortiz de Zúñiga" <
NoName@xailer.com> wrote:
>Paco,
>
>> Si al introducir un codigo de cliente, este se encuentra en la base de
>> datos, pues el foco pasa a la introduccion de su operación. Si no se
>> encuentra el codigo, pues va por los controles hasta el final para que
se
>> rellenen, y despues pasa a la introducción de su operación.
>
>Es lógico si lo pones en el evento OnClick del botón que dispara el proceo
>de actualización, pero no si lo pones en la validación de uno de los TEdit.
>
>El evento OnExit se dispará cuando el control pierde el foco, devolviendo
>.T. el foco pasa al control que lo solicito, y devolviendo .F. se queda
>donde estaba. Estarás de acuerdo conmigo que por pura lógica este sistema
es
>completamente incompatible con la posibilidad de que por código tu mismo
>cambies el foco al control que desees.
>
>Un saludo,
>
>--
>Ignacio Ortiz de Zúñiga
>
http://www.xailer.com
>"Paco V." <
paco-ssi@usuarios.retecal.es> escribió en el mensaje
>news:4516bfad$[email=
1@news.xailer.com...]
1@news.xailer.com...[/email]
>> Gracias Ignacio.
>> Para mi era logico lo que estaba haciendo.
>> Si al introducir un codigo de cliente, este se encuentra en la base de
>> datos, pues el foco pasa a la introduccion de su operación. Si no se
>> encuentra el codigo, pues va por los controles hasta el final para que
se
>> rellenen, y despues pasa a la introducción de su operación.
>>
>> Paco V
>>
>>
>>
>> "Ignacio Ortiz de Zúñiga" <
NoName@xailer.com> escribió en el mensaje
>> news:45162e87$[email=
1@news.xailer.com...]
1@news.xailer.com...[/email]
>>> Paco,
>>>
>>> No deberías cambiar el foco dentro de un evento OnExit. Tan sólo puedes
>>> devolver FALSO para quedarte en dicho control o VERDADERO para ir a la
>>> siguiente.
>>>
>>> Un saludo,
>>>
>>> "Paco V" <
ssi@ono.com> wrote in message
>>> news:45140321$[email=
1@news.xailer.com...]
1@news.xailer.com...[/email]
>>>>
>>>> En el evento OnExit de oDbEdit1 llamo al metodo MIRAR
>>>>
>>>> *************
>>>> IF ::oDbfDataSet1:Seek( RTRIM(::oDBEdit1:value) )
>>>> ::oDBEdit2:value := ::oDbfDataSet1:Nombr
>>>> ::oDBEdit3:SetFocus()
>>>> else
>>>> msgInfo("Agente no existe en la Base de Datos")
>>>> ::oDBEdit2:SetFocus()
>>>> ENDIF
>>>> *************
>>>>
>>>> Pues si se cumple la condición funciona OK,
>>>> Pero si no se cumple no hay forma de salir.
>>>>
>>>> ¿Creo que me falta algo?
>>>>
>>>> Paco V
>>>>
>>>>
>>>
>>>
>>
>>
>
>