Impressão do Codigo do Boleto

Jul 19, 2012 at 3:39 PM

Bom  dia !!!

 

Primeiramente obrigado pela atenção e parabéns pelo trabalho, estou utilizando a biblioteca BoletoNet para banco bradesco, mas não esta imprimindo o codigo do boleto... 

Segue meu fonte para ver que estou fazendo errado, fonte é um teste :

 

        DateTime vencimento = new DateTime(2012, 7, 18);
             //                       CNPJ Cliente           Nome Cedente                              Ag      DG   Conta    DG        Cedente c = new Cedente("07.034.569/0001-17", "STARPLAST DA BAHIA IND E COMERCIO LTDA", "03371", "5", "14650", "1");        c.Codigo = 14650;

        //Carteiras           DVencimento  Valor   CT    Nosso numero        Boleto b = new Boleto(vencimento, 661.08, "09", "09/21/360000040-0", c);        b.NumeroDocumento = "0002546520";        b.Carteira = "09";      //  b.CodigoBarra.Codigo = "23793.37104 92136.000004 40001.46500 3 53980000066108";               b.Sacado = new Sacado("97.531.613/0001-97", "EL SHADAI MOTOPECAS LTDA");        b.Sacado.Endereco.End = "RUA DR JOAO DANTAS 758 ";        b.Sacado.Endereco.Bairro = "Bairro";        b.Sacado.Endereco.Cidade = "Cidade";        b.Sacado.Endereco.CEP = "48010530";        b.Sacado.Endereco.UF = "UF";
        Instrucao_Bradesco item = new Instrucao_Bradesco(9, 5);
        item.Descricao += " após " + item.QuantidadeDias.ToString() + " dias corridos do vencimento.";        b.Instrucoes.Add(item); //"Não Receber após o vencimento");
            
        try        {
            
                    boletoBancario.MostrarContraApresentacaoNaDataVencimento = false;
             boletoBancario.Boleto = b;             boletoBancario.MostrarCodigoCarteira = true;             boletoBancario.MostrarComprovanteEntrega = true;             
                 boletoBancario.Boleto.Valida();        }catch(Exception ex)        {            Console.Write(ex.ToString());        }
        boletoBancario.MostrarComprovanteEntrega = (Request.Url.Query == "?show");    }

Developer
Jul 27, 2012 at 12:38 PM
Edited Jul 27, 2012 at 12:40 PM

Olá murilocola !

Você postou um código muito confuso.  Por acaso está dando algum erro? Não estou vendo a instância do objeto boletoBancario. Parece-me que está faltando setar o c.convenio.  O Bradesco, para carteira 09, tem que informar o código do convênio. Abaixo exemplo do meu fonte, mas é WinForms.  Acho que dá para ter uma idéia:

 

Private sub MostraBoleto()
	'Inst�ncia da lista de boletos a serem gerados
        Dim objBOLETOBANCARIO As New BoletoBancario()
        objBOLETOBANCARIO.CodigoBanco = intBANCO

        'Inst�ncia de Cedente
		'Banco e Nome               = arrCONTA(0)
        'Agencia                    = arrCONTA(1)
        'Agencia D�gito             = arrCONTA(2)
        'Conta                      = arrCONTA(3)
        'Conta D�gito               = arrCONTA(4)
        'Carteira                   = arrCONTA(5)
        'Conv�nio ou C�digo Cedente = arrCONTA(6)
        Dim objCEDENTE As New Cedente(My.Settings.Cnpj, My.Settings.Cedente, arrCONTA(1), arrCONTA(2), arrCONTA(3), arrCONTA(4))
        objCEDENTE.Convenio = CInt(arrCONTA(6))

        'Apenas pasa SANTANDER
        If intBANCO = 33 Then objCEDENTE.Codigo = CInt(arrCONTA(6))

        'Inst�ncia de Boleto
        Dim objBOLETO As New Boleto()

        'Inst�ncia de Instru��o
        Dim iteminstruc0 As New Instrucao(intBANCO)
        Dim iteminstruc1 As New Instrucao(intBANCO)
        Dim iteminstruc2 As New Instrucao(intBANCO)
        Dim iteminstruc3 As New Instrucao(intBANCO)
        Dim iteminstruc4 As New Instrucao(intBANCO)
        Dim iteminstruc5 As New Instrucao(intBANCO)

        Select Case Format(intBANCO, "000")
            Case "001" 'Banco do Brasil
                'O nosso-numero deve ser de 10 posi��es para carteira conveniada (17-019 e 18-019)
                strNOSSONUMERO = Format(lngNROBOL, "0000000000")
                objBOLETO.EspecieDocumento = New EspecieDocumento(1, 4)
            Case "033" 'Santander
                'O nosso-numero deve ser de 12 posi��es
                strNOSSONUMERO = Format(lngNROBOL, "000000000000")
                objBOLETO.EspecieDocumento = New EspecieDocumento(33, 2)
            Case "237" 'Bradesco 
                'O nosso-numero deve ser de 11 posi��es
                strNOSSONUMERO = Format(lngNROBOL, "00000000000")
                objBOLETO.EspecieDocumento = New EspecieDocumento(237, 12)
            Case "341" 'Itau
                'O nosso-numero deve ser de 8 posi��es
                strNOSSONUMERO = Format(lngNROBOL, "00000000")
                objBOLETO.EspecieDocumento = New EspecieDocumento(341, 8)
        End Select

        objBOLETO.DataVencimento = datDTVCTO
        objBOLETO.ValorBoleto = CDec(dblVLBOL)
        objBOLETO.Carteira = arrCONTA(5)
        objBOLETO.NossoNumero = strNOSSONUMERO
        objBOLETO.Cedente = objCEDENTE

        'O n� do documento deve ser de 10 posi��es
        objBOLETO.NumeroDocumento = Format(lngNROBOL, "0000000000") 'strBOLETONRODOC
        objBOLETO.Sacado = New Sacado(udtSACADO.cpfcnpj, udtSACADO.nomerazao)
        objBOLETO.Sacado.Endereco.End = udtSACADO.endereco
        objBOLETO.Sacado.Endereco.Bairro = udtSACADO.bairro
        objBOLETO.Sacado.Endereco.Cidade = udtSACADO.localidade
        objBOLETO.Sacado.Endereco.CEP = udtSACADO.cep
        objBOLETO.Sacado.Endereco.UF = udtSACADO.uf

        iteminstruc0.Descricao = " "
        iteminstruc1.Descricao = strINSTRUC1
        iteminstruc2.Descricao = strINSTRUC2
        iteminstruc3.Descricao = strINSTRUC3
        iteminstruc4.Descricao = strINSTRUC4
        iteminstruc5.Descricao = strINSTRUC5

        objBOLETO.Instrucoes.Add(iteminstruc1)
        objBOLETO.Instrucoes.Add(iteminstruc2)
        objBOLETO.Instrucoes.Add(iteminstruc3)
        objBOLETO.Instrucoes.Add(iteminstruc0) 'Linha em branco para separar instru��es do banco
        objBOLETO.Instrucoes.Add(iteminstruc4)
        objBOLETO.Instrucoes.Add(iteminstruc5)

        objBOLETOBANCARIO.Boleto = objBOLETO
        objBOLETOBANCARIO.MostrarComprovanteEntrega = My.Settings.Comprovante
        objBOLETOBANCARIO.MostrarComprovanteEntregaLivre = My.Settings.Comprovante

        Try
            objBOLETOBANCARIO.Boleto.Valida()
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Critical)
        End Try

        Dim objLISTBOLETOS As New List(Of BoletoBancario)
        objLISTBOLETOS.Add(objBOLETOBANCARIO)

        GeraLayout(objLISTBOLETOS)

        objLISTBOLETOS = Nothing
        iteminstruc5 = Nothing
        iteminstruc4 = Nothing
        iteminstruc3 = Nothing
        iteminstruc2 = Nothing
        iteminstruc1 = Nothing
        iteminstruc0 = Nothing
        objBOLETO = Nothing
        objCEDENTE = Nothing
        objBOLETOBANCARIO = Nothing

        'Mostra boleto no WebBrowser
        WebBrowser.Navigate(strARQUIVO)
		
end sub
	
Private Sub GeraLayout(ByVal objLISTBOLETOS As List(Of BoletoBancario))

        Dim strHTML As New StringBuilder()
        For Each objBOLETO As BoletoBancario In objLISTBOLETOS
            strHTML.Append(objBOLETO.MontaHtml())
        Next

        strARQUIVO = Path.GetTempFileName()

        Using objFILESTREAM As New FileStream(strARQUIVO, FileMode.Create)
            Dim objWRITER As New StreamWriter(objFILESTREAM, Encoding.[Default])
            objWRITER.Write(strHTML.ToString())
            objWRITER.Close()
            objFILESTREAM.Close()
        End Using
End Sub

 

Espero ter ajudado.

Obs.: Para colocar o fonte, utilize o icone do menu do editor (Insert Code Snippet) [</>].

Abraços,