FoxPro/Visual FoxPro - VALID vs LOSTFOCUS

Como les comentaba en un post anterior, tengo un TEXTBOX donde se lleva a cabo la siguiente secuencia de eventos

WHEN -> GOTFOCUS -> (cargo el dato) -> VALID -> LOSTFOCUS -> VALID

donde el último VALID no tendría que ejecutarse

Les mando el códico del LOSTFOCUS y del VALID para que lo evalúen, tal como me lo pidieron:

[ VALID ]
do case

case this.value=0
return .t.

case this.value<0
=messagebox("Está facturando en Negativo", 0+48+0, "Atención")
return .T.

endcase

[LOSTFOCUS]
do case
case this.readonly or this.value=0
thisform.codstktxt.setfocus && HACE FOCO EN OTRO TEXTBOX

otherwise
thisform.okStock.setfocus &&HACE FOCO EN UN BOTON DE OK
endcase

cuando cargas el dato que se tiene que cumplir ?
que pasa si el dato es 5 eso siginifica que es mayor de 0 por que habria de decir que estoy facturando en negativo

Suerte

- Yo pondria todo el codigo en el Lostfocus
- El siguiente codigo lo haria asi

case this.value<0
=messagebox("Está facturando en Negativo", 0+48+0, "Atención")
NODEFAULT
return .F.

De acuerdo contigo compañero entonces seria asi
DO CASE
CASE This.Value<0
=MessageBox("Está facturando en Negativo", 0+48+0, "Atención")
NoDefault
Return .F.
OTHERWISE
DO CASE
CASE This.ReadOnly or This.Value=0
ThisForm.codstktxt.SetFocus && HACE FOCO EN OTRO TEXTBOX
OTHERWISE
ThisForm.okStock.SetFocus &&HACE FOCO EN UN BOTON DE OK
ENDCASE


Suerte

[ LOST FOCUS ]

IF this.value=0
return .t.
ELSE
case this.value<0
=messagebox("Está facturando en Negativo", 0+48+0, "Atención")
return .T.

ENDIF

do case
case this.readonly or this.value=0
thisform.codstktxt.setfocus && HACE FOCO EN OTRO TEXTBOX

otherwise
thisform.okStock.setfocus &&HACE FOCO EN UN BOTON DE OK
endcase

SUERTE►
Nota es mejor en este caso, todo el codigo en el "Lost Focus", ya que ahí no hay restricciones.

Hola
1) Algunas validaciones de foco, las puedes hacer en el WHEN del siguiente campo de esta forma controlas que si no se cumple la validacion correspondiente con un SETFOCUS regresas al campo que desees.

2) la validacion puedes hacerla en el LOSTFOCUS, pero esta se haria invariablemente, aun haciendo click con el mouse en otro objeto.

3) tambien puedes hacer validaciones en el KEYPRESS de tu objeto, ahi validas si presionas ENTER, TAB, etc.. y puedes restringir y redireccionar el foco al objeto que deseas.

4) Tambien puedes involucrar FDU's o PROCEDIMIENTOS para hacer la validacion en el VALID, de esta forma estas fuera del objeto y de tal forma, en este procedimiento o funcion, puedes controlar tu enfoque de objetos

Recuerda la secuencia en que VFP ejecuta sus objetos ej;
WHEN, GOTFOCUS, KEYPRESS, VALID, LOSTFOCUS