Fórum Gerar registro auto em forma numerica (001-0001) #206779
15/01/2004
0
essa numeracao seria de 001-0001 a 999-9999
grato se alguem me ajudar :?:
Luis Neto
Curtir tópico
+ 0Posts
15/01/2004
Ilan
ok.
ilan.fa@pop.com.br
Gostei + 0
15/01/2004
Luis Neto
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
15/01/2004
Aroldo Zanela
Acho que um tabela com duas colunas, sendo uma para prefixo e outra para sufixo poderia resolver.
Gostei + 0
16/01/2004
Luis Neto
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
16/01/2004
Aroldo Zanela
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
17/01/2004
Luis Neto
LUIS NETO
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)