LAZREPORT

[seghele]

Hi,
Ben op zoek om op mijn rapport het totale aantal pagina's te vermelden.
PAGE# gaat volledig goed, maar wat met TOTALPAGES
WELKE CODE EN WAAR TE PLAATSEN aub.

[Gijsbert]

Had je hier http://wiki.lazarus.freepascal.org/LazReport_Documentation al gekeken?

[seghele]

Beste Gijsbert, natuurlijk had ik daar al eens gekeken.
Maar ik zie nergens een spoor van totale pagina's van een rapport.
Hopelijk heeft iemand een duidelijk spoor!
 

[Gijsbert]

Ik bedoelde dit, ik weet alleen niet of jij dit bedoelt:
WriteLn(Format('Response ( %d ) : ',[rsps.Items.Length]));
        if Assigned(rsps) then begin
          for i := 0 to Pred(rsps.Items.Length) do begin
            rspsItem := rsps.Items;
            WriteLn('    TotalPages :' + IntToStr(rspsItem.TotalPages));
            WriteLn('    TotalResults :' + IntToStr(rspsItem.TotalResults));
            WriteLn('    Items :' + IntToStr(rspsItem._Item.Length));
            WriteLn('');
            for j := 0 to Pred(rspsItem._Item.Length) do begin
              itm := rspsItem._Item[j];;
              WriteLn('        ASIN :' + itm.ASIN);
              WriteLn('        DetailPageURL :' + itm.DetailPageURL);
              if Assigned(itm.ItemAttributes) then begin
                WriteLn('               Title :' + itm.ItemAttributes.Title);
                for k := 0 to Pred(itm.ItemAttributes.Author.Length) do begin
                  WriteLn('               Author[ ' + IntToStr(k) + ' ] ' + itm.ItemAttributes.Author.Item[k]);
                end;
                WriteLn('               Manufacturer :' + itm.ItemAttributes.Manufacturer);
                WriteLn('               ProductGroup :' + itm.ItemAttributes.ProductGroup);
              end;
              WriteLn('');
            end;
          end;
Van die site http://wiki.lazarus.freepascal.org/Web_Service_Toolkit vanaf dit stukje To translate the WDSL file downloaded from the “Amazon E-Commerce Service” web site execute the following command at the prompt:

[seghele]

Pas terug uit vakantie. Bedankt voor de reactie.
Lijkt me veel code om enkel te waarde van TOTALPAGES te vinden.
Op een rapport wil ik enkel op iedere bladzijde het nummer v.d. PAGE en het totale aantal pagina's van het rapport.
Dus als het rapport twee bladzijden heeft, moet er staan:
Op bladzijde 1: “1 van 2”
Op bladzijde 2: “2 van 2”
Kan TOTALPAGES niet in een variabele gestoken worden of zoiets?
Ben helemaal geen expert.

[TonH]

Vreemd stukje code trouwens. Weet je zeker dat dit bij lazreport hoort. Tenzij het over een regel gaat:

  WriteLn('    TotalPages :' + IntToStr(rspsItem.TotalPages));

Als rsps hier het report is heeft die blijkbaar een property TotalPages. Deze zou je dan misschien in een OnPrint event oid kunnen afdrukken in een veld.

[seghele]

 
Ben nog geen stap verder!
Heb op de 'Pagefooter' een tekstvakje geplaatst met de variabele waarde van 'TOTALPAGES'.
Kan er mij iemand een duidelijke (stap voor stap) oplossing bezorgen?

[seghele]

Eindelijk gevonden.
Om TOTALPAGES te kunnen gebruiken moet men in Lazreport:
File ->Report Options -> Two-pass report AANVINKEN.