Ajuste Geração Arquivo CNB400 CREDISAN

[Dayvison Reis_12476]

Olá, Equipe ACBr

Fiz algumas correções no "ACBrBancoCredisan.pas" para ficar em conformidade com Leiaut de Remessa CNAB400.

Mais precisamente em "GerarRegistroTransacao400".

1º) Primeiramente o valor das taxas ValorMoraMes e PercentualMulta: Na documentação e segundo nos passou o suporte em nosso processo de homologação, o valor das casas decimais fica 9(02)V9999 (seis digitos). portanto foi necessário multiplicar por 10000 (Dez mil) para ficar em conformidade:

    LValorTaxaMoraMes := FloatToStr(ACBrTitulo.ValorMoraJuros * 10000);ACBrBancoCredisan.pas
    if ACBrTitulo.MultaValorFixo then
      raise Exception.Create('Permitido somente Taxa Multa Mensal')
    else
      LValorTaxaMulta   := FloatToStr(ACBrTitulo.PercentualMulta * 10000);

2º) Na formação da linha precisou corrigir para completar o PadRight para PadLeft:

              PadLeft(LValorTaxaMoraMes,6,'0')                         + // 161 - 166 Taxa Juros de mora por mês
              PadLeft(LValorTaxaMulta,6,'0')                           + // 167 - 172 Taxa de multa por mês

 

3º) Também na formação da linha foi preciso corrigir "Número do convênio" para preenchar com zero e PadRight para PadLeft

              PadLeft(Trim(LBeneficiario.Convenio), 6, '0')            + // 032 - 037 Número do convenio


Anexo segue as correções que fizemos com pequenas mudanças sutis para validação. 

[Alexandre de Paula]

Bom dia,

Criada a tarefa ACBR-8276 para avaliação. Assim que concluído será informado aqui no tópico.

Obrigado pela contribuição.

[SAC Emilyonline]

Olá Alexandre, 

Verificamos as alterações na ultima update do ACBr e notei que parte das alterações foram implementaças.
Porem ainda há uma ajuste na formação do GerarRegistroTransacao400, 
 

O valor das taxas ValorMoraMes e PercentualMulta: Na documentação e segundo nos passou o suporte em nosso processo de homologação, o valor das casas decimais fica 9(02)V9999 (seis digitos). portanto foi necessário multiplicar por 10000 (Dez mil) para ficar em conformidade:

    LValorTaxaMoraMes := FloatToStr(ACBrTitulo.ValorMoraJuros * 10000);ACBrBancoCredisan.pas
    if ACBrTitulo.MultaValorFixo then
      raise Exception.Create('Permitido somente Taxa Multa Mensal')
    else
      LValorTaxaMulta   := FloatToStr(ACBrTitulo.PercentualMulta * 10000);

 

De modo que: 2,5% de taxas (ValorMoraMes e PercentualMulta), devem ser preenchidas no arquivo  9(02)V9999 (com 4 casas decimais)

2,5% deve corresponder a 025000 na formação do arquivo
7,25% deve corresponder a 072500 na formação do arquivo

Espero ter contribuido para o ajuste

Att

 

 

 

[Alexandre de Paula]

A tarefa ainda está em nossa fila para avaliação. pode ser que alguma outra implementação tenha sido feita de outra tarefa.

Assim que concluída será informado aqui no tópico.

Obrigado

[Daniel InfoCotidiano]

Bom dia @Dayvison Reis_12476 e @SAC Emilyonline

Obrigado pela colaboração, por favor teste com a unit abaixo.

ACBrBancoCredisan.pas
Salve em ..\ACBr\Fontes\ACBrBoleto

Rode o instalador acbr ou build  para que as mudanças sejam aplicadas.
 

 

[Daniel InfoCotidiano]

Por favor atualize seus fontes, pelo SVN do ACBr... 

Já subimos para o nosso repositório de fontes, modificações que podem corrigir algum dos itens referentes a esse tópico...

Por favor atualize seus fontes, faça testes, e se possível comente em uma nova resposta, se o problema foi resolvido...

Dúvidas, sobre o uso do SVN ?  Clique aqui e veja um vídeo