Como crear un consecutivo.

[JCarlos]

Hola foro.
Bueno tengo un gran problema, y espero que alguien me pueda ayudar.
Tengo hecho con delphi 7 un proyecto para hacer facturas, las imprimo y la guardo en una base de datos paradox, el problema lo tengo en que necesito crear un consecutivo para el numero de la factura es decir, cuando yo haga clic en el boton de nueva factura, en el campo del No. de Factura ya me salga el numero que toca, quedando dicho consecutivo de la siguiente manera n/05
Siendo n el numero que le sigue al que ya esta en la base de dato, / y el AÑO, pero cuando cambie de AÑO n tendria que ser nuevamente 1. Por ejemplo comienzo
1/05 .........
2/05 .........
...............
01/06 .......
Agradesco cualquier sugerencia. pues no tengo ni idea de como hacer esto. .
Gracias de antemano.

[marcoszorrilla]

Yo guardo en una tabla auxiliar el último número de factura utilizado, entonces en el evento OnNewRecord de la Tabla Facturas, en donde el número de factura lo tengo declarado de tipo texto.

Y el ejercicio es también un campo de tipo texto que tengo en una tabla auxiliar.

Tabla Auxiliar:UltimoNumero - Entero: por ejemplo 1000
Tabla Auxiliar:Ejercicio actual- Texto: por ejemplo '05'

FacturasNumero.Value:=FormatFloat('0000',TAuxiliarnumero.Value + 1) + TAuxiliarEjercicio.Value;

Resultado:=1001/05

Un Saludo.