FUNCTION HashingPKID
LPARAMETERS tcString

LOCAL lnumero,z

lnumero = 0  
FOR z = 1 TO LEN(tcString)
    lnumero = lnumero + (ASC(SUBSTR(UPPER(tcString),z,1)) * (10*z))
ENDFOR
lnumero = lnumero + 100000 && because I what the number in the 100 000
RETURN lnumero