Umstellung auf SQL-Filterung

[Crowbar]

Hallo,

ich bin gerade dabei mein kleines Rechnungsprogramm von TTable nach TQuery (inkl. SQL-Befehle) umzuschreiben.

In meinem Rechnungsprogramm sollen die Rechnungen angezeigt werden, dessen Buchnungsdatum (Tabellenfeld "RESTELLUNG") gegenüber dem aktuellen Datum größer-gleich der Mahntage (z.B. 14 Tage) sind.
Im Prinzip sollen alle erstellten Rechnungen, die vor 14 Tagen erstellt wurden und kein Rechnungseingangsdatum besitzen, angezeigt werden (= für Mahnungen).

Diesen "OnFilterRecord"-Event (TTable) habe ich bisher wie folgt programmiert und läuft auch so wie gewollt:

Delphi-Quellcode:

...
MahnTage:=14;
...
{ Differenz der Tage ermitteln }
Function TMainForm.DaysBetween(const d1,d2: TDateTime) : Integer;
begin
  Result:=Trunc(d1)-Trunc(d2);
end;
...

Procedure TMainForm.DBBuchungTableFilterRecord(DataSet: TDataSet; var Accept: Boolean);
Var
 Tage : Integer;

begin
  if (FilterFeld = 'MAHNUNG') then
   begin
     if ((DBBuchungTable.FieldByName('REEINGANG').AsString = '') and (DBBuchungTable.FieldByName('KATEGORIE').AsWideString = 'Einnahmen') and not (DBBuchungTable.FieldByName('RESTELLUNG').AsString = '') then
      begin
        Tage:=DaysBetween(Now,StrToDate(DBBuchungSQLQuery.FieldByName('RESTELLUNG').AsString));
        Accept:=(Tage >= MahnTage);
       end;
   end; 
end;
...

Nun möchte ich diese Abfrage/Filterung per SQL lösen.

Filterbedingungen:
Nur die Rechnungen der KATEGORIE "Einnahmen" anzeigen, dessen Datum im Feld "RESTELLUNG" größer-gleich der Mahntage (z.B. 14 Tage) sind und das Datum für Rechnungseingang (Feld "REEINGANG") leer ist.
Zusätzlich ... das Feld "RESTELLUNG" darf auch nicht leer sein.

Zusammengefaßt:

- im Feld "KATEGORIE" => muss "Einnahmen" stehen
und
- das Feld "RESTELLUNG" darf nicht leer sein
und
- das Feld "REEINGANG" muss leer sein
und
- das Datum im Feld "RESTELLUNG" muss größer-gleich 14 Tage vor dem aktuellen Datum sein

Irgendwie stehe ich jetzt hier, durch die vielen "Bedingungsabfragen", auf dem Schlauch. :roll:

Delphi-Quellcode:

SQLText:='SELECT * FROM Buchung WHERE KATEGORIE ="Einnahmen" AND REEINGANG = '+QuotedStr('')+' AND RESTELLUNG >=... ???

[DeddyH]

Ist RESTELLUNG ein Stringfeld?

[Crowbar]

Zitat:

Zitat von DeddyH (Beitrag 1266199)

Ist RESTELLUNG ein Stringfeld?

Nein, ein DATE Feld.

KATEGORIE Feld string
RESTELLUNG Feld date
REEINGANG Feld date

[baumina]

SQL-Code:

WHERE KATEGORIE = 'Einnahmen'
AND RESTELLUNG is not null
AND REEINGANG is null 
AND DATEDIFF(day, NOW(), RESTELLUNG) >= 14

[jobo]

Eine Prüfung auf "leer" machst Du am besten mit

Code:

 where ..
   [myDateField] is null
   ..

[himitsu]

Zitat:

Zitat von Crowbar (Beitrag 1266200)

Zitat:

Zitat von DeddyH (Beitrag 1266199)

Ist RESTELLUNG ein Stringfeld?

Nein, ein DATE Feld.

Aber warum behandelst du es dann wie Eines? :zwinker:

Delphi-Quellcode:

Tage := DaysBetween(Now, DBBuchungSQLQuery.FieldByName('RESTELLUNG').AsDataTime);

Jetzt nur noch in der entsprechenden DBMS-Doku nachsehen, wie sich die Funktion nennt, mit welcher man Datumsdifferenzen ausrechnen kann.


Und das

Delphi-Quellcode:

DBBuchungTable.FieldByName('RESTELLUNG').AsString = ''

sollte wohl auch ein

Delphi-Quellcode:

DBBuchungTable.FieldByName('RESTELLUNG').IsNull

darstellen.

[Crowbar]

Zitat:

Zitat von himitsu (Beitrag 1266210)

Zitat:

Zitat von Crowbar (Beitrag 1266200)

Zitat:

Zitat von DeddyH (Beitrag 1266199)

Ist RESTELLUNG ein Stringfeld?

Nein, ein DATE Feld.

Aber warum behandelst du es dann wie Eines? :zwinker:

Delphi-Quellcode:

Tage := DaysBetween(Now, DBBuchungSQLQuery.FieldByName('RESTELLUNG').AsDataTime);

Jetzt nur noch in der entsprechenden DBMS-Doku nachsehen, wie sich die Funktion nennt, mit welcher man Datumsdifferenzen ausrechnen kann.


Und das

Delphi-Quellcode:

DBBuchungTable.FieldByName('RESTELLUNG').AsString = ''

sollte wohl auch ein

Delphi-Quellcode:

DBBuchungTable.FieldByName('RESTELLUNG').IsNull

darstellen.

... das ist alles einwenig unsauber programmiert ... deswegen auch meine Überarbeitung und gleichzeitiges Umsetzen auf SQL.

Zitat:

Zitat von baumina (Beitrag 1266205)

SQL-Code:

WHERE KATEGORIE = 'Einnahmen'
AND RESTELLUNG is not null
AND REEINGANG is null 
AND DATEDIFF(day, NOW(), RESTELLUNG) >= 14

... Danke, das war schon fast die Lösung.

SQL-Code:

WHERE KATEGORIE = "Einnahmen" AND RESTELLUNG is not null AND REEINGANG is null

Dieser SQL-Befehl klappt wunderbar, natürlich ohne diese 14 Tage-Berücksichtigung.

Sobald ich aber den gesamten Befehl benutze:

SQL-Code:

WHERE KATEGORIE = "Einnahmen" AND RESTELLUNG is not null AND REEINGANG is null AND DATEDIFF(day, NOW(), RESTELLUNG) >= 14

... erhalte ich eine Fehlermeldung, die heißt:

...Boolean expression expectedt, but 'DATEDIFF' found..."

[DeddyH]

Deswegen sollst Du ja in die Doku zu Deiner DB schauen, welche Datumsfunktionen es da gibt. Was ist das denn: dBase, FoxPro?

[Crowbar]

Zitat:

Zitat von DeddyH (Beitrag 1266213)

Deswegen sollst Du ja in die Doku zu Deiner DB schauen, welche Datumsfunktionen es da gibt. Was ist das denn: dBase, FoxPro?

Zum Austesten, ob alles so funktioniert wie ich es mir vorstelle, benutze ich derzeitig die Trialversion von "Absolute Database".
Hier scheint es den Befehl "DATEDIFF" nicht zu geben.

[DeddyH]

Scheint so. Ich konnte auf die Schnelle keine Übersicht der enthaltenen Funktionen finden, vielleicht ist es das Beste, das Datum am Client zu errechnen und als SQL-Parameter zu übergeben.