Consecutivo

Utiliza una una función que lo autoincremente en una tabla aparte.
Te envío un ejemplo:
****Parameters cLlave
cLlave = upper(allt(cLlave))
Local nDevuelve,cAlias
nDevuelve = 0
cAlias = Alias()
if !Used('contador')
ABRETABLA('Contador',GeneraRuta(DatoLocal('Ruta','c'),Date()))
endif
Select contador
Locate for allt(Llave) == cLlave
if !Found()
Append blank
Replace LLave with cLlave
endif
replace contador.UltimoVal with Contador.UltimoVal + 1
Store contador.UltimoVal to nDevuelve
use in ('contador')
If !EMPTY(cAlias)
Select &cAlias
endif
Return nDevuelve
************
Con eso te delvolverá un número incrementado automáticamente cada vez que lo llames.