Gerar registro auto em forma numerica (001-0001)

Delphi

15/01/2004

pessoal, comecei a programar agora e estou com dificuldades em como gerar numeros em sequencia no formato de placa de veiculo (ex.: 001-0153)

essa numeracao seria de 001-0001 a 999-9999

grato se alguem me ajudar :?:


Luis Neto

Luis Neto

Curtidas 0

Respostas

Ilan

Ilan

15/01/2004

vc pode gerar o código auto numeração normal e colocar uma máscara para exibição.
ok.

ilan.fa@pop.com.br


GOSTEI 0
Luis Neto

Luis Neto

15/01/2004

Obrigado Ilan,

Mas o problema e que o numero so deve ser gerado quando a obedecndo uma oredem ex:

001-0001
001-0002
001-0003...
001-0166...
099-0001..

Pode ser que usando um laco de repeticao mais nao consegui


GOSTEI 0
Aroldo Zanela

Aroldo Zanela

15/01/2004

Colega,

Acho que um tabela com duas colunas, sendo uma para prefixo e outra para sufixo poderia resolver.


GOSTEI 0
Luis Neto

Luis Neto

15/01/2004

Caro Arnaldo,

Obrigado pela dica, mas nao consegui fazer...
vc poderia me fornecer as linhas de comando ou ate mesmo a maneira como devo proceder.

Grato se puder me ajudar


GOSTEI 0
Aroldo Zanela

Aroldo Zanela

15/01/2004

Colega,

function PegaProximo: String;
var nSufixo, nPrefixo: Integer;
begin
  if tbSequenciasSUFIXO.Value=9999 then
  begin
    nSufixo   := 1;
    nPrefixo  := tbSequenciasPREFIXO.Value+1;
  end else
  begin
    nSufixo   := tbSequenciasSUFIXO.AsInteger+1;
    nPrefixo  := tbSequenciasPREFIXO.Value;
  end;

  tbSequencias.Edit;
  tbSequenciasSUFIXO.Value  := nSufixo;
  tbSequenciasPREFIXO.Value := nPrefixo;
  tbSequencias.Post;

  PegaProximo := FormatFloat(´000´, nPrefixo) + ´-´ + FormatFloat(´0000´,nSufixo);

end;


Trecho do efeito:
002-9997
002-9998
002-9999
003-0001
003-0002

No exemplo acima, utilizei uma tabela desktop com dois campos numéricos.


GOSTEI 0
Luis Neto

Luis Neto

15/01/2004

VAAALEUUU! DEU MAIS DO QUE CERTO, CARA QUANDO PRECISAR ESTOU AQUI!!!

LUIS NETO


GOSTEI 0
POSTAR