FoxPro/Visual FoxPro - Generar numero de inventario

Hola, quisiera que alguien me dijera como genero el codigo de inventario de los activos fijos automaticamente de acuerdo al correlativo y otros aspectos, por ejemplo. si yo quiero ingresar 100 mesas para computadoras el codigo debe ser el siguiente:

Cod. Institucion + Clase de activo fijo + Correlativo
10205 0114 0001

Ahora bien, como son 100 mesas quiero que automaticamente me genere los 100 codigos del 1 al 100 y si quiero agregar mas que sea del 100 en adelante, esto es cuando el activo fijo no tiene modelo ni numero de serie.

de ante mano muchas gracias

Partiendo del supuesto que es una tabla ya existente puedes usar esto:
*--- Programa para generar correlativo de Activo Fijo
*--- La tabla Inventa esta creada como LIBRE
*--- La estructura es: codigo N(5), act_fijo C(4), corre C(4)
*--- fecha D
CLOSE TABLE ALL
USE inventa IN 0 ORDER clave
SELE inventa
GO TOP
wcodigo = codigo
wactivo = act_fijo
STORE 0 TO wcorre
SCAN
IF codigo = wcodigo AND act_fijo = wactivo
wcorre = wcorre + 1
otro = PADL(INT(wcorre), 4, '0')
REPLACE correla WITH otro, fecha WITH DATE()
ELSE
wcodigo = codigo
wactivo = act_fijo
wcorre = 0
wcorre = wcorre + 1
otro = PADL(INT(wcorre), 4, '0')
REPLACE correla WITH otro, fecha WITH DATE()
ENDIF
ENDSCAN
USE
CLOSE TABLE ALL