FoxPro/Visual FoxPro - Codigo Alfanumerico

Buenos dias

Necesito hacer un codigo albanumerico, como puedo hacerlo, si alguien tiene un ejemplo por favor, lo que quiero lograr es:

A001
A002
A003
A004
.
.
B002
.
.
.
AA01
AA02
.
.
.
.
AB01
AB02
.
.
.
etc

Se entiende verdad?

se mas especifico, ese codigo lo colocaras en un textbox o quieres que se te genere automaticamente?

Quiero q sea un codigo correlativo

creas una tabla con la parte alfabetica que quieras mas la parte numerica, claro los 2 por separado
Tabla_control
detalle correlativo(ultimo correlativo creado)
A ....................3
B.....................1
AA.................10
BB..................9
AB...................6
*******
ejemplo de numero correlativo:
"AA00000010"
Lo puedes tener indexado por la columna detalle
codigo = "AA"
SEEK codigo
IF FOUND()
......val_num = correlativo + 1
......val_car =STR(val_num) && aca hacemos correlativo (numerico) a caracter
......val_car = PADL(val_car,8,"0") && Aca lo rellenamos a la izquierda de ceros
* Armar correlativo **
......nuevo_valor = detalle + val_car
ENDIF