CalcularDigitoVerificador Sicredi

[Joao infog]

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 ?

[Joao infog]

Consegui resolver, estava passando informações de UA / Digito errada.

[Renato Rubinho]

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.