Percentual de multa no corpo do boleto

[Fernando Kerber]

Boa tarde,

Um cliente está solicitando que saia no corpo do boleto a multa em porcentagem e não em reais, estou alimentando o campo PercentualMulta mas na hora de imprimir ele calcula com o valor total e imprime no corpo o valor.

Tem alguma maneira de sair impresso a multa em porcentagem e não em valor?

[Juliana Tamizou]

Boa noite.

Basta você informar na propriedade Titulo.CodigoMora o valor "2".

Att.

[Fernando Kerber]

Bom dia Juliana,

Informando o CódigoMora '2' muda apenas o juro, a multa continua sendo informada o percentual e imprimindo o valor calculado no boleto, a partir do PercentualMulta e do ValorDocumento. 

Obrigado.

[Alexsander]

Como você resolveu isso? Acho que vai precisar mexer na classe ACBrBoleto, pois é lá que essa mensagem é montada.

[aocampioni]

Olá,

Boa tarde. Sei que o tópico já tem um tempo mas no meu sistema eu faço da seguinte maneira:

// configura nos parâmetros pro ACBr não emitir as mensagens pois você mesmo o fará
ACBrBoleto.ImprimirMensagemPadrao   := False;

.....
var
    AStringList: TStrings;
begin
    ....
    AStringList := TStringList.Create;

    for ....... do
    begin
        ......
        AStringList.Clear;
        ......
 
        TituloACBr.CodigoMora            := '1';  // OU 2 se você quiser que saia em %
        TituloACBr.ValorMoraJuros        := 0;
        TituloACBr.DataMoraJuros         := 0;

        if njuromensal>0 then
            TituloACBr.PercentualMulta   := njuromensal;

        if nMoraDiaria>0 then
        begin
           nValorMora:=(TituloACBr.ValorDocumento*(nMoraDiaria/30))/100;
           if(nValorMora >= 0.01) then
           begin
               TituloACBr.ValorMoraJuros := nValorMora;
               TituloACBr.DataMoraJuros  := TituloACBr.Vencimento+1;
           end;
        end;

        if(iDiasProtesto = 0) then
            TituloACBr.DataProtesto      := 0
        else
            TituloACBr.DataProtesto      := StrToDate(FormatDateTime('dd/mm/yyyy', TituloACBr.Vencimento+iDiasProtesto) );

        // mensagens personalizadas
        if TituloACBr.DataProtesto <> 0 then
        begin
           if TituloACBr.TipoDiasProtesto = diCorridos then
              AStringList.Add(ACBrStr('Protestar em ' + IntToStr(DaysBetween(TituloACBr.Vencimento, TituloACBr.DataProtesto))+ ' dias corridos após o vencimento'))
           else
              AStringList.Add(ACBrStr('Protestar no ' + IntToStr(DaysBetween(TituloACBr.Vencimento, TituloACBr.DataProtesto))+ ' dia útil após o vencimento'));
        end;

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

        if TituloACBr.PercentualMulta <> 0 then
           AStringList.Add(ACBrStr('Cobrar Multa de ' +
                           FormatCurr('R$ #,##0.00',TituloACBr.ValorDocumento*( 1+ TituloACBr.PercentualMulta/100)-TituloACBr.ValorDocumento) +
                           ' após o vencimento.'));

        TituloACBr.Mensagem.Text  := AStringList.Text + 'mais suas instruções personalizadas';
    ....
    end;
    ......
end;

No mais, os campos devem ser preenchidos normalmente caso você envie remessa tá ok. Desse jeito aí, onde tem o texto //mensagens personalizadas, dali pra frente você mexe como bem entender.

Até mais,