Differences

This shows you the differences between two versions of the page.

@@ Line 1: / Line 1: @@
+<code>
+CREATE OR REPLACE PROCEDURE WRITE_TEILNEHMER_JN
+(p_tln_id         teilnehmer.tln_id%type,
+ p_tln_name       teilnehmer.tln_name%type,
+ p_tln_groesse    teilnehmer.tln_groesse%type,
+ p_tln_geburtstag teilnehmer.tln_geburtstag%type,
+ p_jntyp          teilnehmer_jn.tlnjn_typ%type)
+ as
+ vt_ausbildung t_ausbildung := t_ausbildung();
+ v_current timestamp := current_timestamp;
+ v_tlnjn_id number;
+BEGIN
+for r_aus in (select aus_name
+                from ausbildungen
+                join teilnehmer_x_ausbildung
+                  on aus_id = txa_aus_id
+               where  txa_tln_id = p_tln_id)
+              loop
+   vt_ausbildung.extend;
+   vt_ausbildung(vt_ausbildung.last) := r_aus.aus_name;
+end loop;
+insert into TEILNEHMER_JN (
+   tlnjn_id,
+   tlnjn_tln_id,
+   tlnjn_tln_name,
+   tlnjn_tln_groesse,
+   tlnjn_tln_geburtstag,
+   tlnjn_typ,
+   tlnjn_ausbildung,
+   tlnjn_valid_from
+) values (
+   seq.nextval,
+   p_tln_id,
+   p_tln_name,
+   p_tln_groesse,
+   p_tln_geburtstag,
+   p_jntyp,
+   vt_ausbildung,
+   v_current
+) returning tlnjn_id into v_tlnjn_id;
+update TEILNEHMER_JN set tlnjn_valid_to = v_current
+  where tlnjn_id =
+     (select max(tlnjn_id) from TEILNEHMER_JN
+       where tlnjn_tln_id = p_tln_id and
+             tlnjn_valid_to is null and
+             tlnjn_id != v_tlnjn_id
+             );
+END WRITE_TEILNEHMER_JN;
+</code>
+<code>
+CREATE OR REPLACE TRIGGER TRg_teilnehmer_jn
+AFTER INSERT OR DELETE OR UPDATE ON TEILNEHMER
+FOR EACH ROW
+declare
+v_typ teilnehmer_jn.tlnjn_typ%type;
+BEGIN
+  if inserting then
+    v_typ := 'I';
+  elsif updating then
+    v_typ := 'U';
+  else
+    v_typ := 'D';
+  end if;
+  WRITE_TEILNEHMER_JN
+   (p_tln_id         => coalesce(:new.tln_id,         :old.tln_id),
+    p_tln_name       => coalesce(:new.tln_name,       :old.tln_name),
+    p_tln_groesse    => coalesce(:new.tln_groesse,    :old.tln_groesse),
+    p_tln_geburtstag => coalesce(:new.tln_geburtstag, :old.tln_geburtstag),
+    p_jntyp          => v_typ
+   );
+END;
+</code>

dokuwiki

User Tools

Site Tools

Differences

Page Tools