Boleto banco do Brasil Com Cobrebem

[marcioe]

Amigos estou gerando Boletos para o Banco do brasil, já gero pro bradesco, caixa e sem problemas.

Porem o do banco do brasil está dando erro quando mando a remessa de teste para o banco validar.

Entrei em contato com a cobrebem e eles me pediram para verificar esses parametros

*-----------------------------------------------resposta da cobrebem ----------------------------------------------------------------------

Obrigado por entrar em contato conosco.

Gere a licença para a carteira 17-7 e preencha as propriedades de configuração conforme tabela abaixo, sendo que caso o valor seja menor que a máscara, deverá ser completado com zeros a esquerda:

Propriedades de Configuração:
Propriedade	Conteúdo	Formato
CodigoAgencia	 Agência	 0000-A
NumeroContaCorrente	 Conta Corrente	 00000000-A
CodigoCedente	 Código do Convênio	 0000000
OutroDadoConfiguracao1	 Variação da Carteira	 000
OutroDadoConfiguracao2	 Sigla do Cedente	 AAAAAAAAAA
Somente utilizado para remessa de arquivo com o layout CBR454
InicioNossoNumero	 Início Nosso Número	 0000000000
FimNossoNumero	 Fim Nosso Número	 0000000000

Colocamo-nos a sua disposição para esclarecer eventuais dúvidas.

Atenciosamente,

Marcelo Andrade | Cobre Bem Tecnologia
www.cobrebem.com.br
RJ: +55 (21) 2288 5990
SP: +55 (11) 5041 2228

*-----------------------------------------------------------------------------------------------------------------------------------------------

Será que algum amigo pode postar um código onde seta esta propriedades para que eu possa conferir com os que estou setando.

Agradeço aos amigos.

[MatheusFarias]

Function Cobrebem_Abre(oCbx,vcodicob)
   Local vnomecob,vcontaco,vagencia,vcodiban,vcedente,vconveni,varqlice,vtipobol,vtamnoss,vconfig1,vconfig2
   public vpreview:=.f.
   if Registrar()=.f.
      return .f.
   endif

   Select cob
   set order to 1
   Seek vcodicob
   vnomecob:=cob->nomecob
   vcontaco:=alltrim(cob->contaco)
   vagencia:=alltrim(cob->agencia)
   ** Depois verificas codigo do banco com arquivo licença
   vcodiban:=alltrim(cob->codiban)
   vcedente:=alltrim(cob->cedente)
   vconveni:=alltrim(cob->conveni)
   varqlice:=alltrim(cob->arqlice)
   vtipobol:=alltrim(cob->tipobol)
   vtamnoss:=alltrim(cob->variaca)
   vconfig1:=alltrim(cob->config1)
   vconfig2:=alltrim(cob->config2)
   vpreview:=cob->preview
   if Empty (vcodiban) .or. Empty (varqlice)  .or.  Empty(vtipobol)  .or. val(vtamnoss)>15
      MsgAlert("Informaçoes Sobre o Boleto está em aberto "+CRLF+"por favor acesse os tipos de cobrança e modifique as configurações"+CRLF+"Cobrança :"+vcodicob+" "+vnomecob,"Alerta")
      return .f.
   endif

   tArqLice := CurDrive()+":\"+ CurDir()+"\"+varqlice
   if !file( tArqLice )
      msgalert( "Arquivo de Licença não se Encontra na pasta do Integrad , Por favor Verifique !!", "Atenção" )
      Return .f.

   endif
   if cFileExt(varqlice)#"conf"
      MsgAlert("Arquivo de Licença informado não é valido , verifique as configuraçoes !","Atenção")
      return .f.
   endif

   Try
      oCBX := TOleAuto():New('CobreBemX.ContaCorrente')
      CaminhoImagens:= CurDrive()+":\"+ CurDir()+"\BitMaps\"
      oCbx:ArquivoLicenca:= tArqLice
      oCbx:CodigoAgencia:= vAgencia
      oCbx:NumeroContaCOrrente:= vContaco

      && Dados que mudam de acordo com o banco
      oCbx:CodigoCedente:= vcedente

      oCbx:PadroesBoleto:PadroesBoletoImpresso:ArquivoLogotipo:= CaminhoImagens+"LOGOEMP.BMP"
      oCBX:PadroesBoleto:PadroesBoletoImpresso:CaminhoImagensCodigoBarras :=  CaminhoImagens
      oCBX:PadroesBoleto:PadroesBoletoImpresso:LayoutBoleto := SubStr(vtipobol,3, LEN(VTIPOBOL))
      //**   oCBX:PadroesBoleto:PadroesBoletoImpresso:LayoutBoleto := "CarnetReciboTopoPersonalizado"
      oCBX:PadroesBoleto:PadroesBoletoImpresso:HTMLReciboPersonalizado:= MemoRead(cdll+"cobrebem.html")

      oCBX:ArquivoRemessa:Layout:=vconveni
      ** Alterar Tamanho do Nosso Numero para cada banco//
      Cobrebem_outrasconfig(@oCbx,vconfig1,vconfig2,vtamnoss,vcodiban)
   catch
      cMsg:= "Não foi Possivel Iniciar o Boleto!"+CRLF+"Por favor verifique as configurações"+CRLF+"ou entre em contato com o nosso suporte."
      MsgInfo(cMsg,"Informação")
      return .f.
   end
   return .t.

   *
Function Cobrebem_outrasconfig(oCbx,vconfig1,vconfig2,vtamnoss,vcodiban)
   local vnossonumero
   oCBX:OutroDadoConfiguracao1 := alltrim(vconfig1)
   oCBX:OutroDadoConfiguracao2 := alltrim(vconfig2)
   vnossonumero:=space(0)
   for x:=1 to val(vtamnoss)
       vnossonumero+="0"
   next
   oCbx:InicioNossoNumero:=vnossonumero
   vnossonumero:=space(0)
   for x:=1 to val(vtamnoss)
       vnossonumero+="0"
   next
   oCbx:FimNossoNumero:= vnossonumero

Espero que consiga entender , mais duvidas manda um email , matheus@inteligence.com.br