Teo,
Allereerst bedank voor je antwoord,
Ik ben het een en ander aan het testen geweest en... hellaas zonder gewenst
resultaat ik zal in het kort even uitleggen wat ik gedaan heb.
In mijn rapport een variabele Var1 in de dictionary aangemaakt,
aan deze variabele heb ik als expressie mijn gewenste op te hogen veldnaam
opgegeven staan.
op mijn FrReport in GetValue trigger heb ik het volgende staan:
Code:
procedure TfPrintPartijLabel.frReport1GetValue(const ParName: string; var ParValue: Variant);
begin
if parname = 'Var1' then
begin
parvalue := (frreport1.Dictionary.Variables.Variable['Var']);
if ParValue = Null then
begin
ParValue := 0;
end
else
begin
parvalue := (frreport1.Dictionary.Variables.Variable['Var'] + 1);
end;
frreport1.Dictionary.Variables.Variable['Var1'] := parvalue;
end;
end;
Nu is het alleen zo, dat als ik bv
Code:
frReport1.PrintPreparedReport(All, iAantalLabels, True, frAll);
waar all := ''; en iAantalLabels voor een integer staat.
dan wordt het betreffende label wel afgedrukt (precies het aantal zoals hierboven
opgegeven) maar de Var1 wordt niet verhoogd
Heeft iemand / jij nog (een) suggestie(s) ?
PS. voor alle duidelijkheid het printen geschied maar vanuit 1 record.
bedankt
MvG, Richard
Bookmarks