ID mais Data
Gerei um id ex: Cliente: gustavo id: 100
Como eu faço para gravar no edit do id o numero 100 mais o ano , ex:
id: 1002003... mais ai qdo for a virada do ano tem que ser automatico ..ex:1002004;
enfim ..só gostaria de saber como é que coloca só o ano junto com o id ..
eu consegui fazer criando uma variavel ..com o valor do ano ..mas tem um problema toda vez que virar o ano ..eu vou ter que ir mudar ela ...
Alguém sabe um pouco sobre isso
Como eu faço para gravar no edit do id o numero 100 mais o ano , ex:
id: 1002003... mais ai qdo for a virada do ano tem que ser automatico ..ex:1002004;
enfim ..só gostaria de saber como é que coloca só o ano junto com o id ..
eu consegui fazer criando uma variavel ..com o valor do ano ..mas tem um problema toda vez que virar o ano ..eu vou ter que ir mudar ela ...
Alguém sabe um pouco sobre isso
Anonymous
Curtidas 0
Respostas
Carnette
18/02/2003
no evento BEFOREPOST da sua tabela vc coloca o seguinte
Procedure Form1.TabelaTalBeforePost(DataSet: TDataSet);
var
Hoje: TDateTime;
Ano, Mes, Dia, Hora, Min, Seg, MSeg: Word;
begin
Hoje:= Now;
DecodeDate(Present, Year, Month, Day);
TabelaTalID.Value := Copy(TabelaTalID.Value,1,4)+IntToStr(Ano);
end;
Procedure Form1.TabelaTalBeforePost(DataSet: TDataSet);
var
Hoje: TDateTime;
Ano, Mes, Dia, Hora, Min, Seg, MSeg: Word;
begin
Hoje:= Now;
DecodeDate(Present, Year, Month, Day);
TabelaTalID.Value := Copy(TabelaTalID.Value,1,4)+IntToStr(Ano);
end;
GOSTEI 0