Altijd de tekstversie bijwerken als een key gegeven is (anders komen wijziingen niet door)

svn path=/Database/trunk/; revision=8961
This commit is contained in:
Peter Feij
2005-04-07 12:00:28 +00:00
parent 75724b26fe
commit 034bb1ad75

View File

@@ -14,8 +14,8 @@ BEGIN
UPDATE_PRIMARY_KEY(bez_afspraak_key,bez_s_bez_afspraak_key);
IF :new.bez_afspraak_contact_key IS NULL THEN :new.bez_afspraak_contact_key := :new.prs_perslid_key; END IF;
IF :new.bez_afspraak_host_key IS NULL AND :new.bez_afspraak_gastheer IS NULL THEN :new.bez_afspraak_host_key := :new.bez_afspraak_contact_key; END IF;
IF :new.bez_afspraak_gastheer IS NULL AND :new.bez_afspraak_host_key IS NOT NULL THEN SELECT SUBSTR(prs_perslid_naam_full,1,50) INTO :new.bez_afspraak_gastheer FROM prs_v_perslid_fullnames_all WHERE prs_perslid_key=:new.bez_afspraak_host_key; END IF;
IF :new.bez_afspraak_ruimte IS NULL AND :new.alg_onrgoed_keys IS NOT NULL THEN SELECT SUBSTR(alg_plaatsaanduiding,1,30) INTO :new.bez_afspraak_ruimte FROM alg_v_plaatsaanduiding_all WHERE alg_onroerendgoed_keys=:new.alg_onrgoed_keys AND alg_onroerendgoed_type<> 'L'; END IF;
IF :new.bez_afspraak_host_key IS NOT NULL THEN SELECT SUBSTR(prs_perslid_naam_full,1,50) INTO :new.bez_afspraak_gastheer FROM prs_v_perslid_fullnames_all WHERE prs_perslid_key=:new.bez_afspraak_host_key; END IF;
IF :new.alg_onrgoed_keys IS NOT NULL THEN SELECT SUBSTR(alg_plaatsaanduiding,1,30) INTO :new.bez_afspraak_ruimte FROM alg_v_plaatsaanduiding_all WHERE alg_onroerendgoed_keys=:new.alg_onrgoed_keys AND alg_onroerendgoed_type<> 'L'; END IF;
END;
/