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.

Conducta de ::oMaskEdit:Value

Foro público de Xailer en español
Responder
Guillermo Guevara Car
Mensajes: 176
Registrado: Sab Ene 19, 2008 5:52 pm

Conducta de ::oMaskEdit:Value

Mensaje por Guillermo Guevara Car »

En un Formulario tengo 2 ::oMaskEdit y 2 oButton
El ::oMaskEdit1 es la clave del cliente (Campo llave)
El ::oMaskEdit2 es el nombre del cliente, que no debe aceptar valores vacios
(en blanco)
El ::oButton1 para aceptar y actualizar los archivos DBF
El ::oButton2 para cancelar la captura y regresar a ::oMaskEdit1
En el ::oMaskEdit2 se valida que al dejar el foco no acepte valores vacios
(en blanco), esto a través del evento OnExit
Ejemplo:
METHOD MaskEdit2Exit( oSender, oNextCtl ) CLASS Clientes
If Empty(::oMaskEdit2:Value)
::oMaskEdit2:SetFocus()
Return(.F.)
EndIf
RETURN Nil
Lo anterior funciona correctamente no permitiendome valores vacios en el
::oMaskEdit2
Lo que se pretende es poder cancelar haciendo click en un ::oButton2
(Cancelar) , para que el foco regrese al ::oMaskEdit1
Ejemplo:
METHOD Button2Click( oSender ) CLASS Clientes
::oMaskEdit1:SetFocus()
RETURN Nil
Que debo de hacer para que el evento OnClick del oButton2 se dispare, aún
estando vacio el ::oMaskEdit2
Guillermo
Arriba
Xevi
Mensajes: 1706
Registrado: Jue Sep 08, 2005 12:58 pm

Conducta de ::oMaskEdit:Value

Mensaje por Xevi »

Guillermo,
Utiliza el parámetro oNextCtl del evento OnExit del MaskEdit...
METHOD MaskEdit2Exit( oSender, oNextCtl ) CLASS Clientes
If oNextCtl == ::oButton2
::oMaskEdit1:SetFocus()
Else
If Empty(::oMaskEdit2:Value)
::oMaskEdit2:SetFocus()
Return(.F.)
EndIf
EndIf
RETURN Nil
Un Saludo,
Xevi.
"Guillermo" <soporte@pvwin.com> escribió en el mensaje
news:49b7bc28$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
> En un Formulario tengo 2 ::oMaskEdit y 2 oButton
>
> El ::oMaskEdit1 es la clave del cliente (Campo llave)
> El ::oMaskEdit2 es el nombre del cliente, que no debe aceptar valores
> vacios (en blanco)
> El ::oButton1 para aceptar y actualizar los archivos DBF
> El ::oButton2 para cancelar la captura y regresar a ::oMaskEdit1
>
> En el ::oMaskEdit2 se valida que al dejar el foco no acepte valores vacios
> (en blanco), esto a través del evento OnExit
>
> Ejemplo:
>
> METHOD MaskEdit2Exit( oSender, oNextCtl ) CLASS Clientes
> If Empty(::oMaskEdit2:Value)
> ::oMaskEdit2:SetFocus()
> Return(.F.)
> EndIf
> RETURN Nil
>
> Lo anterior funciona correctamente no permitiendome valores vacios en el
> ::oMaskEdit2
> Lo que se pretende es poder cancelar haciendo click en un ::oButton2
> (Cancelar) , para que el foco regrese al ::oMaskEdit1
>
> Ejemplo:
>
> METHOD Button2Click( oSender ) CLASS Clientes
> ::oMaskEdit1:SetFocus()
> RETURN Nil
>
> Que debo de hacer para que el evento OnClick del oButton2 se dispare, aún
> estando vacio el ::oMaskEdit2
>
> Guillermo
>
>
>
>
>
Arriba
Guillermo Guevara Car
Mensajes: 176
Registrado: Sab Ene 19, 2008 5:52 pm

Conducta de ::oMaskEdit:Value

Mensaje por Guillermo Guevara Car »

Xevi
Gracias por tu apoyo funcionó de maravilla
Guillermo
"Xevi" <xevicomas_quitar_esto@gmail.com> escribió en el mensaje
news:49b7c46c$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
> Guillermo,
>
> Utiliza el parámetro oNextCtl del evento OnExit del MaskEdit...
>
> METHOD MaskEdit2Exit( oSender, oNextCtl ) CLASS Clientes
> If oNextCtl == ::oButton2
> ::oMaskEdit1:SetFocus()
> Else
> If Empty(::oMaskEdit2:Value)
> ::oMaskEdit2:SetFocus()
> Return(.F.)
> EndIf
> EndIf
> RETURN Nil
>
>
> Un Saludo,
> Xevi.
>
>
> "Guillermo" <soporte@pvwin.com> escribió en el mensaje
> news:49b7bc28$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
>> En un Formulario tengo 2 ::oMaskEdit y 2 oButton
>>
>> El ::oMaskEdit1 es la clave del cliente (Campo llave)
>> El ::oMaskEdit2 es el nombre del cliente, que no debe aceptar valores
>> vacios (en blanco)
>> El ::oButton1 para aceptar y actualizar los archivos DBF
>> El ::oButton2 para cancelar la captura y regresar a ::oMaskEdit1
>>
>> En el ::oMaskEdit2 se valida que al dejar el foco no acepte valores
>> vacios (en blanco), esto a través del evento OnExit
>>
>> Ejemplo:
>>
>> METHOD MaskEdit2Exit( oSender, oNextCtl ) CLASS Clientes
>> If Empty(::oMaskEdit2:Value)
>> ::oMaskEdit2:SetFocus()
>> Return(.F.)
>> EndIf
>> RETURN Nil
>>
>> Lo anterior funciona correctamente no permitiendome valores vacios en el
>> ::oMaskEdit2
>> Lo que se pretende es poder cancelar haciendo click en un ::oButton2
>> (Cancelar) , para que el foco regrese al ::oMaskEdit1
>>
>> Ejemplo:
>>
>> METHOD Button2Click( oSender ) CLASS Clientes
>> ::oMaskEdit1:SetFocus()
>> RETURN Nil
>>
>> Que debo de hacer para que el evento OnClick del oButton2 se dispare, aún
>> estando vacio el ::oMaskEdit2
>>
>> Guillermo
>>
>>
>>
>>
>>
>
>
Arriba
Responder

Volver a “Xailer Spanish”