Thema: Delphi Trigger verbessern ?

Einzelnen Beitrag anzeigen

Gruber_Hans_12345

Registriert seit: 14. Aug 2004
1.439 Beiträge
 
Delphi 2007 Professional
 
#1

Trigger verbessern ?

  Alt 28. Mär 2005, 19:22
Datenbank: Firebird • Version: 1.5 • Zugriff über: IBConsole
DA ich mit Triggern noch nicht viel Erfahrung habe, möchte ich wissen, ob man folgenden Trigger noch besser machen kann :
SQL-Code:
SET TERM ^ ;
ALTER TRIGGER LB_INSERT
ACTIVE BEFORE INSERT POSITION 0
AS
DECLARE ART_EK_PREIS DOUBLE PRECISION;
BEGIN
  IF (NEW.ARTIKELID > 0) THEN BEGIN
    SELECT EK_PREIS FROM ARTIKEL WHERE ID = NEW.ARTIKELID INTO :ART_EK_PREIS;
    UPDATE ARTIKEL SET NEED_RECALC = 1 WHERE ID = NEW.ARTIKELID;
    NEW.EK_PREIS = :ART_EK_PREIS;
  END
END
^
COMMIT WORK ^
SET TERM ;^
Machen soll er folgendes : Beim Einfügen in die Lagerbuchungszeile soll aus der Artikel Tabelle der aktuelle Preis geholt werden und in die Spalte EK_PREIS gespeichert werden und im Artikel Stamm das Feld NEED_RECALC auf ein setzten.
Gruss Hans

2B or not 2B, that is FF
  Mit Zitat antworten Zitat