FoxPro/Visual FoxPro - Consecutivo

Buenos días a todos los programadores.

Estoy diseñando un proyecto el cual incluye una tabla con el campo codigo, cuyo dato esta conformado por el año actual y un número consecutivo, por ejemplo:
1er registro = 20101
2do registro= 20102......... y así sucesivamente

Utilizo la función que me extra el año. Pero quiero hacer que cuando cambie al año siguiente el consecutivo empiece desde 1 nuevamente, por ejemplo 20111, 20112, 20113.....

Me podría colaborar por favor dándome una idea...

CLOSE TABLE ALL
USE mi_tabla IN 0 && Tabla con codigo....
SELE mi_tabla
*
* Para saber si es primer registro *****
IF RECC() = 0 && Primer registro
* Crear primer registro
ENDIF
*
* Aca ya existe registro
* Extraer el año de mi_tabla.codigo
IF año_codigo != año_digitado
* Aca se crea el nuevo año iniciando desde 1
ELSE
* Aca se incrementa el correlativo en 1
ENDIF