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
In order for this site to work correctly we need to store a small file (called a cookie) on your computer. Most every site in the world does this, however since the 25th of May 2011, by law we have to get your permission first. Please abandon the forum if you disagree.
Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.
Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.
msginfo
msginfo
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. )
> 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
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
(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
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. )
>
>
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. )
>
>