FoxPro/Visual FoxPro - textbox validacion dato

   
Vista:

textbox validacion dato

Publicado por Pablo (Argentina) (433 intervenciones) el 22/05/2009 14:58:33
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
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:textbox validacion dato

Publicado por sergio (697 intervenciones) el 22/05/2009 15:04:57
Pone la validacion en el metodo valid de la caja de texto
y retorno .t.o .f. segun cupla la validacion o no
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:textbox validacion dato

Publicado por Pablo (Argentina) (433 intervenciones) el 22/05/2009 15:45:21
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
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:textbox validacion dato

Publicado por es_binario (757 intervenciones) el 22/05/2009 16:34:30
En la edicion del TxtFactura pon esto
Pestaña datos

Propiedad Format = !
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:textbox validacion dato

Publicado por es_binario (757 intervenciones) el 22/05/2009 16:40:12
*// 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
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Mauricio

Textbox validacion dato

Publicado por Mauricio (1368 intervenciones) el 22/05/2009 17:08:51
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!!!!!!
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar