Banrisul Juros de Mora

[Cleomar Pacheco]

Bom dia!

estou com problema em um cliente que usa o Banrisul, pois ele não cobra do cliente juros, é isento, ai o banco mandou que precisa ser o código 3 na posição 118

verifiquei que no ACBr esta mandando 0 conforme abaixo.

mandar o leiaute abaixo.

isto é no C240.

      if (DataMoraJuros > 0) then
         Juros := '1'+ FormatDateTime('ddmmyyyy', DataMoraJuros) + PadLeft(StringReplace(FormatFloat('#####0.00', ValorMoraJuros), ',', '', []), 15, '0')
      else
         Juros := DupeString('0', 24);
 

LeiauteBanrisulFebraban_pdr240_v103_23062023.pdf

[Cleomar Pacheco]

Vi que tem o campo codigomora , tinha que pegar o que tem neste campo naquele comando acima ao invés de fixar 1 ou 0

[Daniel InfoCotidiano]

Bom dia @Cleomar Pacheco
Estou testando em meu ambiente já retorno !

[Daniel InfoCotidiano]

Obrigado por reportar, criamos a TK-5823 para análise e correção assim que concluído reporto aqui.

[Daniel InfoCotidiano]

@Cleomar Pacheco
Subimos uma correção, por favor atualizar os fontes e reinstale o ACBr , depois siga as instruções abaixo:

Como o layout do manual 10.3, setar a propriedade LayoutVersaoArquivo = 103
CodigoMora informar (1 = Mora por Dia, 2 =  Taxa Mensal ou 3 = Isento)
ValorMoraJuros informar o valor ou o percentual  qdo existir
DataMoraJuros informar a data qdo existir

Favor realizar os testes em seu ambiente e nos notificar se está como esperado.

Obrigado !

[Cleomar Pacheco]

Opa, ainda esta mostrando no layout, mesmo com zeros no juros e mandando 3 como isento.

acho que o or ali no primeiro if esta fazendo sempre mostrar valor juros

       if ((ValorMoraJuros > 0) and (LTipoMoraJuros in [1,2])) or (CaracTitulo <> tcDescontada) then
        begin
          if (LTipoMoraJuros = 2) then
            if ValorMoraJuros > 99.99 then
               raise Exception.Create('Percentual ValorMoraJuros não pode ser maior que 99,99% !');
          Juros := IntToStr(LTipoMoraJuros) + FormatDateTime('ddmmyyyy', DataMoraJuros) + PadLeft(StringReplace(FormatFloat('#####0.00', ValorMoraJuros), ',', '', []), 15, '0')
        end
 

[Daniel InfoCotidiano]

6 minutos atrás, Cleomar Pacheco disse:

Opa, ainda esta mostrando no layout, mesmo com zeros no juros e mandando 3 como isento.

Nos meus testes funcionou.
Pode me informar como esta passando estes campos, para que eu possa simular aqui:
LayoutVersaoArquivo =
CodigoMora =
ValorMoraJuros =
DataMoraJuros =

[Cleomar Pacheco]

Bom dia!

Os campos estão indo com os valores conforme abaixo

LayoutVersaoArquivo = 103
CodigoMora =3
ValorMoraJuros = 0
DataMoraJuros = 0

ele esta gravando o codigo de mora 3, mas esta gravando tb uma data inicial que é a 30121899, isso pq ele sempre entra no if pq a caractitulo é do simples .

 

 

 

 

 

 

 

 

 

[Daniel InfoCotidiano]

@Cleomar Pacheco vou testar e te retorno.
 

[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

[Cleomar Pacheco]

Bom dia!

Tudo certo, valeu muito obrigado ai pelo ajuste e retorno.

[Daniel InfoCotidiano]

Obrigado por reportar.

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