Contador

[Reinaldo 0]

Aê Pessoal!

Tô enrolado, preciso criar uma função pra gerar numeros sequencias apartir dessa variavel:

refTran = "135862710000000012" Esse é um sistema de boleto do Banco do Brasil onde cada solicitação de boleto tem que gerar um nosso numero sem repetição e sequencial.

Desde já agradeço a todos.

[jrcardozo 4]

é só armazenar esse valor em algum lugar, tipo xml,DB, arquivo texto,etc e depois ir incrementando. Primeiro pesquisa no TXT(por exemplo), guarda o valor numa variavel, incrementa o valor e atualiza o TXT com o valor incrementado. Com isso você fica com uma variavel com o codigo anterior e a possibilidade de erro fica minimizada

[Reinaldo 0]

Cara não saco muito disso, se você poder me dar uma dica com o código eu agradeço.

[jrcardozo 4]

if session("idprodutocad") = "" then							caminho=server.mappath("contador.txt")		Set objFSO = Server.CreateObject("Scripting.FileSystemObject")  		Set objTextStream = objFSO.OpenTextFile(caminho, 1)		session("idprodutocad")= objTextStream.ReadAll+1 'armazena na sessão o codigo do TXT +1		Set GRAVAR = objFSO.CreateTextFile(caminho,true)		gravar.write (session("idprodutocad")) 'grava o novo codigo no TXT com o valor incrementado		gravar.close		   		objTextStream.Close		Set objTextStream = Nothing		Set objFSO = Nothing		  	   end if

Crie um arquivo TXT com o nome contador.txt no mesmo diretório da página

[Reinaldo 0]

Broder valeu pela dica, mas não consegui entender bem, o processo é o seguinte reftran é uma variavel onde tenho que pasar uma numeração referente ao campo nosso numero do boleto. Entã tentei fazer dessa forma:

 

 

reTran="13586271000000013" Essa numeração tem que alterar a cada boleto emitido entende.

 

if session("refTran") = "" then

caminho=server.mappath("contador.txt")

Set objFSO = Server.CreateObject("Scripting.FileSystemObject")

Set objTextStream = objFSO.OpenTextFile(caminho, 1)

session("refTran")= objTextStream.ReadAll+1 'armazena na sessão o codigo do TXT +1

Set GRAVAR = objFSO.CreateTextFile(caminho,true)

gravar.write (session("refTran")) 'grava o novo codigo no TXT com o valor incrementado

gravar.close

objTextStream.Close

Set objTextStream = Nothing

Set objFSO = Nothing

end if

 

Se poder me ajudar nessa fico grato.