Boa tarde Pessoal,
estou homologando boletos com o Banrisul e tive problemas com os códigos de mora aceitos, pelo seguinte:
* Para o Banrisul segundo os valores contidos na property ACBrBoleto.Banco.CodigosMoraAceitos seriam apenas 0 ou 1 (obtive estes valores debugando);
* Porém ao realizar a impressão no método AdicionarMensagensPadroes, existe a validação abaixo. Onde é testado de forma fixa o CodigoMora = '2';
if ValorMoraJuros <> 0 then
begin
if DataMoraJuros <> 0 then
AStringList.Add(ACBrStr('Cobrar juros de ' +
ifthen(CodigoMora = '2', 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))))
else
AStringList.Add(ACBrStr('Cobrar juros de ' +
ifthen(CodigoMora = '2', FloatToStr(ValorMoraJuros) + '%',
FormatCurr('R$ #,##0.00',ValorMoraJuros)) +
' por dia de atraso'));
end;
* E se eu passar "2" para o código mora me retorna um erro devido a validação abaixo. Gostaria de saber como proceder para poder utilizar a mensagem de mora e juros no formato de Percentual.
procedure TACBrTitulo.SetCodigoMora(AValue: String);
begin
if fCodigoMora = AValue then
exit;
if Pos(AValue,ACBrBoleto.Banco.CodigosMoraAceitos) = 0 then
raise Exception.Create( ACBrStr('Código de Mora/Juros informado não é permitido ' +
'para este banco!') );
fCodigoMora := AValue;
end;
Somente para complementar...
vi que no tópico abaixo, trata alguns problemas em relação ao código mora com o banrisul, mas estes já foram solucionados e liberados no svn