Impressão Multa após uma determinada data

[Flavio A. Zago]

Bom dia.

Encontrei um problema ao tentar imprimir boletos para o banco ITAU com DataMulta

diferente do vencimento, ( ACBrMonitorPlus ).

Incluí a linha em destaque abaixo no DoBoletoUnit.pas para sanar o ocorrido.

         DataMoraJuros       := StrToDateDef(Trim(aIni.ReadString(Sessao,'DataMoraJuros','')),0);
         DataMulta           := StrToDateDef(Trim(aIni.ReadString(Sessao,'DataMulta','')),0);   
         DataProtesto        := StrToDateDef(Trim(aIni.ReadString(Sessao,'DataProtesto','')),0);

Não sei se esta modificação pode ser incluída no SVN.

Sem esta correção, o seguinte trecho do ACBrBoleto.pas não funciona corretamente.

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

Obrigado.

Flavio