Boa tarde.
Devido ao fato de diversos bancos trabalharem de forma separada a cobrança da multa e da mora diária, foi criada no titulo a propriedade DataMulta e alterada a rotina AdicionarMensagensPadroes() para utilizar a mesma ao invés da DataJurosMora na decisão da impressão da mensagem referente a cobrança da Multa a partir de uma determinada ou após o vencimento.
*** Implementação Anterior ***
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 '+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;
*** Nova Implementação ***
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;
Com esta mudança se faz necessário passar ao componente além da propriedade DataMoraJuros (responsável pela mensagem da Mora), também a propriedade DataMulta, afim de que a mesma seja considerada na impressão das mensagens do boleto.
Att.