FoxPro/Visual FoxPro - textbox validacion dato

Hola Amigos, Miren tengo esto en un textbox

en un textobox que cargo el numero de factura ej: "B-00-12123", bueno yo en el Lostfocus del textbox pongo
If left(thisform.txtfactura.vlue,1) <> "B" (puede ser solamente A o B)
messagebos( mensaje de error"
thisform.txtfactura.value = " - - "
thisform.txtfactura.setfocus

el tema es que no me valida eso a la salida del lostfocus, probe de varias maneras y en algunos casos pongo cualquier letra y me deja seguir y en otra forma que probe tambien me quedo siempor ahi

Ese codigo esta bien escrito?, va en el evento del Lostfocus o va en el Valid

Muchas Gracias nuevamente

Pone la validacion en el metodo valid de la caja de texto
y retorno .t.o .f. segun cupla la validacion o no

Hola, Sergio o quien me pueda ayudar, puse esto en el metodo VALID

IF LEFT(thisform.txtfactura.Value,1) <> "B" .or. LEFT(thisform.txtfactura.Value,1) <> "A"
=MESSAGEBOX("Debe Ingresar Numero de Factura A o B" + CHR(13)+ CHR(13)+ "Numero de Factura",048,"Administrador del Sistema")
thisform.txtfactura.Value = " - - "
RETURN this.Value
ELSE
ENDIF


pero resulta ser que ponga la letra que ponga siempre me pone el erro del debo ingresar factura y encima no me deja salir del form, jajaj

Me pueden decir como va, porque no me doy cuenta o no entiendo bien esto

Muchas Gacias

En la edicion del TxtFactura pon esto
Pestaña datos

Propiedad Format = !

*// En la propiedad Format del txtFactura pon esto
*// TxtFactura.Format = !
*// para que solo acepte mayusculas
*// En la propiedad inputMaask
*// TxtFactura.InputMask = X-99-99999
*// todo lo anterior en modo diseño

*// y este seria el codigo
DO case
CASE LEFT(this.Value,1) = "A"
CASE LEFT(this.Value,1) = "B"
OTHERWISE
messagebox("No es a ni b")
this.Value = ""
ENDCASE

Saludos

Pon esto en el VALID:
IF LEFT(THISFORM.txtfactura.value,1) <> "A" AND LEFT (THISFORM.txtfactura.value,1) <> "B"
messagebox( mensaje de error"
thisform.txtfactura.value = " - - "
RETURN 0
ENDIF
*Esto deberia de funcionarte!!!!!!