Dateadd Unit als Variable in Procedure

[waldforest]

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

[Lemmy]

zeig doch bitte ein paar Zeilen Code...

[waldforest]

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);

[mkinzler]

Oder mit einem EXECUTE BLOCK