Boleto gerar Nosso numero

[sp38 0]

Ola a todos,estou com um problema ,tenho um boleto do itau para pagamento on-line,esta tudo ok,mas estou tendo problema com os campos : Nosso número e Numero do documento.Ao gerar o boleto os numeros desses campos são sempre iguais.Alguem ja fez um boleto do itau e sabe o que faço e tem um exemplo ai ?Obrigado a todos.

[imbertti 0]

Eu tb estou com o mesmo problema... mas é do banco Real... http://forum.imasters.com.br/public/style_emoticons/default/ermm.gif

[cabral51 0]

Brotehr queria ajudar mas tb naum sei, se puder poe o link do boleto ae pra gente

[Carlos_Seiji 0]

desenvolvi uma vez, mas ouve um erro de calculo e saiu errado, fiz as correcoes, mas desistiram do projeto.

entao nao fiz mais testes p/ verificar se estava tudo 100% entao antes de implantar faca testes ok?

nossonum = 00105230 'ultimo nosso numero gerado	agenciaced = agencia cedente	contaced = conta cedente	carteiraced = carteira	num_bole = agenciaced&contaced&carteiraced	For I = 1 to Len(num_bole)		IF I mod 2 = 0 then			soma = Mid(num_bole, I, 1)*2			IF len(soma) = 2 then				soma = CInt(Left(soma, 1)) + CInt(Right(soma, 1))			End IF			total = total + soma		Else			soma = Mid(num_bole, I, 1)*1			IF len(soma) = 2 then				soma = CInt(Left(soma, 1)) + CInt(Right(soma, 1))			End IF			total = total + soma		End IF		soma = 0	Next	tt = total	datavenc = data de vencimento		datadoc = data do documento		datavenc = formatadatavenc("format1")		datadoc = formatadatadoc("format1")		datavenc = DateAdd("M", 1 , datavenc)		datadoc = DateAdd("M", 1 , datadoc)		datavenc = formatadatavenc("format2")		datadoc = formatadatadoc("format2")		nossonum = nossonum + 1		Select Case Len(nossonum)			Case 7				nossonum = "0"&nossonum			Case 6				nossonum = "00"&nossonum			Case 5				nossonum = "000"&nossonum		End Select		For I = 1 to Len(nossonum)			IF I mod 2 = 0 then				soma = Mid(nossonum, I, 1) * 2				IF len(soma) = 2 then					soma = CInt(Left(soma, 1)) + CInt(Right(soma, 1))				End IF				total = total + soma			Else				soma = Mid(nossonum, I, 1) * 1				IF len(soma) = 2 then					soma = CInt(Left(soma, 1)) + CInt(Right(soma, 1))				End IF				total = total + soma			End IF			soma = 0		Next		M = n		docnosnum = Right(total mod 10, 1)		docnosnum = Right(10 - docnosnum, 1)		num_bole = num_bole&nossonum		total = tt	Response.Write "<font face=""verdana"" size=""12"">Atualização Concluída</font>"	Function formatadatavenc(fmt)		IF fmt = "format1" then			dia_venc = Left(datavenc, 2)			mes_venc = Mid(datavenc, 3, 2)			ano_venc = Right(datavenc, 4)			IF Len(dia_venc) = 1 then				dia_venc = "0"&dia_venc			End IF			IF Len(mes_venc) = 1 then				mes_venc = "0"&mes_venc			End IF			formatadatavenc = Trim(dia_venc&"/"&mes_venc&"/"&ano_venc)		Else			dia_venc = Day(datavenc)			mes_venc = Month(datavenc)			ano_venc = Right(datavenc, 4)			IF Len(dia_venc) = 1 then				dia_venc = "0"&dia_venc			End IF			IF Len(mes_venc) = 1 then				mes_venc = "0"&mes_venc			End IF			formatadatavenc = Trim(dia_venc&mes_venc&ano_venc)		End IF	End Function	Function formatadatadoc(fmt)		IF fmt = "format1" then			dia_doc = Left(datadoc, 2)			mes_doc = Mid(datadoc, 3, 2)			ano_doc = Right(datadoc, 4)			IF Len(dia_doc) = 1 then				dia_doc = "0"&dia_doc			End IF			IF Len(mes_doc) = 1 then				mes_doc = "0"&mes_doc			End IF			formatadatadoc = Trim(dia_doc&"/"&mes_doc&"/"&ano_doc)		Else			dia_doc = Day(datadoc)			mes_doc = Month(datadoc)			ano_doc = Right(datadoc, 4)			IF Len(dia_doc) = 1 then				dia_doc = "0"&dia_doc			End IF			IF Len(mes_doc) = 1 then				mes_doc = "0"&mes_doc			End IF			formatadatadoc = Trim(dia_doc&mes_doc&ano_doc)		End IF	End Function

[hardbrasil 0]

tive o mesmo problema com o Real.

na verdade o numero repitido não é o nosso numero (no meu caso) é um número de identificação do proprio banco.

para poder visualizar o boleto corretamente voce tem que acessar uma area no seu internet banking chamada titulos compensados por convenio

e dai fazer uma busca por data de compensação, nessa pesquisa aparecem o famigerado Nosso numero.

 

no meu caso, tive de pedir a habilitação do RIE (Real internet empresas)