Einzelnen Beitrag anzeigen

Elvis

Registriert seit: 25. Nov 2005
Ort: München
1.909 Beiträge
 
Delphi 2010 Professional
 
#2

Re: PROCEDURE aus TRIGGER heraus aufrufen ?

  Alt 10. Aug 2007, 16:09
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.
Robert Giesecke
  Mit Zitat antworten Zitat