AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Datenbanken Dateadd Unit als Variable in Procedure
Thema durchsuchen
Ansicht
Themen-Optionen

Dateadd Unit als Variable in Procedure

Ein Thema von waldforest · begonnen am 30. Okt 2015 · letzter Beitrag vom 30. Okt 2015
Antwort Antwort
waldforest

Registriert seit: 8. Mai 2005
366 Beiträge
 
Delphi XE3 Enterprise
 
#1

Dateadd Unit als Variable in Procedure

  Alt 30. Okt 2015, 14:06
Datenbank: Firebird • Version: 2.5 • Zugriff über: Zeaos
Hallol,
ich nutze in eine Firebird Procedure DateAdd(week, :-XBACK, current_date).

Wobei hier XBack als Parameter übergeben wird

Gibt es eine Möglichkeit den ersten Parameter auch als variablen wert (Week, Month, Year) an die Firebird Procedure zu übergeben.
Aktuell wenn ich es mit einem Integer Parameter mache bekomme ich beim compellieren einen Token unknown
mfg wf
  Mit Zitat antworten Zitat
Lemmy

Registriert seit: 8. Jun 2002
Ort: Berglen
2.366 Beiträge
 
Delphi 10.3 Rio
 
#2

AW: Dateadd Unit als Variable in Procedure

  Alt 30. Okt 2015, 14:10
zeig doch bitte ein paar Zeilen Code...
  Mit Zitat antworten Zitat
waldforest

Registriert seit: 8. Mai 2005
366 Beiträge
 
Delphi XE3 Enterprise
 
#3

AW: Dateadd Unit als Variable in Procedure

  Alt 30. Okt 2015, 15:34
Hallo,
ich habe eine Lösung gefunden, vielleicht geht es auch anders. Anbei ein Auszug,


Delphi-Quellcode:
INSERT INTO Temp_order
{
  Artikel,
  VK_Mengen}


Select A.ARTIKEL_ID,
   Case when ( :xZeitfenster = 'week') then
     (SELECT sum( OA.MENGE ) FROM ORDERS O INNER JOIN ORD_ARTIKEL OA ON O.ORDERS_ID
         =OA.ORDER_ID WHERE ((OA.Artikel_id = A.Artikel_ID) and (O.BESTELLDATUM >=
          dateadd(week,-:xBackZeit,current_date))))
  else
     (SELECT sum( OA.MENGE ) FROM ORDERS O INNER JOIN ORD_ARTIKEL OA ON O.ORDERS_ID
         =OA.ORDER_ID WHERE ((OA.Artikel_id = A.Artikel_ID) and (O.BESTELLDATUM >=
          dateadd(month,-:xBackZeit,current_date))))
  end AS VK_Menge

FROM LIEFERANT L INNER JOIN ARTIKEL A ON L.LIEFERANT_ID = A.ARTIKEL_LIEFERANT_ID
              WHERE (A.ARTIKEL_LIEFERANT_ID = :xLiefernat_ID) and (A.ARTIKEL_LAGER_IST <= A.ARTIKEL_LAGER_MIN);
    FROM LIEF L INNER JOIN ARTIKEL A ON L.LIE_ID = A.ARTIKEL_LIEF_ID
              WHERE (A.ARTIKEL_LIEF_ID = :xLiefernat_ID);
mfg wf

Geändert von waldforest (30. Okt 2015 um 15:45 Uhr)
  Mit Zitat antworten Zitat
mkinzler
(Moderator)

Registriert seit: 9. Dez 2005
Ort: Heilbronn
39.851 Beiträge
 
Delphi 11 Alexandria
 
#4

AW: Dateadd Unit als Variable in Procedure

  Alt 30. Okt 2015, 15:45
Oder mit einem EXECUTE BLOCK
Markus Kinzler
  Mit Zitat antworten Zitat
Antwort Antwort


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 01:45 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz