Página 1 de 1
msginfo
Publicado: Jue Nov 03, 2005 11:27 am
por Paco V
En un oDBComboBox hago una llamada en el Evento OnExit a este metodo.
Si la condicion se cumple envia el mensaje y todo OK.
Si no se cumple envia el segundo mensaje ciclicamente sin establecer el foco
en oDBMemo2.
No debria ser igual?
Que hago mal?
-------------------------
METHOD MIRATIPO( oSender, oNextCtl ) CLASS TForm9
IF ::oDBComboBox2:value == "GRAFIADO"
msginfo("Conforme")
else
msginfo("JUSTIFIQUE LAS CAUSAS")
::oDbMemo2:SetFocus()
endif
RETURN Nil
msginfo
Publicado: Jue Nov 03, 2005 11:33 am
por jfgimenez
Paco,
> En un oDBComboBox hago una llamada en el Evento OnExit a este metodo.
> Si la condicion se cumple envia el mensaje y todo OK.
> Si no se cumple envia el segundo mensaje ciclicamente sin establecer el
> foco
> en oDBMemo2.
>
> No debria ser igual?
> Que hago mal?
>
> -------------------------
> METHOD MIRATIPO( oSender, oNextCtl ) CLASS TForm9
> IF ::oDBComboBox2:value == "GRAFIADO"
> msginfo("Conforme")
> else
> msginfo("JUSTIFIQUE LAS CAUSAS")
> ::oDbMemo2:SetFocus()
> endif
> RETURN Nil
Utiliza:
::oDbMemo2:SetFocus( .T. )
msginfo
Publicado: Jue Nov 03, 2005 11:34 am
por jfgimenez
Paco,
(perdona, se me ha escapado el mensaje antes de terminarlo)
> Utiliza:
> ::oDbMemo2:SetFocus( .T. )
El parámetro a .T. fuerza a pasar el foco al control *SIN* validar el que
tenga el foco actualmente. Si no lo haces así, lógicamente al cambiar el
foco se v a volver a disparar la validación.
--
Un saludo,
José F. Giménez
msginfo
Publicado: Jue Nov 03, 2005 11:36 am
por Paco V
Está visto que no me entero.
Paco V
"Jose F. Gimenez" <
jfgimenez@wanadoo.es> wrote:
>Paco,
>
>> En un oDBComboBox hago una llamada en el Evento OnExit a este metodo.
>> Si la condicion se cumple envia el mensaje y todo OK.
>> Si no se cumple envia el segundo mensaje ciclicamente sin establecer el
>> foco
>> en oDBMemo2.
>>
>> No debria ser igual?
>> Que hago mal?
>>
>> -------------------------
>> METHOD MIRATIPO( oSender, oNextCtl ) CLASS TForm9
>> IF ::oDBComboBox2:value == "GRAFIADO"
>> msginfo("Conforme")
>> else
>> msginfo("JUSTIFIQUE LAS CAUSAS")
>> ::oDbMemo2:SetFocus()
>> endif
>> RETURN Nil
>
>Utiliza:
> ::oDbMemo2:SetFocus( .T. )
>
>