Mensagem Duplicando

[zanona]

Olá pessoal, quando vou imprimir a mensagem padrão do boleto aparece corretamente! Se mando imprimir novamente a mensagem duplica! Tem como evitar isso?

[Juliomar Marchetti]

Como reproduzir isso no demo ? pode ser erro de implementação.

[zanona]

É pelo demo que estou testando!

 

Basicamente incluo o boleto conforme exemplo abaixo!

 

var
  Titulo: TACBrTitulo;
begin
  Titulo := dm.ACBrBoleto.CriarTituloNaLista;

  with Titulo do
  begin
    Vencimento := StrToDate(edtVencimento.Text);
    DataDocumento := StrToDate(edtDataDoc.Text);
    NumeroDocumento := edtNumeroDoc.Text;
    EspecieDoc := edtEspecieDoc.Text;
    if cbxAceite.ItemIndex = 0 then
      Aceite := atSim
    else
      Aceite := atNao;
    DataProcessamento := Now;
    Carteira := edtCarteira.Text;
    NossoNumero := edtNossoNro.Text;
    ValorDocumento := StrToCurr(edtValorDoc.Text);
    Sacado.NomeSacado := edtNome.Text;
    Sacado.CNPJCPF := OnlyNumber(edtCPFCNPJ.Text);
    Sacado.Logradouro := edtEndereco.Text;
    Sacado.Numero := edtNumero.Text;
    Sacado.Bairro := edtBairro.Text;
    Sacado.Cidade := edtCidade.Text;
    Sacado.UF := edtUF.Text;
    Sacado.CEP := OnlyNumber(edtCEP.Text);
    ValorAbatimento := StrToCurrDef(edtValorAbatimento.Text, 0);
    LocalPagamento := edtLocalPag.Text;
    ValorMoraJuros := StrToCurrDef(edtMoraJuros.Text, 0);
    ValorDesconto := StrToCurrDef(edtValorDesconto.Text, 0);
    ValorAbatimento := StrToCurrDef(edtValorAbatimento.Text, 0);
    DataMoraJuros := StrToDateDef(edtDataMora.Text, 0);
    DataDesconto := StrToDateDef(edtDataDesconto.Text, 0);
    DataAbatimento := StrToDateDef(edtDataAbatimento.Text, 0);
    DataProtesto := StrToDateDef(edtDataProtesto.Text, 0);
    PercentualMulta := StrToCurrDef(edtMulta.Text, 0);
    Mensagem.Text := memMensagem.Text;
    OcorrenciaOriginal.Tipo := toRemessaBaixar;
    Instrucao1 := PadRight(trim(edtInstrucoes1.Text), 2, '0');
    Instrucao2 := PadRight(trim(edtInstrucoes2.Text), 2, '0');
  end;

 

E depois clico duas vezes no botão imprimir!

Código abaixo!

  dm.ACBrBoletoReport.FastReportFile:= 'D:\projetos\ACBR\trunk2\Exemplos\ACBrBoleto\Delphi\Report\BoletoNovo.fr3';
  dm.ACBrBoletoReport.DirLogo:='D:\projetos\ACBR\trunk2\Fontes\ACBrBoleto\Logos\Colorido\';
  dm.ACBrBoleto.Imprimir;

 

 

 

[DanielLemos]

No meu aqui acontecia a mesma coisa, descobri que o problema ocorre quando tentamos adicionar algum tipo de mensagem no boleto, resumindo... comentei a linha da mensagem e deixei a opção  Imprimir mensagem padrão verdadeira, segue abaixo o ex:

 

ACBrBoleto1.ImprimirMensagemPadrao := True;

//Mensagem := MemoTemp.Lines;

 

Por enquanto essa foi a solução.

[Juliomar Marchetti]

Bom dia

acabei de subir uma possível correção para o problema citado!

atualizar e recompilar os componentes e aplicar os testes!

ps: ocorria indiferente o fr3 usado.