Fastreport Objekt in abhängikeit von DB Feld

[manfred_h]

Hallo zusammen

in einer Anwendung verwede ich einen Report für mehrere Ausdruckvarianten mit
wechselnden Feldern in den Datasets.
Dies geht auch einwandfrei. Nun sind aber in einigen Datasets Felder die in anderen nicht vorhanden sind.
Bis jetzt habe ich das versucht ( und ähnliches ):

( Fastreport Script )

Delphi-Quellcode:

procedure PLACEMENTOnBeforePrint(Sender: TfrxComponent);
begin
  if <default.FieldByName('PLACEMENT')> is not NULL then
  begin
    PLACEMENT.Visible
  end                
end;

Es erschein immer die Fehlermeldung:
Could not convert variant of type (Null) into type (Integer
Unknown variable or Datafield: default.FieldByName('PLACEMENT')

Habt Ihr einen Tipp?

Manfred

[mkinzler]

Sorge einfach dafür, dass in allen Datasets die selben Felder sind. Ich weiss nicht, ob man in FastScript auf die Existenz von Feldern prüfen kann; deine Abfrage fragt ja nur ab, ob der wert des Feldes NULL ist, existiert das Feld nicht kommt die gennate Fehlermeldung.

[manfred_h]

Hallo mkinzler

Danke für Deine schnelle Antwort.

Shalom
Manfred

[Hansa]

Nun ja, per Holzhammer dafür sorgen, dass überflüssige Felder in der DB sind das geht wohl auch. Ich würde allerdings eher Dataset.FieldExist auswerten.

[mkinzler]

Es handelt sich hier aber nicht um Delphi, sondern die Pascalvariante von Fastcript. Wenn dort diese Methode existiert, dann sollte man diese natürlich verwenden

[hanspeter]

Zitat von manfred_h:

Es erschein immer die Fehlermeldung:
Could not convert variant of type (Null) into type (Integer
Unknown variable or Datafield: default.FieldByName('PLACEMENT')

Habt Ihr einen Tipp?

Manfred

Das Problem tritt an einigen Stellen auf.
Zum Beispiel auch, wenn in einem Vergleich eine leere Zeichenkette vorhanden ist.
Ich habe den Eindruck, das es sich hier um einen Bug im Fastreport handelt.
Der Scriptinterpreter versucht für den Vergleich in einen Integer Wert zu wandeln.
Ist das nicht möglich, dann kommt dieser Fehler.
Die Exception tritt in Fastsript auch auf wenn ich z.B. eine Spalte summiere und es hier eine
Leerzeile gibt.
Ich habe mir damals geholfen, indem ich im Quellcode des Scriptinterpreters die Konvertierung
gepatcht habe.
( if isNull or length(Val)=0 then result := 0;

Gruß
Peter

[manfred_h]

@Hansa: Danke für Deinen Hinweis. Die DB muss ja nicht unbeding gefüllt werden es reicht ja wenn man es so löst:

SQL-Code:

SELECT 
    ID,ACCEPTANCE,STATUS,NOTE,NC,CS,OPT,
    L_UPDATE,STAT_UPDATE,STAT_DEL,'' SCHOOLJ,'' PERSONS
FROM HOTEL

aber die Variante mit Dataset.FieldExist währe das angemehmste. Habe es aber noch nicht hinbekommen.

@Peter: Danke für Deine Hinweise.

Shalom
Manfred

[manfred_h]

Hallo nochmals

habe noch einen Tipp aus der Fastreport Newsgroup bekommen.

Delphi-Quellcode:

procedure DefaultPERSONSOnBeforePrint(Sender: TfrxComponent);
var
i: Integer;
ds: TfrxDataSet;
list: TStringList;    
begin
  ds := Report.GetDataset('default');// username of ds
  list := TStringList.Create;
  ds.GetFieldList(list);
  for i := 0 to list.Count - 1 do
   somevar := ds.Value[list[i]]; // get field value by its name    
end;

Was mir nicht ganz klar ist, wie kann ich hier das Objekt 'PERSONS' ein/ausschalten.
Der Punkt >> somevar := ds.Value[list[i]]; // get field value by its name ist das was mir nicht klar ist. Ich muss ja noch definieren welches Feld er suchen soll.

Ein kleiner Tipp?
Manfred

[mkinzler]

Es wird dir eine Liste mit allen Felder geliefert. Jetzt musst du überprüfen, ob dein Feld dabei ist

[manfred_h]

Hallo nochmals

bin ein wenig weiter..

Delphi-Quellcode:

procedure DefaultPERSONSOnBeforePrint(Sender: TfrxComponent);
var
i: Integer;
ds: TfrxDataSet;
list: TStringList;
db_list: String;                       
  
begin
  ds := Report.GetDataset('default');// username of ds
  list := TStringList.Create;
  ds.GetFieldList(list);
  for i := 0 to list.Count - 1 do
  begin              
   db_list := ds.Value[list[i]]; // get field value by its name
    if ['db_list'] = 'PERSONS' then DefaultPERSONS.Visible := true;  
   ds.Next;                   
  end;
end;

if ['db_list'] ist in Klamern da dies anscheinend Notwenig ist.

Zitat:

Make sure when passing the variable a value if it is a string variable to
use extra apostrophe's ['myvariable'] = ''''+string+''''
or it will be an expression and trigger the ogv event.

Erhalte aber immer noch eine Fehlermeldung:
Invalid Variant Operation

PS: Bei dem Wert PERSONS geht es nicht um den Inhalt der Spalte sondern um den Splatennamen.