PROCEDURE aus TRIGGER heraus aufrufen ?

[HolgerCW]

Hallo zusammen,

was muss ich an dem unten genannten Code ändern um die Procedure aufzurufen:

Delphi-Quellcode:

CREATE OR REPLACE TRIGGER Test1 BEFORE INSERT OR UPDATE ON TABELLE1 FOR EACH ROW
BEGIN
 
 EXECUTE PROCEDURE1 (:new.ANLAGENNUMMER, :new.ANZAHL, :new.letzte_ap, :new.letzte_ip, :new.letzte_fp) 

END;
/

Danke und Gruss

Holger

[Elvis]

Du rufst sie auf, wie du sie in Delphi aufrufen würdest.
Und wie ich dir im anderen Thread empfahl: benutzte keine globalen Futionen, das wird einfach zu chaotisch.
So würde ein Package aussehen:

SQL-Code:

create or replace package Mööp is

  procedure TestProc(aAnlagenNummer in Tabelle1.AnlagenNummer
                    ,aAnzahl        in Tabelle1.Anzahl
                    ,aLetzteAP      in Tabelle1.Letzte_AP
                    ,aLetzteIP      in Tabelle1.Letzte_IP
                    ,aLetzteFP      in Tabelle1.Letzte_FP);

end Mööp;

create or replace package body Mööp is
  procedure TestProc(aAnlagenNummer in Tabelle1.AnlagenNummer
                    ,aAnzahl        in Tabelle1.Anzahl
                    ,aLetzteAP      in Tabelle1.Letzte_AP
                    ,aLetzteIP      in Tabelle1.Letzte_IP
                    ,aLetzteFP      in Tabelle1.Letzte_FP) is
  begin
    -- was auch immer hier passiert...
    null;
  end TestProc;
end Mööp;

Und so dein Trigger:

SQL-Code:

create or replace trigger TestTrigger
  before insert or update on Tabelle1  
  for each row
begin
  Mööp.TestProc(:new.AnlagenNummer,
                :new.Anzahl,
                :new.Letzte_AP,
                :new.Letzte_IP,
                :new.Letzte_FP);
end TestTrigger;

btw: Schaue mal bei hier vorbei, du scheinst einen verklemmten Capslock zu haben.

[HolgerCW]

Ja fantastisch,

das ist es doch. Musste das Execute weg machen und ein Semikolon ans Ende.

Gut dann werde ich Deinen Rat befolgen und die Sachen in ein Package packen.

Vielen Dank und noch ein schönes WE.

Mache für heute erst einmal Feierabend.

Gruss

Holger