Problema com o Digito Verificador do Nosso Numero Scredi:
TACBrBancoSicredi.CalcularDigitoVerificador
Modulo.Documento := ACBrTitulo.ACBrBoleto.Cedente.Agencia +
PadLeft(ACBrTitulo.ACBrBoleto.Cedente.AgenciaDigito, 2, '0') +
PadLeft(ACBrTitulo.ACBrBoleto.Cedente.CodigoCedente, 5, '0') +
FormatDateTime('yy',ACBrTitulo.DataDocumento) +
ACBrTitulo.CodigoGeracao + RightStr(ACBrTitulo.NossoNumero,5);
Passei as seguintes informações:
Agencia: 0258
Digito: 10
CodCedente: 58387
Ano: 22
CodigoGeracao: 2
Nosso-Numero '00022'
Modulo.DigitoFinal(D - Dígito verificador calculado) Retornou: 1
Ficou: 222000221
Porem o Validador Sicredi retorna que o esperado é 222000226
----------------------------------------
Orientação do Manual:A nomenclatura correta é: "192XXXXXD", onde:
19 - Ano atual
2 a 9 - Byte de geração somente será "1" se forem boletos pré-impressos.
XXXXX - Número sequencial
D - Dígito verificador calculado
Alguém poderia me ajudar com esse problema ?