In Fastreport Null-Werte ausgeben

[HPB]

Guten Tag Delphianer,
ich möchte in Fastreport den Wert einer DB-Spalte auf NULL prüfen.

Folgender Quellcode funktioniert:
Das Feld "AUFGENOMMENAM" ist ein Date-Feld.

Delphi-Quellcode:

  if FormatDateTime('yyyy', <frxDBBrdDaten."AUFGENOMMENAM">) <> '1899' then
  begin              
  Memo31.Text := 'Aufgenommen am: ' + FormatDateTime('dd.mm.yyyy' <frxDBBrdDaten."AUFGENOMMENAM">);                                                          
  end            
  else
   Memo31.Text := 'Aufgenommen: - unbekannt';

Wie kann ich nun aber abfragen ob der Wert NULL ist?

if <frxDBBrdDaten."AUFGENOMMENAM">) IS NULL liefert einen Fehler.

Mit Gruß HPB

[Devil1925]

Versuch es dochmal mit

Delphi-Quellcode:

if frxDBBrdDaten.FieldByName('AUFGENOMMEN').AsString = '' then
Begin
 // Mach was
End;

Alternativ kannst du auch einfach im SQL was machen...
wie wäre es mit

Code:

Select *, Case when AUFGENOMMEN is null then 1 else 0 as istLeer from Tabelle

und dann Prüfst du auf den Wert von Spalte istLeer ob diese 1 oder 0 ist.

[HPB]

Zitat von Devil1925:

Versuch es dochmal mit

Delphi-Quellcode:

if frxDBBrdDaten.FieldByName('AUFGENOMMEN').AsString = '' then
Begin
 // Mach was
End;

Alternativ kannst du auch einfach im SQL was machen...
wie wäre es mit

Code:

Select *, Case when AUFGENOMMEN is null then 1 else 0 as istLeer from Tabelle

und dann Prüfst du auf den Wert von Spalte istLeer ob diese 1 oder 0 ist.

Vielen Dank für Deine Antwort.

Select und Case gehen nicht, da dies Feld Teil einer größeren Abfrage, die über
mehre Tabellen geht, ist.
Aber es muß doch möglich sein, in Fastreport das Feld auf den Wert NULL zu prüfen.
Wenn im Datumfeld kein Wert steht, dann gibt Fastreport immr '30.12.1899' zurück.
Vielleicht weis ja noch jemand eine Lösung.
Mit freundlichem Gruß HPB

[MrSpock]

Zitat von HPB:

Aber es muß doch möglich sein, in Fastreport das Feld auf den Wert NULL zu prüfen.
Wenn im Datumfeld kein Wert steht, dann gibt Fastreport immr '30.12.1899' zurück.
Vielleicht weis ja noch jemand eine Lösung.
Mit freundlichem Gruß HPB

Jap.

Code:

if <Table1."Field1"> = Null

heißt die Abfrage in FR.

[HPB]

Jap.

Code:

if <Table1."Field1"> = Null

heißt die Abfrage in FR.[/QUOTE]

Guten Tag MrSpock,
die Abfrage wirft keinen Fehler.
Trotzdem erkennt FR nicht, das in der DP-Spalte kein Wert steht.
Ich habe nachgeschaut, der Wert der Spalte ist mit NULL gekennzeichnet.
Kann es sein das FR hier einen Fehle hat?
Mit Gruß HPB

[madas]

Zitat von MrSpock:

Zitat von HPB:

Aber es muß doch möglich sein, in Fastreport das Feld auf den Wert NULL zu prüfen.
Wenn im Datumfeld kein Wert steht, dann gibt Fastreport immr '30.12.1899' zurück.
Vielleicht weis ja noch jemand eine Lösung.
Mit freundlichem Gruß HPB

Jap.

Code:

if <Table1."Field1"> = Null

heißt die Abfrage in FR.

Null mit nil erstezen, dann funzt es.

[HPB]

Vielen Dank an alle für die rasche Hilfe.
Mit "NIL" klappt es wirklich.
Ein erfolgreicher Tag. Wieder etwas dazu gelernt.
Mit gruß HPB

[madas]

Oder eine User-Function basteln, die das Ganze übernimmt.

Delphi-Quellcode:

type
  THackfrxCustomDBDataSet = class(TfrxDataSet)
  private
    FFields: TStringList;
  end;

function TFormValidierung.IsDBFieldNull(index: Integer): Boolean;
begin
  Result := TField(THackfrxCustomDBDataSet(frxDBDatasetAuftrag).FFields.Objects[index]).IsNull;
end;

...

  frxReport.AddFunction('function IsDBFieldNull(index: Integer): Boolean', 'User Function','');

...

function TForm.frxReportUserFunction(const MethodName: String; var Params: Variant): Variant;
begin
  inherited;
  Result := -1;
  if (MethodName = 'ISDBFIELDNULL') then
  begin
    Result := IsDBFieldNull(Integer(Params[0]));
  end;
end;

...