Fastreport - Variable übergeben

[user0815]

FR4.6.ProgrammerManual-en:

Adds a variable to the specified category
  procedure AddVariable(const ACategory, AName: String; const AValue: Variant);

funktioniert auch (ob das gewollt ist ?):

Delphi-Quellcode:

  
  frxReport1.Script.AddVariable('AAA', '', QuotedStr('ABC'));
  frxReport1.Script.AddVariable('BBB', '', 'DEF');
  frxReport1.Script.AddVariable('BBB', '', 'BLA'); // wird ignoriert

  frxReport1.Script.AddVariable('YYY', 'unnecessary', QuotedStr('456'));
  frxReport1.Script.AddVariable('ZZZ', 'unnecessary', '789');

Jetzt im Report in ein Memo Feld (TfrxMemoView) den jeweiligen Wert von ACategory in eckigen Klammern eintragen z.B.: [AAA]
Ausgabe in diesem Fall:
'ABC'
DEF
'456'
789

[Bummi]

ich habe fast alle meiner Drucks auf eine Generische Unit umgestellt der Datasets, Variablen, Reports, Callbacks etc.
im Execute mitgegeben werden, der Variablenteil sieht so aus ....

Delphi-Quellcode:

Procedure TDM.PrintEttis;

var
  vars: TFrxVariables;
  ...
begin

      vars := TFrxVariables.Create;
      try
        for i := 0 to FReportingList.Count - 1 do
        begin
          With vars.Add do
          begin
            Name := FReportingList.Names[i];
            Value := QuotedStr(FReportingList.Values[i]);
          end;
        end;
      ...
      ... 
      TFPrintF.Execute(... ,vars,  .... ....
end;



TFPrintF.Execute(... ,vars,  .... ....);
begin
  ....


    for i := 0 to Report.Variables.Count - 1 do
    begin
      Report.Variables.Items[i].Value := QuotedStr('');
    end;
    if Assigned(Variables) then
      for i := 0 to Variables.Count - 1 do
      begin
        k := Report.Variables.IndexOf(Variables.Items[i].Name);
        if k > -1 then
          Report.Variables.Items[k].Value := Variables.Items[i].Value
        else
        begin
          with Report.Variables.Add do
          begin
            Name := Variables.Items[i].Name;
            Value := Variables.Items[i].Value;
          end;
        end;
      end;
   ....
end;

[Lemmy]

Zitat von user0815:

FR4.6.ProgrammerManual-en:

Adds a variable to the specified category
  procedure AddVariable(const ACategory, AName: String; const AValue: Variant);

ja - nur ehrlich gesagt der SInn dahinter erschließt sich mir noch nicht, da ich so auf die Variable während des Reportdesigns keinen Zugriff habe. Deshalb leg ich die im Report immer an...

[Iwo Asnet]

Es soll auch Anwendungen geben, die die Möglichkeit bieten, den Report erst zur Laufzeit designen zu lassen lassen. Und da ist es auch praktisch, dynamisch einzelne Variablen zur Laufzeit zu deklarieren.

[mm1256]

Hallo,

normalerweise verwende ich List&Label aber jetzt habe ich ein sehr kleines Projekt mit einer einzigen Liste, und da ist L&L etwas overkill. Weil FR bei Delphi dabei ist, habe ich es mal damit probiert, und bin aufgrund der Anforderung zusätzlich eigene Variablen deklarieren zu müssen über Google auf diesen Thread gestoßen.

So deklariere ich die Variablen:

Delphi-Quellcode:

procedure TForm1.AddVariable(aName, aValue: string);
begin
  FR.Script.AddVariable(aName, '', aValue);
end;

...
  AddVariable('USERNAME', FUserName);
  AddVariable('DRUCKMONAT', cbDruck.Text+' ' + cbJahr.Text);
  AddVariable('GESAMTSTUNDEN', FormatDateTime('hh:mm', FGesamtStunden));

Das funktioniert auch. Aber, wenn ich bereits einmal gedruckt habe, und sich der Wert einer dieser definierten Variablen ändert, z.B. die GESAMTSTUNDEN, und ich nochmals drucke, wird nicht der neue Wert gedruckt, sondern immer der Wert den die Variable beim ersten Ausdruck hatte. Erst wenn ich das Programm neu starte, wird der richtige Wert wieder gedruckt.

Weiß jemand, woran das liegen könnte?

BTW das Handbuch ist in dieser Hinsicht wirklich nicht zu gebrauchen

[himitsu]

Warum?

Man könnte natürlich erstmal in den Quellcode gucken und sieht das Warum.

Delphi-Quellcode:

procedure TfsScript.AddVariable(const Name, Typ: String; const Value: Variant);
var
  v: TfsVariable;
begin
  if Find(Name) <> nil then Exit;  // <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<

  v := TfsVariable.Create(Name, StrToVarType(Typ, Self), Typ);
  v.Value := Value;
  v.OnGetVarValue := FOnGetVarValue;
  Add(v.Name, v);
end;

Entweder du suchst eine Set-Funktion (Ich hab Keine in TfsScript gesehn)
oder du machst vorher ein "Clear".

Wir machen es so, wobei wir Clear nur aufrufen, da auch innerhalb der Scripte weitere Variablen angelegt werden,
die Zuweisung an Variables überschreibt auch so Werte, wenn die Variable vorher schonmal zugewiesen wurde.

Delphi-Quellcode:

FR.Variables.Clear;//alles alte Zeug löschen
FR.Variables['USERNAME'] := FUserName;
...

Aber eigentlich machen wir das so FR.Variables['USERNAME'] := '''' + FUserName + ''''; , wobei ich grade nicht mehr weiß, warum die "Strings" unbedingt als "String" gequotet werden mussten.
(bin bei uns nicht für die Reports zuständig, aber irgendeinen "wichtigen" Grund hatte es)

[mm1256]

Vielen Dank für die Info. Leider ändert

Code:

frxReport.Variables.Clear

auch nichts.

Zitat von himitsu:

Man könnte natürlich erstmal in den Quellcode gucken und sieht das Warum.

Quellcode ist natürlich immer gut, da bin ich voll deiner Meinung. Aber, ist der Quellcode bei der Delphi-Edition mit dabei? Ich finde nichts.

[Aviator]

Zitat von mm1256:

Zitat von himitsu:

Man könnte natürlich erstmal in den Quellcode gucken und sieht das Warum.

Quellcode ist natürlich immer gut, da bin ich voll deiner Meinung. Aber, ist der Quellcode bei der Delphi-Edition mit dabei? Ich finde nichts.

Nein ist er nicht. Da hat er mal wieder einen Schnellschuss gemacht. Quellcode gibt es erst ab der Pro Version. Und die ist nicht bei Delphi dabei.