Gerar número identificador

[johellyson 0]

Ao cadastrar um formulário eu quero que o número de identificação seja gerado da seguinte forma:

AAAANNNN, onde AAAA é o ano e NNNN é o número.

[wllf 2]

Bom dia, o campo identificação tem q ser do tipo string para receber os valores, supondo q o NNNN seja um contador.

 

campo.string := formatdatetime('yyyy', date) + formatfloat('0000', contador.value);

 

Talvez precise de uma conversão do tipo inttostr no contador não me lembro agora, mas a idéia é essa.

[Marostegan 0]

aproveitando esse topico que está falando de gerar numero...

 

eu gostaria que o numero que fosse gerado aqui no meu sistema, que hoje é só assim: 1, 2, 3....

 

ficasse formatado assim: 000001, 000002, 000003 ....

 

estou usando a seguinte programação:

 

var
Numero : Integer;

begin
with dm.q_contagem do begin
//BUSCA
close;
SQL.Text:='select contagem from tbl_contagem';
Open;
Numero := dm.q_contagem.FieldbyName('contagem').AsInteger;
f_recibo_pagar.numero.Text := IntToStr(Numero);
//ATUALIZA
close;
SQL.Text:='update tbl_contagem set contagem =:contagem';
Parameters.ParamByName('contagem').Value := Numero + 1;
ExecSQL;

end;

[wllf 2]

Dan você usa o mesmo esquema:

 

numero = 1;

 

campo.string := formatfloat('000000', numero);

 

Resultado = 0000001