Ayuda con estas validaciones!
Hola amigo quisiera saber si pudieras ayudarme con estas
validaciones de unos textbox lo quiero es edite algo en un text y ese
valor ya existe en alguna tabla me mande un mensaje y cuando le de en
aceptar al mensaje en el text me quede lo que he editado como cunado
seleccionamos un texto osea para que así no tenga que darle BACKSPACE
par borrarlo y simplemente empiece a escribir y el texto anterior
desaparecerá, y la otra sentencia que necesito es la que me convierta
todo el contenido de un text en mayúscula.
De ante mano gracias por tu respuesta!
validaciones de unos textbox lo quiero es edite algo en un text y ese
valor ya existe en alguna tabla me mande un mensaje y cuando le de en
aceptar al mensaje en el text me quede lo que he editado como cunado
seleccionamos un texto osea para que así no tenga que darle BACKSPACE
par borrarlo y simplemente empiece a escribir y el texto anterior
desaparecerá, y la otra sentencia que necesito es la que me convierta
todo el contenido de un text en mayúscula.
De ante mano gracias por tu respuesta!
2 Respuestas
Respuesta de ikz0f7
1
Para validar si el registro existe puedes crear un índice en la tabla y, usar una función para hacer una búsqueda y ver si ya existe un registro igual. Para lo demás, es simple.
** Para que se escriba en mayúsculas
ThisForm.txtClave.InputMask = "!!!!!!!!!"
** Código para guardar
IF ValidaClave(ThisForm.txtClave.Value) == .F.
MESSAGEBOX("Clave Ínvalida !")
ThisForm.txtClave.Value = ""
ENDIF
** Función para validar
FUNCTION ValidaClave(cClave)
PRIVATE ALL
lValRet = .T.
USE Tabla IN 0 AGAIN ALIAS ParaComparar ORDER OrdenClave
SELECT ParaComparar
IF SEEK(cClave)
lValRet = .F.
ENDIF
USE IN ParaComparar
RETURN lValRet
Endfunc
** Para que se escriba en mayúsculas
ThisForm.txtClave.InputMask = "!!!!!!!!!"
** Código para guardar
IF ValidaClave(ThisForm.txtClave.Value) == .F.
MESSAGEBOX("Clave Ínvalida !")
ThisForm.txtClave.Value = ""
ENDIF
** Función para validar
FUNCTION ValidaClave(cClave)
PRIVATE ALL
lValRet = .T.
USE Tabla IN 0 AGAIN ALIAS ParaComparar ORDER OrdenClave
SELECT ParaComparar
IF SEEK(cClave)
lValRet = .F.
ENDIF
USE IN ParaComparar
RETURN lValRet
Endfunc
Respuesta de davsoft
1
Para que un texto se seleccione toda en un texbox lo único que debes hacer es poner la propiedad selectedonentry en .t., para que te convierta todo en mayúsculas pones en la propiedad format ! (Un signo de admiración cerrado) y listo, así en el evento valid seria si
Seleccionar tabla,
buscar el dato
if found()
messagebox("Ya existe")
return(0)
else
return(1)
Endif
Con esto es suficiente, el return(0) mantendrá el cursor en ese objeto y seleccionado el contenido. Espero te sirva y no se si hay un problemas con mis respuestas por que siempre has dado muy bajas calificaciones, si no es de tu agrado estaré obligado a descartar tus preguntas, aquí la idea es ayudar a los demás sin pedir nada a cambio, una buena calificación es lo único que nos alienta a no poner nuestro estado en NO DISPONIBLE y pegarnos a la TV.
Seleccionar tabla,
buscar el dato
if found()
messagebox("Ya existe")
return(0)
else
return(1)
Endif
Con esto es suficiente, el return(0) mantendrá el cursor en ese objeto y seleccionado el contenido. Espero te sirva y no se si hay un problemas con mis respuestas por que siempre has dado muy bajas calificaciones, si no es de tu agrado estaré obligado a descartar tus preguntas, aquí la idea es ayudar a los demás sin pedir nada a cambio, una buena calificación es lo único que nos alienta a no poner nuestro estado en NO DISPONIBLE y pegarnos a la TV.