Generador de códigos
Necesito generar un código agarrando las primeras letras del nombre o algo así y luego tres números aleatorios si me dicen como hacerlo se los agradezco. Gracias
1 respuesta
Respuesta de marcelocf
1
Utiliza esta función
FUNCTION FormarCodigo
lparameters cNombre
local cIni as String
local gnLower as Integer
local gnUpper as Integer
cIni = substr(cNombre,1,3)
RAND()
gnLower = 1
gnUpper = 999
a= INT((gnUpper - gnLower + 1) * RAND( ) + gnLower)
return cIni+PADL(ALLTRIM(STR(a)),3,'0')
Endfunc
Forma de invocación:
n = FormarCodigo('Marcelo')
?n
FUNCTION FormarCodigo
lparameters cNombre
local cIni as String
local gnLower as Integer
local gnUpper as Integer
cIni = substr(cNombre,1,3)
RAND()
gnLower = 1
gnUpper = 999
a= INT((gnUpper - gnLower + 1) * RAND( ) + gnLower)
return cIni+PADL(ALLTRIM(STR(a)),3,'0')
Endfunc
Forma de invocación:
n = FormarCodigo('Marcelo')
?n
