CONFIGURAÇÃO CAIXA(SIGCB/SR) EM VB.NET

[ricardorapa]

Alguém conseguiu configurará as carteiras 14/24 da caixa, não sei a sigla correta se é 14/CR/24/SR, não configura o nosso numero correto com 15 posições.

[ricardorapa]

Resolvi, segue para quem precisar em vb.net

Imports BoletoNet

Public Class WebForm1 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(2015, 12, 20).ToString("dd/MM/yyyy")
        txtValorBoleto.Text = "4,00"
        txtNumeroDocumentoBoleto.Text = "B20005446"

        'Cedente
        txtCodigoCedente.Text = "654060"
        txtNossoNumeroBoleto.Text = "24100000000000002"
        txtCPFCNPJ.Text = "59.323.900/0001-08"
        txtNomeCedente.Text = "APALX.COM"
        txtAgenciaCendente.Text = "3467"
        txtContaCedente.Text = "74101"

        'Sacado
        txtCPFCNPJSacado.Text = "04.728.800/0001-14"
        txtNomeSacado.Text = "Fulano de Silva"
        txtEnderecoSacado.Text = "rua 15"
        txtBairroSacado.Text = "Morada nova"
        txtCidadeSacado.Text = "nome sacado"
        txtCEPSacado.Text = "70000000"
        txtUFSacado.Text = "PI"
    End If
End Sub

Protected Sub Button1_Click(sender As Object, 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)
    c.Carteira = "SR"
    'Dados para preenchimento do boleto (data de vencimento, valor, carteira e nosso número)
    Dim b = New Boleto(CDate(txtVencimento.Text), CDbl(txtValorBoleto.Text), "", txtNossoNumeroBoleto.Text, c)

    'Dependendo da carteira, é necessário o número do documento
    b.NumeroDocumento = txtNumeroDocumentoBoleto.Text
    b.Carteira = "SR"
    '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_Caixa()
    i.Descricao = "Não Receber após o vencimento"
    b.Instrucoes.Add(i)

    'Espécie do Documento - [R] Recibo
    b.EspecieDocumento = New EspecieDocumento_Caixa()
    Dim bb As New BoletoBancario()
    bb.CodigoBanco = 104 '-> 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 = False

    panelDados.Visible = False

    If panelBoleto.Controls.Count = 0 Then
        panelBoleto.Controls.Add(bb)
    End If

End Sub

End Class