Generar Numero Automatico en Cotizacion

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

[DarkByte]

Por fin ya sabemos que pasa con el Delphi Pack. Si puedo ayudar en algo a Emilio... que lo diga .

[jmedina]

que tal Nuevamente Marcos, tengo una duda no entiendo muy bien lo que me dices de manejar una minitabla para ejerciios, bueno el crearla es facil pero emprearla ahi si ando medio fritillo, como crees que le pueda hacer, si no es mucha molestia, te lo agradeceria de antemano


Gracias

JMedina