[Codigo de barras não le]

boa tarde, estava com o mesmo problema, uso delphi 7, e estava tentando imprimir pelo quickreport, tentei de várias formas e não consegui, instalei o outro componente que imprime o boleto, se eu nao to enganado é fortesreport, e imprimiu certinho... optei por este porque já foi desenvolvido pelo acbr, muito mais fácil de colocar na aplicação, no meu caso é claro, mas de repente pode ajudar mais alguma pessoa... até mais.

[Boleto Banco do Brasil]

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?

[ALTERACAO NA IMPRESSAO DO BOLETO BANCO DO BRASIL]

Estou com dificuldades para validar o layout do boleto do Banco do Brasil,

segundo o anexo 5 do manual de especificações técnicas para confecção de bloqueto de cobrança do Banco do Brasil, o campo nosso numero não tem digito verificador, apenas possui 17 posições livres para a montagem do campo nosso numero. Mas, para o componente ACBr Boleto, convenio de 6 digitos, ele coloca o digito verificador no nosso numero.

alguem sabe alguma coisa sobre isso?

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).

obrigado, até logo.

[Boleto Banco do Brasil]

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

[Boleto Banco do Brasil]

Ok, vou testar...

[Boleto Banco do Brasil]

Well, qual a carteira que voce está utilizando?

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

apenas 18?

[Boleto Banco do Brasil]

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...

[Boleto Banco do Brasil]

ninguem passou por esse problema pessoal?

ou ao menos conseguiram visualizar meu erro?

to doido já...

[Boleto Banco do Brasil]

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;

[Boleto Banco do Brasil]

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?

[Boleto Banco do Brasil]

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.

[Boleto Banco do Brasil]

convenio de 6 caracteres.

[Boleto Banco do Brasil]

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...