Boletos Sicredi

[Fabiano Sehn]

Boa tarde senhores e senhoritas...

Na função CalcularDigitoVerificador temos o código abaixo,

  Modulo.Documento := ACBrTitulo.ACBrBoleto.Cedente.Agencia +
                       PadLeft(ACBrTitulo.ACBrBoleto.Cedente.AgenciaDigito,2,'0')+
                       PadLeft(ACBrTitulo.ACBrBoleto.Cedente.CodigoCedente,5,'0')+
                       FormatDateTime('yy',ACBrTitulo.DataDocumento) +
                       '2' +
                       ACBrTitulo.CodigoGeracao + RightStr(ACBrTitulo.NossoNumero,5);

O Byte de geração "2" esta fixo, sendo que o mesmo pode ir de 2 a 9, de acordo com a sequencia de boletos que foi gerada, ou seja, a cada 99.999 boletos emitidos pelo cliente acrescenta um nesse Byte de geração.

No meu caso tenho um cliente que já usa com Byte de geração "3", e vou ter q adaptar isso no componente Acbr. E para não comprometer aqueles que estão funcionando dessa forma, penso em criar uma propriedade para esse campo e com default "2". Que vocês Pensam disso?

Att

Fabiano Sehn

 

[Juliomar Marchetti]