Trigger

ZUSATZFELD_DEFAULT

Beschreibung

Setzt die ZUSATZFELDER Default Werte.

Definition

CREATE TRIGGER ZUSATZFELD_DEFAULT FOR ZUSATZFELD
ACTIVE BEFORE INSERT POSITION 0
AS
  DECLARE VARIABLE DefaultBlob BLOB;
  DECLARE VARIABLE DefaultText VARCHAR(80);
  DECLARE VARIABLE DefaultZahl INTEGER;
BEGIN
  SELECT ZFDEFAULTBLOB, ZFDEFAULTTEXT, ZFDEFAULTZAHL FROM ZUSATZFELDER
  WHERE (ZFID = NEW.ZUZFID)
  INTO :DefaultBlob, :DefaultText, DefaultZahl;
  IF (NEW.ZUBLOB IS NULL) THEN
    NEW.ZUBLOB = DefaultBlob;
  IF (NEW.ZUTEXT IS NULL) THEN
    NEW.ZUTEXT = DefaultText;
  IF (NEW.ZUZAHL IS NULL) THEN
    NEW.ZUZAHL = DefaultZahl;
END