Generar Numero Automatico en Cotizacion

[marcoszorrilla]

En un Campo por ejemplo llamado ejercicio de una Tabla auxiliar que por ejemplo yo llamaría configuración y ahí guardaría todo lo genérico a la aplicación, color de los formularios...... y otras cosas.

Al arrancar la aplicación:

Pseudocódigo:

Si año de la fecha > ConfiguraEjercicio.Value then
begin
ConfiguraContador.Value:=0;
ConfiguraEjercicio.Value:=Añodelafecha;
end;

Esto solamente ocurriría una vez al año por lo tanto el resto del año saldríamos de esta comprobación sin hacer nada.

Si el año de la fecha es mayor que el ejercicio, se realizan automáticamente dos funciones una poner el contador a 0, por lo tanto el siguiente recibo sería el 0001, ya que hemos dicho que siempre le sumamos uno al contador.

Y por otra parte el ejercio lo ponemos = al año, con lo cual hasta el año próximo no se volvería modificar el ejercicio y el contador seguiría su curso:

0001/04
0002/04
Cambio de año
Ejercicio = 2005
Contador= 0'
Siguiente recibo
Contador+1 = 0001
Ejercicio = 2005
Recibo 0001/05

Etc.


Un Saludo.