Ir para conteúdo
  • Cadastre-se

dev botao

Mensagem Duplicando


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

Recommended Posts

É 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;

 

 

 

Link para o comentário
Compartilhar em outros sites

  • Membros Pro

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.

  • Curtir 1
Link para o comentário
Compartilhar em outros sites

  • Moderadores

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.

Consultor SAC ACBr Juliomar Marchetti
 

Projeto ACBr

skype: juliomar
telegram: juliomar
e-mail: [email protected]
http://www.juliomarmarchetti.com.br
MVP_NewLogo_100x100_Black-02.png
 

 

Link para o comentário
Compartilhar em outros sites

  • Este tópico foi criado há 2599 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.