none
Dúvida Boleto.Net RRS feed

  • Pergunta

  • Bom dia, tenho o seguinte código abaixo:

    Protected Sub cmdVisualizaBoleto_Click(sender As Object, e As EventArgs) Handles cmdVisualizaBoleto.Click
    
    
    
            Dim vencimento As Date = txtVencimento.Text, valorBoleto As String = txtValor.Text, numeroDocumento As String = "B20005446"
    
            'cedente
            Dim cedente_codigo As String = "11111", cedente_numero_boleto As String = "22222",
                cedente_cpfCnpj As String = "010.542.567-21",
                cedente_nome As String = "Marcio Nogueira Cardoso Pinto", cedente_agencia As String = "1000",
                cedente_conta As String = "22055",
                cedente_digito_conta As String = "6"
    
            'sacado
            Dim sacado_cpfCenpj As String = "000.000.000-00",
                sacado_nome As String = txtNome.Text,
                sacado_endereco As String = txtEndereco.Text,
                sacado_bairro As String = txtBairro.Text,
                sacado_cidade As String = txtCidade.Text,
                sacado_cep As String = txtCep.Text,
                sacado_uf As String = txtUf.Text
    
            Convert.ToDateTime(vencimento)
    
            Dim cedente As New Cedente(cedente_cpfCnpj, cedente_nome, cedente_agencia, cedente_conta, cedente_digito_conta)
            cedente.Codigo = Convert.ToInt32(cedente_codigo)
    
            Dim boleto As Boleto = New Boleto(vencimento, Convert.ToDouble(valorBoleto), "109", cedente_numero_boleto, cedente)
            boleto.NumeroDocumento = numeroDocumento
    
            Dim instrucao As New Instrucao_Itau()
            instrucao.Descricao = "Não receber após o vencimento"
    
            boleto.Instrucoes.Add(instrucao)
    
            Dim especie As New EspecieDocumento_Itau(99)
            boleto.EspecieDocumento = especie
    
            Dim boleto_bancario As New BoletoBancario
    
            boleto_bancario.CodigoBanco = 341
            boleto_bancario.Boleto = boleto
            boleto_bancario.MostrarCodigoCarteira = True
            boleto_bancario.Boleto.Valida()
    
            boleto_bancario.MostrarComprovanteEntrega = True
    
        End Sub

    porém, quando executo o mesmo o boleto não aparece. 

    O que posso estar fazendo de errado?

    Quem puder ajudar, agradeço antecipadamente.


    Atenciosamente, Marcio Nogueira Cardoso Pinto.

    quarta-feira, 9 de julho de 2014 13:04

Respostas

  • Marcio vc tem que salvar o boleto, tenho um procedimento que gera o boleto em pdf posso te passar está em c#

    Junior

    • Marcado como Resposta Marcio_Nogueira quarta-feira, 9 de julho de 2014 14:25
    quarta-feira, 9 de julho de 2014 13:14
  • Fiz assim

    Depois do bb.boleto.valida()

    string caminho = HttpContext.Current.Server.MapPath("/"); estou gravando no raiz
    
    StringBuilder html = new StringBuilder();
    html.Append(bb.MontaHtml());
    string boletoPathHTML = System.IO.Path.Combine(caminho, + ".html");
                    FileStream f = new FileStream(boletoPathHTML, FileMode.Create);
                    using (f)
                    {
                        StreamWriter w = new StreamWriter(f, System.Text.Encoding.Default);
                        w.Write(html.ToString());
                        w.Close();
                        f.Close();
                        // System.Diagnostics.Process.Start() ' Exibe o boleto na página
                    }
    string imagePath = GerarImagem(boletoPathHTML);
                    Document doc = new Document(PageSize.A4, 46, 0, 40, 0);
                    PdfWriter.GetInstance(doc, new FileStream(boletoPathPDF, FileMode.Create));
                    doc.Open();
                    iTextSharp.text.Image gif = iTextSharp.text.Image.GetInstance(imagePath);
                    gif.ScaleAbsolute(494.0F, 785.0F);
                    doc.Add(gif);
                    doc.CloseDocument();
                    //System.Diagnostics.Process.Start(); // Exibindo o boleto no pdf
                    bb.MostrarComprovanteEntrega = false;



    Junior

    • Marcado como Resposta Marcio_Nogueira quarta-feira, 9 de julho de 2014 14:55
    quarta-feira, 9 de julho de 2014 14:36
  • Problema resolvido, adicionei dois panels, um para os dados e outro para o boleto.

    pnl_dados.Visible = False
    pnl_boleto.Controls.Add(boleto_bancario)
    Agora, visualizo o boleto na página.

     
    segunda-feira, 15 de janeiro de 2018 14:15

Todas as Respostas

  • Marcio vc tem que salvar o boleto, tenho um procedimento que gera o boleto em pdf posso te passar está em c#

    Junior

    • Marcado como Resposta Marcio_Nogueira quarta-feira, 9 de julho de 2014 14:25
    quarta-feira, 9 de julho de 2014 13:14
  • Mas, como faço para salvar o boleto? Poderia dar um exemplo de como faço isso?


    Atenciosamente, Marcio Nogueira Cardoso Pinto.

    quarta-feira, 9 de julho de 2014 14:25
  • Fiz assim

    Depois do bb.boleto.valida()

    string caminho = HttpContext.Current.Server.MapPath("/"); estou gravando no raiz
    
    StringBuilder html = new StringBuilder();
    html.Append(bb.MontaHtml());
    string boletoPathHTML = System.IO.Path.Combine(caminho, + ".html");
                    FileStream f = new FileStream(boletoPathHTML, FileMode.Create);
                    using (f)
                    {
                        StreamWriter w = new StreamWriter(f, System.Text.Encoding.Default);
                        w.Write(html.ToString());
                        w.Close();
                        f.Close();
                        // System.Diagnostics.Process.Start() ' Exibe o boleto na página
                    }
    string imagePath = GerarImagem(boletoPathHTML);
                    Document doc = new Document(PageSize.A4, 46, 0, 40, 0);
                    PdfWriter.GetInstance(doc, new FileStream(boletoPathPDF, FileMode.Create));
                    doc.Open();
                    iTextSharp.text.Image gif = iTextSharp.text.Image.GetInstance(imagePath);
                    gif.ScaleAbsolute(494.0F, 785.0F);
                    doc.Add(gif);
                    doc.CloseDocument();
                    //System.Diagnostics.Process.Start(); // Exibindo o boleto no pdf
                    bb.MostrarComprovanteEntrega = false;



    Junior

    • Marcado como Resposta Marcio_Nogueira quarta-feira, 9 de julho de 2014 14:55
    quarta-feira, 9 de julho de 2014 14:36
  • Muito obrigado pela ajuda! Tudo de bom!


    Atenciosamente, Marcio Nogueira Cardoso Pinto.

    quarta-feira, 9 de julho de 2014 14:55
  • Só mais uma dúvida: como coloco o boleto em uma janela popup?

    Desde já agradeço a ajuda.


    Atenciosamente, Marcio Nogueira Cardoso Pinto.

    quarta-feira, 9 de julho de 2014 19:24
  • Aproveitando o tópico, não tenho ideia do que posso estar fazendo de errado, alguém poderia ajudar?

    Dim vencimento As String = txtVencimento.Text, valorBoleto As String = txtValorBoleto.Text
    
            'cedente
            Dim cedente_codigo As String = "11111", cedente_numero_boleto As String = "22222",
                cedente_cpfCnpj As String = "010.542.567-21",
                cedente_nome As String = "Marcio Nogueira Cardoso Pinto", cedente_agencia As String = "2079",
                cedente_conta As String = "01030473",
                cedente_digito_conta As String = "2"
    
            Dim cedente As New Cedente(cedente_cpfCnpj, cedente_nome, cedente_agencia, cedente_conta, cedente_digito_conta)
            cedente.Codigo = Convert.ToInt32(cedente_codigo)
    
            'sacado
            Dim sacado_cpfCenpj As String = "000.000.000-00",
                sacado_nome As String = txtNome.Text,
                sacado_endereco As String = txtEndereco.Text,
                sacado_bairro As String = txtBairro.Text,
                sacado_cidade As String = txtCidade.Text,
                sacado_estado As String = txtEstado.Text,
                sacado_cep As String = txtCep.Text,
                sacado_uf As String = txtEstado.Text
    
            Dim sacado As New Sacado(sacado_cpfCenpj, sacado_nome)
    
            Dim boleto As Boleto = New Boleto()
    
            Dim numeroDocumento As String = ""
    
            boleto.NumeroDocumento = numeroDocumento
    
            boleto.Sacado = sacado
            boleto.Sacado.Nome = sacado_nome
            boleto.Sacado.Endereco.End = sacado_endereco
            boleto.Sacado.Endereco.Bairro = sacado_bairro
            boleto.Sacado.Endereco.CEP = sacado_cep
            boleto.Sacado.Endereco.Cidade = sacado_cidade
            boleto.Sacado.Endereco.UF = sacado_estado
            boleto.Sacado.CPFCNPJ = sacado_cpfCenpj
    
            Dim boleto_bancario As New BoletoBancario
    
            Dim instrucao As New Instrucao_Santander
            instrucao.Descricao = "Não receber após o vencimento"
    
            boleto.Instrucoes.Add(instrucao)
    
            Dim especie As New EspecieDocumento_Santander(99)
            boleto.EspecieDocumento = especie
    
    
            Try
    
                boleto_bancario.CodigoBanco = 33
                boleto_bancario.Boleto = boleto
                boleto_bancario.MostrarCodigoCarteira = True
                boleto_bancario.Boleto.Valida()
    
                boleto_bancario.MostrarComprovanteEntrega = True
    
            Catch ex As Exception
    
            End Try

    sexta-feira, 12 de janeiro de 2018 18:05
  • Fiz a seguinte alteração no código, mas não visualizo o boleto gerado.

    Dim vencimento As String = txtVencimento.Text, valorBoleto As String = txtValorBoleto.Text
    
            'cedente
            Dim cedente_codigo As String = "11111", cedente_numero_boleto As String = "22222",
                cedente_nossoNumeroBoleto As String = "2233445566",
                cedente_cpfCnpj As String = "010.542.567-21",
                cedente_nome As String = "Marcio Nogueira Cardoso Pinto", cedente_agencia As String = "2079",
                cedente_conta As String = "01030473",
                cedente_digito_conta As String = "2"
    
            Dim cedente As New Cedente(cedente_cpfCnpj, cedente_nome, cedente_agencia, cedente_conta, cedente_digito_conta)
            cedente.Codigo = Convert.ToInt32(cedente_codigo)
    
            'sacado
            Dim sacado_cpfCenpj As String = txtCpf.Text,
                sacado_nome As String = txtNome.Text,
                sacado_endereco As String = txtEndereco.Text,
                sacado_bairro As String = txtBairro.Text,
                sacado_cidade As String = txtCidade.Text,
                sacado_estado As String = txtEstado.Text,
                sacado_cep As String = txtCep.Text,
                sacado_uf As String = txtEstado.Text
    
            Dim sacado As New Sacado(sacado_cpfCenpj, sacado_nome)
    
            Dim boleto As Boleto = New Boleto(Convert.ToDateTime(vencimento), Convert.ToDouble(valorBoleto), "101", cedente_nossoNumeroBoleto, cedente)
    
            Dim numeroDocumento As String = ""
    
            boleto.NumeroDocumento = numeroDocumento
    
            boleto.Sacado = sacado
            boleto.Sacado.Nome = sacado_nome
            boleto.Sacado.Endereco.End = sacado_endereco
            boleto.Sacado.Endereco.Bairro = sacado_bairro
            boleto.Sacado.Endereco.CEP = sacado_cep
            boleto.Sacado.Endereco.Cidade = sacado_cidade
            boleto.Sacado.Endereco.UF = sacado_estado
            boleto.Sacado.CPFCNPJ = sacado_cpfCenpj
    
            Dim instrucao As New Instrucao_Santander
            instrucao.Descricao = "Não receber após o vencimento"
    
            Dim boleto_bancario As New BoletoBancario
    
            boleto_bancario.CodigoBanco = 33
            boleto_bancario.Boleto = boleto
            boleto_bancario.MostrarCodigoCarteira = True
            boleto_bancario.Boleto.Valida()
    
            boleto_bancario.MostrarComprovanteEntrega = True

    segunda-feira, 15 de janeiro de 2018 13:01
  • Segue abaixo o código HTML em minha página aspx:

    <div class="Boleto">
            <table>
                <tr>
                    <td>
                        <asp:Label ID="Label1" runat="server" Text="Vencimento:"></asp:Label>
                    </td><td>
                        <asp:TextBox ID="txtVencimento" runat="server"></asp:TextBox>
                    </td>
                </tr>
                <tr>
                    <td>
                        <asp:Label ID="Label2" runat="server" Text="Valor:"></asp:Label>
                    </td><td>
                        <asp:TextBox ID="txtValorBoleto" runat="server"></asp:TextBox>
                    </td>
                </tr>
                <tr>
                    <td></td><td></td>
                </tr>
            </table>
            <p></p>
            <table>
                <tr>
                    <td>
                        <asp:Label ID="Label3" runat="server" Text="Sacado Nome:"></asp:Label>
                    </td><td>
                        <asp:TextBox ID="txtNome" runat="server"></asp:TextBox>
                    </td>
                </tr>
                <tr>
                    <td>
                        <asp:Label ID="Label4" runat="server" Text="Sacado Endereço:"></asp:Label>
                    </td><td>
                        <asp:TextBox ID="txtEndereco" runat="server"></asp:TextBox>
                    </td>
                </tr>
                <tr>
                    <td>
                        <asp:Label ID="Label5" runat="server" Text="Sacado Bairro:"></asp:Label>
                    </td><td>
                        <asp:TextBox ID="txtBairro" runat="server"></asp:TextBox>
                    </td>
                </tr>
                <tr>
                    <td>
                        <asp:Label ID="Label6" runat="server" Text="Sacado CEP:"></asp:Label>
                    </td><td>
                        <asp:TextBox ID="txtCep" runat="server"></asp:TextBox>
                    </td>
                </tr>
                <tr>
                    <td>
                        <asp:Label ID="Label7" runat="server" Text="Sacado Cidade:"></asp:Label>
                    </td><td>
                        <asp:TextBox ID="txtCidade" runat="server"></asp:TextBox>
                    </td>
    
                </tr>
                <tr>
                    <td>
                        <asp:Label ID="Label8" runat="server" Text="Sacado UF:"></asp:Label>
                    </td><td>
                        <asp:TextBox ID="txtEstado" runat="server"></asp:TextBox>
                    </td>
                </tr>
                <tr>
                    <td>Sacado CPF / CNPJ:</td><td>
                    <asp:TextBox ID="txtCpf" runat="server"></asp:TextBox>
                    </td>
                </tr>
            </table>
            <br />
            <table>
                <tr>
                    <td>
                        <asp:Button ID="cmdGeraBoleto" runat="server" Text="Gerar Boleto" /></td>
                </tr>
            </table>
        </div>

    segunda-feira, 15 de janeiro de 2018 13:04
  • Problema resolvido, adicionei dois panels, um para os dados e outro para o boleto.

    pnl_dados.Visible = False
    pnl_boleto.Controls.Add(boleto_bancario)
    Agora, visualizo o boleto na página.

     
    segunda-feira, 15 de janeiro de 2018 14:15