Banco do Brasil Conv 6 Posições

[tuim01]

Boa tarde.

Acabei de homologar convenio de 6 posições layout 400 para o BB. Foi necessário fazer a seguinte alteração:

Campo ADigitoNossoNumero := ‘0’

Ficou assim:

if ((strtoint(Carteira)= 11) or (strtoint(Carteira)= 31) or (strtoint(Carteira)= 51)) or

(((strtoint(Carteira)= 12) or (strtoint(Carteira)= 15) or (strtoint(Carteira)= 17))

and (ACBrBoleto.Cedente.ResponEmissao <> tbCliEmite)) then

begin

ANossoNumero := '00000000000000000000';

ADigitoNossoNumero := '0'; //modifiquei

end

else

begin

ANossoNumero := FormataNossoNumero(ACBrTitulo);

ADigitoNossoNumero := CalcularDigitoVerificador(ACBrTitulo);

end;

Sem essa modificação a linha ficava com 399 posições. Verifiquei no código e vi que não é usado esse campo para o convenio de 7 posições.

Obrigado.

[Juliana Tamizou]

Bom dia.

Por favor anexe aqui a unit com a alteração....você verificou se eta alteração não irá influenciar os convênios com 4,5 ou 7 dígitos?

Att.

[tuim01]

Bom dia.

Verifiquei sim o convênio que uso é de 5 posições então entra no layout de até 6 posições, sendo necessário preencher com 0 a esquerda. Já o layout para o convênio de 7 posições campo não é usado conforme nota 06 do manual:

"Observações: Não há Dígito Verificador- DV - para o Nosso-Número, quando o convênio de cobrança for acima de 1.000.000 (um milhão)."

Att.

ACBrBancoBrasil.pas