Mudança nas regras de Impressão do ACBrBoleto para Multa

[Juliana Tamizou]

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.
 

[jelias]

Juliana. Desejo e espero encontrá-la bem.

Utilizo o ACBRBoleto através do arquivo TXT. Portanto, gostaria de saber se preciso informar seguindo este raciocínio. 

DataMulta=11/05/2018        // Dia do vencimento +1. A partir de quando será cobrado a multa por atraso.
PercentualMulta=10,00       //-> 10% sobre o valor do boleto
DataMoraJuros=11/05/2018    // Dia do vencimento +1. A partir de quando será cobrado a multa por atraso.
ValorMoraJuros=0,55         // Valor de Mora cobrado por dia de atraso. 

Desde já lhe agradeço,

Saudações,

Júlio.

[Amarildo de Matos]

Boa tarde.. Eu acredito, que vai permanecer assim.. pois a pergunta é o conteudo.. entao acho que nao sera mudado..

[zilion]

Na impressão do boleto, está exibindo duas vezes a mensagem:

"Cobrar multa de R$..."

[Juliana Tamizou]

Bom dia.

Em 04/08/2018 at 10:13, zilion disse:

Na impressão do boleto, está exibindo duas vezes a mensagem:

"Cobrar multa de R$..."

Por favor criei um novo tópico e forneça maiores detallhes sobre o problema e oque vc está utilizando.

Att.

[ornei]

Boa noite

quando informa o  PercentualMulta e impresso a mensagem "Cobrar Multa de R$ 1,00 apos vencimento",  gostaria de saber se e por dia, se sim ha possibilidade de sair impresso "Cobrar Multa de R$ 1,00 ao dia apos vencimento.", pois tenho um cliente querendo que sai este "ao dia", a principio alterei o fonte, mas quando for atualizar vou  ter que refazer.

[Juliana Tamizou]

Bom dia @ornei

Por favor crie um novo tópico para sua dúvida,

Att.