Alterações Banco Inter

[[Bruno]]

Bom dia! Estou utilizando os fontes atualizados e no processo de homologação do arquivo de remessa junto ao banco, tive que fazer algumas alterações para que fosse homologado o arquivo 

Adicionei na uses: Math

 No metodo GerarRegistroTransacao400 tiver que alterar o comando

De: ValorMora  := CurrToStr(round(ACBrTitulo.ValorMoraJuros * 100));

Para: ValorMora := FloatToIntStr(RoundTo((ACBrTitulo.ValorDocumento * ACBrTitulo.ValorMoraJuros)/100,-2));

e também na montagem do registro 1

de: PadRight( RemoverEspacosDuplos( TiraAcentos(
                                                         ACBrTitulo.Sacado.Logradouro
                                                         + ' '
                                                         + ACBrTitulo.Sacado.Numero
                                                         + ' '
                                                         + ACBrTitulo.Sacado.Complemento
                                                         + ' '
                                                         + ACBrTitulo.Sacado.Bairro
                                                         + ' '
                                                         + ACBrTitulo.Sacado.Cidade
                                                         + ' '
                                                         + ACBrTitulo.Sacado.UF ) ), 40, ' ') + // 277 a 316 Endereço completo 

Para:  PadRight(RemoverEspacosDuplos(TiraAcentos(

                                                         ACBrTitulo.Sacado.Logradouro

                                                         + ' ' +

                                                         ACBrTitulo.Sacado.Numero

                                                         + ' ' +

                                                         ACBrTitulo.Sacado.Complemento

                                                         + ' ' +

                                                         ACBrTitulo.Sacado.Bairro

                                                         + ' ' +

                                                         ACBrTitulo.Sacado.Cidade)),38,' ')    + // 277 a 314 Endereço completo

                                                         ACBrTitulo.Sacado.UF + // 315 a 316  UF pagador

 

Estou anexando  unit ACBrBancoInter e também o manual caso desejem validar o ajustes.

 

Manual_CNAB400_Cobranca.pdf ACBrBancoInter.pas

[Juliomar Marchetti]

acho que poderia usar uma das funções do ACBrUtil que já trata para arredondar