Dúvidas sobre o preenchimento nosso numero bradesco

[Fausto]

Boa noite pessoal
Estou as voltas com um problema no Bradesco..
Quando a emissão e entrega dos boletos é de responsabilidade do banco (tbBancoEmite),o campo nosso numero  tem que ser preenchido com 0(zeros).
Se  preencho ele com zeros é calculado o digito verificador no NossoNumero, no caso sempre '3', se não preencho (NossoNumero := ''), também é calculado o digito verificador pois ele é preenchido com zeros exatamente no método SetNossoNumero  do TACBrTitulo..
 

 fNossoNumero := PadLeft(wNossoNumero,wTamNossoNumero,'0');

 Se deixo de preencher a Propriedade NossoNumero, não é calculado o digito verificador, porem não é gerada uma linha com 400 posições.. pois é executado o trecho abaixo

procedure TACBrBancoBradesco.GerarRegistroTransacao400
      {Pegando Tipo de Boleto}
      case ACBrBoleto.Cedente.ResponEmissao of
         tbCliEmite : TipoBoleto := '2';
      else
         TipoBoleto := '1';
         if NossoNumero = EmptyStr then
           DigitoNossoNumero := '0';
      end;

Grato 

Fausto Alves
 

 

 

 

[barrys]

boa noite!

esta utilizando carteira 09?  poste esta parte do codigo para compreender melhor

[Fausto]

4 horas atrás, barrys disse:

boa noite!

esta utilizando carteira 09?  poste esta parte do codigo para compreender melhor

Esta tudo certo.. quando o responsável pelo boleto é o cliente, tbCliEmite... quando é o banco é que esta gerando um digito para o campo nosso número, 

[Juliana Tamizou]

Boa tarde.

Será necessário ajuste para quando o boleto é emitido pelo banco e numerado pelo mesmo.

Att.

[Graziele Rocha Serafim]

Boa tarde,

Alteração disponível no SVN.

Att.