Validación de datos en TMaskEdit

[Fernando Leal]

Veamos,
en el evento OnExit( )
if !alltrim( ::oDBMaskEdit5:Value )$"FM"
return .f.
endif
Lo anterior forza a que el dato introducido sea F ó M pero suponiendo que el
foco está en el ::oDBMaskEdit4 al hacer click en el botón Guadar.... las
validaciones de ::oDBMaskEdit5 ee ignorada.
Por lo tanto en el evento OnClick del botón Guardfar... yo tengo que revisar
nuevamente si se cumple la validación para el ::oDBMaskEdit5
Pregunta: ¿Hay alguna forma más efeciente de validar datos?
Cuando son pocos datos que validar no hay problema pero cuando son 98.... la
duplicación de código es tremenda.
Gracias
Fernando

[correo]

Fernando Leal escribió:
> Veamos,
> en el evento OnExit( )
>
>
> if !alltrim( ::oDBMaskEdit5:Value )$"FM"
> return .f.
> endif
>
> Lo anterior forza a que el dato introducido sea F ó M pero suponiendo
> que el foco está en el ::oDBMaskEdit4 al hacer click en el botón
> Guadar.... las validaciones de ::oDBMaskEdit5 ee ignorada.
> Por lo tanto en el evento OnClick del botón Guardfar... yo tengo que
> revisar nuevamente si se cumple la validación para el ::oDBMaskEdit5
>
> Pregunta: ¿Hay alguna forma más efeciente de validar datos?
>
> Cuando son pocos datos que validar no hay problema pero cuando son
> 98.... la duplicación de código es tremenda.
>
> Gracias
> Fernando
>
>
>
Lo normal es que antes de grabar vuelvas a evaluar los OnExit de los
campos . NO necesitas escribir de nuevo las instruccines ,puedes llamarlas .
local lOk := .t.
lOk := ::oCOntrol1:OnExit()
lOk := ::oCOntrol2:OnExit()
lOk := ::oCOntrol3:OnExit()
if !lOk //Hay algun error
::oControl1:SetFocus()
endif
Puedes afinarlo mas para saber donde da el error y que te envie el foco
al objeto en concreto.

[Fernando Leal]

Gracias JJG Soft,