Boleto Banco do Brasil

nrspx · 6 Junho, 2011

Pessoal, bom dia.... Sou novo por aqui... e tenho uma dúvida...

no boleto do BB, o nosso numero é de 11 digitos, ou 10? pois estou tentando passar 11 digitos e dá uma mensagem que o nosso numero é de apenas 10... mas na impressao do boleto o nosso numero sai com vários zeros a esquerda... alguem sabe como eu devo passar o nosso numero? sei que minha duvida é algo primario mas estou com dificuldades... agredeço e muito a quem puder me ajudar... ate mais...

Juliana Tamizou · 6 Junho, 2011

Boa tarde.

O tamanho do nosso número vai varias de acordo com o tamanho do convênio utilizado.

Qual é o tamanho do número do convenio que você esta testando?

Att.

nrspx · 6 Junho, 2011

convenio de 6 caracteres.

nrspx · 6 Junho, 2011

legal... consegui imprimir o nosso numero, mas o numero do documento sai zerado...

fica assim: XXXXXX0000-5... alguem pode me falar como resolve?

agradecimentos antecipados.

Well · 6 Junho, 2011

legal... consegui imprimir o nosso numero, mas o numero do documento sai zerado...
fica assim: XXXXXX0000-5... alguem pode me falar como resolve?

agradecimentos antecipados.

cara, eu consegui homologar o layout em pdf (o boleto propriamente dito está ok) a unica coisa que nao consegui homologar ate agora é o arquivo remessa, o seu arquivo remessa está dando certo ?

nrspx · 7 Junho, 2011

ainda nem cheguei nessa parte...

to preso na impressao dele ainda...

tem algum tipo de jogada que tem que fazer para imprimir o nosso numero corretamente?

Well · 8 Junho, 2011

ainda nem cheguei nessa parte...
to preso na impressao dele ainda...

tem algum tipo de jogada que tem que fazer para imprimir o nosso numero corretamente?

o que eu fiz, eu criei um campo na base e incremento ele a cada titulo, ex:

dm.CDS_EMPRESA.Locate('IDEMPRESAEMISSORA',DBEdit2.Text,[]);

NossoNumero:= StrToInt(dm.CDS_EMPRESANOSSONUMERO.AsString);

inc(NossoNumero);

Titulo.NossoNumero := IntToStr(NossoNumero);

dm.cdsCliente.Locate('IDCLIENTE',DM.cdsAReceberIDCLIENTE.AsInteger,[]);

dm.CDS_EMPRESA.Edit;

dm.CDS_EMPRESANOSSONUMERO.AsInteger := NossoNumero;

dm.CDS_EMPRESA.Post;

dm.CDS_EMPRESA.ApplyUpdates(0);

assim funcionou...

nrspx · 9 Junho, 2011

engraçado.... comigo nao está funcionando... saí o numero do convenio, mas o numero do documento sai zerado... acho que estou cometendo algum erro primario... mas nao estou encontrando...


  bltPrincipal.ListadeBoletos.Clear;


  Titulo          := bltPrincipal.CriarTituloNaLista;

  strNossoNumero  := IntToStr(StrToInt(tabdados.FieldbyName('DOCUMENTO').AsString) + 1);


  with Titulo do begin

    Aceite                  := atNao;

    Vencimento              := tabdados.FieldbyName('DT.VENCIMENTO').AsDateTime;

    DataDocumento           := tabdados.FieldbyName('DT.EMISSAO').AsDateTime;

    NumeroDocumento         := tabdados.FieldbyName('DOCUMENTO').AsString + ' - ' + tabdados.FieldbyName('ORDEM').AsString;

    EspecieDoc              := tabdados.FieldbyName('ESPECIE').AsString;

    DataProcessamento       := Now;

    Carteira                := Copy(qryContaCorrenteInstituicao.FieldByName('CARTEIRA').AsString, 01, 02) +

                                  Copy(qryContaCorrenteInstituicao.FieldByName('CARTEIRA').AsString, 03, 03);

    NossoNumero             := strNossoNumero;

    Sacado.NomeSacado       := adoqcliente.FieldByName('NOME').AsString;

    Sacado.CNPJCPF          := adoqcliente.FieldByName('CNPJ_CPF').AsString;

    Sacado.Logradouro       := adoqcliente.FieldByName('ENDERECO').AsString;

    Sacado.Numero           := adoqcliente.FieldByName('IDCLIENTE').AsString;

    Sacado.Bairro           := adoqcliente.FieldByName('BAIRRO').AsString;

    Sacado.Cidade           := adoqcliente.FieldByName('DESCRICAO').AsString;

    Sacado.UF               := adoqcliente.FieldByName('UF').AsString;

    Sacado.CEP              := adoqcliente.FieldByName('CEP').AsString;

    ValorDocumento          := tabdados.FieldbyName('VLR.FACE').AsFloat;

    ValorDocumento          := tabdados.FieldbyName('VLR.FACE').AsFloat;

    Instrucao1              := frmMensagem.edMensagem1.Text + ' ' + frmMensagem.edMensagem2.Text;

    Instrucao2              := frmMensagem.edMensagem3.Text;

  end;

nrspx · 9 Junho, 2011

ninguem passou por esse problema pessoal?

ou ao menos conseguiram visualizar meu erro?

to doido já...

Well · 10 Junho, 2011

engraçado.... comigo nao está funcionando... saí o numero do convenio, mas o numero do documento sai zerado... acho que estou cometendo algum erro primario... mas nao estou encontrando...


  bltPrincipal.ListadeBoletos.Clear;


  Titulo          := bltPrincipal.CriarTituloNaLista;

  strNossoNumero  := IntToStr(StrToInt(tabdados.FieldbyName('DOCUMENTO').AsString) + 1);


  with Titulo do begin

    Aceite                  := atNao;

    Vencimento              := tabdados.FieldbyName('DT.VENCIMENTO').AsDateTime;

    DataDocumento           := tabdados.FieldbyName('DT.EMISSAO').AsDateTime;

    NumeroDocumento         := tabdados.FieldbyName('DOCUMENTO').AsString + ' - ' + tabdados.FieldbyName('ORDEM').AsString;

    EspecieDoc              := tabdados.FieldbyName('ESPECIE').AsString;

    DataProcessamento       := Now;

    Carteira                := Copy(qryContaCorrenteInstituicao.FieldByName('CARTEIRA').AsString, 01, 02) +

                                  Copy(qryContaCorrenteInstituicao.FieldByName('CARTEIRA').AsString, 03, 03);

    NossoNumero             := strNossoNumero;

    Sacado.NomeSacado       := adoqcliente.FieldByName('NOME').AsString;

    Sacado.CNPJCPF          := adoqcliente.FieldByName('CNPJ_CPF').AsString;

    Sacado.Logradouro       := adoqcliente.FieldByName('ENDERECO').AsString;

    Sacado.Numero           := adoqcliente.FieldByName('IDCLIENTE').AsString;

    Sacado.Bairro           := adoqcliente.FieldByName('BAIRRO').AsString;

    Sacado.Cidade           := adoqcliente.FieldByName('DESCRICAO').AsString;

    Sacado.UF               := adoqcliente.FieldByName('UF').AsString;

    Sacado.CEP              := adoqcliente.FieldByName('CEP').AsString;

    ValorDocumento          := tabdados.FieldbyName('VLR.FACE').AsFloat;

    ValorDocumento          := tabdados.FieldbyName('VLR.FACE').AsFloat;

    Instrucao1              := frmMensagem.edMensagem1.Text + ' ' + frmMensagem.edMensagem2.Text;

    Instrucao2              := frmMensagem.edMensagem3.Text;

  end;

bom dia,

o problema está aqui = strNossoNumero := IntToStr(StrToInt(tabdados.FieldbyName('DOCUMENTO').AsString) + 1);

ao inves disso eu uso variável, por isso o meu funcionou, testa depois vc posta o resultado.

nrspx · 13 Junho, 2011

Well testei da forma que voce disse e ainda nada...

para sair certo eu tenho que fazer desta forma...


 Titulo          := bltPrincipal.CriarTituloNaLista;

  intTeste        := StrToInt(tabdados.FieldbyName('DOCUMENTO').AsString);

  Inc(intTeste);

  strNossoNumero  := IntToStr(intTeste);


  with Titulo do begin

    Aceite                  := atNao;

    Vencimento              := tabdados.FieldbyName('DT.VENCIMENTO').AsDateTime;

    DataDocumento           := tabdados.FieldbyName('DT.EMISSAO').AsDateTime;

    NumeroDocumento         := tabdados.FieldbyName('DOCUMENTO').AsString + ' - ' + tabdados.FieldbyName('ORDEM').AsString;

    EspecieDoc              := tabdados.FieldbyName('ESPECIE').AsString;

    DataProcessamento       := Now;

    Carteira                := Copy(qryContaCorrenteInstituicao.FieldByName('CARTEIRA').AsString, 01, 02) +

                                  Copy(qryContaCorrenteInstituicao.FieldByName('CARTEIRA').AsString, 03, 03);

    NossoNumero             := strNossoNumero + '00000';

    Sacado.NomeSacado       := adoqcliente.FieldByName('NOME').AsString;

    Sacado.CNPJCPF          := adoqcliente.FieldByName('CNPJ_CPF').AsString;

    Sacado.Logradouro       := adoqcliente.FieldByName('ENDERECO').AsString;

    Sacado.Numero           := adoqcliente.FieldByName('IDCLIENTE').AsString;

    Sacado.Bairro           := adoqcliente.FieldByName('BAIRRO').AsString;

    Sacado.Cidade           := adoqcliente.FieldByName('DESCRICAO').AsString;

    Sacado.UF               := adoqcliente.FieldByName('UF').AsString;

    Sacado.CEP              := adoqcliente.FieldByName('CEP').AsString;

    ValorDocumento          := tabdados.FieldbyName('VLR.FACE').AsFloat;

    ValorDocumento          := tabdados.FieldbyName('VLR.FACE').AsFloat;

    Instrucao1              := frmMensagem.edMensagem1.Text + ' ' + frmMensagem.edMensagem2.Text;

    Instrucao2              := frmMensagem.edMensagem3.Text;

  end;

mas essa solução nao deve estar correta....

obrigado Well por toda a ajuda prestada até o presente momento...

nrspx · 14 Junho, 2011

Well, qual a carteira que voce está utilizando?

para o campo carteira eu estou passando o valor "18-019"... como devo passar?

apenas 18?

Well · 14 Junho, 2011

boa tarde nrspx,

eu utilizo a cart 17 variacao 19, mas eu passo apenas, '17', no seu caso paesse apenas '18'

nrspx · 14 Junho, 2011

Ok, vou testar...

nrspx · 16 Junho, 2011

pessoal, nao consigo validar o layout do boleto bancario...

segue o codigo aqui abaixo... falta passar alguma informação? ou estou passando alguma informação incorreta?


procedure Tfrmdocumentosreceber.InsereDocumento;

var

  Titulo : TACBrTitulo;

  strNossoNumero: String;

  intTeste: Integer;

begin

  Titulo          := bltPrincipal.CriarTituloNaLista;

  intTeste        := (qryContaCorrenteInstituicao.FieldbyName('SEQUENCIANROBOLETO').AsInteger);

  Inc(intTeste);

  strNossoNumero  := IntToStr(intTeste);


  with Titulo do begin

    if (adoqcliente.FieldByName('TIPOPESSOA').AsString = 'F') then begin

      Sacado.Pessoa         := pFisica;

    end else begin

      Sacado.Pessoa         := pJuridica;

    end;


    Aceite                  := atNao;

    Vencimento              := tabdados.FieldbyName('DT.VENCIMENTO').AsDateTime;

    DataDocumento           := tabdados.FieldbyName('DT.EMISSAO').AsDateTime;

    NumeroDocumento         := tabdados.FieldbyName('DOCUMENTO').AsString + ' - ' + tabdados.FieldbyName('ORDEM').AsString;

    EspecieDoc              := 'RC';

    DataProcessamento       := Now;

    Carteira                := qryContaCorrenteInstituicao.FieldByName('CARTEIRA').AsString;

    NossoNumero             := strNossoNumero;

    Sacado.NomeSacado       := adoqcliente.FieldByName('NOME').AsString;

    Sacado.CNPJCPF          := adoqcliente.FieldByName('CNPJ_CPF').AsString;

    Sacado.Logradouro       := adoqcliente.FieldByName('ENDERECO').AsString;

    Sacado.Numero           := adoqcliente.FieldByName('IDCLIENTE').AsString;

    Sacado.Bairro           := adoqcliente.FieldByName('BAIRRO').AsString;

    Sacado.Cidade           := adoqcliente.FieldByName('DESCRICAO').AsString;

    Sacado.UF               := adoqcliente.FieldByName('UF').AsString;

    Sacado.CEP              := adoqcliente.FieldByName('CEP').AsString;

    ValorDocumento          := tabdados.FieldbyName('VLR.FACE').AsFloat;

    ValorDocumento          := tabdados.FieldbyName('VLR.FACE').AsFloat;

    LocalPagamento          := 'PAGÁVEL EM QUALQUER BANCO ATÉ O VENCIMENTO.';

    OcorrenciaOriginal.Tipo := toRemessaBaixar;

  end;

end;

a informação que o pessoal do banco me retornou é que o nosso numero que vai no corpo do boleto não tem dígito verificador e que o codigo de barras está incorreto tambem, mas muita gente usa esse componente, ele é seguro e estavel, devo estar cometendo algum erro, alguem pode me ajudar?

obrigado pessoal..

Teste.PDF

nrspx · 17 Junho, 2011

consegui resolver a questao da carteira, para resolver meu problema momentaneamente fiz a seguinte alteração na função "MontarCampoNossoNumero"

por favor, vejam se está correta e se posso deixa-la dessa maneira...


function TACBrBancoBrasil.MontarCampoNossoNumero (const ACBrTitulo: TACBrTitulo ) : String;

var ANossoNumero : string;

begin

    ANossoNumero := FormataNossoNumero(ACBrTitulo);

    if (Length(ACBrBanco.ACBrBoleto.Cedente.Convenio) = 7) or (Length(ANossoNumero) = 17) then

       Result:= ANossoNumero

    else

       Result := ANossoNumero + '-' + CalcularDigitoVerificador(ACBrTitulo);

end;

a alteração feita foi adicionar or (Length(ANossoNumero) = 17).

esta alteração está correta?

Juliana Tamizou · 25 Junho, 2011

Bom dia.

A correção para este problema foi implementada e está no svn.

Att

Entrar

Sobre nós...

Boleto Banco do Brasil

Recommended Posts

nrspx

Juliana Tamizou

nrspx

nrspx

Well

nrspx

Well

nrspx

nrspx

Well

nrspx

nrspx

Well

nrspx

nrspx

nrspx

Juliana Tamizou

Crie uma conta ou entre para comentar

Criar uma conta

Entrar

Links Rápidos

Links Rápidos

Parcerias

Clube Pro

SOBRE

Sobre nós...

Informação Importante