Ir para conteúdo
  • Cadastre-se

dev botao

Configuração de AcbrBoletoFortes impressão erro numero paracelas


Ver Solução Respondido por Messias fernandes,
  • Este tópico foi criado há 1729 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

 

Bom dia eu gostaria saber como configura a impressão do componente para que impressão saia correto,  a data  e o numero de

de cada parcela, na impressão, todos estão aparecendo com mesma data e mesma parcela  e quando encerro o aplicação ocorre esta exceção .

segue abaixo código que testando:

  i:=0;
  b:=0;
  u:=3;
  ACBrBoleto1.ListadeBoletos.Clear;

 
     Titulo:=ACBrBoleto1.CriarTituloNaLista;
 while Titulo.TotalParcelas <= u do
begin


     b:=b+30;
     i:=i+1;
     ShowMessage(b.ToString);
    Titulo.TotalParcelas:=Titulo.TotalParcelas+i;
    Titulo.Sacado.NomeSacado:= 'Antônio da Silva';
    tada:=date;
    Titulo.Parcela:=i;

    Titulo.Sacado.Logradouro:='r.pilar';
    Titulo.Sacado.Numero:='615';
    Titulo.NumeroDocumento:=PadRight(IntToStr(I),6,'0');
    Titulo.Vencimento:=Date+b;
    ShowMessage(DateToStr( Titulo.Vencimento));
    Titulo.DataDocumento:=Now;
    Titulo.ValorDocumento:=300.00;
    Titulo.LocalPagamento:='Pagar preferêncialmente nas agências do Bradesco';
    Titulo.Aceite:=atSim;
    ACBrBoleto1.Cedente.TipoInscricao:=pFisica;
    ACBrBoleto1.Cedente.Nome:='MESSIAS FERNANDES';
    ACBrBoleto1.Cedente.Agencia:='3839';
   ACBrBoleto1.Cedente.AgenciaDigito:='4';
   ACBrBoleto1.Cedente.CNPJCPF:= '648.155.110-20';
   ACBrBoleto1.cedente.CodigoCedente:='1045285';
   ACBrBoleto1.Cedente.Conta:='225544';
   ACBrBoleto1.Cedente.ContaDigito:='2';
   ACBrBoleto1.ListadeBoletos.Insert(i,Titulo);

     end;

     ACBrBoleto1.Imprimir;
       ACBrBoleto1.GerarPDF;

 

 

image.thumb.png.8993ad9039f4d686d25fc62638cbbee7.png

image.png.a52f4e1ff7def4e4ceffd8ad8fe8756b.png

Link para o comentário
Compartilhar em outros sites

uai

até onde sei, isso que tem que ser feito dentro do loop

Titulo:=ACBrBoleto1.CriarTituloNaLista;

e não precisa de aplicar o insert da variavel "titulo" ela já pertence ao acbrboleto1... pelo menos uso assim..

 

I :=1;

while i <= 3 do 

begin

Titulo:=ACBrBoleto1.CriarTituloNaLista;

 

preenche dados do titulo

inc(i);

end

imprime;...

Link para o comentário
Compartilhar em outros sites

  • Administradores

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.

  • Curtir 1
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

  • Este tópico foi criado há 1729 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.
Visitante
Este tópico está agora fechado para novas respostas
×
×
  • 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.