Nieuws:

Welkom, Gast. Alsjeblieft inloggen of registreren.
Heb je de activerings-mail niet ontvangen?

Auteur Topic: LAZREPORT  (gelezen 2326 keer)

LAZREPORT
« Gepost op: 2011/06/11, 17:13:19 »
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.

Re: LAZREPORT
« Reactie #1 Gepost op: 2011/06/12, 11:39:42 »
In der Beschränkung zeigt sich der Meister.

Re: LAZREPORT
« Reactie #2 Gepost op: 2011/06/12, 15:25:58 »
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!
 ???

Re: LAZREPORT
« Reactie #3 Gepost op: 2011/06/12, 22:34:01 »
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:
In der Beschränkung zeigt sich der Meister.

Re: LAZREPORT " TOTALPAGES "
« Reactie #4 Gepost op: 2011/06/21, 13:30:05 »
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. ???

Offline TonH

  • Promotieteam
Re: LAZREPORT
« Reactie #5 Gepost op: 2011/06/21, 14:32:10 »
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.

Re: LAZREPORT
« Reactie #6 Gepost op: 2011/06/22, 09:19:17 »
 :o
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?

Re: LAZREPORT
« Reactie #7 Gepost op: 2011/06/25, 19:03:38 »
Eindelijk gevonden.
Om TOTALPAGES te kunnen gebruiken moet men in Lazreport:
File ->Report Options -> Two-pass report AANVINKEN.