Einzelnen Beitrag anzeigen

NoName1

Registriert seit: 8. Mär 2018
194 Beiträge
 
Delphi 11 Alexandria
 
#1

Fastreport: Auf Globale Variable im Script zugreifen

  Alt 31. Mai 2021, 16:06
Guten Tag,
wie kann eine Variable die unter Variablen angelegt wurde, im Script verwendet werden?
Beispiel:
Ich habe eine Variable "anfangssaldo" angelegt. Der Wert für diese Variable wird im
"OnGetValue" des Reports übergeben.
Code:
var
 sumSoll: Extended;
 sumHaben: Extended;
 sumSaldoGuV: Extended;

procedure bukontoOnBeforePrint(Sender: TfrxComponent);
begin
  bukonto.Text := IntToStr(<frxBuchungen."SOLKONTONR">) + ' - ' + <frxBuchungen."SOLKONTONAME">;
end;

procedure bubetragOnBeforePrint(Sender: TfrxComponent);
var
 pBetrag: Currency;

begin
   pBetrag := <frxBuchungen."SOLLBETRAG">;

   if pBetrag < 0 then
   begin
      bubetrag.Font.Color := clRed;
      bubetrag.Text := Format('%2.2m', [pBetrag]);
      sumHaben := sumHaben + pBetrag;
   end;

   if pBetrag > 0 then
   begin
    bubetrag.Font.Color := clBlack;
    bubetrag.Text := Format('%2.2m', [pBetrag]);
    sumSoll := sumSoll + pBetrag;
   end;

   Einnahmen.Text := Format('%2.2m', [sumSoll]);
   Ausgaben.Text := Format('%2.2m', [sumHaben]);
   sumSaldoGuV := sumSoll + sumHaben + Get(<anfangssaldo>); // <<<<Hier ist die Variable
   SaldoGUV.Text := Format('%2.2m', [sumSaldoGuV]);
end;

begin
 sumSoll := 0;
 sumHaben := 0;
 sumSaldoGuV := 0;
end.
Hat jemand wissen wie den Wert dieser Variablen zugegriffen werden kann?.

Vielen Dank für Eure Hilfe.
  Mit Zitat antworten Zitat