Problema Em Mensagem Padrão Boleto Banrisul - Código Mora

[Scheila Dornelles]

Olá, estou com problema na impressão da mensagem padrão para o Banrisul. 

Para o banco são utilizados os códigos mora 0 para "Valor diário" e 1 "para Taxa mensal". No ACBrBoleto no trecho da impressão da mensagem, há apenas o descritivo para valor diário, portanto, quando utilizo o código mora 1(que é o que preciso), relativo à taxa mensal, está saindo incorretamente como valor diário:

 

.

.

.

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;

.

.

.

 

 

Por hora fiz uma modificação no ACBrBoleto para validar pelo tipo do banco, pois meu cliente está solicitando urgência, entretanto, alguém sabe me dar uma posição sobre esta situação? 

 

Grata, 

Scheila

[Luiz Paulo]

Olá,

 

Estamos tendo esse problema no boleto na Banrisul que no caso está na procedure AdicionarMensagensPadroes.

É algo sério por que juros diários de juros mensais são coisas um tanto diferentes por afetarem valores.

 

No momento tivemos de alterar o próprio ACBrBoleto.pas usando a propriedade TextoLivre como condição para o boleto da Banrisul. 

Outra saída que poderia ter adotado é setar a propriedade ImprimirMensagemPadrao como false e implementar manualmente isso, mas seria melhor usar a própria procedure do ACBrboleto visto que ali já são feitas várias validações.

 

Alguém mais teve ou tem esse problema? Como fizeram para contornar isso?

 

 

Senhor(a) Moderador(a) será que essa seria uma sugestão a ser colocada no tracker?

[Juliomar Marchetti]

Sim e caso tenha a solução implementada por favor anexe os fontes que ele será avaliada pelo mantenedor do componente e subida ao svn!

[Luiz Paulo]

Obrigado pela resposta Juliomar,

 

Enviado para o Tracker, segue link http://www.projetoacbr.com.br/forum/index.php?/tracker/issue-39-mensagem-padr%C3%A3o-incorreto-para-o-boleto-banrisul/

[DIMAS - DBSOFT]

Bom dia pessoal, aproveitando o assunto aqui estou tendo problema na mensagem padrão do boleto quando setada para imprimir.

Cobrar juros de R$ 0,41 por dia de atraso para pagamento a partir de 12/11/2017
Cobrar Multa de R$ 2,46 após o vencimento.
Cobrar juros de R$ 0,41 por dia de atraso para pagamento a partir de 12/11/2017
Cobrar Multa de R$ 2,46 após o vencimento.

esta repetindo a mensagem, por que?

 

[José M. S. Junior]

Em 14/10/2017 at 11:37, DIMAS - DBSOFT disse:

Bom dia pessoal, aproveitando o assunto aqui estou tendo problema na mensagem padrão do boleto quando setada para imprimir.

Cobrar juros de R$ 0,41 por dia de atraso para pagamento a partir de 12/11/2017
Cobrar Multa de R$ 2,46 após o vencimento.
Cobrar juros de R$ 0,41 por dia de atraso para pagamento a partir de 12/11/2017
Cobrar Multa de R$ 2,46 após o vencimento.

esta repetindo a mensagem, por que?

 

Bom dia, provavelmente deve estar chamando o método "AdicionarMensagensPadroes" ao incluir o boleto, não é necessário passar este método se o componente já estiver configurado com a propriedade (imprimirMensagemPadrao).

[DIMAS - DBSOFT]

Obrigado José M S Junior, deu certo.

[DIMAS - DBSOFT]

Boa tarde,

Como faço para indicar o local que quero salvar o arquivo .PDF quando uso a função ACBrBoleto1.GerarPDF;

ta salvando na pasta do sistema, gostaria de informar o local.

Atte.

Dimas

[José M. S. Junior]

Utilize:

Boleto.ACBrBoletoFC.NomeArquivo:= 'path_caminho'.pdf';
Boleto.GerarPDF;   

[DIMAS - DBSOFT]

3 minutos atrás, José M. S. Junior disse:

Utilize:

Boleto.ACBrBoletoFC.NomeArquivo:= 'path_caminho'.pdf';
Boleto.GerarPDF;   

OK.

[DIMAS - DBSOFT]

Ola,

Estou com outro problema na impressão do boleto na pré-visualização. Ela é mostrada normalmente mas quando clico no botão Imprimir

da uma mensagem de erro: List  index out bounds(-1). tentei colocar o nome da impressora no componente 

ACBrBoletoFCFortes1.PrinterName := 'Canon MB5300 series Printer - GRAFICO'; mas não funcionou.

Preciso configurar alguma coisa antes de imprimir?

 

 

[José M. S. Junior]

Bom dia, utilize o ACBrBoleto_demo para simular o erro, tem um botão com o comando para imprimir. Verifique se ocorre o mesmo erro.

[DIMAS - DBSOFT]

Bom dia,

Sim acontece o mesmo.

 

[José M. S. Junior]

A impressora citada acima está aparecendo na listagem de impressoras do windows? Não precisa informar o nome da impressora, apenas deixa marcado a opção "Mostrar Setup".

[DIMAS - DBSOFT]

Boa tarde,

Consegui revolver o problema comentando a linha   //Printer.PrinterIndex := -1; aqui dava o erro e se tirar  -1 também já não da mais o erro.

Tem algum problema?

procedure TRLPrinterWrapper.Refresh;
{$IfNDef FPC}
var
  savedprinterindex: Integer;
{$EndIf}
begin
  FreeAndNil(FPrinters);
{$IfDef FPC}
  Printer.Refresh;
{$Else}
  savedprinterindex := Printer.PrinterIndex;
  Printer.Refresh;
  //Printer.PrinterIndex := -1;
  Printer.PrinterIndex := Min(savedprinterindex, Printer.Printers.Count - 1);
{$EndIf}
end;
 

[José M. S. Junior]

O problema está no componente FortesReport,  o erro ocorre por acessar uma posição no índice que não existe. Acredito que o valor correto seria 1.

O componente está atualizado?