Fórum 0001, 0002, etc, alguém sabe? #153599

09/04/2003

0

Vou emitir um pedido de um cliente e gostaria de saber como faço para que o número do pedido apareça automática e sequencialmente, desta forma: 0001, 0002, 0003, etc. Ou seja, quando eu clicar num botão(Novo) o número 0001 deve aparecer num DBedit, depois que eu salvar este e for emitir um novo pedido, no DBEdit deve aparecer 0002 e assim sucessivamente! Se alguém puder me ajudar agradeço muito!
:idea:


Ginosam

Ginosam

Responder

Posts

10/04/2003

Dli

Crie um campo na tabela:

Codigo, I

Crie uma tabela Chamada Controle e coloque nesta tabela um campo para cada form que você tiver. Por exemplo:

Ctr_Cliente, I
Ctr_Fornecedor,I


Agora cada vez que voce for fazer uma inclusão, conforme o formulário, faça:

No Onclick do botão inclusão, faça:

Ctr_Cliente.Value:=Ctr_Cliente.value+1;
....
....Outros códigos que você queira antes de fazer o append da tabela

tabelanome.Append;

tabelaNomedocampo.value:=tbControleCtr_Cliente.Value;


Desta forma você incrementou o número sequencial e definiu esse número no append da tabela.

Para deixar no format 0001...000n

Defina a propriedade DisplayFormat do campo que recebe o código assim:
0000(para 0001...) ou 00000(para 00001....)

Espero ter ajudado. Qualquer dúvida entre em contato.


dli


Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar