CREATE TABLE AKA (Aka C(7)) FOR lnI = 0 TO (26^7)-1 INSERT INTO AKA (Aka) VALUES (_10to26(lnI)) ENDFOR GO TOP BROWSE *------------------------------------------------------ * FUNCTION _10to26 *------------------------------------------------------ * Funcion que pasa un número de base 10 a base 26 * USO: _10to26(Numeric) * RETORNA: Caracter *------------------------------------------------------ FUNCTION _10to26(tnNro10) #DEFINE lnLargo 7 LOCAL lcNro26 lcNro26 = '' DO WHILE tnNro10 >= 26 lcNro26 = CHR(MOD(tnNro10,26) + 65) + lcNro26 tnNro10 = INT(tnNro10 / 26) ENDDO lcNro26 = CHR(tnNro10 + 65) + lcNro26 RETURN(PADL(lcNro26, lnLargo, "A")) ENDFUNC *------------------------------------------------------