YASK#79792 -- Altrecht - koppeling reserveringen

svn path=/Customer/trunk/; revision=64314

YASK/yask.sql

@@ -71,6 +71,9 @@ AS
 
    FUNCTION get_resroom (p_roomId IN VARCHAR2)
                          RETURN NUMBER;
+
+   PROCEDURE upsert_artikelkenmerk (p_artId IN VARCHAR2, p_artOpm VARCHAR2);
+
    -- Einde Altrecht
 END;
 /
@@ -1140,6 +1143,57 @@ AS
          RETURN NULL;
       END;
    END;
+
+   PROCEDURE upsert_artikelkenmerk (p_artId IN VARCHAR2, p_artOpm VARCHAR2)
+   AS
+      v_artikel_key        RES_ARTIKEL.RES_ARTIKEL_KEY%TYPE;
+      v_rsv_artikel_key    RES_RSV_ARTIKEL.RES_RSV_ARTIKEL_KEY%TYPE;
+      v_srtkenmerk_key     RES_SRTKENMERK.RES_SRTKENMERK_KEY%TYPE;
+      v_kenmerk_key        RES_KENMERK.RES_KENMERK_KEY%TYPE;
+      v_kenmerkartikel_key RES_KENMERKARTIKEL.RES_KENMERKARTIKEL_KEY%TYPE;
+   BEGIN
+
+      -- Zoek het artikel op adhv de externe id
+      SELECT res_artikel_key, res_rsv_artikel_key
+        INTO v_artikel_key, v_rsv_artikel_key
+        FROM res_rsv_artikel
+       WHERE res_rsv_artikel_externnr = p_artId;
+
+      SELECT res_srtkenmerk_key
+        INTO v_srtkenmerk_key
+        FROM res_srtkenmerk
+       WHERE res_srtkenmerk_code = 'ARTIKELOPM';
+      -- Zoek het kenmerk op dat bij dit artikel hoort.
+      BEGIN
+         SELECT res_kenmerk_key
+           INTO v_kenmerk_key
+           FROM res_kenmerk k
+          WHERE k.res_srtkenmerk_key = v_srtkenmerk_key
+            AND k.res_artikel_key = v_artikel_key;
+      EXCEPTION
+      WHEN NO_DATA_FOUND THEN
+         INSERT INTO res_kenmerk (res_srtkenmerk_key, res_artikel_key, res_kenmerk_niveau, res_kenmerk_volgnummer)
+              VALUES (v_srtkenmerk_key, v_artikel_key, 'C', 100)
+           RETURNING res_kenmerk_key INTO v_kenmerk_key;
+      END;
+
+      BEGIN
+         SELECT res_kenmerkartikel_key
+           INTO v_kenmerkartikel_key
+           FROM res_kenmerkartikel
+          WHERE res_rsv_artikel_key = v_rsv_artikel_key
+            AND res_kenmerk_key = v_kenmerk_key;
+
+         UPDATE res_kenmerkartikel
+            SET res_kenmerkartikel_waarde = p_artOpm
+          WHERE res_kenmerkartikel_key = v_kenmerkartikel_key;
+      EXCEPTION
+      WHEN NO_DATA_FOUND THEN
+         INSERT INTO res_kenmerkartikel(res_rsv_artikel_key, res_kenmerk_key, res_kenmerkartikel_waarde)
+              VALUES (v_rsv_artikel_key, v_kenmerk_key, p_artOpm);
+      END;
+   END;
+
    -- Einde Altrecht routines
 END;
 /
@@ -4210,23 +4264,6 @@ SELECT sd.ins_srtdiscipline_omschrijving,
        AND km.mld_srtkenmerk_key = sk.mld_srtkenmerk_key;
 
 
-CREATE OR REPLACE PROCEDURE yask_daily
-AS
-BEGIN
-
-   -- Voor de koppeling met Altrecht passen we alle ingelezen artikelen aan zodat ze een vrije omschrijving
-   -- ondersteunen. Dit veld is niet beschikbaar in de API, anders hadden we het daar aangepast.
-   UPDATE res_artikel
-      SET res_artikel_vrije_omschrijving = 1,
-          res_artikel_begintijd = 1,
-          res_artikel_eindtijd = 23
-    WHERE     res_artikel_externnr IS NOT NULL
-          AND res_artikel_vrije_omschrijving = 0
-          AND res_artikel_verwijder IS NULL;
-
-END;
-/
-
 ------ payload end   ------
 
 SET DEFINE OFF