Ir para conteúdo
  • Cadastre-se

dev botao

  • Este tópico foi criado há 2903 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

  • Membros Pro
Postado

Na unit ACBrBoleto linha 1618 fiz a alteração baixo pois quando informado o campo DataMoraJuros = Vencimento a descrição de

Cobrar Multa de R$ x,xx  após dd/mm/yyyy fica incorreto pois não é após a data e sim a partir desta data.

           AStringList.Add(ACBrStr('Cobrar Multa de ' + FormatCurr('R$ #,##0.00',
             IfThen(MultaValorFixo, PercentualMulta, ValorDocumento*( 1+ PercentualMulta/100)-ValorDocumento)) +
                         ' após '+FormatDateTime('dd/mm/yyyy', DataMoraJuros)))

 

  • Membros Pro
Postado

 

Olá pessoal, analisando o CNAB240, encontrei um detalhe nas mensagens padrões quando o CodigoMora for 2 no caso (%) e 1 no caso (R$).

Vou tentar explicar: 

 

JUROS: Quando o codigoMora for 2 (percentual), a mensagem deve colocar tudo em percentual. E teste caso, deve ser colocado por mês e não por dia.

MORA: Quando o codigoMora for 2 (percentual), colocar em percentual e quando for 1, colocar em valor.

 

      if ValorMoraJuros <> 0 then
      begin
         if DataMoraJuros <> 0 then
            AStringList.Add(ACBrStr('Cobrar juros de '                        +
                            ifthen(CodigoMora = '2', FloatToStr(ValorMoraJuros) + '%',
                                   FormatCurr('R$ #,##0.00',ValorMoraJuros))         +
                             ifthen(CodigoMora = '2', ' por mês de atraso para pagamento a partir de ',
                                    ' por dia de atraso para pagamento a partir de ') +
                             FormatDateTime('dd/mm/yyyy',ifthen(Vencimento = DataMoraJuros,
                                                                IncDay(DataMoraJuros,1), DataMoraJuros))))
         else
            AStringList.Add(ACBrStr('Cobrar juros de '                +
                                    ifthen(CodigoMora = '2', FloatToStr(ValorMoraJuros) + '%',
                                           FormatCurr('R$ #,##0.00',ValorMoraJuros))         +
                             ifthen(CodigoMora = '2', ' por mês de atraso', ' por dia de atraso')));
      end;

 

      if PercentualMulta <> 0 then   
      begin
        if DataMoraJuros <> 0 then
          AStringList.Add(ACBrStr('Cobrar Multa de ' + FormatCurr(ifthen(CodigoMora = '2','#,##0.00 %', 'R$ #,##0.00'),
            IfThen(MultaValorFixo, PercentualMulta, ValorDocumento*( 1+ PercentualMulta/100)-ValorDocumento)) +
                         ' a partir '+FormatDateTime('dd/mm/yyyy',ifthen(Vencimento = DataMoraJuros,
                                                                IncDay(DataMoraJuros,1),DataMoraJuros))))
        else
          AStringList.Add(ACBrStr('Cobrar Multa de ' + FormatCurr(ifthen(CodigoMora = '2','#,##0.00 %', 'R$ #,##0.00'),
            IfThen(MultaValorFixo, PercentualMulta, ValorDocumento*( 1+ PercentualMulta/100)-ValorDocumento)) +
                         ' após o vencimento.'));
      end;
 

ACBrBoleto.pas

MULTA.PNG

JUROS.PNG

  • Administradores
Postado

Bom dia.

Como a impressão é quem realizada essa validação e a mesma atende todos os bancos, se faz necessário verificar se a regra é a mesma para os demais também.

Att,

Consultora SAC ACBr

Juliana Tamizou

Gerente de Projetos ACBr / Diretora de Marketing AFRAC
Ajude o Projeto ACBr crescer - Seja Pro

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.  Discord

Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil


Participe de nosso canal no Discord e fique ainda mais próximo da Comunidade !!

  • Este tópico foi criado há 2903 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.

The popup will be closed in 10 segundos...