Generar Numero Automatico en Cotizacion

[jmedina]

Empezado por marcoszorrilla

Te añado un pequeño ejemplo para que acabes de ver la idea:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
nEjercicio:Integer;
nNumero:Integer;
cNumero:String;
begin
nEjercicio:=2004;
nNumero:=30;
nNumero:=nNumero+1;
cNumero:=FormatFloat('0000',nNumero)+'/'+IntToStr(nEjercicio);
ShowMessage(cNumero);
end;

Un Saludo.

Ok si lo entiendo pero como hacerlo de una manera automatica donde el año lo tome de la fecha que se le esta asignando y asi mismo cuando cambie el año se reinicie en 001 , gracias por la ayuda espero me heches la mano, otrra cosa veoel anuncio de lo del delphi PACK, y me interesaria, no sabes como conseguirlo y cuanto cuesta en pesos

saludos