Ajuda com Fortes Report
Olá pessoal,
Gostaria de uma ajuda com relatório Fortes Report.
Tenho alguns comandos dentro de um loop for.
para cada interaçao, passo parametros para labels do relatorio.
na verdade para cada página, gostaria que um dos campos fosse a variavel ´i´. ou seja, para 5 paginas, o camplo ´sample´ recebesse o valor de ´i´.
Mas está imprimindo 5 vezes, mas o valor impresso no label que recebe ´i´ nao muda, fica sempre 1.
for i:=1 to 5 do
begin
Form1.qship.Caption := edship.Text;
Form1.qshipper.Caption := edshipper.Text;
form1.qreceiver.Caption := edreceiver.Text;
form1.qpol.Caption := edpol.Text;
form1.qpod.Caption := edpod.Text;
form1.qcargo.Caption := edcargo.Text;
form1.qlocal.Caption := edlocal.Text;
form1.qdata.Caption := edDate.Text;
form1.qseal.Caption := edseal.Text;
form1.qqty.Caption := ´500 MT´;
form1.qsample.Caption := inttostr(i);
if (rload.Checked = true) and (rdischarge.Checked = false) then
form1.qdischarge.Caption := ´XXXXXX´;
if (rload.Checked = FALSE) and (rdischarge.Checked = true)then
form1.qload.Caption := ´XXXXXX´;
Form1.RLReport1.Print;
form1.RLReport1.NewPage;
end;
Se alguem puder me ajudar eu agradeço
Gostaria de uma ajuda com relatório Fortes Report.
Tenho alguns comandos dentro de um loop for.
para cada interaçao, passo parametros para labels do relatorio.
na verdade para cada página, gostaria que um dos campos fosse a variavel ´i´. ou seja, para 5 paginas, o camplo ´sample´ recebesse o valor de ´i´.
Mas está imprimindo 5 vezes, mas o valor impresso no label que recebe ´i´ nao muda, fica sempre 1.
for i:=1 to 5 do
begin
Form1.qship.Caption := edship.Text;
Form1.qshipper.Caption := edshipper.Text;
form1.qreceiver.Caption := edreceiver.Text;
form1.qpol.Caption := edpol.Text;
form1.qpod.Caption := edpod.Text;
form1.qcargo.Caption := edcargo.Text;
form1.qlocal.Caption := edlocal.Text;
form1.qdata.Caption := edDate.Text;
form1.qseal.Caption := edseal.Text;
form1.qqty.Caption := ´500 MT´;
form1.qsample.Caption := inttostr(i);
if (rload.Checked = true) and (rdischarge.Checked = false) then
form1.qdischarge.Caption := ´XXXXXX´;
if (rload.Checked = FALSE) and (rdischarge.Checked = true)then
form1.qload.Caption := ´XXXXXX´;
Form1.RLReport1.Print;
form1.RLReport1.NewPage;
end;
Se alguem puder me ajudar eu agradeço
Danielle Ballester
Curtidas 0
Respostas
Dj.ribeiro
19/01/2004
Muda a Propriedade ResetAfeterPrint do componente que recebe a variável para TRUE;
Espero ter ajudado!!!!
David
Espero ter ajudado!!!!
David
GOSTEI 0
Danielle Ballester
19/01/2004
Náo entendi esta propriedade.
ResetAfterPrint???!!!
ResetAfterPrint???!!!
GOSTEI 0
Dj.ribeiro
19/01/2004
Se vc estiver usando a versão 3.10 do fortes, o componente RLDbResult que vai receber a variável i (RLDBResult1.Text := IntToStr(i)) tem uma propriedade chamada ResetAfterPrint aí vc muda para True;
Properties
ResetAfterPrint True
Properties
ResetAfterPrint True
GOSTEI 0