Xailer & OZ Software

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

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
>
>
>
>
>

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
>>
>>
>>
>>
>>
>
>