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;