Sequencia de Números

[pedrovisk 1]

Turma,

 

Tenho uma tabela de cadastro de clientes, nessa tabela, eu tenho o campo autonúmerico, que é a chave primária também, e hoje esse númer é gerado na sequência 1,2,3,4,5... Eu gostaria que fosse gerado, não obrigatoriamente esse campo, pode ser um outro, uma sequência tipo 0001,0002,0003,0004 e assim por diante.

 

Como eu posso fazer isso? Deve ser em ASP, já que meu BD é SQL 2000.

 

Obrigado a quem poder me ajudar

 

Pedro.

[xanburzum 169]

você pode fazer uma função para inserir ou usar uma mascara

[pedrovisk 1]

Tentei assim

string(4-len(Campox),"0") & Campox

, mas não deu certo. O que está de errado?

Eu quero apenas gerar um sequencia de número para uma numeração de cartão de cliente. Já tenho o seguinte código que gera o código:

 

DtCadastro 		= Now()
DtMesCadastro 	= DatePart("M", DtCadastro)
DtAnoCadastro 	= DatePart("YYYY", DtCadastro)
DtAnoCadastro 	= Right(DtAnoCadastro,2)
DtCadastro 		= DtMesCadastro&""&DtAnoCadastro

'Gera a variável de Data de Validade
DtValidade 		= DateAdd("yyyy", 1, Now)
DtMesValidade 	= DatePart("M", DtValidade)
DtAnoValidade 	= DatePart("YYYY", DtValidade)
DtAnoValidade 	= Right(DtAnoValidade,2)
DtValidade 		= DtMesValidade&""&DtAnoValidade

SeqCartaoVIP = IDCliente&"-"&IDPax&"-"&DtCadastro&"-"&DtValidade

Mas eu queria que o IDPax acima, que é a chave como auto-incremento, exibisse com 4 dígitos 0001, 0002, 0003 e não como 1,2,3 e resto da sequancia.

[xanburzum 169]

existem várias funções para acrescentar zeros a esquerda,

 

Function zeros(valor,tamanho)

'Mascara tamanho, complemento um valor x om zeros a sua esquerda

do while len(valor) < tamanho

 valor = "0"&valor

loop

zeros = valor

End Function

você pode dar uma olhada no fórum e tb implementas do seu jeito.

[pedrovisk 1]

Muito obrigado pela ajuda xanburzum!

 

Aqui vai como eu deixei no meu codigo, mas não funcionou como deveria:

 

<%= zeros(Trim((rs.Fields.Item("NumCartaoPax").Value)),3) %>

Ficou assim: 49637-7-1208-1209 onde o numero 7, eh o ID de auto-incremento e que deveria exibir com 3 casas decimais, conforme solicitei acima.

 

Lembrando que este numero eh gerado, depois registrado na tabela. Eu quero que apos ser gerado, fosse gerado os ZEROS e depois inseridos na tabela, o que acha.

 

Grato,

 

Pedro.

[xanburzum 169]

procure no repositório que existe varias funções