FoxPro/Visual FoxPro - Codigo Alfanumerico

   
Vista:

Codigo Alfanumerico

Publicado por martin (4 intervenciones) el 04/02/2013 16:22:00
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?
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Edgar Zambrano

Codigo Alfanumerico

Publicado por Edgar Zambrano (72 intervenciones) el 04/02/2013 17:56:16
se mas especifico, ese codigo lo colocaras en un textbox o quieres que se te genere automaticamente?
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Codigo Alfanumerico

Publicado por Martin (3 intervenciones) el 04/02/2013 19:22:23
Quiero q sea un codigo correlativo
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Mauricio

Codigo Alfanumerico

Publicado por Mauricio (1367 intervenciones) el 04/02/2013 23:52:24
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
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar