Arquivo de remessa Bradesco em branco

Feb 8, 2012 at 6:16 PM

Estou tentando gerar uma remessa para o bradesco em ASP.net, só que o arquivo sai com 4 linhas branco.

Se eu gerar com outro banco Ex.: Santander o arquivo é gerado normalmente, não sei se esta faltando algo.

Segue abaixo o código.

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

Public Sub GerarRemessaBradesco()
Dim ContaBancaria As New ContaBancaria

With ContaBancaria
.Agencia = "1234"
.DigitoAgencia = "0"
.Conta = "1234"
.DigitoConta = "0"
End With

Dim Cedente As New Cedente

With Cedente
.Codigo = 4555
.DigitoCedente = 3
.CPFCNPJ = "00.000.000/0000-00"
.Nome = "EMPRESA ATACADO"
.ContaBancaria = ContaBancaria
End With

Dim boletos As New Boletos()
Dim Boleto As Boleto
Boleto = New Boleto
With Boleto
.DataVencimento = Now.AddMonths(1)
.Valor = 123

'.Carteira = "102" 'Santander'
'.NossoNumero = "1234567890112" 'Santander

.Carteira = "09" 'Bradesco
.NossoNumero = "12345678901" 'Bradesco
.Cedente = Cedente
.NumeroDocumento = "1008073"

Dim Sacado = New Sacado

With Sacado
.CPFCNPJ = "000.000.000-00"
.Nome = "Fulano de Silva"
.Endereco.End = "SSS 154 Bloco J Casa 23"
.Endereco.Bairro = "Testando"
.Endereco.Cidade = "Testelândia"
.Endereco.CEP = "70000000"
.Endereco.UF = "DF"
End With

.Sacado = Sacado

'.Banco = New Banco(33) 'Santander

.Banco = New Banco(237) 'Bradesco

.Valida()
End With

boletos.Add(Boleto)

Dim rdr As New MemoryStream()
Dim arquivo As New ArquivoRemessa(TipoArquivo.CNAB400)
arquivo.GerarArquivoRemessa("0", boletos(0).Banco, boletos(0).Cedente, boletos, rdr, 1)
Response.Clear()
Response.Buffer = True
Response.ContentType = "text/plain"
Response.AddHeader("content-disposition", "attachment;filename=Remessa.txt")
Response.Charset = ""
Response.BinaryWrite(rdr.ToArray())
Response.End()

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

Developer
Feb 9, 2012 at 1:52 AM

Olá, Joandreiy.

Não vi nada de errado, mas tbém não conheço bem ASP.

Vc já tentou debugar.  Tente Try..Catch no valida().  Deve ter algum objeto "null".

Abraços,

Feb 9, 2012 at 10:32 AM

Fiz mas continua saindo com as 4 linhas em branco.

Esse mesmo código funciona também para aplicativos vb para desktop a unica coisa que é asp.net é esse codigo:

Response.Clear()
Response.Buffer = True
Response.ContentType = "text/plain"
Response.AddHeader("content-disposition", "attachment;filename=Remessa.txt")
Response.Charset = ""
Response.BinaryWrite(rdr.ToArray())
Response.End()

Antes disso é vb.net normal. Você teria algum código que você gera remessa mesmo que seja de outro banco
para tentar ver se eu consigo gerar a minha? 

Developer
Feb 9, 2012 at 11:52 AM

Bom dia, Joandreiy.

Peguei o seu código e fiz um teste. Através do Try..Catch, vi que seu objeto "Banco, boletos(0).Cedente", na linha "arquivo.GerarArquivoRemessa("0", boletos(0).Banco, boletos(0).Cedente, boletos, rdr, 1)" está com problemas....Não fui a fundo, mas parece que está dando objeto não definido ou dado não instanciado...

Pois, é, estou começando a fazer REMESSA/RETORNO ITAU, BRADESCO e SANTANDER.  Peguei o exemplo do próprio projeto boleto.NET, na pasta "Boleto.Net.Arquivo", Mains.cs, mas fiz modificações para o meu sistema.  O projeto é DESKTOP, VB.net.  Não está pronto.  Depois que eu descobrir os pontos semelhantes, faço uma limpeza no código.

Segue link para vc baixar: http://www.evfx.net/download/exemplo_remessa.txt

Abraços,