Results 1 to 4 of 4

Thread: FastReport en AutoInc Nummer + Data in DB zetten vanuit report.

  1. #1
    5th member of nldelphi
    Join Date
    Mar 2001
    Location
    Alkmaar
    Posts
    2,127

    FastReport en AutoInc Nummer + Data in DB zetten vanuit report.

    Goedenavond Dames en Heren,

    Om maar gelijk even 'bot' met de deur in huis te vallen.

    Vraag 1.
    Is het mogenlijk cq een manier om in FastReport een nummer automatisch te laten
    Increasen met het aantal wat geprint wordt ??
    Dus ik heb 1 rapportje, daarop staat 1 nummer, deze dient verhoogt te worden
    alvorens het rapport wordt afgedrukt.
    Dit kan niet met Page Number omdat het maar 1 pagina is en blijft alleen moet het
    op basis van het aantal te printen pagina's.

    Vraag 2.
    Indien het bovenstaande mogenlijk is... is het dan ook mogenlijk om het laatst
    geprinte nummer weer terug te schrijven in de / een Database. ??

    Alvast bedankt,

    Richard.
    RLD

  2. #2
    Senior Member
    Join Date
    Jan 2002
    Location
    Nieuwlande, Nederland
    Posts
    612
    Hallo Richard,

    Beste manier die ik weet:

    procedure TForm1.frReport1GetValue(const ParName: String;
    var ParValue: Variant);
    begin
    if parname = 'Variable1' then
    begin
    parvalue := frreport1.Dictionary.Variables.Variable['Variable1'] + 1;
    frreport1.Dictionary.Variables.Variable['Variable1'] := parvalue;
    end;
    end;

    Je kunt hierbij een variabele mee laten lopen die je onder de frreport.showpreparedreport of onder de printroutine kunt wegschrijven. Dat kan uiteraard ook in de bovenstaande procedure.

  3. #3
    5th member of nldelphi
    Join Date
    Mar 2001
    Location
    Alkmaar
    Posts
    2,127
    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
    RLD

  4. #4
    Senior Member
    Join Date
    Jan 2002
    Location
    Nieuwlande, Nederland
    Posts
    612
    Hoi Richard,

    Jawel, ik weet nog wel een oplossing, mijn vorige post was niet helemaal compleet. Gelukkig had je zelf al gezien wat ik vergeten was.

    Omdat bij het laatste stukje frReport.PrintPreparedreport ga ik er vanuit dat je een preparereport gebruikt of in het rapport zelf two pass report aan hebt staan.

    Zo niet, dan ben ik benieuwd of het nog steeds niet werkt als je dat aanzet.

    Ik heb de code hierboven ingeplakt uit een testprojectje in Delphi en dat werkte gewoon, maar ik had wat geexperimenteerd en dat dus aangezet.

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Similar Threads

  1. Replies: 8
    Last Post: 21-Jun-04, 21:15
  2. Namen vanuit database in arrays zetten
    By Area62 in forum Databases
    Replies: 33
    Last Post: 29-Jan-04, 20:28

Bookmarks

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •