Nieuws:

We zijn er weer.

Na lange tijd van afwezigheid zijn we er weer  :laugh:
We hebben alle wachtwoorden gereset, je oude wachtwoord werkt niet meer.Je moet via het "wachtwoord vergeten"-linkje je wachtwoord resetten. Je krijgt hiervoor een mailtje op het adres dat je bij ons geregistreerd hebt.

De komende tijd zijn we nog druk bezig om de rest van de site op te bouwen, dus het kan zijn dat sommige onderdelen (tijdelijk) niet werken.

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

Auteur Topic: LAZREPORT  (gelezen 1845 keer)

Offline seghele

  • Lid
  • Steunpunt: Nee
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.

Offline Gijsbert

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

Offline seghele

  • Lid
  • Steunpunt: Nee
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!
 ???

Offline Gijsbert

  • Lid
  • Steunpunt: Ja
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.

Offline seghele

  • Lid
  • Steunpunt: Nee
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
  • Steunpunt: Ja
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.

Offline seghele

  • Lid
  • Steunpunt: Nee
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?

Offline seghele

  • Lid
  • Steunpunt: Nee
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.