HMGforum.com

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