Impressão Boletos com percentual de multa

[Cleonir]

Tenho alguns clientes que estão solicitando para mostrar o percentual de multa na impressão dos boletos ao invés do valor.

Os clientes alegam que tendo o % na impressão, causa um impacto maior nos clientes, pois muitas vezes o valor da multa por atraso é alguns centavos.

 

Tem alguma forma de eu fazer isso?

[Juliana Tamizou]

Bom dia.

Informe o código de mora 2.

Att.

[Cleonir]

Mas é na impressão que eu quero que saia isso.

Na procedure AdicionarMensagensPadroes esta fixo.

Esta assim:

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

end;

[Juliana Tamizou]

Boa tarde.

Realmente a informação que lhe passei antes era referente aos Juros, para multa não é possível neste momento tratar da mesma forma.

Att.

[Cleonir]

Fiz uma alteração aqui no ACBrBoleto, no QuickReport a principio consegui fazer funcionar,

mas para o fastReport e para o FortesReport não consegui.

fiz assim, aa procedure AdicionarMensagensPadroes adicionei mais um parâmetro.

procedure TACBrBoleto.AdicionarMensagensPadroes(Titulo: TACBrTitulo;
  AStringList: TStrings; MostrarPercentMulta:Boolean = False);

 

depois verifico se  MostrarPercentMulta:Boolean = true  altero para mostrar o percentual 

 

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

 

depois de preencher todas as informações dos títulos chamo essa procedure passando true para esse parâmetro que criei

dm1.Boleto1.AdicionarMensagensPadroes(Titulo, Titulo.Mensagem, True);

 

Para o QuickReport  funcionou mas para o fortes e fast não funciona por que esta chamando essa função lá dentro do arquivo que gera o leiaute, aí duplica as informações.

 

se isso servir de ideia para alguém talvez tentar implementar isso, para que funcione no fortes e fast para mim eu agradeço muito.

Editado 12 Julho, 2016 por Cleonir

[Osmar de Luca]

Cleonir voce pode fazer o seguinte, desativar o juros e multa e colocar as informacoes na msg para para o caixa

ex: JUROS DE 5% AO MES E MULTA DE 2%

[Cleonir]

É vou ter que fazer isto.