Erro Criação boleto Bradesco

Nov 11, 2009 at 4:28 PM
Edited Nov 11, 2009 at 4:31 PM

Galera, boa tarde.

Estou desenvolvendo o boleto bancário do Bradesco, segui alguns passos mas no final está ocorrendo um erro: 

Referência de objeto não definida para uma instância de um objeto.

Segue meu codigo:

  

Dim

 

 

Dim obj_mInstrucao As New Instrucao_Bradesco(EnumInstrucoes_Bradesco.NaoReceberAposNDias)'INFORMA OS DADOS DO CEDENTE

 

obj_mCedente.Codigo =

Dim obj_mCedente As New Cedente("86.316.771/0001-08", "João", "1234", "0", "45678", "8")"13000"

 

'DADOS PARA PREENCHIMENTO DO BOLETO

 

obj_mBoleto.NumeroDocumento =

Dim obj_mBoleto As New Boleto(New Date(2009, 11, 29), 10.0, "06", "01000000001", obj_mCedente)"01000000001"

 

'DADOS DO CLIENTE

 

obj_mSacado.Endereco.End =

Dim obj_mSacado As New Sacado("350.469.858-61", "Cliente")"Endereo do seu Cliente "

obj_mSacado.Endereco.Bairro =

"Bairro"

obj_mSacado.Endereco.Cidade =

"Cidade"

obj_mSacado.Endereco.CEP =

"00000000"

obj_mSacado.Endereco.UF =

"UF"

obj_mInstrucao.Descricao =

"HAHAHA"

obj_mBoleto.Instrucoes.Add(obj_mInstrucao)

obj_mBoleto.EspecieDocumento =

 

New EspecieDocumento(1)'FINALIZACAO

 

obj_mBoletoBancario.CodigoBanco = 237

obj_mBoletoBancario.MostrarCodigoCarteira =

Dim obj_mBoletoBancario As New BoletoBancario()True

obj_mBoletoBancario.Boleto = obj_mBoleto

obj_mBoletoBancario.Boleto.Valida()

obj_mBoletoBancario.MostrarComprovanteEntrega =

True

 

If panelBoleto.Controls.Count = 0 Then

panelBoleto.Controls.Add(obj_mBoletoBancario)

 

End If

 

Obrigado.

Bruno Ferla

Coordinator
Nov 19, 2009 at 6:57 PM

Olá Bruno,

você poderia enviar o código completo?