Bom Dia
componente não respeita o conteúdo do campo "DataMoraJuros", somando +1 dia na data deste campo, segue correção:
antes:
AStringList.Add(ACBrStr('Cobrar juros de ' +
ifthen(((CodigoMora = '2') or (CodigoMora = 'B')), FloatToStr(ValorMoraJuros) + '%',
FormatCurr('R$ #,##0.00',ValorMoraJuros)) +
' por dia de atraso para pagamento a partir de ' +
FormatDateTime('dd/mm/yyyy',ifthen(Vencimento = DataMoraJuros,
IncDay(DataMoraJuros,1),DataMoraJuros))))
correção:
AStringList.Add(ACBrStr('Cobrar juros de ' +
ifthen(((CodigoMora = '2') or (CodigoMora = 'B')), FloatToStr(ValorMoraJuros) + '%',
FormatCurr('R$ #,##0.00',ValorMoraJuros)) +
' por dia de atraso para pagamento a partir de ' +
FormatDateTime('dd/mm/yyyy',DataMoraJuros)))
segue arquivo alterado
Att
Joao Carlos
VinheSoft
ACBrBoleto.pas