Informar NossoNumero apenas com espaços ou Zeros (Banco do Brasil).

[Vicente Malagoni]

Boa Tarde, Tudo Bem !

Estou tendo um problema na hora de registrar o NossoNumero no arquivo Remessa (Banco do Brasil). Eu preciso passar para o arquivo apenas Zeros, no caso ficaria assim '00000000000000000000' o NossoNumero.

PadRight(ANossoNumero+aDV, 20, ' ')  + // 38 a 57 - Nosso número - identificação do título no banco

-> Linha do código aonde registra a informação no arquivo (ACBrBancoBrasil).

 

Mesmo eu passando a tag  NossoNumero = ' ', existe uma função que passa o numero do convenio para o NossoNumero .

Função -> TACBrBancoBrasil.FormataNossoNumero.

    if ((ACBrTitulo.Carteira = '16') or (ACBrTitulo.Carteira = '18')) and
        (Length(AConvenio) = 6) and (wTamNossoNum = 17) then
      ANossoNumero := PadLeft(ANossoNumero, 17, '0')
    else if Length(AConvenio) <= 4 then
      ANossoNumero := PadLeft(AConvenio, 4, '0') + PadLeft(ANossoNumero, 7, '0')
    else if (Length(AConvenio) > 4) and (Length(AConvenio) <= 6) then
      ANossoNumero := PadLeft(AConvenio, 6, '0') + PadLeft(ANossoNumero, 5, '0')
    else if (Length(AConvenio) = 7) then
      ANossoNumero := PadLeft(AConvenio, 7, '0') + RightStr(ANossoNumero, 10);

Nesse caso como eu poderia proceder, é possível passar em banco ou apenas zeros ?

 

Muito obrigado !

Atenciosamente um Desenvolvedor em desenvolvimento !.

[BigWings]

Em 01/10/2021 at 14:10, Vicente Malagoni disse:

Nesse caso como eu poderia proceder, é possível passar em banco ou apenas zeros ?

Vejo que leu os fontes, mas não deve ter percebido uma condição na rotina do CNAB240 que faz da forma que você quer:

Citar

     ANossoNumero := FormataNossoNumero(ACBrTitulo);
     wTamConvenio := Length(ACBrBanco.ACBrBoleto.Cedente.Convenio);
     wTamNossoNum := CalcularTamMaximoNossoNumero(ACBrTitulo.Carteira,
                                                  ACBrTitulo.NossoNumero);

     wCarteira:= StrToIntDef(Carteira, 0);
     if (((wCarteira = 11) or (wCarteira= 31) or (wCarteira = 51)) or
         ((wCarteira = 12) or (wCarteira = 15) or (wCarteira = 17))) and
        ((ACBrBoleto.Cedente.ResponEmissao <> tbCliEmite) and
         (StrToIntDef(NossoNumero,0) = 0)) then
     begin
       ANossoNumero := StringOfChar('0', 20);
       aDV          := ' ';
     end

 

No caso basta informar a propriedade ResponEmissao para esse caso onde o banco emite o boleto.