Banco do Brasil, Carteira 17 convenio 7 posições

[Weber]

Bom dia, 

Seguinte, o banco passou para meu cliente os dados e nestes estão carteira 17/019,

convênio de 7 posições, porém querem que gere nosso número com 17 posições.. e estava analisando a validação do ACBR ele não aceita

17 posições na carteira 17 com convênio de 7 posições, a informação do banco esta errada? ou precisa de algum ajuste no arquivo do banco?

 

------------------------ Detalhamento do Convenio ----------------------------
Agencia       :       2011 7 - CORUPA                                         
Cart/Variacao :     17/019 SIMPLES COM REGISTRO                               
Tipo Convenio :          4 Cliente: Numera, emite e expede                    
Situacao      :          1 Normal com retorno                                 
Nr.Convenio   :    2245549               Nr.Conv.Lider   : 2245549            
Tipo Ret.Lider:          6 CNAB240 - Ger.Financ./Mainf-Mainf                  

 Detalhe tipo 7
Posições 064 a 080: Preencher o nosso número da seguinte forma: '2245549NNNNNNNNNN' onde 'N' = numeração livre a cargo da empresa

 

 

RESOLVIDO... arrumei no sistema o nosso numero para 10 posições deixando o ACBR preencher o convenio que faltava.

 

 

 

 

Editado 12 Maio, 2016 por Weber

[Gr@c@]

Eu tenho um sistema emissor de boleto que não usa ACBr que faz dessa forma: o nosso numero é formado por convenio (7 posições+10 posições do numero sequencial). Implementei o Banco do Brasil e ficou em conformidade. Gera o nosso numero com 17 digitos (convenio+sequencial) e no arquivo remessa fica correto também. 

Minha configuração está assim:

Banco_LocalPagtoPadrao := 'Pagável em qualquer banco até o vencimento.';
Banco_UsoDoBanco       := '';
Banco_CodigoMora       := cCodigoMoraValor;
ACBrBoleto1.Banco.TipoCobranca          := cobBancoDoBrasil;
ACBrBoleto1.Banco.Numero                := 001;
ACBrBoleto1.Banco.Digito                := 9;
ACBrBoleto1.Banco.Nome                  := 'BANCO DO BRASIL';
ACBrBoleto1.Banco.TamanhoMaximoNossoNum := 9;
ACBrBoleto1.Cedente.CodigoCedente       := FormatFloat('0000000',edCodCedente.AsInteger);                        

ACBrBoleto1.Cedente.Agencia             := edAgencia.Text;
ACBrBoleto1.Cedente.AgenciaDigito       := FormatFloat('0',edDVAgencia.AsInteger);
ACBrBoleto1.Cedente.Conta               := edContaCorrente.Text; {não é o codigo do cedente/cliente}
ACBrBoleto1.Cedente.ContaDigito         := edDVContaCorrente.Text;
ACBrBoleto1.Cedente.Convenio            := edConvenio.Text;
ACBrBoleto1.Cedente.TipoDocumento       := Tradicional;   //TACBrTipoDocumento = (Tradicional=1, Escritural=2);
ACBrBoleto1.Cedente.Modalidade          := FormatFloat('00',edModalidade.AsInteger);
ACBrBoleto1.Cedente.TipoCarteira      := tctRegistrada;
ACBrBoleto1.Cedente.CaracTitulo       := tcSimples;
ACBrBoleto1.Cedente.ResponEmissao       := tbCliEmite; 

.ACBrBoleto1.Banco.OrientacoesBanco.Clear;

Em titulo:

        {Dados da Carteira - Banco do Brasil tem que informar a carteira antes do NossoNumero}
        Titulo.Carteira                          := FormatFloat('0',Frm_BoletoPrincipal.edCarteira.AsInteger);
        Titulo.CarteiraEnvio                     := tceCedente; {(tceCedente, tceBanco)}
        Titulo.EspecieMod                        := 'R$';
        Titulo.NossoNumero                       := sSequencial; {aqui vai somente o sequencial sem convenio}

exemplo de NossoNumero gerado = 21945580000002345

[Weber]

49 minutos atrás, Gr@c@ disse:

Eu tenho um sistema emissor de boleto que não usa ACBr que faz dessa forma: o nosso numero é formado por convenio (7 posições+10 posições do numero sequencial). Implementei o Banco do Brasil e ficou em conformidade. Gera o nosso numero com 17 digitos (convenio+sequencial) e no arquivo remessa fica correto também. 

Minha configuração está assim:

Banco_LocalPagtoPadrao := 'Pagável em qualquer banco até o vencimento.';
Banco_UsoDoBanco       := '';
Banco_CodigoMora       := cCodigoMoraValor;
ACBrBoleto1.Banco.TipoCobranca          := cobBancoDoBrasil;
ACBrBoleto1.Banco.Numero                := 001;
ACBrBoleto1.Banco.Digito                := 9;
ACBrBoleto1.Banco.Nome                  := 'BANCO DO BRASIL';
ACBrBoleto1.Banco.TamanhoMaximoNossoNum := 9;
ACBrBoleto1.Cedente.CodigoCedente       := FormatFloat('0000000',edCodCedente.AsInteger);                        

ACBrBoleto1.Cedente.Agencia             := edAgencia.Text;
ACBrBoleto1.Cedente.AgenciaDigito       := FormatFloat('0',edDVAgencia.AsInteger);
ACBrBoleto1.Cedente.Conta               := edContaCorrente.Text; {não é o codigo do cedente/cliente}
ACBrBoleto1.Cedente.ContaDigito         := edDVContaCorrente.Text;
ACBrBoleto1.Cedente.Convenio            := edConvenio.Text;
ACBrBoleto1.Cedente.TipoDocumento       := Tradicional;   //TACBrTipoDocumento = (Tradicional=1, Escritural=2);
ACBrBoleto1.Cedente.Modalidade          := FormatFloat('00',edModalidade.AsInteger);
ACBrBoleto1.Cedente.TipoCarteira      := tctRegistrada;
ACBrBoleto1.Cedente.CaracTitulo       := tcSimples;
ACBrBoleto1.Cedente.ResponEmissao       := tbCliEmite; 

.ACBrBoleto1.Banco.OrientacoesBanco.Clear;

Em titulo:

        {Dados da Carteira - Banco do Brasil tem que informar a carteira antes do NossoNumero}
        Titulo.Carteira                          := FormatFloat('0',Frm_BoletoPrincipal.edCarteira.AsInteger);
        Titulo.CarteiraEnvio                     := tceCedente; {(tceCedente, tceBanco)}
        Titulo.EspecieMod                        := 'R$';
        Titulo.NossoNumero                       := sSequencial; {aqui vai somente o sequencial sem convenio}

exemplo de NossoNumero gerado = 21945580000002345

isso, meu erro era que já estava colocando o convenio junto com o nosso número, separei deu certo!

 

Abraços.

[Paulo R. Dias]

Em 12/05/2016 at 09:27, Gr@c@ disse:

Eu tenho um sistema emissor de boleto que não usa ACBr que faz dessa forma: o nosso numero é formado por convenio (7 posições+10 posições do numero sequencial). Implementei o Banco do Brasil e ficou em conformidade. Gera o nosso numero com 17 digitos (convenio+sequencial) e no arquivo remessa fica correto também. 

Minha configuração está assim:

Banco_LocalPagtoPadrao := 'Pagável em qualquer banco até o vencimento.';
Banco_UsoDoBanco       := '';
Banco_CodigoMora       := cCodigoMoraValor;
ACBrBoleto1.Banco.TipoCobranca          := cobBancoDoBrasil;
ACBrBoleto1.Banco.Numero                := 001;
ACBrBoleto1.Banco.Digito                := 9;
ACBrBoleto1.Banco.Nome                  := 'BANCO DO BRASIL';
ACBrBoleto1.Banco.TamanhoMaximoNossoNum := 9;
 ACBrBoleto1.Cedente.CodigoCedente       := FormatFloat('0000000',edCodCedente.AsInteger);                        

ACBrBoleto1.Cedente.Agencia             := edAgencia.Text;
ACBrBoleto1.Cedente.AgenciaDigito       := FormatFloat('0',edDVAgencia.AsInteger);
ACBrBoleto1.Cedente.Conta               := edContaCorrente.Text; {não é o codigo do cedente/cliente}
ACBrBoleto1.Cedente.ContaDigito         := edDVContaCorrente.Text;
ACBrBoleto1.Cedente.Convenio            := edConvenio.Text;
ACBrBoleto1.Cedente.TipoDocumento       := Tradicional;   //TACBrTipoDocumento = (Tradicional=1, Escritural=2);
ACBrBoleto1.Cedente.Modalidade          := FormatFloat('00',edModalidade.AsInteger);
ACBrBoleto1.Cedente.TipoCarteira      := tctRegistrada;
ACBrBoleto1.Cedente.CaracTitulo       := tcSimples;
ACBrBoleto1.Cedente.ResponEmissao       := tbCliEmite; 

.ACBrBoleto1.Banco.OrientacoesBanco.Clear;

Em titulo:

        {Dados da Carteira - Banco do Brasil tem que informar a carteira antes do NossoNumero}
        Titulo.Carteira                          := FormatFloat('0',Frm_BoletoPrincipal.edCarteira.AsInteger);
        Titulo.CarteiraEnvio                     := tceCedente; {(tceCedente, tceBanco)}
        Titulo.EspecieMod                        := 'R$';
        Titulo.NossoNumero                       := sSequencial; {aqui vai somente o sequencial sem convenio}

exemplo de NossoNumero gerado = 21945580000002345

Ola, fiz extamentente como o exemplo, mas quando coloco a carteira = '17' da erro, o que sera que esta errado,  no itau consegui fazer...

 

[Juliana Tamizou]

Boa tarde.

Qual é o erro que você está tentando e quais os valores está passando para as propriedade Convenio, Carteira e NossoNumero?

Att.

[Paulo R. Dias]

 ACBrBoleto.Banco.TipoCobranca          := cobBancoDoBrasil;
    ACBrBoleto.Banco.Numero                := 001;
    ACBrBoleto.Banco.Digito                := 9;
    ACBrBoleto.Banco.Nome                  := 'BANCO DO BRASIL';
    ACBrBoleto.Banco.TamanhoMaximoNossoNum := 10;
    ACBrBoleto.Cedente.CodigoCedente       := FormatFloat('0000000',1221);

    ACBrBoleto.Cedente.Agencia             := '3179';
    ACBrBoleto.Cedente.AgenciaDigito       := '4';
    ACBrBoleto.Cedente.Conta               := '5194'; 

   ACBrBoleto.Cedente.ContaDigito         := '2';
    ACBrBoleto.Cedente.Nome:='EMPRESA TESTE';
    ACBrBoleto.Cedente.CNPJCPF:='99999999999999';
    ACBrBoleto.Cedente.Logradouro:='ENDERECO';

    ACBrBoleto.Cedente.Convenio            := '1821772';
    ACBrBoleto.Cedente.TipoDocumento       := Tradicional;  
    ACBrBoleto.Cedente.Modalidade          := '19';
    ACBrBoleto.Cedente.TipoCarteira      := tctRegistrada;
    ACBrBoleto.Cedente.CaracTitulo       := tcSimples;
    ACBrBoleto.Cedente.ResponEmissao       := tbCliEmite;

    ACBrBoleto.Banco.OrientacoesBanco.Clear;

  ibqcadctr.First;

  while ibqcadctr.eof=false do begin

  with Titulo do
  begin

    Vencimento := ibqcadctrdvenctr.value;
    DataDocumento := ibqcadctrdemictr.value;

    DataProcessamento := date();

     Titulo.CarteiraEnvio                     := tceCedente;

    EspecieMod                        := 'R$';
     carteira:='17';
     Titulo.NossoNumero                       := '000000001';  
    ValorDocumento := ibqcadctrvemictr.value;
    Sacado.NomeSacado := COPY(ibqcadctrrazacli.Value,1,30);
    Sacado.CNPJCPF := limpa(ibqcadctrcfcjcli.Value);
    Sacado.Logradouro := ibqcadctrendfcli.value;
    Sacado.Numero := ibqcadctrnumfcli.value;
    Sacado.Bairro := ibqcadctrbaifcli.value;;
    Sacado.Cidade := ibqcadctrmunfcli.value;
    Sacado.UF := ibqcadctrestfcli.value;
    Sacado.CEP := limpa(ibqcadctrcepfcli.Value);
    ValorAbatimento := 0.00;
    LocalPagamento := 'ATÉ O VENCIMENTO, PREFERENCIALMENTE NO BANCO DO BRASIL, APOS O VENCIMENTO, SOMENTE BANCO DO BRASIL.';
    ValorMoraJuros := (ibqcadctrvemictr.value*((8/30)/100));
    ValorDesconto := 0.00;
    ValorAbatimento := 0.00;
    DataMoraJuros := ibqcadctrdvenctr.value+1;
    DataDesconto := StrToDateDef('  /  /    ', 0);
    DataAbatimento := StrToDateDef('  /  /    ', 0);
    DataProtesto := ibqcadctrdvenctr.value+3;
    DataMulta:=ibqcadctrdvenctr.Value+1;
    PercentualMulta := 2.00;
    Mensagem.Text := '';
    OcorrenciaOriginal.Tipo := toRemessaBaixar;
    Instrucao1 := '';
    Instrucao2 := '';

[Juliana Tamizou]

Bom dia.

Vc ainda não disse qual é o erro.

Att.