Code: Select all
// Función Validate () Comprueba si los caracteres de cCadena están validados por cChars (retorna .T.)
// Uso Validate (cName,"abcd345") Si cName = a-d y 3-5 retorna .T. sinó retorna .F.
// Creada por Claudio Ricardo Folgán 03/2021
Function Validate (cCadena,cChars)
LOCAL cValid := .T.
LOCAL i
For i = 1 To Len (cCadena)
If ! Lower ( SubStr (cCadena,i,1)) $cChars
cValid := .F.
EndIf
Next
Return cValid
Code: Select all
LOCAL cNombre := Fupper ( AllTrim ( GetProperty ("Config" , "Text_Nombre" , "Value")))
LOCAL cPass1 := GetProperty ("Config" , "Text_Pass1" , "Value")
LOCAL cPass2 := GetProperty ("Config" , "Text_Pass2" , "Value")
LOCAL cCadena := "abcdefghijklmnñopqrstuvwxyz0123456789" // List of valid characters
If Empty (cNombre)
MsgStop ("Debe escribir un nombre de usuario." , "Error.")
Return Nil
EndIf
If ! Validate (cNombre,cCadena) // Compruebo que sólo ingresen caracteres válidos
MsgStop ("Sólo son válidos caracteres a-z y 0-9 sin acentos ni espacios." , "Error.")
Return Nil
EndIf
If Empty (cPass1)
MsgStop ("Debe escribir una contraseña de usuario." , "Error.")
Return Nil
EndIf
If ! Validate (cPass1,cCadena) // Compruebo que sólo ingresen caracteres válidos
MsgStop ("Sólo son válidos caracteres a-z y 0-9 sin acentos ni espacios." , "Error.")
Return Nil
EndIf
// here the rest of code
Code: Select all
ASN = SPACE(1)
@ 18,25 SAY "Desea continuar ? S/N " COLOR"BR+" GET ASN PICT "@!" VALID ASN $ "SN"
READ