Impressão mensagem padrão

[Paulo Sergio de Almeida]

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)))

 

[Celso Marigo Junior]

Obrigado pela contribuição, mas para que seja analisada, envie o arquivo alterado em anexo, assim podemos analisar fazendo um merge.

[Dercide Alvarez]

Paulo,

 

Olha, eu acho que essa linha não confere, e não entendi bem a tua alteração.

Mas acredito que essa alteração já esta no SVN, pois a frase é "a partir " 

 

Dercide,

[Joel]

 

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

[Juliana Tamizou]

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,