Generar Numero Automatico en Cotizacion

[jmedina]

Que tal:


Espero me puedan ayudar no se como hacerlo, quiero un numero automatico de cotizacion anidado al año en que se este trabajando por ejemplo 001/2004...999/2004 y este se incremente 002/2004 etc , y que este se ponga en un campo especifico de mi base de datos en paradox llamado ( CodCot), y tambien si es que se pueda inicializar el 001 cuando cambie a el año 2005, este dato lo quiero generar cuando de una nueva cotiazacion, creen que se pueda realizar espero de su gran ayuda.

Gracias, Una Persona que empieza a programar

Saludos

[marcoszorrilla]

Bueno es fácil.

Yo lo primero que hago es en una tabla que llamo configuración guardo en un campo el ejercicio, por ejemplo 2.004, con esto ya tenemos una parte hecha, en otro campo guardo el número actual.

Al dar un alta le sumo uno al número actual y lo concateno con el ejercicio que el usuario lo cambiará cada año cuando decida comenzar con el nuevo ejercicio que no tiene porque ser precismante el 1 de enero de cada año, pues ya se sabe que se dejan algunos días para completar el ejercicio anterior.

Un Saludo.

[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.

[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

[marcoszorrilla]

Aquí tienes una parte.

Código Delphi [-]
 procedure TForm1.Button1Click(Sender: TObject);
 var
 nNumero:Integer;
 cNumero:String;
 nAn,nMes,Ndia:Word;
 begin
 DecodeDate(Date,nAn,nMes,nDia);
 nNumero:=30;
 nNumero:=nNumero+1;
 cNumero:=FormatFloat('0000',nNumero)+'/'+IntToStr(nAn);
 ShowMessage(cNumero);
 end;

Que conste que no voy de acuerdo con este planteamiento, porque es posible que todavía en Enero tengamos que hacer algún apunte del año pasado, pero bueno.

En cuanto al cambio automático de contador, tendríamos que crear en la tabla que controle este suceso, un campo con el ejercicio y otro de tipo boolean con valor True que por ejemplo llamaríamos actualizado, en el año actual tendríamos ejercicio = 2004 y Actualizado = True en el cambio de año pondríamos actualizado = False y el contador = 0, en el cambio de contador a uno pondríamos de nuevo actualizado = True.

Un Saludo.

[marcoszorrilla]

El DelphiPack, está agotado, el administrador del Foro está preparando una nueva edición, teniendo en cuenta que tiene mucho trabajo, es posible que para el verano, más bien al final salga una nueva edición, en este caso se anunciará oportunamente, modo de conseguirlo y precio.

Un Saludo.