Ir para conteúdo
  • Cadastre-se

dev botao

Impressão Boletos com percentual de multa


Cleonir
  • Este tópico foi criado há 2808 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

Tenho alguns clientes que estão solicitando para mostrar o percentual de multa na impressão dos boletos ao invés do valor.

Os clientes alegam que tendo o % na impressão, causa um impacto maior nos clientes, pois muitas vezes o valor da multa por atraso é alguns centavos.

 

Tem alguma forma de eu fazer isso?

Link para o comentário
Compartilhar em outros sites

  • Administradores

Bom dia.

Informe o código de mora 2.

Att.

Consultora SAC ACBr

Juliana Tamizou

Gerente de Projetos ACBr / Diretora de Marketing AFRAC
Ajude o Projeto ACBr crescer - Seja Pro

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.  Discord

Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil


Participe de nosso canal no Discord e fique ainda mais próximo da Comunidade !!

Link para o comentário
Compartilhar em outros sites

Mas é na impressão que eu quero que saia isso.

Na procedure AdicionarMensagensPadroes esta fixo.

Esta assim:

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 de '+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;

Link para o comentário
Compartilhar em outros sites

  • Administradores

Boa tarde.

Realmente a informação que lhe passei antes era referente aos Juros, para multa não é possível neste momento tratar da mesma forma.

Att.

Consultora SAC ACBr

Juliana Tamizou

Gerente de Projetos ACBr / Diretora de Marketing AFRAC
Ajude o Projeto ACBr crescer - Seja Pro

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.  Discord

Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil


Participe de nosso canal no Discord e fique ainda mais próximo da Comunidade !!

Link para o comentário
Compartilhar em outros sites

Fiz uma alteração aqui no ACBrBoleto, no QuickReport a principio consegui fazer funcionar,

mas para o fastReport e para o FortesReport não consegui.

fiz assim, aa procedure AdicionarMensagensPadroes adicionei mais um parâmetro.

procedure TACBrBoleto.AdicionarMensagensPadroes(Titulo: TACBrTitulo;
  AStringList: TStrings; MostrarPercentMulta:Boolean = False);

 

depois verifico se  MostrarPercentMulta:Boolean = true  altero para mostrar o percentual 

 

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

 

depois de preencher todas as informações dos títulos chamo essa procedure passando true para esse parâmetro que criei

dm1.Boleto1.AdicionarMensagensPadroes(Titulo, Titulo.Mensagem, True);

 

Para o QuickReport  funcionou mas para o fortes e fast não funciona por que esta chamando essa função lá dentro do arquivo que gera o leiaute, aí duplica as informações.

 

se isso servir de ideia para alguém talvez tentar implementar isso, para que funcione no fortes e fast para mim eu agradeço muito.

Editado por Cleonir
Link para o comentário
Compartilhar em outros sites

  • Este tópico foi criado há 2808 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.