Boleto não imprime valor

Mar 3, 2011 at 12:29 AM

Olá,

 

Estou começando agora a implementar o boletonet.Peguei um exemplo de código aqui que funciona ok para o Santander mas quando altero o banco para 237 ( Bradesco ) e carteira 06 o valor deixa de aparecer. Alguém pode ajudar ? 

O código é este : 

        Dim txtVencimento = New DateTime(2009, 3, 6).ToString("dd/MM/yyyy")
        Dim txtValorBoleto = "656,40"
        Dim txtNumeroDocumentoBoleto = "B20005446"

        'Cedente
        Dim txtCodigoCedente As String = "0806498"
        Dim txtNossoNumeroBoleto As String = "00003332007"
        Dim txtCPFCNPJ As String = "59.323.998/0001-08"
        Dim txtNomeCedente As String = "Uniabc"
        Dim txtAgenciaCendente As String = "432"
        Dim txtContaCedente As String = "0806498"

        'Sacado
        Dim txtCPFCNPJSacado As String = "000.000.000-00"
        Dim txtNomeSacado As String = "Fulado da Silva Cicrano"
        Dim txtEnderecoSacado As String = "Rua Sem Fim"
        Dim txtBairroSacado As String = "Sei n�o, mo�o!"
        Dim txtCidadeSacado As String = "Terra do Nunca"
        Dim txtCEPSacado As String = "12345-000"
        Dim txtUFSacado As String = "CA"

        '###############################################################################################

        Dim c = New Cedente(txtCPFCNPJ, txtNomeCedente, txtAgenciaCendente, txtContaCedente)

        c.Codigo = CInt(txtCodigoCedente)

        Dim b = New Boleto(CDate(txtVencimento), CDbl(txtValorBoleto), "06", txtNossoNumeroBoleto, c)

        b.NumeroDocumento = txtNumeroDocumentoBoleto

        b.Sacado = New Sacado(txtCPFCNPJSacado, txtNomeSacado)
        b.Sacado.Endereco.End = txtEnderecoSacado
        b.Sacado.Endereco.Bairro = txtBairroSacado
        b.Sacado.Endereco.Cidade = txtCidadeSacado
        b.Sacado.Endereco.CEP = txtCEPSacado
        b.Sacado.Endereco.UF = txtUFSacado

        Dim i As New Instrucao_Santander()
        i.Descricao = "N�o Receber ap�s o vencimento"
        b.Instrucoes.Add(i)

        b.EspecieDocumento = New EspecieDocumento_Santander(17)

        Dim bb As New BoletoBancario()
        bb.CodigoBanco = 237
        bb.Boleto = b
        bb.MostrarCodigoCarteira = True
        bb.MostrarContraApresentacaoNaDataVencimento = True
        bb.MostrarComprovanteEntrega = True
        bb.Boleto.Valida()

        bb.MostrarComprovanteEntrega = False

        WebBrowser1.DocumentText = bb.MontaHtml()