ALLR#78077 -- Koppeling met AEOS om bezoekersinfo te versturen van Facilitor naar Alliander

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

AA/ALLR/allr.sql

@@ -29,6 +29,9 @@ AS
                               p_delimitor   VARCHAR2)
      RETURN VARCHAR2;
 
+   PROCEDURE upsert_aeos_bezoeker (p_bezoekers_key NUMBER,
+                                   p_status        VARCHAR2,
+                                   p_response      VARCHAR2);
 
 END;
 /
@@ -59,6 +62,44 @@ AS
            RETURN NULL;
    END;
 
+   -- Procedure om de status van de bezoekers vast te houden die naar AEOS gestuurd worden.
+   -- Hiermee zorgen we er voor dat de koppeling zich automatisch hersteld als er een tijd uitval is.
+   -- fac_usrdata_vervaldatum bevat de datum/tijd van de laatste actie
+   PROCEDURE upsert_aeos_bezoeker (p_bezoekers_key NUMBER,
+                                   p_status        VARCHAR2,
+                                   p_response      VARCHAR2)
+   AS
+      c_fac_usrtab_key         NUMBER := 81;   -- Sync tabel AEOS
+      v_fac_usrdata_key        NUMBER;
+   BEGIN
+      BEGIN
+         SELECT fac_usrdata_key
+           INTO v_fac_usrdata_key
+           FROM fac_usrdata
+          WHERE     fac_usrtab_key = c_fac_usrtab_key
+                AND fac_usrdata_code = p_bezoekers_key;
+
+         UPDATE fac_usrdata
+            SET fac_usrdata_omschr = p_status,
+                fac_usrdata_omschr2 = p_response,
+                fac_usrdata_vervaldatum = SYSDATE
+          WHERE fac_usrdata_key = v_fac_usrdata_key;
+
+         IF p_status = 'SENT'
+         THEN
+            FAC.trackaction ('CUST19', p_bezoekers_key, NULL, NULL, NULL);
+         END IF;
+
+
+      EXCEPTION WHEN NO_DATA_FOUND
+      THEN
+         INSERT INTO fac_usrdata (fac_usrdata_omschr, fac_usrdata_code, fac_usrdata_omschr2, fac_usrtab_key, fac_usrdata_vervaldatum)
+              VALUES (p_status, p_bezoekers_key, p_response, c_fac_usrtab_key, SYSDATE);
+      END;
+
+   END;
+
+
 END;
 /