Variablen im LazReport

[Luckner]

Hallo,
nach meinem Umstieg von Delphi versuche ich mich jetzt in Lazarus. Diesmal mit LazReport. Hatte mal für Dephi eine Fastreport-Version gekauft und fand Die genial. Da Lazreport, angeblich auf Freereport basiert, da dachte ich mir, dass ich den mal probiere. Aber es scheitert schon an simplen Variablen. Bespiel:

Code: Alles auswählen

  frReport1.LoadFromFile('Test.lrf');
  frReport1.Variables.Clear;
  frReport1.Values.FindVariable('test').Field := QuotedStr('Das ist ein Test');
  frReport1.PrepareReport;
  frReport1.ShowReport;

der Text der Variablen 'test' wird nicht angezeigt. Eine Variable 'test' ist im Formular platziert. Eine Linie und ein manueller Text im im Formular werden angezeigt. Was mache ich hier falsch?

Gruß, Luckner

[BoraBora]

Hallo Luckner,

sieh´ mal hier:

https://forum.lazarus.freepascal.org/in ... ic=59873.0

Gruss BB

[gladio]

variableninhalte übergibs du an den Report in OnGetValue
viewtopic.php?p=94403#p94403

[Luckner]

Vielen Dank,
ja jetzt funktioniert es. In einer Doku wurden beide Möglichkeiten genannt, aber gut wenn eine funktioniert

Gruß, Luckner

[Soner]

Ihr habt schon eine Lösung gefunden, aber es gibt noch einen Weg. Vorteil ist, dass es bei allen Reports ohne "OnGetValue" zur Verfügung steht:
frVariables[variablenname] := Variablewert;
z.B.
frVariables['ZeigeNetto'] := 1;

Anderer Vorteil ist, wenn du Reportdesigner im Programm integriert hast, dann sehen die Benutzer es.

[Luckner]

Hallo Soner,

scheint bei mir nicht zu funktionieren. Bekomme Fehlermeldungen.

Code: Alles auswählen

frReport1.frVariables[variablenname] := Variablewert;

ergibt Fehler

Code: Alles auswählen

frVariables[variablenname] := EditLiga.text;

wird kein Wert übergeben

Gruß, Luckner

[Soner]

Doch das funktioniert, das hier ist die exakte Zeile aus meinem Programm:

Code: Alles auswählen

// uses LR_Class;  nicht vergessen!!
 frVariables['RepSumBrut']:=IntToStr(Ord(RepPrOpt.SumBrut));

Dann kannst du beim ReportDesigner bei irgendeinem Objekt Skript einschalten und als Skript eingeben, z.b. für mein Beispiel oben:

Code: Alles auswählen

 Visible:= [RepSumBrut]='1';

Dann ist dieses Objekt nur sichtbar, wenn die Variable den Wert '1' hat.

Du musst das beachten:
frVariables[Variablenname_muss_String_sein]:= Wert_ist_Variant;
Aber für Werte benutze ich immer String.

Mir fällt es jetzt ein, ich sollte das mal Patchen, so dass die Variablen nicht manuel bei Runtime sondern direkt beim Designer eingefügt werden kann, weil das einen immer nervt, wenn man bei Vorschau während des Designen in Lazarus-IDE Fehler bekommt.
Und jetzt fällt mir ein warum du Fehler bekommen hast. Alle Variablen auch die mit OnGetValue funktionieren nur, wenn dein Programm läuft.

Ich habe Beispielprogramm hinzugefügt.

repvariable1pub.zip

Beispielprogramm

(139.02 KiB) 54-mal heruntergeladen

[Soner]

Mann kann die Variablen auch als Highlight-Bedingung hinzufügen. Füg einfach ein zweites Memo und schreib als Hightlight-Bedingung:
[xsichtbar]='1'

dann ändere dort Farbe oder Font.Style.
Highlight-Knopf liegt links von Links-Ausrichten-Knopf im Designer.
Mann kann das verwenden z.B. um Minuswerte rot auszugeben.