Thema: Delphi Nested Trigger Problem

Einzelnen Beitrag anzeigen

Benutzerbild von Jelly
Jelly

Registriert seit: 11. Apr 2003
Ort: Moestroff (Luxemburg)
3.741 Beiträge
 
Delphi 2007 Professional
 
#8

Re: Nested Trigger Problem

  Alt 19. Dez 2005, 21:26
Es sind 2 Tabellen (Property und Prozess), die mit einer 1:n Beziehung zusammenhängen, d.h. für jede Property kann es mehrere Prozesse geben. Beim Anlegen einer neuen Property wird in der Tabelle ein Prozessbeginn Datum festgelegt. Wenn es nun zu dieser Property erst GENAU EINEN Prozess gibt, so soll die Spalte PeriodBeginn aus Prozess immer mit dem Datum Prozessbeginn aus der Property synchron sein. Ändere ich eins von beiden Daten, so soll in der anderen Tabelle das Datum mit angepasst werden. Diese aber nur, solange es erst einen einzigen Prozess für die Liegenschaft gibt. Bei mehrern Prozessen dürfen die Daten unterschiedlich sein. Da ist auch der Grund, warum ich dieses Feld redundant für den ersten Prozess speichern muss. Es ist auch möglich, eine Property OHNE Prozess zu haben. Sonst würde ja im Prinzip ein Eintrag in der Prozess Tabelle genügen...

Hier mal die beiden Trigger der Tabelle Property und Prozess, die aber im Grund dasselbe machen. Dazu existiert noch eine View welche den PK der Property und des Prozesses liefert. HBedingung ist hier, dass die Property erst einen Prozess hat, sonst taucht sie nicht in der View auf.

Property Trigger:
SQL-Code:
CREATE TRIGGER trPropertyInsertUpdate ON [dbo].[Property]
FOR INSERT, UPDATE
AS
declare @P_ID int
declare @PP_ID int
declare @HKAWarningWaitUntil datetime
declare @PP_PeriodEnd datetime

update PropProcess
set PP_PeriodBegin = i.FirstProcessStart
from Inserted i
left join PropProcess pp on pp.pp_property=i.ID
where i.ID in (Select P_ID from vwPropertiesWithOneProcess)
and i.FirstProcessStart is not null
and pp.PP_PeriodBegin <> i.FirstProcessStart
Prozess Trigger:
SQL-Code:
CREATE TRIGGER trPropProcessSetFirstProcessStartInProperty ON [dbo].[PropProcess]
FOR INSERT, UPDATE
AS

update Property
set FirstProcessStart = i.PP_PeriodBegin
from Inserted i
left join Property p on i.pp_property=p.ID
where i.pp_property in (Select P_ID from vwPropertiesWithOneProcess)
and i.pp_periodbegin is not null
and i.PP_PeriodBegin <> p.FirstProcessStart
  Mit Zitat antworten Zitat