BOLETO.NET.DLL USA COM VB.NET EM ASP.NET
Alguém sabem usar essa dll na linguagem vb.net?
http://www.devmedia.com.br/gerando-boletos-em-seu-site-asp-net-c/17820
comecei transcrever em vb.net
Imports BoletoNet
Public Class pnl_dados
Inherits System.Web.UI.Page
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
End Sub
Protected Sub TextBox2_TextChanged(sender As Object, e As EventArgs) Handles txtVencimento.TextChanged
End Sub
Protected Sub Acessar_Click(sender As Object, e As EventArgs) Handles Acessar.Click
Dim vencimento = txtVencimento.Text
Dim valorBoleto = txtValor.Text
Dim numeroDocumento = [Ô]B20005446[Ô]
Dim cedente_codigo = [Ô]1111111[Ô]
Dim cedente_nossoNumeroBoleto = [Ô]22222222[Ô]
Dim cedente_cpfCnpj = [Ô]123.456.789-01[Ô]
Dim cedente_nome = [Ô]PAULO FREIRE - FOUR FREIRES INF.[Ô]
Dim cedente_agencia = [Ô]1000[Ô]
Dim cedente_conta = [Ô]22507[Ô]
Dim cedente_digitoConta = [Ô]6[Ô]
Dim sacado_cpfCnpj = [Ô]000.000.000-00[Ô]
Dim sacado_nome = txtSacado.Text
Dim sacado_endereco = txtEndereco.Text
Dim sacado_bairro = txtBairro.Text
Dim sacado_cidade = txtCidade.Text
Dim sacado_cep = txtCEP.Text
Dim sacado_uf = txtUF.Text
Dim Cedente = New Cedente(cedente_cpfCnpj,
cedente_nome,
cedente_agencia,
cedente_conta,
cedente_digitoConta)
Cedente.Codigo = Convert.ToInt32(cedente_codigo)
Dim Boleto = New Boleto(Convert.ToDateTime(vencimento), Convert.ToDouble(valorBoleto), [Ô]109[Ô], cedente_nossoNumeroBoleto, Cedente)
Boleto.NumeroDocumento = numeroDocumento;
Dim Sacado = New Sacado(sacado_cpfCnpj, sacado_nome)
Boleto.Sacado = Sacado
Boleto.Sacado.Endereco.End = sacado_endereco
Boleto.Sacado.Endereco.Bairro = sacado_bairro
Boleto.Sacado.Endereco.Cidade = sacado_cidade
Boleto.Sacado.Endereco.CEP = sacado_cep
Boleto.Sacado.Endereco.UF = sacado_uf
Dim boleto_bancario = New BoletoBancario()
boleto_bancario.CodigoBanco = 341
boleto_bancario.Boleto = Boleto
boleto_bancario.MostrarCodigoCarteira = True
boleto_bancario.Boleto.Valida()
boleto_bancario.MostrarComprovanteEntrega = True
End Sub
End Class
na hora mandar a visualização do boleto no form estou tendo dificuldade.
alguém pode me ajudar?
grato!
http://www.devmedia.com.br/gerando-boletos-em-seu-site-asp-net-c/17820
comecei transcrever em vb.net
Imports BoletoNet
Public Class pnl_dados
Inherits System.Web.UI.Page
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
End Sub
Protected Sub TextBox2_TextChanged(sender As Object, e As EventArgs) Handles txtVencimento.TextChanged
End Sub
Protected Sub Acessar_Click(sender As Object, e As EventArgs) Handles Acessar.Click
Dim vencimento = txtVencimento.Text
Dim valorBoleto = txtValor.Text
Dim numeroDocumento = [Ô]B20005446[Ô]
Dim cedente_codigo = [Ô]1111111[Ô]
Dim cedente_nossoNumeroBoleto = [Ô]22222222[Ô]
Dim cedente_cpfCnpj = [Ô]123.456.789-01[Ô]
Dim cedente_nome = [Ô]PAULO FREIRE - FOUR FREIRES INF.[Ô]
Dim cedente_agencia = [Ô]1000[Ô]
Dim cedente_conta = [Ô]22507[Ô]
Dim cedente_digitoConta = [Ô]6[Ô]
Dim sacado_cpfCnpj = [Ô]000.000.000-00[Ô]
Dim sacado_nome = txtSacado.Text
Dim sacado_endereco = txtEndereco.Text
Dim sacado_bairro = txtBairro.Text
Dim sacado_cidade = txtCidade.Text
Dim sacado_cep = txtCEP.Text
Dim sacado_uf = txtUF.Text
Dim Cedente = New Cedente(cedente_cpfCnpj,
cedente_nome,
cedente_agencia,
cedente_conta,
cedente_digitoConta)
Cedente.Codigo = Convert.ToInt32(cedente_codigo)
Dim Boleto = New Boleto(Convert.ToDateTime(vencimento), Convert.ToDouble(valorBoleto), [Ô]109[Ô], cedente_nossoNumeroBoleto, Cedente)
Boleto.NumeroDocumento = numeroDocumento;
Dim Sacado = New Sacado(sacado_cpfCnpj, sacado_nome)
Boleto.Sacado = Sacado
Boleto.Sacado.Endereco.End = sacado_endereco
Boleto.Sacado.Endereco.Bairro = sacado_bairro
Boleto.Sacado.Endereco.Cidade = sacado_cidade
Boleto.Sacado.Endereco.CEP = sacado_cep
Boleto.Sacado.Endereco.UF = sacado_uf
Dim boleto_bancario = New BoletoBancario()
boleto_bancario.CodigoBanco = 341
boleto_bancario.Boleto = Boleto
boleto_bancario.MostrarCodigoCarteira = True
boleto_bancario.Boleto.Valida()
boleto_bancario.MostrarComprovanteEntrega = True
End Sub
End Class
na hora mandar a visualização do boleto no form estou tendo dificuldade.
alguém pode me ajudar?
grato!
Acho que existe algum metodo de geração, daà você vai ter que procurar, não estou lembrando onde que fica.
Provavelmente é assim:
boleto_bancario.Boleto.GerarBoletoHtml
ou
Boleto.GerarBoletoPdf
Provavelmente é assim:
boleto_bancario.Boleto.GerarBoletoHtml
ou
Boleto.GerarBoletoPdf
Consegui resolver quem precisar do projeto é só pedir por email.
Imports BoletoNet
Partial Class _Default
Inherits System.Web.UI.Page
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
If Not IsPostBack Then
txtVencimento.Text = New DateTime(2009, 3, 6).ToString([Ô]dd/MM/yyyy[Ô])
txtValorBoleto.Text = [Ô]656,40[Ô]
txtNumeroDocumentoBoleto.Text = [Ô]B20005446[Ô]
[ô]Cedente
txtCodigoCedente.Text = [Ô]0806498[Ô]
txtNossoNumeroBoleto.Text = [Ô]0000033320071[Ô]
txtCPFCNPJ.Text = [Ô]59.323.998/0001-08[Ô]
txtNomeCedente.Text = [Ô]Uniabc[Ô]
txtAgenciaCendente.Text = [Ô]432[Ô]
txtContaCedente.Text = [Ô]0806498[Ô]
[ô]Sacado
txtCPFCNPJSacado.Text = [Ô]000.000.000-00[Ô]
txtNomeSacado.Text = [Ô]Fulano de Silva[Ô]
txtEnderecoSacado.Text = [Ô]SSS 154 Bloco J Casa 23[Ô]
txtBairroSacado.Text = [Ô]Testando[Ô]
txtCidadeSacado.Text = [Ô]Testelândia[Ô]
txtCEPSacado.Text = [Ô]70000000[Ô]
txtUFSacado.Text = [Ô]DF[Ô]
[ô]alterei so esses
[ô] Vencimento: 6/3/2009
[ô]Valor: 656,40
[ô]Nosso Número: 0000033320071
[ô] Número(Documento) : B20005446()
[ô]Dados do Cendente
[ô]CPF/CNPJ: 59.323.998/0001-08
[ô]Código: 0806498
[ô]Nome: Uniabc()
[ô]Agência: 432
[ô]Conta: 0806498
End If
End Sub
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
[ô]Informa os dados do cedente
Dim c = New Cedente(txtCPFCNPJ.Text, txtNomeCedente.Text, txtAgenciaCendente.Text, txtContaCedente.Text)
[ô]Dependendo da carteira, é necessário informar o código do cedente (o banco que fornece)
c.Codigo = CInt(txtCodigoCedente.Text)
[ô]Dados para preenchimento do boleto (data de vencimento, valor, carteira e nosso número)
Dim b = New Boleto(CDate(txtVencimento.Text), CDbl(txtValorBoleto.Text), [Ô]102[Ô], txtNossoNumeroBoleto.Text, c)
[ô]Dependendo da carteira, é necessário o número do documento
b.NumeroDocumento = txtNumeroDocumentoBoleto.Text
[ô]Informa os dados do sacado
b.Sacado = New Sacado(txtCPFCNPJSacado.Text, txtNomeSacado.Text)
b.Sacado.Endereco.End = txtEnderecoSacado.Text
b.Sacado.Endereco.Bairro = txtBairroSacado.Text
b.Sacado.Endereco.Cidade = txtCidadeSacado.Text
b.Sacado.Endereco.CEP = txtCEPSacado.Text
b.Sacado.Endereco.UF = txtUFSacado.Text
Dim i As New Instrucao_Santander()
i.Descricao = [Ô]Não Receber após o vencimento[Ô]
b.Instrucoes.Add(i)
[ô]Espécie do Documento - [R] Recibo
b.EspecieDocumento = New EspecieDocumento_Santander(17)
Dim bb As New BoletoBancario()
bb.CodigoBanco = 33 [ô]-> Referente ao código do Santander
bb.Boleto = b
bb.MostrarCodigoCarteira = True
bb.Boleto.Valida()
[ô]true -> Mostra o compravante de entrega
[ô]false -> Oculta o comprovante de entrega
bb.MostrarComprovanteEntrega = True
panelDados.Visible = False
If panelBoleto.Controls.Count = 0 Then
panelBoleto.Controls.Add(bb)
End If
End Sub
End Class
Imports BoletoNet
Partial Class _Default
Inherits System.Web.UI.Page
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
If Not IsPostBack Then
txtVencimento.Text = New DateTime(2009, 3, 6).ToString([Ô]dd/MM/yyyy[Ô])
txtValorBoleto.Text = [Ô]656,40[Ô]
txtNumeroDocumentoBoleto.Text = [Ô]B20005446[Ô]
[ô]Cedente
txtCodigoCedente.Text = [Ô]0806498[Ô]
txtNossoNumeroBoleto.Text = [Ô]0000033320071[Ô]
txtCPFCNPJ.Text = [Ô]59.323.998/0001-08[Ô]
txtNomeCedente.Text = [Ô]Uniabc[Ô]
txtAgenciaCendente.Text = [Ô]432[Ô]
txtContaCedente.Text = [Ô]0806498[Ô]
[ô]Sacado
txtCPFCNPJSacado.Text = [Ô]000.000.000-00[Ô]
txtNomeSacado.Text = [Ô]Fulano de Silva[Ô]
txtEnderecoSacado.Text = [Ô]SSS 154 Bloco J Casa 23[Ô]
txtBairroSacado.Text = [Ô]Testando[Ô]
txtCidadeSacado.Text = [Ô]Testelândia[Ô]
txtCEPSacado.Text = [Ô]70000000[Ô]
txtUFSacado.Text = [Ô]DF[Ô]
[ô]alterei so esses
[ô] Vencimento: 6/3/2009
[ô]Valor: 656,40
[ô]Nosso Número: 0000033320071
[ô] Número(Documento) : B20005446()
[ô]Dados do Cendente
[ô]CPF/CNPJ: 59.323.998/0001-08
[ô]Código: 0806498
[ô]Nome: Uniabc()
[ô]Agência: 432
[ô]Conta: 0806498
End If
End Sub
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
[ô]Informa os dados do cedente
Dim c = New Cedente(txtCPFCNPJ.Text, txtNomeCedente.Text, txtAgenciaCendente.Text, txtContaCedente.Text)
[ô]Dependendo da carteira, é necessário informar o código do cedente (o banco que fornece)
c.Codigo = CInt(txtCodigoCedente.Text)
[ô]Dados para preenchimento do boleto (data de vencimento, valor, carteira e nosso número)
Dim b = New Boleto(CDate(txtVencimento.Text), CDbl(txtValorBoleto.Text), [Ô]102[Ô], txtNossoNumeroBoleto.Text, c)
[ô]Dependendo da carteira, é necessário o número do documento
b.NumeroDocumento = txtNumeroDocumentoBoleto.Text
[ô]Informa os dados do sacado
b.Sacado = New Sacado(txtCPFCNPJSacado.Text, txtNomeSacado.Text)
b.Sacado.Endereco.End = txtEnderecoSacado.Text
b.Sacado.Endereco.Bairro = txtBairroSacado.Text
b.Sacado.Endereco.Cidade = txtCidadeSacado.Text
b.Sacado.Endereco.CEP = txtCEPSacado.Text
b.Sacado.Endereco.UF = txtUFSacado.Text
Dim i As New Instrucao_Santander()
i.Descricao = [Ô]Não Receber após o vencimento[Ô]
b.Instrucoes.Add(i)
[ô]Espécie do Documento - [R] Recibo
b.EspecieDocumento = New EspecieDocumento_Santander(17)
Dim bb As New BoletoBancario()
bb.CodigoBanco = 33 [ô]-> Referente ao código do Santander
bb.Boleto = b
bb.MostrarCodigoCarteira = True
bb.Boleto.Valida()
[ô]true -> Mostra o compravante de entrega
[ô]false -> Oculta o comprovante de entrega
bb.MostrarComprovanteEntrega = True
panelDados.Visible = False
If panelBoleto.Controls.Count = 0 Then
panelBoleto.Controls.Add(bb)
End If
End Sub
End Class
Me interesso muito:
nilson@nagsistemas.com.br
nilson@nagsistemas.com.br
Alguem sabe me dizer se com isso consigo gerar o boleto usando Windows Form?
sim consegue eu faco isto no meu sistema
JOAO BENEVIDES AONDE ACHO UM EXEMPLO Deste?
neste site voce tem exemplo para windows forms
https://github.com/BoletoNet/boletonet
https://github.com/BoletoNet/boletonet
Se alguém se interessar :
BOLETO BANCARIO VB.NET
BOLETO BANCARIO VB.NET
Boa tarde,
Ricardo Rapa eu me interesso mitsueda@ig.com.br
FoxMan eu estou querendo implantar o banco do brasil. Eu estou analisando seu projeto e vou tentar adaptar.
Eu não entendo muito como é o operacional dessa rotina, digamos eu gero um boleto e tenho que mandar alguma coisa para o banco? tenho algum retorno? é online? Webservice? E que dados do cliente eu preciso ter em mãos, alguma informação importante?
Obrigado
Ricardo Rapa eu me interesso mitsueda@ig.com.br
FoxMan eu estou querendo implantar o banco do brasil. Eu estou analisando seu projeto e vou tentar adaptar.
Eu não entendo muito como é o operacional dessa rotina, digamos eu gero um boleto e tenho que mandar alguma coisa para o banco? tenho algum retorno? é online? Webservice? E que dados do cliente eu preciso ter em mãos, alguma informação importante?
Obrigado
Fox man para adaptar esse seu para outros bancos e muito dificil?
Tópico encerrado , respostas não são mais permitidas