ERRO AO INSTACIAR DLL DO FOXMAN AQUI DO FORUM

ALEXPASSOS 19/01/2010 19:33:36
#332346
Olá...

Peguei um DLL aqui no forum do Foxman

http://www.vbmania.com.br/pages/index.php?varModulo=Detalhe&varID=8030

Quando fui incluir no meu projeto copiei tudo (acho que tudo certo) e esta dando erro na linha

bb.Boleto = b

(erro ao instanciar objeto)

Alguém pode me ajudar ou o próprio Foxman?
TECLA 21/01/2010 09:19:44
#332467
Pegue a versão mais nova da DLL aqui.
WEBMASTER 21/01/2010 10:12:24
#332473
Eh bom depois ele atualizar a dele aqui no site (ele tem esta opcao liberada por ser o dono do upload)
FOXMAN 21/01/2010 21:11:14
#332562 Resposta escolhida
Citação:

:
Olá...

Peguei um DLL aqui no forum do Foxman

http://www.vbmania.com.br/pages/index.php?varModulo=Detalhe&varID=8030

Quando fui incluir no meu projeto copiei tudo (acho que tudo certo) e esta dando erro na linha

bb.Boleto = b

(erro ao instanciar objeto)

Alguém pode me ajudar ou o próprio Foxman?


Qual é o banco que vc esta tentando gerar o boleto ???
FOXMAN 21/01/2010 21:36:35
#332564
Se for banco itau vá até a SUB GeraBoletoItau , descomente as linhas comentadas abaixo (tirando as duas barras tbem) e comente as não comentadas abaixo.

Citação:

[ô]//c.Codigo = 13000

[ô]//Dim b As New Boleto(vencimento, 1642, [Ô]198[Ô], [Ô]92082835[Ô], c, New EspecieDocumento(341, 1))
[ô]//b.NumeroDocumento = Convert.ToString(10000 + i)

[ô]//b.Sacado = New Sacado([Ô]000.000.000-00[Ô], [Ô]Fulano de Silva[Ô])
[ô]//b.Sacado.Endereco.[End] = [Ô]SSS 154 Bloco J Casa 23[Ô]
[ô]//b.Sacado.Endereco.Bairro = [Ô]Testando[Ô]
[ô]//b.Sacado.Endereco.Cidade = [Ô]Testelândia[Ô]
[ô]//b.Sacado.Endereco.CEP = [Ô]70000000[Ô]
[ô]//b.Sacado.Endereco.UF = [Ô]DF[Ô]


Dim valortitulo As Double = CDbl(valor_do_titulo)
Dim b As New Boleto(vencimento, valortitulo, carteiraCedente, nossonumero, c, New EspecieDocumento(341, 1))
b.NumeroDocumento = SoNumeros(numerodocumento, True)
Dim cpfSacado As String = .txtCPF_CNPJSacado.Text, nomeSacado As String = .txtSacado.Text
b.Sacado = New Sacado(cpfSacado, nomeSacado)
b.Sacado.Endereco.[End] = .txtEndSacado.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



Os dados descomentados acima servem apenas para a geração de boletos para o banco real.

No exemplo que segue no download no formulário principal esta sendo informado que os dados são apenas para geração do boleto para o banco real.

Porém mesmo assim, neste mesmo exemplo, testei com todos os bancos que disponibilizo e apenas o itau ocorreu erro no codigo. Tal erro pode ser corrigido fazendo o que citei logo acima.

Webmaster, todos os teste que realizei(hoje 21/01/2010) foram bem sucedidos, incluindo o Itau com a correção acima. O que deve ser observado é se todos os paramentros estão sendo preenchidos...

No mais é só implantar.



ALEXPASSOS 22/01/2010 17:50:05
#332651
Eu estou tentando gerar com o banco do brasil

Só que já conseguir solucionar esse erro....

só que apareceu outro problema eu até te mandei um e-mail solicitando ajuda

A forma que esta sendo gerado o nosso número não esta da forma que tenho que gerar pra meu cliente. Esta assim:

18/00001921436-7 e eu preciso que fique assim 19214360000000000

Queria ver com vc como posso mudar isso, se eu mesmo faço aqui ou se vc pode mudar a classe ai pra mim por favor
FOXMAN 22/01/2010 19:21:23
#332659
Mas já deu uma olhada na documentação do banco do brasil com relação ao campo nosso numero ????
até da para formatar.

Veja no código abaixo a linha em negrito.
Localize a SUB GeraBoletoBB

Citação:

Public Sub GeraBoletoBB(ByVal qtde As Integer)

[ô] Cria o boleto, e passa os parâmetros usuais
Dim bb As BoletoBancario

Dim boletos As New List(Of BoletoBancario)()
For i As Integer = 0 To qtde - 1

bb = New BoletoBancario()
bb.CodigoBanco = _codigoBanco

Dim vencimento As New DateTime(2007, 9, 10)
Dim c As New Cedente([Ô]00.000.000/0000-00[Ô], [Ô]Empresa de Atacado[Ô], [Ô]1234[Ô], [Ô]5[Ô], [Ô]12345678[Ô], [Ô]9[Ô])

c.Codigo = 504
Dim b As New Boleto(vencimento, 45.5R, [Ô]18[Ô], [Ô]12345678901[Ô], c)

b.Sacado = New Sacado([Ô]000.000.000-00[Ô], [Ô]Fulano de Silva[Ô])
b.Sacado.Endereco.[End] = [Ô]SSS 154 Bloco J Casa 23[Ô]
b.Sacado.Endereco.Bairro = [Ô]Testando[Ô]
b.Sacado.Endereco.Cidade = [Ô]Testelândia[Ô]
b.Sacado.Endereco.CEP = [Ô]70000000[Ô]
b.Sacado.Endereco.UF = [Ô]DF[Ô]

[ô]Adiciona as instruções ao boleto
[ô]Protestar
Dim item As New Instrucao_BancoBrasil(9, 5)
b.Instrucoes.Add(item)
[ô]ImportanciaporDiaDesconto
item = New Instrucao_BancoBrasil(30, 0)
b.Instrucoes.Add(item)
[ô]ProtestarAposNDiasCorridos
item = New Instrucao_BancoBrasil(81, 15)
b.Instrucoes.Add(item)

b.NumeroDocumento = [Ô]12345678901[Ô]
b.NossoNumero = Format(b.NossoNumero, [Ô]xxxxxxxxxxxxxxxx[Ô]) [ô]Aqui vc poderia formatar como quiser, porém poderá ocorrer erros na leitura do boleto.
bb.Boleto = b
bb.Boleto.Valida()

boletos.Add(bb)
Next

GeraLayout(boletos)
End Sub
ALEXPASSOS 22/01/2010 19:59:19
#332660
Certo Foxman

mas apareceu assim: 18/00000000000000000-1

e o pessoal do suporte do banco falou que não pode ter o número da carteiro e nem caracteri especial, ou seja, não pode ter / e nem -
e no caso ai tem mas de 17 números.... tem que sair o número 18 e o dígito 1

Como faço isso?

Obrigado pela atenção
FOXMAN 22/01/2010 22:52:47
#332672
o seu problema aparentemente está relacionado a carteira de cobrança.
O sistema tem as seguintes carteiras implementadas :
16
17
18
18-019

E sua carteira deve ser a 16-17 ou 18-17 o que caracteriza os 17 digitos
Verifique qual eh a sua carteira e me passe.

Outra coisa, passe o teu código da sub GeraBoletoBB.
ALEXPASSOS 22/01/2010 23:13:16
#332673
Olá.... segundo os dados do banco do brasil que passou para meu cliente esta assim:

Carteira: 18
Variação 019
e o convênio tem 7 dígitos ( por isso que o cara do banco falou que tem que ser nesse formato que estou querendo)

Eu tentei mudar a carteira mas todas as vezes que tentei dar Erro durante a validação do banco.
só aceita 18 eu tentei colocar 18-019 mas da esse erro.
ALEXPASSOS 22/01/2010 23:20:36
#332674
Segue o código

Public Sub GeraBoletoBB(ByVal qtde As Integer)

[ô] Cria o boleto, e passa os parâmetros usuais
Dim bb As BoletoBancario

Dim boletos As New List(Of BoletoBancario)()

[ô]Dim vVenc As String
[ô]Dim vencimento As New DateTime(vVencimento)

For i As Integer = 0 To qtde - 1

bb = New BoletoBancario()
bb.CodigoBanco = _codigoBanco

[ô]Pega data de vencimento e o valor do boleto
fnCarregaVencValor()
Dim valortitulo As Double = CDbl(vValor)

[ô]Dim vencimento As New DateTime(2007, 9, 10)
Dim c As New Cedente([Ô]05.918.945/0001-00[Ô], [Ô]Corais do Arraial Emp. e Inc. Imobiliária Ltda[Ô], [Ô]0792[Ô], [Ô]7[Ô], [Ô]45498[Ô], [Ô]2[Ô])

c.Codigo = 504
Dim b As New Boleto(vVencimento, valortitulo, [Ô]18[Ô], [Ô]1921436[Ô], c)

b.Sacado = New Sacado(vCPF, vNome)
b.Sacado.Endereco.[End] = vEndereco
b.Sacado.Endereco.Bairro = vBairro
b.Sacado.Endereco.Cidade = vCidade
b.Sacado.Endereco.CEP = vCep
b.Sacado.Endereco.UF = vEstado


Dim instr As New Instrucao(1)
instr.Descricao = vInst01
b.Instrucoes.Add(instr)

instr = New Instrucao(1)
instr.Descricao = vInst02
b.Instrucoes.Add(instr)

instr = New Instrucao(1)
instr.Descricao = vInst03
b.Instrucoes.Add(instr)

instr = New Instrucao(1)
instr.Descricao = vInst04
b.Instrucoes.Add(instr)

instr = New Instrucao(1)
instr.Descricao = vInst05
b.Instrucoes.Add(instr)

instr = New Instrucao(1)
instr.Descricao = vInst06
b.Instrucoes.Add(instr)

instr = New Instrucao(1)
instr.Descricao = vInst07
b.Instrucoes.Add(instr)

b.NumeroDocumento = vLote
b.NossoNumero = Format(b.NossoNumero, [Ô]19214360000000000[Ô])

bb.Boleto = b
bb.Boleto.Valida()

boletos.Add(bb)
Next

GeraLayout(boletos)
End Sub
Página 1 de 2 [15 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar