Codigo do banco SICREDI: 748-X

[alcir]

Olá pessoal,

Estou implementando a emissão de boletos com o ACBrBoleto, e, após baixar o manual do SICREDI, verifiquei que, na unit ACBrBancoSicredi.pas o digito verificador do banco está com 10, e no momento da impressão o código do banco, que é impresso ao lado do logotipo, sai como 748-1, porém, no manual do banco sicredi, a especificação é para usar o código 748-X. Aí que vem o problema, a property Digito do componente ACBrBoleto é Integer, o que causaria muito impacto mudar para String pra poder aceitar letras, penso eu. Alguem implementou a emissão de boletos para o SICREDI ? Deixou assim mesmo, com o código do banco 748-1 ? Teve algum problema ?

Desde já agradeço.

Alcir

[carlosfilho]

Boa tarde,

Aqui ta normal, da uma olhada nos seus dados e atualiza o componente.

boleto.pdf

[alcir]

Você está usando o ACBrBoleto com o FastReport ou QuickReport ?

[alcir]

Acabei de atualizar o Acbr, pelo svn, e emiti um boleto do sicredi pelo exemplo do acbr, mesmo assim, o código do banco tá 748-1...

Confere ai

BoletoFR.pdf

[alcir]

Descobri o problema. Pra quem estiver com o mesmo, que só é detectado quando se usa o ACBrBoleto com o FastReport, está na unit ACBrBoletoFCFR.pas, que não trata o digito verificador quando o mesmo é maior ou igual a zero, igual nas outras units (ACBrBoletoFCQuickFr.pas, ACBrBoletoFCFortesFr.pas, etc).

É só substituir a linha 276 da unit ACBrBoletoFCFR.pas, "FieldByName('Digito').AsInteger := Banco.Digito;" por "FieldByName('Digito').AsString := IfThen(Banco.Digito >= 10, 'X', IntToStrZero(Banco.Digito, 1));", igual está nas outras units citadas.

Abs

[leonardocx]

Segue o arquivo com a correção do dígito "X" do Sicredi. Após perder horas em cima disso achei a solução e estou colocando a disposição dos demais programadores este solução.

Espero que esta solução ajude muitos programadores.

ACBrBoletoFCFR.pas

[Juliana Tamizou]

Bom dia.

A correção foi finalmente disponibilizada no svn.

Att.