PEGAR O ULTIMO REGISTRO
Boa tarde pessoal!!!
Desenvolvi um sistema que faz vendas de passagem de táxi, neste sistema quando gero uma nova venda é criado um novo código aleatório conforme rotina abaixo. Porém preciso transferir os dados da tabela de vendas todo final de expediente para uma outra tabela no escritório. Porém quando faço novas vendas e atualizo o escritório novamente acustuma da duplicidade de códigos. Então criei uma tabela no BD (TblParametro) que grava sempre o ultimo código gerado. Agora preciso de uma rotina que lê este ultimo código nesta tabela e gera um novo baseado na rotina abaixo:
ou seja, pegar o ultimo codigo e randomizar de acordo com a função acima
Grato.
VB 6.o
Marcelino
Desenvolvi um sistema que faz vendas de passagem de táxi, neste sistema quando gero uma nova venda é criado um novo código aleatório conforme rotina abaixo. Porém preciso transferir os dados da tabela de vendas todo final de expediente para uma outra tabela no escritório. Porém quando faço novas vendas e atualizo o escritório novamente acustuma da duplicidade de códigos. Então criei uma tabela no BD (TblParametro) que grava sempre o ultimo código gerado. Agora preciso de uma rotina que lê este ultimo código nesta tabela e gera um novo baseado na rotina abaixo:
Function AutoID()
Randomize
txtVoucher.Text = Round(Rnd() * 79999) & Round(Rnd() * 25) + 65 + 3
End Functionou seja, pegar o ultimo codigo e randomizar de acordo com a função acima
Grato.
VB 6.o
Marcelino
Crie um indice na tabela pelo código
Organize a tabela pelo indice
Tabela.Index = "IndÃÂÂce"
Tabela.MoveLast
Text1 = Tabela!Código
Esse código é o ultimo
Bos sorte
O código abaixo deve resolver o seu problema :
onde reg é o valor do registro lido da tabela de parametro
Function AutoID(reg)
Randomize
txtVoucher.Text = Round(Rnd(reg) * 79999) & Round(Rnd(reg) * 25) + 65 + 3
End Functiononde reg é o valor do registro lido da tabela de parametro
Cara, desculpe a minha burrice, como devo criar esta função (reg).
Não...O Reg do Clins é o meu Text1..entendeu
So uma pergunta... Esta duplicidade ocorre porque vc sempre gera um numero baseado em uma mesma chave. Porquer não muda a chave pára por exemplo, o numero da placa do carro da venda?
Caro colega, todas as respostas acima não deram certo, preciso somente pegar o ultimo código que foi gerado que esta armazenado na tblParametro, e randomizar o novo código com o ultimo gerado, desta forma posso gerar bilhões de códigos sem duplicidade.
Outra alternativa seria registrar os numeros que já vem nos blocos de gráfica e a medida que utilizarmos um numero, o mesmo seria deletado da tabela tblparametros. Porem não consegui gerar tal função.
Marcelino Neto
Outra alternativa seria registrar os numeros que já vem nos blocos de gráfica e a medida que utilizarmos um numero, o mesmo seria deletado da tabela tblparametros. Porem não consegui gerar tal função.
Marcelino Neto
Pessoal, valeu pela força, consegui.
Tópico encerrado , respostas não são mais permitidas