Migratie once-scripts van /branch naar /onces

svn path=/Customer/; revision=21207

onces/AA/AADS/AADS#27186.sql

@@ -0,0 +1,165 @@
+select * from fin_factuur.
+
+
+/* Formatted on 8/9/2013 9:49:18 AM (QP5 v5.136.908.31019) */
+CREATE OR REPLACE VIEW aads_v_rap_invoice_scan
+(
+   fclt_d_factuurdatum,
+   totaal,
+   geimporteerd,
+   excel,
+   scanning
+)
+AS
+     SELECT TO_CHAR (fin_factuur_datum, 'dd-mm-yyyy'),
+            SUM (aantal),
+            SUM (impscan),
+            SUM (upload),
+            SUM (invoice)
+       FROM (SELECT f.fin_factuur_key,
+                    fin_factuur_datum,
+                    DECODE (
+                       COALESCE (INSTR (k.fin_kenmerkfactuur_waarde, 'upload'),
+                                 0),
+                       0,
+                       0,
+                       1)
+                       upload,
+                    DECODE (
+                       COALESCE (
+                          INSTR (k.fin_kenmerkfactuur_waarde, 'invoice_'),
+                          0),
+                       0,
+                       0,
+                       1)
+                       invoice,
+                    DECODE (SUBSTR (fac_tracking_oms, 1, 7), 'Factuur', 1, 0)
+                       impscan,
+                    1 aantal
+               FROM fin_factuur f,
+                    (SELECT *
+                       FROM fin_kenmerkfactuur
+                      WHERE fin_kenmerk_key = 21) k,
+                    (SELECT *
+                       FROM fac_tracking
+                      WHERE fac_srtnotificatie_key = 141) t
+              WHERE f.fin_factuur_verwijder IS NULL
+                AND f.fin_factuur_key = t.fac_tracking_refkey(+)
+                AND f.fin_factuur_key = k.fin_factuur_key(+))
+   GROUP BY TO_CHAR (fin_factuur_datum, 'dd-mm-yyyy')
+
+
+select f.fin_factuur_key, t.fac_tracking_datum, decode(substr(fac_tracking_oms, 1, 7), 'Factuur', 1, 0) impscan, 1 aantal 
+, t.*
+from fin_factuur f, 
+     (select * from fac_tracking where fac_srtnotificatie_key = 141) t
+where f.fin_factuur_key = t.fac_tracking_refkey (+)
+
+
+select * from _imp_factuur
+
+select * from fac_import where fac_import_app_key = 221
+
+select * from fac_import_app
+
+select * from imp_log l, fac_import i where 
+l.fac_import_key = i.fac_import_key 
+and i.fac_import_app_key = 221
+
+select * from fin_kenmerk
+
+select * from fin_kenmerkfactuur where fin_kenmerk_key = 21
+
+select instr('myxskdfjdsjf', 'my') from dual
+
+
+SELECT f.fin_factuur_key,
+                 fin_factuur_datum,
+                 DECODE (
+                    COALESCE (INSTR (k.fin_kenmerkfactuur_waarde, 'upload'), 0),
+                    0,
+                    0,
+                    1)
+                    upload,
+                 DECODE (
+                    COALESCE (INSTR (k.fin_kenmerkfactuur_waarde, 'invoice_'),
+                              0),
+                    0,
+                    0,
+                    1)
+                    invoice,
+                 DECODE (SUBSTR (fac_tracking_oms, 1, 7), 'Factuur', 1, 0)
+                    impscan,
+                 1 aantal, fin_kenmerkfactuur_waarde
+            FROM fin_factuur f,
+                 (SELECT *
+                    FROM fin_kenmerkfactuur
+                   WHERE fin_kenmerk_key = 21) k,
+                 (SELECT *
+                    FROM fac_tracking
+                   WHERE fac_srtnotificatie_key = 141) t
+           WHERE f.fin_factuur_key = t.fac_tracking_refkey(+)
+             AND f.fin_factuur_key = k.fin_factuur_key(+)
+             and to_char(fin_factuur_datum, 'yyyymmdd') = '20130710'
+             
+             
+             SELECT TO_CHAR (fac_tracking_datum, 'dd-mm-yyyy'),
+         SUM (aantal),
+         SUM (impscan),
+         SUM (upload),
+         SUM (invoice)
+    FROM (SELECT f.fin_factuur_key,
+                 t.fac_tracking_datum,
+                 DECODE (
+                    COALESCE (INSTR (k.fin_kenmerkfactuur_waarde, 'upload'), 0),
+                    0,
+                    0,
+                    1)
+                    upload,
+                 DECODE (
+                    COALESCE (INSTR (k.fin_kenmerkfactuur_waarde, 'invoice_'),
+                              0),
+                    0,
+                    0,
+                    1)
+                    invoice,
+                 DECODE (SUBSTR (fac_tracking_oms, 1, 7), 'Factuur', 1, 0)
+                    impscan,
+                 1 aantal
+            FROM fin_factuur f,
+                 (SELECT *
+                    FROM fin_kenmerkfactuur
+                   WHERE fin_kenmerk_key = 21) k,
+                 (SELECT *
+                    FROM fac_tracking
+                   WHERE fac_srtnotificatie_key = 141) t
+           WHERE f.fin_factuur_key = t.fac_tracking_refkey(+)
+             AND f.fin_factuur_key = k.fin_factuur_key(+))
+GROUP BY TO_CHAR (fac_tracking_datum, 'dd-mm-yyyy')
+
+
+
+select f.prs_perslid_key_user, count(f.prs_perslid_key_user) from fin_factuur f, prs_v_perslid_fullnames pf
+where pf.prs_perslid_key(+) = f.prs_perslid_key_user
+group by f.prs_perslid_key_user
+
+
+select count(*) from fin_factuur where prs_perslid_key_user is null
+
+select * from fin_factuur where prs_perslid_key_user is null
+
+select * from fac_imp_factuur
+
+update fac_tracking t set prs_perslid_key = 
+where exists  (
+select fac_tracking_key from fac_imp_factuur i, fac_srtnotificatie sn
+where i.fin_factuur_key = t.fac_tracking_refkey
+and t.fac_srtnotificatie_key = sn.fac_srtnotificatie_key
+and sn.fac_srtnotificatie_code = 'FINNEW')
+
+insert into prs_perslid (prs_perslid_key, prs_perslid_module, prs_srtperslid_key, prs_afdeling_key, prs_perslid_naam, prs_perslid_oslogin, prs_perslid_dienstverband)
+
+select 9, prs_perslid_module, prs_srtperslid_key, prs_afdeling_key, 'XTractor',  '_XTRACTOR', prs_perslid_dienstverband FROM prs_perslid where prs_perslid_oslogin = '_FACILITOR'
+
+ select * from prs_perslid where prs_perslid_oslogin = '_FACILITOR'
+

onces/AA/AADS/kenmerk_bij_ins.sql

@@ -0,0 +1,80 @@
+
+Toevoegen aan fac_usrdata
+/* Formatted on 3/4/2013 10:44:51 AM (QP5 v5.136.908.31019) */
+DECLARE
+   CURSOR c
+   IS
+      SELECT DISTINCT ins_kenmerkwaarde2
+        FROM fac_imp_ins
+       WHERE ins_kenmerkwaarde2 IS NOT NULL;
+
+   v_count   NUMBER;
+BEGIN
+   FOR rec IN c
+   LOOP
+      BEGIN
+         DBMS_OUTPUT.put_line (rec.ins_kenmerkwaarde2);
+
+         SELECT COUNT ( * )
+           INTO v_count
+           FROM fac_usrdata
+          WHERE fac_usrtab_key = 441
+            AND fac_usrdata_upper =
+                   UPPER (SUBSTR (rec.ins_kenmerkwaarde2, 1, 40));
+
+         IF v_count = 0
+         THEN
+            INSERT INTO fac_usrdata (fac_usrtab_key,
+                                     fac_usrdata_code,
+                                     fac_usrdata_omschr)
+                VALUES (441,
+                        SUBSTR (rec.ins_kenmerkwaarde2, 1, 40),
+                        SUBSTR (rec.ins_kenmerkwaarde2, 1, 60));
+         END IF;
+      END;
+   END LOOP;
+   COMMIT;
+END;
+
+-- toevoegen kenmerk
+DECLARE
+   CURSOR c
+   IS
+      SELECT ins_deel_omschrijving, ins_kenmerkwaarde1
+        FROM fac_imp_ins
+       WHERE ins_kenmerkwaarde1 IS NOT NULL;
+
+   v_deel_key      NUMBER;
+   v_usrdata_key   NUMBER;
+BEGIN
+   FOR rec IN c
+   LOOP
+      BEGIN
+         --DBMS_OUTPUT.put_line (rec.ins_kenmerkwaarde2);
+         BEGIN
+         SELECT fac_usrdata_key
+           INTO v_usrdata_key
+           FROM fac_usrdata
+          WHERE fac_usrtab_key = 421
+            AND fac_usrdata_verwijder IS NULL
+            AND upper(fac_usrdata_omschr) =
+                   UPPER (SUBSTR (rec.ins_kenmerkwaarde1, 1, 60));
+         EXCEPTION WHEN NO_DATA_FOUND THEN
+         DBMS_OUTPUT.put_line ('Kenmerkwaarde niet gevonden: ' || rec.ins_kenmerkwaarde1);
+         END;
+         SELECT ins_deel_key
+           INTO v_deel_key
+           FROM ins_deel
+          WHERE ins_deel_omschrijving = rec.ins_deel_omschrijving
+            AND ins_deel_verwijder IS NULL;
+
+
+         INSERT INTO ins_kenmerkdeel (ins_deel_key,
+                                      ins_kenmerk_key,
+                                      ins_kenmerkdeel_waarde)
+             VALUES (v_deel_key, 41, v_usrdata_key);
+      END;
+   END LOOP;
+
+   COMMIT;
+END;

onces/AA/AAEN/3d-infobord.sql

@@ -0,0 +1,30 @@
+
+
+/* Formatted on 9/3/2013 4:51:05 PM (QP5 v5.136.908.31019) */
+CREATE OR REPLACE VIEW aaen_v_label_bezetbareruimtes
+(
+   alg_ruimte_key,
+   waarde
+)
+AS
+     SELECT rar.alg_ruimte_key, MIN (alg_ruimte_nr) waarde
+       FROM res_ruimte_opstelling rro, res_ruimte rr, res_alg_ruimte rar, alg_ruimte r
+      WHERE rro.res_ruimte_key = rr.res_ruimte_key
+        AND rar.res_ruimte_key = rr.res_ruimte_key
+        AND rar.res_alg_ruimte_verwijder IS NULL
+        AND rar.alg_ruimte_key = r.alg_ruimte_key
+   GROUP BY rar.alg_ruimte_key
+   UNION
+   SELECT alg_ruimte_key, alg_ruimte_nr
+     FROM alg_ruimte r, ins_deel
+    WHERE ins_alg_ruimte_key = alg_ruimte_key
+      AND ins_alg_ruimte_type = 'R'
+      AND ins_deel_state IS NOT NULL
+      AND NOT EXISTS (SELECT ''
+                        FROM res_alg_ruimte
+                       WHERE alg_ruimte_key = r.alg_ruimte_key);
+
+
+select * from ins_deel where ins_deel_state is not null
+
+update ins_deel set ins_deel_state = 'UIT', ins_deel_statedate = sysdate where ins_deel_key = 541

onces/AA/AAEN/AAEN#25893.sql

@@ -0,0 +1,41 @@
+CREATE TABLE aaen_imp_ruimteafd
+(
+   alg_locatie_code        VARCHAR2 (100),
+   alg_gebouw_code         VARCHAR2 (100),
+   alg_verdieping_volgnr   VARCHAR2 (100),
+   alg_ruimte_nr           VARCHAR2 (100),
+   prs_afdeling_naam       VARCHAR2 (100),
+   werkplekken             NUMBER (10)
+);
+
+
+INSERT INTO prs_ruimteafdeling (alg_ruimte_key, prs_afdeling_key, prs_ruimteafdeling_bezetting)
+   SELECT DISTINCT alg_ruimte_key, prs_afdeling_key, 100
+     FROM (SELECT alg_ruimte_key,
+                  i.prs_afdeling_naam,
+                  (SELECT prs_afdeling_key
+                     FROM prs_afdeling a
+                    WHERE a.prs_afdeling_verwijder IS NULL
+                      AND a.prs_afdeling_naam = i.prs_afdeling_naam)
+                     prs_afdeling_key
+             FROM aaen_imp_ruimteafd i, alg_v_ruimte_gegevens rg
+            WHERE i.alg_locatie_code = rg.alg_locatie_code
+              AND i.alg_gebouw_code = rg.alg_gebouw_upper
+              AND i.alg_verdieping_volgnr = rg.alg_verdieping_volgnr
+              AND i.alg_ruimte_nr = rg.alg_ruimte_nr)
+    WHERE prs_afdeling_key IS NOT NULL;
+    
+INSERT INTO alg_onrgoedkenmerk (alg_onrgoed_key,
+                                alg_onrgoed_niveau,
+                                alg_kenmerk_key,
+                                alg_onrgoedkenmerk_waarde)
+   SELECT alg_ruimte_key,
+          'R',
+          1000,
+          i.werkplekken
+     FROM aaen_imp_ruimteafd i, alg_v_ruimte_gegevens rg
+    WHERE i.alg_locatie_code = rg.alg_locatie_code
+      AND i.alg_gebouw_code = rg.alg_gebouw_upper
+      AND i.alg_verdieping_volgnr = rg.alg_verdieping_volgnr
+      AND i.alg_ruimte_nr = rg.alg_ruimte_nr
+      AND i.werkplekken IS NOT NULL;

onces/AA/AAEN/AAEN#26410.sql

@@ -0,0 +1,51 @@
+/* Formatted on 4/25/2013 4:00:55 PM (QP5 v5.136.908.31019) */
+CREATE OR REPLACE VIEW aaxx_v_rap_tracking
+(
+   fclt_d_datum,
+   fclt_f_referentie,
+   fclt_f_node,
+   fclt_f_actie,
+   omschrijving,
+   fclt_f_persoon
+)
+AS
+   SELECT TO_CHAR (t.fac_tracking_datum, 'dd-mm-yyyy') datum,
+          DECODE (
+             fac_srtnotificatie_xmlnode,
+             'opdracht',
+             (SELECT mld_melding_key || '/' || mld_opdr_bedrijfopdr_volgnr
+                FROM mld_opdr o
+               WHERE o.mld_opdr_key = t.fac_tracking_refkey),
+             'contract',
+             (SELECT 'c' || cnt_contract_nummer || '.' || cnt_contract_versie
+                FROM cnt_contract c
+               WHERE c.cnt_contract_key = t.fac_tracking_refkey),
+             'reservering',
+             (SELECT res_rsv_ruimte_key || '/' || res_rsv_ruimte_volgnr
+                FROM res_rsv_ruimte r
+               WHERE r.res_rsv_ruimte_key = t.fac_tracking_refkey),
+             'perslid',
+             (SELECT prs_perslid_naam_full
+                FROM prs_v_perslid_fullnames_all pf2
+               WHERE pf2.prs_perslid_key = t.fac_tracking_refkey),
+             'bestelopdr',
+             (SELECT bes_bestelopdr_id
+                FROM bes_bestelopdr bo
+               WHERE bo.bes_bestelopdr_key = t.fac_tracking_refkey),
+             fac_tracking_refkey)
+             referentie,
+          sn.fac_srtnotificatie_xmlnode,
+          lcl.actie,
+          COALESCE (fac_tracking_oms, lcl.actie) omschrijving,
+          prs_perslid_naam_full persoon
+     FROM fac_tracking t,
+          fac_srtnotificatie sn,
+          prs_v_perslid_fullnames_all pf,
+          (SELECT COALESCE (fac_locale_xsl_tekst, fac_locale_xsl_cust) actie,
+                  UPPER (SUBSTR (fac_locale_xsl_label, 12, 18))
+                     fac_srtnotificatie_code
+             FROM fac_locale_xsl
+            WHERE fac_locale_xsl_lang = 'NL') lcl
+    WHERE sn.fac_srtnotificatie_key = t.fac_srtnotificatie_key
+      AND t.prs_perslid_key = pf.prs_perslid_key(+)
+      AND sn.fac_srtnotificatie_code = lcl.fac_srtnotificatie_code

onces/AA/AAEN/AAEN#28718_2.sql

@@ -0,0 +1,10 @@
+select 
+(select decode (prs_perslid_key, null, '', 'AAFM') from prs_v_aanwezigperslid p
+where p.prs_perslid_naam = i.prs_perslid_naam
+and p.prs_perslid_voornaam = i.prs_perslid_voornaam
+and p.prs_afdeling_key = 643) aafm,
+i.prs_perslid_naam, i.prs_perslid_voornaam from fac_imp_perslid i where prs_afdeling_naam = '50141837'
+
+select * from prs_afdeling where prs_afdeling_omschrijving = 'AAFM'
+
+select * from prs_perslid where prs_afdeling_key = 643

onces/AA/AAEN/aaen#27243.sql

@@ -0,0 +1,219 @@
+-- In TOAD gebruikt om reserveringen om te hangen van de ene locatie naar de andere, zie AAEN#27243.
+
+SELECT r.res_ruimte_key, COUNT(*)
+  FROM res_ruimte r, res_ruimte_opstelling ro
+ WHERE r.res_ruimte_key = ro.res_ruimte_key
+GROUP BY r.res_ruimte_key
+HAVING COUNT(*) > 1;
+
+SELECT ro.res_ruimte_opstel_key,
+       ro.res_ruimte_key,
+       rga.alg_ruimte_key
+  FROM res_ruimte_opstelling ro,
+       res_alg_ruimte ar,
+       alg_v_ruimte_gegevens_all rga
+ WHERE ro.res_ruimte_key IN (1,21,23,25,27,28,29,30)
+   AND ar.res_ruimte_key = ro.res_ruimte_key
+   AND rga.alg_ruimte_key = ar.alg_ruimte_key
+ORDER BY 1;
+
+SELECT ro.res_ruimte_key,
+       rr.res_ruimte_nr,
+       ro.res_ruimte_opstel_key,
+       rga.alg_ruimte_key
+  FROM res_ruimte_opstelling ro,
+       res_alg_ruimte ar,
+       res_ruimte rr,
+       alg_v_ruimte_gegevens_all rga
+ WHERE ro.res_ruimte_key IN (543,544,542,556,555,554,552,553)
+   AND rr.res_ruimte_key = ro.res_ruimte_key
+   AND ar.res_ruimte_key = ro.res_ruimte_key
+   AND rga.alg_ruimte_key = ar.alg_ruimte_key
+ORDER BY 1
+;
+
+SELECT res_ruimte_opstel_key oud,
+       DECODE(res_ruimte_opstel_key,
+               1, 523,
+              21, 524,
+              23, 521,
+              25, 536,
+              27, 535,
+              28, 534,
+              29, 532,
+              30, 533,
+              -1) nieuw,
+       rr.*
+  FROM res_rsv_ruimte rr
+ WHERE res_ruimte_opstel_key IN (1,21,23,25,27,28,29,30)
+   AND res_rsv_ruimte_verwijder IS NULL
+   AND TRUNC(res_rsv_ruimte_van) >= TO_DATE('23-09-2013', 'DD-MM-YYYY');
+
+SELECT * FROM res_rsv_ruimte
+ WHERE res_ruimte_opstel_key IN (523,524,521,536,535,534,532,533)
+   AND res_rsv_ruimte_verwijder IS NULL
+   AND TRUNC(res_rsv_ruimte_van) >= TO_DATE('23-09-2013', 'DD-MM-YYYY')
+   AND res_rsv_ruimte_opmerking LIKE '[Overgezet%'
+;
+
+--------------------------------------------------------------------------------
+
+-- Overzicht catering die verwijderd gaat worden
+SELECT rr.res_reservering_key||'/'||rr.res_rsv_ruimte_volgnr reservering,
+       art.res_artikel_omschrijving,
+       ra.res_rsv_artikel_aantal,
+       ra.res_artikel_key,
+       res_rsv_artikel_levering
+  FROM res_rsv_artikel ra,
+       res_rsv_ruimte rr,
+       res_artikel art
+ WHERE rr.res_rsv_ruimte_key = ra.res_rsv_ruimte_key
+   AND art.res_artikel_key = ra.res_artikel_key
+   AND rr.res_ruimte_opstel_key IN (1,21,23,25,27,28,29,30)
+   AND rr.res_rsv_ruimte_verwijder IS NULL
+   AND ra.res_rsv_artikel_verwijder IS NULL
+   AND TRUNC(rr.res_rsv_ruimte_van) >= TO_DATE('23-09-2013', 'DD-MM-YYYY')
+ORDER BY rr.res_reservering_key,
+         rr.res_rsv_ruimte_volgnr,
+         ra.res_artikel_key;
+
+-- Overzicht voorzieningen die verwijderd gaan worden
+SELECT rr.res_reservering_key||'/'||rr.res_rsv_ruimte_volgnr reservering,
+       id.ins_deel_omschrijving,
+       rd.res_rsv_deel_aantal,
+       rd.res_deel_key,
+       rd.res_rsv_deel_van,
+       rd.res_rsv_deel_tot
+  FROM res_rsv_deel rd,
+       res_rsv_ruimte rr,
+       res_deel d,
+       ins_deel id
+ WHERE rr.res_rsv_ruimte_key = rd.res_rsv_ruimte_key
+   AND rr.res_ruimte_opstel_key IN (1,21,23,25,27,28,29,30)
+--   AND rr.res_ruimte_opstel_key IN (523, 524, 521, 536, 534, 532, 533)
+--   AND rr.res_rsv_ruimte_opmerking LIKE '[Overgezet%'
+   AND rr.res_rsv_ruimte_verwijder IS NULL
+   AND rd.res_rsv_deel_verwijder IS NULL
+   AND d.res_deel_key = rd.res_deel_key
+   AND id.ins_deel_key = d.res_ins_deel_key
+   AND TRUNC(rr.res_rsv_ruimte_van) >= TO_DATE('23-09-2013', 'DD-MM-YYYY')
+ORDER BY id.ins_deel_omschrijving,
+         rr.res_reservering_key,
+         rr.res_rsv_ruimte_volgnr;
+
+-- Bezoekers
+SELECT ba.res_rsv_ruimte_key, ba.alg_onrgoed_keys,
+--       ro.res_ruimte_key,
+       bb.*,
+       ar.alg_ruimte_key,
+       rga1.alg_ruimte_aanduiding,
+       rga2.alg_ruimte_aanduiding,
+       ba.bez_afspraak_opmerking
+  FROM bez_afspraak ba,
+       bez_bezoekers bb,
+       res_rsv_ruimte rr,
+       res_ruimte_opstelling ro,
+       res_alg_ruimte ar,
+       alg_v_ruimte_gegevens_all rga1,
+       alg_v_ruimte_gegevens_all rga2
+ WHERE ba.res_rsv_ruimte_key IN (SELECT res_rsv_ruimte_key FROM res_rsv_ruimte rr
+                                  WHERE rr.res_rsv_ruimte_opmerking LIKE '[Overgezet%'
+--                                     OR rr.res_ruimte_opstel_key IN (1,21,23,25,27,28,29,30)
+                                )
+   AND TRUNC(ba.bez_afspraak_datum) >= TO_DATE('23-09-2013', 'DD-MM-YYYY')
+   AND bb.bez_afspraak_key = ba.bez_afspraak_key
+   AND rr.res_rsv_ruimte_key = ba.res_rsv_ruimte_key
+   AND ro.res_ruimte_opstel_key = rr.res_ruimte_opstel_key
+   AND ar.res_ruimte_key = ro.res_ruimte_key
+   AND rga1.alg_ruimte_key = ba.alg_onrgoed_keys
+   AND rga2.alg_ruimte_key = ar.alg_ruimte_key;
+
+
+-- Catering verwijderen
+DELETE res_rsv_artikel
+ WHERE res_rsv_artikel_key IN (
+         SELECT ra.res_rsv_artikel_key
+           FROM res_rsv_artikel ra,
+                res_rsv_ruimte rr,
+                res_artikel art
+          WHERE rr.res_rsv_ruimte_key = ra.res_rsv_ruimte_key
+            AND art.res_artikel_key = ra.res_artikel_key
+            AND rr.res_ruimte_opstel_key IN (1,21,23,25,27,28,29,30)
+            AND rr.res_rsv_ruimte_verwijder IS NULL
+            AND TRUNC(rr.res_rsv_ruimte_van) >= TO_DATE('23-09-2013', 'DD-MM-YYYY')
+);
+
+-- Voorzieningen verwijderen
+DELETE res_rsv_deel
+ WHERE res_rsv_deel_key IN (
+         SELECT res_rsv_deel_key
+           FROM res_rsv_deel rd,
+                res_rsv_ruimte rr
+          WHERE rr.res_rsv_ruimte_key = rd.res_rsv_ruimte_key
+            AND rr.res_ruimte_opstel_key IN (1,21,23,25,27,28,29,30)
+            AND rr.res_rsv_ruimte_verwijder IS NULL
+            AND rd.res_rsv_deel_verwijder IS NULL
+            AND TRUNC(rr.res_rsv_ruimte_van) >= TO_DATE('23-09-2013', 'DD-MM-YYYY')
+);
+
+-- Ruimtes omhangen
+UPDATE res_rsv_ruimte rrr
+   SET res_ruimte_opstel_key = DECODE(res_ruimte_opstel_key,
+                                       1, 523,
+                                      21, 524,
+                                      23, 521,
+                                      25, 536,
+                                      27, 535,
+                                      28, 534,
+                                      29, 532,
+                                      30, 533),
+       res_rsv_ruimte_opmerking = '[Overgezet uit Rosmalen '||
+                                (SELECT r.alg_ruimte_nr
+                                   FROM res_alg_ruimte ar,
+                                        res_ruimte_opstelling ro,
+                                        res_rsv_ruimte rr,
+                                        alg_ruimte r
+                                  WHERE rr.res_rsv_ruimte_key = rrr.res_rsv_ruimte_key
+                                    AND ro.res_ruimte_opstel_key = rr.res_ruimte_opstel_key
+                                    AND ar.res_ruimte_key = ro.res_ruimte_key
+                                    AND r.alg_ruimte_key = ar.alg_ruimte_key)
+                                ||']'||CHR(10)||res_rsv_ruimte_opmerking
+ WHERE res_ruimte_opstel_key IN (1,21,23,25,27,28,29,30)
+   AND res_rsv_ruimte_verwijder IS NULL
+   AND TRUNC(res_rsv_ruimte_van) >= TO_DATE('23-09-2013', 'DD-MM-YYYY');
+
+-- Bezoekers omhangen
+UPDATE bez_afspraak ba
+   SET bez_afspraak_ruimte = (SELECT rga.alg_ruimte_aanduiding
+                                FROM alg_v_ruimte_gegevens_all rga,
+                                     res_alg_ruimte ar,
+                                     res_ruimte_opstelling ro,
+                                     res_rsv_ruimte rr
+                               WHERE rr.res_rsv_ruimte_key = ba.res_rsv_ruimte_key
+                                 AND ro.res_ruimte_opstel_key = rr.res_ruimte_opstel_key
+                                 AND ar.res_ruimte_key = ro.res_ruimte_key
+                                 AND rga.alg_ruimte_key = ar.alg_ruimte_key),
+       alg_locatie_key = (SELECT rga.alg_locatie_key
+                                FROM alg_v_ruimte_gegevens_all rga,
+                                     res_alg_ruimte ar,
+                                     res_ruimte_opstelling ro,
+                                     res_rsv_ruimte rr
+                               WHERE rr.res_rsv_ruimte_key = ba.res_rsv_ruimte_key
+                                 AND ro.res_ruimte_opstel_key = rr.res_ruimte_opstel_key
+                                 AND ar.res_ruimte_key = ro.res_ruimte_key
+                                 AND rga.alg_ruimte_key = ar.alg_ruimte_key),
+       alg_onrgoed_keys =  (SELECT ar.alg_ruimte_key
+                                FROM res_alg_ruimte ar,
+                                     res_ruimte_opstelling ro,
+                                     res_rsv_ruimte rr
+                               WHERE rr.res_rsv_ruimte_key = ba.res_rsv_ruimte_key
+                                 AND ro.res_ruimte_opstel_key = rr.res_ruimte_opstel_key
+                                 AND ar.res_ruimte_key = ro.res_ruimte_key),
+       bez_afspraak_opmerking = '[Overgezet uit Rosmalen]'||CHR(10)||bez_afspraak_opmerking
+ WHERE bez_afspraak_key IN (
+         SELECT bez_afspraak_key
+           FROM bez_afspraak ba
+          WHERE ba.res_rsv_ruimte_key IN (SELECT res_rsv_ruimte_key FROM res_rsv_ruimte rr
+                                           WHERE rr.res_rsv_ruimte_opmerking LIKE '[Overgezet%')
+            AND TRUNC(ba.bez_afspraak_datum) >= TO_DATE('23-09-2013', 'DD-MM-YYYY')
+);

onces/AA/AAEN/orgprs_imp.sql

@@ -0,0 +1,32 @@
+select * from aaen_imp_organisatie
+
+/* Formatted on 6/18/2013 3:36:11 PM (QP5 v5.136.908.31019) */
+SELECT i.prs_bedrijf_naam, (SELECT prs_bedrijf_key
+          --INTO v_prs_bedrijf_key
+          FROM prs_bedrijf b
+         WHERE UPPER (b.prs_bedrijf_naam) = UPPER(i.prs_bedrijf_naam)
+           AND prs_bedrijf_verwijder IS NULL) key_new
+  FROM aaen_imp_organisatie i
+               
+               
+               select * from prs_bedrijf b WHERE UPPER (b.prs_bedrijf_naam) = UPPER('Fudura B.V.')
+               
+               select * from prs_bedrijf where prs_bedrijf_intern = 1
+               
+               select * from aaen_v_afdeling_boom  --where prs_afdeling_parentkey is null 
+               
+               select (select count(distinct prs_afdeling_key1) from aaen_v_afdeling_boom) a1,
+               (select count(distinct prs_afdeling_key2) from aaen_v_afdeling_boom) a2,
+               (select count(distinct prs_afdeling_key3) from aaen_v_afdeling_boom) a3,
+               (select count(distinct prs_afdeling_key4) from aaen_v_afdeling_boom) a4,
+               (select count(distinct prs_afdeling_key5) from aaen_v_afdeling_boom) a5,
+               (select count(distinct prs_afdeling_key6) from aaen_v_afdeling_boom) a6,
+               (select count(distinct prs_afdeling_key7) from aaen_v_afdeling_boom) a7,
+               (select count(distinct prs_afdeling_key8) from aaen_v_afdeling_boom) a8
+               from dual
+               
+               select * from aaen_imp_organisatie where prs_bedrijf_naam like 'Enexis%BV'
+               
+               select * from aaen_imp_organisatie where prs_bedrijf_naam like 'Enexis  BV'
+               
+               select ascii(substr(prs_bedrijf_naam, 7,1)) from aaen_imp_organisatie where prs_afdeling_naam = 50117416

onces/AA/AAEN/testscripts_idware.sql

@@ -0,0 +1,11 @@
+select * from fac_v_orderqueue
+
+update mld_opdr set mld_opdr_teverzenden = null where mld_opdr_key in ( select key from fac_v_orderqueue where key <> 31374)
+
+select * from fac_notificatie
+
+delete fac_notificatie
+
+select * from mld_opdr where mld_opdr_key = 31375
+
+update mld_opdr set mld_opdr_verzonden = null, mld_opdr_teverzenden = 1 where mld_opdr_key = 31375

onces/AA/AAES/AAES#25307.sql

@@ -0,0 +1,14 @@
+select * from fac_import_app
+
+select * from fac_api
+
+insert into fac_api (fac_api_name, fac_api_omschrijving, fac_api_filepath, fac_api_loglevel, fac_api_stylesheet)
+values ('MAAS_OPDR_STATUS', 'Opdracht status wijzigingen', 'appl/api/api_opdrsoap.asp', 1, 'cust/AAES/xsl/maas.xsl')
+
+select * from prs_perslid where prs_perslid_key = 4
+
+update prs_perslid set prs_perslid_apikey = '1234567890ABCD' where prs_perslid_key = 4;
+
+update fac_api set fac_api_stylesheet = 'cust/AAES/xsl/maas.xsl' where fac_api_key = 41
+
+select * from fac_srtnotificatie

onces/AA/AAES/AAES_package_test.sql

@@ -0,0 +1,697 @@
+CREATE OR REPLACE PACKAGE BODY AAES_TEST.aaes
+AS
+
+   PROCEDURE soap_action (action_name   IN VARCHAR2,
+                          soap_seq      IN NUMBER,
+                          soap_type     IN VARCHAR2)
+    AS
+       -- Variabelen waarin attributen worden verzameld
+       v_id                VARCHAR2 (80);
+       v_prs_perslid_key   NUMBER (10);
+       v_prs_afdeling_key  NUMBER (10);
+
+       v_hint              VARCHAR2 (200);
+       oracle_err_num      NUMBER;
+       oracle_err_mes      VARCHAR2 (200);
+       v_count             NUMBER;
+       v_count_pa          NUMBER;
+
+       PROCEDURE dolog (status IN VARCHAR2, logregel IN VARCHAR2, hint IN VARCHAR2)
+       AS
+       BEGIN
+          INSERT INTO imp_log (imp_log_applicatie,
+                               imp_log_status,
+                               imp_log_omschrijving,
+                               imp_log_hint)
+              VALUES ('SOAP',
+                      status,
+                      logregel,
+                      hint);
+       END;
+
+       FUNCTION upsertsrtperslid (p_srtperslidomschrijving IN VARCHAR2)
+          RETURN NUMBER
+       AS
+          l_prs_srtperslid_key   NUMBER (10);
+       BEGIN
+          IF p_srtperslidomschrijving IS NULL
+          THEN
+             RETURN 1;  -- key voor functie onbekend.
+          END IF;
+          SELECT prs_srtperslid_key
+            INTO l_prs_srtperslid_key
+            FROM prs_srtperslid
+           WHERE prs_srtperslid_verwijder IS NULL
+             AND UPPER (prs_srtperslid_omschrijving) =
+                    UPPER (p_srtperslidomschrijving);
+
+          RETURN l_prs_srtperslid_key;
+       EXCEPTION
+          WHEN NO_DATA_FOUND
+          THEN
+             INSERT INTO prs_srtperslid (prs_srtperslid_omschrijving)
+                 VALUES (p_srtperslidomschrijving)
+              RETURNING prs_srtperslid_key
+                   INTO l_prs_srtperslid_key;
+
+             RETURN l_prs_srtperslid_key;
+       END;
+
+       FUNCTION findafdeling (p_id IN VARCHAR2)
+          RETURN NUMBER
+       AS
+          l_prs_afdeling_key   NUMBER (10);
+       BEGIN
+          -- Als er geen afdeling is meegegeven gaan we de persoon maar zolang onder de afdeling Onbekend (key = 1) hangen.
+          -- Dit is een tijdelijke situatie. Direct na het aanmaken van de persoon wordt de afdeling dan aangemaakt
+          -- en de persoon aangepast waarbij de afdeling wel gevuld is.
+          IF p_id IS NULL THEN
+             RETURN 1;   -- key voor afdeling onbekend;
+          END IF;
+
+          SELECT prs_afdeling_key
+            INTO l_prs_afdeling_key
+            FROM prs_afdeling
+           WHERE prs_afdeling_verwijder IS NULL
+             AND prs_afdeling_naam = p_id;
+
+          RETURN l_prs_afdeling_key;
+       EXCEPTION
+          WHEN OTHERS
+          THEN
+             RETURN NULL;
+       END;
+
+       FUNCTION findkostenplaats (p_id IN VARCHAR2)
+          RETURN NUMBER
+       AS
+          l_prs_kostenplaats_key   NUMBER (10);
+       BEGIN
+          SELECT prs_kostenplaats_key
+            INTO l_prs_kostenplaats_key
+            FROM prs_kostenplaats
+           WHERE prs_kostenplaats_verwijder IS NULL
+             AND prs_kostenplaats_nr = p_id;
+
+          RETURN l_prs_kostenplaats_key;
+       EXCEPTION
+          WHEN OTHERS
+          THEN
+             RETURN NULL;
+       END;
+
+       FUNCTION findperslid (p_id IN VARCHAR2)
+          RETURN NUMBER
+       AS
+          l_prs_perslid_key   NUMBER (10);
+       BEGIN
+          SELECT prs_perslid_key
+            INTO l_prs_perslid_key
+            FROM prs_perslid
+           WHERE prs_perslid_verwijder IS NULL
+             AND prs_perslid_authenticatie = p_id;
+
+          RETURN l_prs_perslid_key;
+       EXCEPTION
+          WHEN OTHERS
+          THEN
+             RETURN NULL;
+       END;
+
+       FUNCTION upsertperslid (p_id IN VARCHAR2)
+          RETURN NUMBER
+       AS
+          v_prs_perslid_key      NUMBER (10);
+          v_prs_srtperslid_key   NUMBER (10);
+          v_prs_afdeling_key     NUMBER (10);
+          v_prs_perslid_email    VARCHAR2 (120);
+
+          v_email                VARCHAR2 (120);
+          v_loginnaam            VARCHAR2 (80);
+          v_voorletters          VARCHAR2 (32);
+          v_voornaam             VARCHAR2 (50);
+          v_tussenvoegsel        VARCHAR2 (32);
+          v_persoonachternaam    VARCHAR2 (50);
+          v_personeelsnummer     VARCHAR2 (10);
+          v_functie              VARCHAR2 (255);
+          v_organisatieid        VARCHAR2 (20);
+          v_mobiel               VARCHAR2 (30);
+          v_telefoonnummer       VARCHAR2 (30);
+          v_isactive             NUMBER (1);
+          v_count                NUMBER;
+       BEGIN
+          v_prs_perslid_key := NULL;
+          SELECT SUBSTR (loginnaam, 1, 30),
+                 SUBSTR (email, 1, 200),
+                 SUBSTR (voorletters, 1, 10),
+                 SUBSTR (voornaam, 1, 30),
+                 SUBSTR (tussenvoegsel, 1, 15),
+                 SUBSTR (persoonachternaam, 1, 60),
+                 SUBSTR (personeelsnummer, 1, 16),
+                 SUBSTR (functie, 1, 60),
+                 SUBSTR (organisatieid, 1, 20),
+                 SUBSTR (mobiel, 1, 15),
+                 SUBSTR (telefoonnummer, 1, 15)
+            INTO v_loginnaam,
+                 v_email,
+                 v_voorletters,
+                 v_voornaam,
+                 v_tussenvoegsel,
+                 v_persoonachternaam,
+                 v_personeelsnummer,
+                 v_functie,
+                 v_organisatieid,
+                 v_mobiel,
+                 v_telefoonnummer
+            FROM aaes_imp_soap_perslid
+           WHERE id = p_id;
+
+          v_prs_srtperslid_key := upsertsrtperslid (v_functie);
+          v_prs_afdeling_key := findafdeling (v_organisatieid);
+
+          BEGIN
+             SELECT prs_perslid_key, prs_perslid_email
+               INTO v_prs_perslid_key, v_prs_perslid_email
+               FROM prs_perslid
+              WHERE prs_perslid_authenticatie = p_id;
+          EXCEPTION
+             WHEN NO_DATA_FOUND
+             THEN
+                IF USER = 'AAES_TEST'
+                THEN
+                   BEGIN
+                      SELECT prs_perslid_key, prs_perslid_email
+                        INTO v_prs_perslid_key, v_prs_perslid_email
+                        FROM prs_perslid
+                       WHERE prs_perslid_verwijder IS NULL
+                         AND prs_perslid_nr = v_personeelsnummer;
+                       
+                      UPDATE prs_perslid SET prs_perslid_authenticatie = p_id
+                       WHERE prs_perslid_key = v_prs_perslid_key;
+                   EXCEPTION 
+                      WHEN NO_DATA_FOUND
+                      THEN
+                         v_prs_perslid_key := NULL;
+                   END;
+                
+                END IF;
+                IF v_prs_perslid_key IS NULL
+                THEN
+                   dolog ('I', 'Persoon [' || p_id ||'] wordt toegevoegd login:' || v_loginnaam, '');
+
+                   INSERT INTO prs_perslid (prs_perslid_authenticatie,
+                                            prs_perslid_oslogin,
+                                            prs_perslid_email,
+                                            prs_perslid_voorletters,
+                                            prs_perslid_voornaam,
+                                            prs_perslid_tussenvoegsel,
+                                            prs_perslid_naam,
+                                            prs_perslid_nr,
+                                            prs_srtperslid_key,
+                                            prs_afdeling_key,
+                                            prs_perslid_mobiel,
+                                            prs_perslid_telefoonnr)
+                       VALUES (v_id,
+                               v_loginnaam,
+                               v_email,
+                               v_voorletters,
+                               v_voornaam,
+                               v_tussenvoegsel,
+                               v_persoonachternaam,
+                               v_personeelsnummer,
+                               v_prs_srtperslid_key,
+                               v_prs_afdeling_key,
+                               v_mobiel,
+                               v_telefoonnummer)
+                     RETURNING prs_perslid_key
+                          INTO v_prs_perslid_key;
+                END IF;
+          -- persoon moet nog toegevoegd worden.
+          END;
+
+          -- controleer of er een persoon is met dezelfde login
+          -- dan zijn we waarschijnlijk vergeten deze persoon te verwijderen of wordt dit nog gedaan.
+          SELECT count(*) 
+            INTO v_count
+            FROM prs_perslid
+           WHERE prs_perslid_oslogin = UPPER(v_loginnaam)
+             AND prs_perslid_key <> v_prs_perslid_key;
+             
+          IF v_count > 0 
+          THEN
+             -- reset de login van de persoon met dezelfde login.
+             UPDATE prs_perslid SET prs_perslid_oslogin = NULL WHERE prs_perslid_oslogin = UPPER(v_loginnaam);
+          END IF;
+
+          -- Het emailadres en organisatie van medewerkers van AAFM mag
+          -- niet door de koppeling aangepast worden.
+          IF UPPER(v_prs_perslid_email) LIKE '%AA-FM.COM'
+          THEN
+             v_prs_afdeling_key := 21;
+             v_email := v_prs_perslid_email;
+          END IF;
+
+          dolog ('I', 'Persoon [' || p_id ||'] wordt aangepast login:' || v_loginnaam, '');
+          UPDATE prs_perslid
+             SET prs_perslid_oslogin = v_loginnaam,
+                 prs_perslid_email = v_email,
+                 prs_perslid_voorletters = v_voorletters,
+                 prs_perslid_voornaam = v_voornaam,
+                 prs_perslid_tussenvoegsel = v_tussenvoegsel,
+                 prs_perslid_naam = v_persoonachternaam,
+                 prs_perslid_nr = v_personeelsnummer,
+                 prs_srtperslid_key = v_prs_srtperslid_key,
+                 prs_afdeling_key = v_prs_afdeling_key,
+                 prs_perslid_mobiel = v_mobiel,
+                 prs_perslid_telefoonnr = v_telefoonnummer,
+                 prs_perslid_verwijder = NULL
+           WHERE prs_perslid_authenticatie = p_id;
+
+
+          RETURN v_prs_perslid_key;
+       END;
+
+       FUNCTION upsertkostenplaats (p_nr IN VARCHAR2, p_omschrijving IN VARCHAR2)
+          RETURN NUMBER
+       AS
+          v_prs_kostenplaats_key          NUMBER (10);
+       BEGIN
+
+          v_prs_kostenplaats_key := findkostenplaats (p_nr);
+
+          -- als de kostenplaats nog niet bestaat maar wel een kostenplaatsnr ingevuld is.
+          IF v_prs_kostenplaats_key IS NULL AND p_nr IS NOT NULL
+          THEN
+             dolog ('I', 'Kostenplaats is niet gevonden', '');
+
+             INSERT INTO prs_kostenplaats (prs_kostenplaats_nr,
+                                           prs_kostenplaats_module,
+                                           prs_kostenplaats_omschrijving)
+                 VALUES (p_nr,
+                         'PRS',
+                         p_omschrijving)
+              RETURNING prs_kostenplaats_key
+                   INTO v_prs_kostenplaats_key;
+          END IF;
+
+          UPDATE prs_kostenplaats
+             SET prs_kostenplaats_omschrijving = p_omschrijving
+           WHERE prs_kostenplaats_key = v_prs_kostenplaats_key;
+
+          RETURN v_prs_kostenplaats_key;
+       END;
+
+       FUNCTION upsertafdeling (p_id IN VARCHAR2)
+          RETURN NUMBER
+       AS
+          v_prs_perslid_key          NUMBER (10);
+          v_prs_bedrijf_key          NUMBER (10);
+          v_prs_afdeling_key         NUMBER (10);
+          v_prs_afdeling_parentkey   NUMBER (10);
+          v_prs_kostenplaats_key     NUMBER (10);
+
+          v_bedrijfsnaam             VARCHAR2 (255);
+          v_afdelingsomschrijving    VARCHAR2 (255);
+          v_afdelingscode            VARCHAR2 (10);
+          v_parentid                 VARCHAR2 (20);
+          v_leidinggevende           VARCHAR2 (80);
+          v_niveau                   NUMBER;
+       BEGIN
+          -- Mapping van velden:
+          --   afdelingsomschrijving    -> Omschrijving van afdeling en kostenplaats
+          --   id                       -> Naam van de afdeling en nummer van de kostenplaats
+          --   afdelingscode            -> Waarde van het kenmerk kostenplaats
+          --   parentid                 -> Bovenliggende afdeling. Wordt als kenmerk opgeslagen.
+          --   leidinggevende           -> Kenmerk bij afdeling. Daily task zorgt er voor dat
+          --                               de juiste leidinggevende bij de kostenplaats ingevuld wordt.
+          -- het veld id wordt gebruikt als afdelingscode.
+          -- Essent kent geen losse afdelingscode. Dit veld wordt alleen gevuld als er een kostenplaats aan
+          -- de afdeling gekoppeld is.
+
+          SELECT SUBSTR (bedrijfsnaam, 1, 30),
+                 SUBSTR (afdelingsomschrijving, 1, 200),
+                 SUBSTR (afdelingscode, 1, 10),
+                 SUBSTR (parentid, 1, 20),
+                 SUBSTR (leidinggevende, 1, 20)
+            INTO v_bedrijfsnaam,
+                 v_afdelingsomschrijving,
+                 v_afdelingscode,
+                 v_parentid,
+                 v_leidinggevende
+            FROM aaes_imp_soap_afdeling
+           WHERE id = p_id;
+
+          SELECT prs_bedrijf_key
+            INTO v_prs_bedrijf_key
+            FROM prs_v_aanwezigbedrijf
+           WHERE UPPER (prs_bedrijf_naam) = 'ESSENT' AND prs_bedrijf_intern = 1;
+
+          v_prs_perslid_key := findperslid (v_leidinggevende);
+          v_prs_afdeling_parentkey := findafdeling (v_parentid);
+          v_prs_afdeling_key := findafdeling (v_id);
+          v_prs_kostenplaats_key := upsertkostenplaats (v_id, v_afdelingsomschrijving);
+
+          IF v_prs_afdeling_key IS NULL
+          THEN
+             dolog ('I', 'Afdeling is niet gevonden', '');
+
+             INSERT INTO prs_afdeling (prs_afdeling_naam,
+                                       prs_afdeling_omschrijving,
+                                       prs_afdeling_parentkey,
+                                       prs_kostenplaats_key,
+                                       prs_bedrijf_key)
+                 VALUES (v_id,
+                         v_afdelingsomschrijving,
+                         NULL,
+                         v_prs_kostenplaats_key,
+                         v_prs_bedrijf_key)
+              RETURNING prs_afdeling_key
+                   INTO v_prs_afdeling_key;
+          END IF;
+
+          UPDATE prs_afdeling
+             SET prs_afdeling_naam = v_id,
+                 prs_afdeling_omschrijving = v_afdelingsomschrijving,
+                 prs_kostenplaats_key = v_prs_kostenplaats_key,
+                 prs_afdeling_parentkey = NULL,
+                 prs_bedrijf_key = v_prs_bedrijf_key
+           WHERE prs_afdeling_key = v_prs_afdeling_key;
+
+          -- leidinggevende
+          aaxx_set_kenmerk ('PRS',
+                            1000,
+                            v_prs_afdeling_key,
+                            v_prs_perslid_key,
+                            0);
+          -- bovenliggende afdeling
+          aaxx_set_kenmerk ('PRS',
+                            1020,
+                            v_prs_afdeling_key,
+                            v_prs_afdeling_parentkey,
+                            0);
+
+          -- kostenplaat volgens IAM
+          aaxx_set_kenmerk ('PRS',
+                            1080,
+                            v_prs_afdeling_key,
+                            v_afdelingscode,
+                            0);
+
+          -- synchroniseer de afdelingsniveau flexkenmerken met de boom. Er kan namelijk een afdeling naar
+          -- een ander niveau verplaatst worden. De onderliggende elementen moeten dan ook aangepast worden.
+          -- daarom maar in <20><>n keer voor de hele afdelingsboom.
+          BEGIN
+             SELECT fac.safe_to_number (prs_kenmerklink_waarde)
+               INTO v_niveau
+               FROM prs_kenmerklink kl
+              WHERE prs_kenmerk_key = 1060   -- niveau van de afdeling
+                AND prs_link_key = v_prs_afdeling_parentkey;
+             aaes_set_afd_niveau (v_prs_afdeling_parentkey, v_niveau);
+          EXCEPTION WHEN OTHERS
+          THEN
+             aaes_set_afd_niveau (null, 0);
+          END;
+          RETURN v_prs_afdeling_key;
+       END;
+    BEGIN
+       dolog (
+          'I',
+             'Soap request '
+          || action_name
+          || ' sequence['
+          || soap_seq
+          || '] type['
+          || soap_type
+          || ']', '');
+
+       -- Eerst de data uit de fac_soap_data overzetten naar variabelen
+       IF UPPER (soap_type) = 'USER'
+       THEN
+          SELECT fac_soapdata_value
+            INTO v_id
+            FROM fac_soapdata
+           WHERE fac_soapdata_seq = soap_seq
+             AND UPPER(fac_soapdata_name) = 'ID';
+
+          SELECT COUNT (id)
+            INTO v_count
+            FROM aaes_imp_soap_perslid
+           WHERE id = v_id;
+
+          IF v_count = 0
+          THEN
+             INSERT INTO aaes_imp_soap_perslid (id)
+                 VALUES (v_id);
+          END IF;
+
+          FOR c
+             IN (SELECT UPPER (fac_soapdata_name) fac_soapdata_name,
+                        fac_soapdata_value
+                   FROM fac_soapdata
+                  WHERE fac_soapdata_seq = soap_seq
+                    AND UPPER( fac_soapdata_name) <> 'ID')
+          LOOP
+             v_hint := NULL;
+             dolog (
+                'I',
+                   'Soap request '
+                || action_name
+                || ' sequence['
+                || soap_seq
+                || '] id['
+                || v_id
+                || '] name['
+                || c.fac_soapdata_name
+                || '] value['
+                || c.fac_soapdata_value
+                || ']', '');
+
+
+             IF c.fac_soapdata_name = 'LOGINNAAM'
+             THEN
+                UPDATE aaes_imp_soap_perslid
+                   SET loginnaam = c.fac_soapdata_value
+                 WHERE id = v_id;
+             ELSIF c.fac_soapdata_name = 'EMAIL'
+             THEN
+                UPDATE aaes_imp_soap_perslid
+                   SET email = c.fac_soapdata_value
+                 WHERE id = v_id;
+             ELSIF c.fac_soapdata_name = 'VOORLETTERS'
+             THEN
+                UPDATE aaes_imp_soap_perslid
+                   SET voorletters = c.fac_soapdata_value
+                 WHERE id = v_id;
+             ELSIF c.fac_soapdata_name = 'VOORNAAM'
+             THEN
+                UPDATE aaes_imp_soap_perslid
+                   SET voornaam = c.fac_soapdata_value
+                 WHERE id = v_id;
+             ELSIF c.fac_soapdata_name = 'TUSSENVOEGSEL'
+             THEN
+                UPDATE aaes_imp_soap_perslid
+                   SET tussenvoegsel = c.fac_soapdata_value
+                 WHERE id = v_id;
+             ELSIF c.fac_soapdata_name = 'PERSOONACHTERNAAM'
+             THEN
+                UPDATE aaes_imp_soap_perslid
+                   SET persoonachternaam = c.fac_soapdata_value
+                 WHERE id = v_id;
+             ELSIF c.fac_soapdata_name = 'PERSONEELSNUMMER'
+             THEN
+                UPDATE aaes_imp_soap_perslid
+                   SET personeelsnummer = c.fac_soapdata_value
+                 WHERE id = v_id;
+             ELSIF c.fac_soapdata_name = 'FUNCTIE'
+             THEN
+                UPDATE aaes_imp_soap_perslid
+                   SET functie = c.fac_soapdata_value
+                 WHERE id = v_id;
+             ELSIF c.fac_soapdata_name = 'ORGANISATIEID'
+             THEN
+                UPDATE aaes_imp_soap_perslid
+                   SET organisatieid = c.fac_soapdata_value
+                 WHERE id = v_id;
+             ELSIF c.fac_soapdata_name = 'MOBIEL'
+             THEN
+                UPDATE aaes_imp_soap_perslid
+                   SET mobiel = c.fac_soapdata_value
+                 WHERE id = v_id;
+             ELSIF c.fac_soapdata_name = 'TELEFOONNUMMER'
+             THEN
+                UPDATE aaes_imp_soap_perslid
+                   SET telefoonnummer = c.fac_soapdata_value
+                 WHERE id = v_id;
+             ELSIF c.fac_soapdata_name = 'ISACTIVE'
+             THEN
+                UPDATE aaes_imp_soap_perslid
+                   SET isactive = c.fac_soapdata_value
+                 WHERE id = v_id;
+             ELSE                                   -- negeer onbekende attributen
+                NULL;
+             END IF;
+          END LOOP;
+
+          IF UPPER (action_name) = 'INSERT'
+          THEN
+             v_prs_perslid_key := upsertperslid (v_id);
+          ELSIF UPPER (action_name) = 'UPDATE'
+          THEN
+             v_prs_perslid_key := upsertperslid (v_id);
+          ELSIF UPPER (action_name) = 'DELETE'
+          THEN                   -- TODO: Aan de hand van de variabelen een DELETE
+             SELECT COUNT ( * )
+               INTO v_count
+               FROM prs_perslid p, prs_v_verplichting v
+              WHERE p.prs_perslid_key = v.prs_perslid_key
+                AND p.prs_perslid_verwijder IS NULL
+                AND p.prs_perslid_authenticatie = v_id;
+
+             IF v_count = 0
+             THEN
+                UPDATE prs_perslid
+                   SET prs_perslid_verwijder = SYSDATE
+                 WHERE prs_perslid_authenticatie = v_id;
+
+                DELETE aaes_imp_soap_perslid
+                 WHERE id = v_id;
+             ELSE
+                UPDATE prs_perslid
+                   SET prs_perslid_oslogin = NULL,
+                       prs_perslid_naam =
+                          SUBSTR ('Inactief: ' || prs_perslid_naam, 1, 60)
+                 WHERE prs_perslid_authenticatie = v_id
+                   AND prs_perslid_naam NOT LIKE 'Inactief: %';
+             END IF;
+          ELSE                                          -- negeer onbekende action
+             NULL;
+          END IF;
+       ELSIF UPPER (soap_type) = 'ORGANIZATIONUNIT'
+       THEN
+          FOR c
+             IN (SELECT UPPER (fac_soapdata_name) fac_soapdata_name,
+                        fac_soapdata_value
+                   FROM fac_soapdata
+                  WHERE fac_soapdata_seq = soap_seq)
+          LOOP
+             dolog (
+                'I',
+                   'Soap request '
+                || action_name
+                || ' sequence['
+                || soap_seq
+                || '] name['
+                || c.fac_soapdata_name
+                || '] value['
+                || c.fac_soapdata_value
+                || ']', '');
+
+             -- we gebruiken nu nog prs_afdeling_key maar dit moet nog aangepast worden.
+             IF c.fac_soapdata_name = 'ID'
+             THEN
+                v_id := c.fac_soapdata_value;
+
+                SELECT COUNT (id)
+                  INTO v_count
+                  FROM aaes_imp_soap_afdeling
+                 WHERE id = v_id;
+
+                IF v_count = 0
+                THEN
+                   INSERT INTO aaes_imp_soap_afdeling (id)
+                       VALUES (v_id);
+                END IF;
+             ELSIF c.fac_soapdata_name = 'BEDRIJFSNAAM'
+             THEN
+                UPDATE aaes_imp_soap_afdeling
+                   SET bedrijfsnaam = c.fac_soapdata_value
+                 WHERE id = v_id;
+             ELSIF c.fac_soapdata_name = 'AFDELINGSOMSCHRIJVING'
+             THEN
+                UPDATE aaes_imp_soap_afdeling
+                   SET afdelingsomschrijving = c.fac_soapdata_value
+                 WHERE id = v_id;
+             ELSIF c.fac_soapdata_name = 'AFDELINGSCODE'
+             THEN
+                UPDATE aaes_imp_soap_afdeling
+                   SET afdelingscode = c.fac_soapdata_value
+                 WHERE id = v_id;
+             ELSIF c.fac_soapdata_name = 'PARENTID'
+             THEN
+                UPDATE aaes_imp_soap_afdeling
+                   SET parentid = c.fac_soapdata_value
+                 WHERE id = v_id;
+             ELSIF c.fac_soapdata_name = 'LEIDINGGEVENDE'
+             THEN
+                UPDATE aaes_imp_soap_afdeling
+                   SET leidinggevende = c.fac_soapdata_value
+                 WHERE id = v_id;
+             ELSE                                   -- negeer onbekende attributen
+                NULL;
+             END IF;
+          END LOOP;
+
+          IF UPPER (action_name) = 'INSERT'
+          THEN
+             v_prs_perslid_key := upsertafdeling (v_id);
+          ELSIF UPPER (action_name) = 'UPDATE'
+          THEN
+             v_prs_perslid_key := upsertafdeling (v_id);
+          ELSIF UPPER (action_name) = 'DELETE'
+          THEN
+             v_hint := 'Tel het aantal verplichtingen voor: ' || v_id;
+             v_prs_afdeling_key := findafdeling(v_id);
+             SELECT COUNT ( * )
+               INTO v_count
+               FROM prs_v_afd_verplichting v
+              WHERE v.prs_afdeling_key = v_prs_afdeling_key;
+
+             SELECT COUNT ( * )
+               INTO v_count_pa
+               FROM prs_v_aanwezigperslid p
+              WHERE p.prs_afdeling_key = v_prs_afdeling_key;
+
+             IF v_count = 0 AND v_count_pa = 0
+             THEN
+                v_hint := 'Set het verwijderveld voor afdeling met key: ' || v_prs_afdeling_key;
+                UPDATE prs_afdeling
+                   SET prs_afdeling_verwijder = SYSDATE
+                 WHERE prs_afdeling_key = v_prs_afdeling_key;
+
+                v_hint := 'Verwijder afdeling met id: ' || v_id || ' uit de tabel aaes_imp_soap_afdeling';
+                DELETE aaes_imp_soap_afdeling
+                 WHERE id = v_id;
+             ELSE
+                v_hint := 'Markeer de afdeling met key: ' || v_prs_afdeling_key || ' als inactief';
+                UPDATE prs_afdeling
+                   SET prs_afdeling_omschrijving =
+                          SUBSTR ('Inactief: ' || prs_afdeling_omschrijving,
+                                  1,
+                                  60)
+                 WHERE prs_afdeling_key = v_prs_afdeling_key
+                   AND prs_afdeling_omschrijving NOT LIKE 'Inactief: %';
+             END IF;
+
+             -- set in ieder geval de verwijdervlag voor de kostenplaats
+             v_hint := 'Verwijder kostenplaats behorend bij afdeling met key: ' || v_prs_afdeling_key;
+             UPDATE prs_kostenplaats
+                SET prs_kostenplaats_verwijder = SYSDATE
+              WHERE prs_kostenplaats_key in (SELECT prs_kostenplaats_key
+                                               FROM prs_afdeling
+                                              WHERE prs_afdeling_key = v_prs_afdeling_key);
+
+          ELSE                                          -- negeer onbekende action
+             NULL;
+          END IF;
+       END IF;
+    EXCEPTION
+       WHEN OTHERS
+       THEN
+          oracle_err_num := SQLCODE;
+          oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
+          dolog ('E', '[' || v_id || ']  sequence[' || soap_seq || ']error ' || oracle_err_num || '/' || oracle_err_mes, v_hint);
+          COMMIT;
+    END soap_action;
+END;
+/
+

onces/AA/AAES/AAES_script_test.sql

@@ -0,0 +1,78 @@
+select * from aaes_imp_soap_perslid i, prs_perslid p where prs_perslid_authenticatie = i.id
+and i.personeelsnummer = p.prs_perslid_nr
+
+select * from prs_perslid
+
+   SELECT prs_perslid_authenticatie,
+          prs_perslid_oslogin,
+          DECODE (UPPER(SUBSTR(prs_perslid_email, INSTR(prs_perslid_email, '@'))), 
+                  '@AA-FM.COM', (SELECT email FROM aaes_imp_soap_perslid WHERE id = prs_perslid_authenticatie), 
+                  prs_perslid_email),
+          prs_perslid_voornaam,
+          prs_perslid_voorletters,
+          prs_perslid_tussenvoegsel,
+          prs_perslid_naam,
+          prs_perslid_nr,
+          DECODE (
+             sp.prs_srtperslid_key,
+             1,
+             NULL,
+             (DECODE ( (SELECT UPPER (functie)
+                          FROM aaes_imp_soap_perslid
+                         WHERE id = prs_perslid_authenticatie),
+                      UPPER (prs_srtperslid_omschrijving),
+                      (SELECT functie
+                         FROM aaes_imp_soap_perslid
+                        WHERE id = prs_perslid_authenticatie),
+                      prs_srtperslid_omschrijving)))
+             prs_srtperslid_omschrijving,
+          DECODE (UPPER(SUBSTR(prs_perslid_email, INSTR(prs_perslid_email, '@'))), 
+                  '@AA-FM.COM', (SELECT organisatieid FROM aaes_imp_soap_perslid WHERE id = prs_perslid_authenticatie), 
+                  prs_kenmerklink_waarde),
+          prs_perslid_mobiel,
+          prs_perslid_telefoonnr,
+          1
+     FROM prs_perslid p,
+          prs_afdeling a,
+          prs_srtperslid sp,
+          (SELECT prs_kenmerklink_waarde, 
+                  prs_link_key prs_afdeling_key 
+             FROM prs_kenmerklink kl
+            WHERE kl.prs_kenmerk_key = 1040) kl
+    WHERE     p.prs_afdeling_key = a.prs_afdeling_key
+          AND p.prs_srtperslid_key = sp.prs_srtperslid_key
+          AND a.prs_afdeling_key = kl.prs_afdeling_key(+)
+          AND prs_perslid_nr IS NOT NULL
+          AND prs_perslid_verwijder IS NULL
+          AND prs_perslid_authenticatie IS NOT NULL;
+          
+          
+          select * from aaes_imp_soap_perslid
+          
+          select * from fac_soapdata
+          
+          select * from imp_log
+          
+          select * from prs_perslid where prs_perslid_apikey is not null
+          
+          update prs_perslid set prs_perslid_apikey = prs_perslid_authenticatie where prs_perslid_authenticatie like 'IAM%'
+          
+          update prs_perslid set prs_perslid_authenticatie = null where prs_perslid_authenticatie like 'IAM%'
+          
+          select * from prs_perslid
+          
+          select * from prs_afdeling where prs_afdeling_key = 641
+          
+          insert into fac_soapdata (fac_soapdata_seq, fac_soapdata_name, fac_soapdata_value)
+          values (2, 'Id', 'IAM-15689214');
+          
+          insert into fac_soapdata (fac_soapdata_seq, fac_soapdata_name, fac_soapdata_value)
+          values (2, 'personeelsnummer', '00506101');
+          
+          begin AAES.SOAP_ACTION('INSERT', 2, 'USER'); end;
+          
+          select * from prs_perslid where prs_perslid_nr = '00506101'
+          
+          select * from aaes_imp_soap_perslid
+          
+          delete aaes_imp_soap_perslid

onces/AA/AAES/AAES_script_test2.sql

@@ -0,0 +1,34 @@
+declare 
+
+cursor c IS
+SELECT DISTINCT SUBSTR(imp_log_omschrijving, 
+           INSTR(imp_log_omschrijving, '[', 1, 2)+1, 
+           INSTR(imp_log_omschrijving, ']', 1, 2) -INSTR(imp_log_omschrijving, '[', 1,2)-1) sequencenr
+FROM imp_log WHERE imp_log_status = 'E'
+AND imp_log_datum > SYSDATE -1
+AND imp_log_applicatie = 'SOAP'
+AND imp_log_omschrijving LIKE '%exact fet%';
+
+BEGIN
+for rec in c
+loop 
+begin AAES.SOAP_ACTION('INSERT', rec.sequencenr, 'USER'); end;
+end loop;
+
+END;
+
+select * from imp_log
+
+select * from imp_log where imp_log_status = 'E' and to_char(imp_log_datum, 'yyyymmdd hh24') = '20130605 13'
+
+select * from aaes_imp_soap_perslid
+
+select  * from prs_perslid where prs_perslid_apikey is not null and prs_perslid_authenticatie is not null
+
+select * from fac_notificatie
+
+delete fac_notificatie
+
+select * from fac_v_orderqueue
+
+select * from fac_import_app

onces/AA/AAES/aaes4.sql

@@ -0,0 +1,36 @@
+-- Customer specific once-script AAES4.
+--
+-- (c) 2012 SG|facilitor bv
+-- $Revision$
+-- $Id$
+--
+-- Support: +31 53 4800700
+SET ECHO ON
+SPOOL xaaes4.lst
+SET DEFINE OFF
+
+-- AAES#25128
+-- (flags = 1, want alleen mailadres ontvanger is bekend)
+INSERT INTO fac_notificatie_job
+  (fac_notificatie_job_view,
+   fac_notificatie_job_oms,
+   fac_notificatie_job_mode,
+   fac_notificatie_job_interval,
+   fac_notificatie_job_nextrun,
+   fac_notificatie_job_flags)
+VALUES
+  ('aaes_v_noti_bezoekers',
+   'Notificatie naar bezoekers (bij aanmaak/mutatie)',
+   2,
+   1,
+   SYSDATE + 1/24,
+   1);
+
+COMMIT;
+
+BEGIN adm.systrackscript('$Workfile: aaes4.sql $', '$Revision$', 1); END;
+/
+
+SPOOL OFF
+
+@aaes.sql

onces/AA/AAES/org_aanpassing.sql

@@ -0,0 +1,121 @@
+
+
+-- verplaats de kostenplaat naar het kenmerk
+INSERT INTO prs_kenmerklink (prs_link_key,
+                             prs_kenmerklink_niveau,
+                             prs_kenmerklink_waarde,
+                             prs_kenmerk_key)
+   SELECT prs_afdeling_key,
+          'A',
+          prs_kostenplaats_nr,
+          1080
+     FROM prs_afdeling a, prs_kostenplaats k
+    WHERE a.prs_kostenplaats_key = k.prs_kostenplaats_key
+      AND k.prs_kostenplaats_key > 40
+      AND a.prs_afdeling_verwijder IS NULL
+      AND k.prs_kostenplaats_verwijder IS NULL
+
+-- pas de kostenplaatsnummers aan zodat ze gelijk zijn aan de code van de afdeling
+UPDATE prs_kostenplaats k
+   SET prs_kostenplaats_nr =
+          (SELECT MAX (prs_afdeling_naam)
+             FROM prs_afdeling a
+            WHERE a.prs_kostenplaats_key = k.prs_kostenplaats_key
+              AND a.prs_afdeling_verwijder IS NULL)
+ WHERE k.prs_kostenplaats_verwijder IS NULL
+   AND k.prs_kostenplaats_key > 40
+   AND EXISTS (SELECT prs_afdeling_key
+                 FROM prs_afdeling a
+                WHERE a.prs_kostenplaats_key = k.prs_kostenplaats_key)
+
+
+-- sommige afdelingen waren verbonden aan dezelfde kostenplaats.
+-- dan moeten we deze link maar verwijderen.
+UPDATE prs_afdeling
+   SET prs_kostenplaats_key = NULL
+ WHERE prs_afdeling_key IN
+             (SELECT prs_afdeling_key
+                FROM prs_afdeling a, prs_kostenplaats k
+               WHERE a.prs_kostenplaats_key = k.prs_kostenplaats_key
+                 AND k.prs_kostenplaats_key > 40
+                 AND a.prs_afdeling_verwijder IS NULL
+                 AND k.prs_kostenplaats_verwijder IS NULL
+                 AND a.prs_afdeling_naam <> k.prs_kostenplaats_nr);
+                 
+-- Dan nu nog even de overgebleven afdelingen zonder kostenplaats voorzien
+-- van een kostenplaats.
+/* Formatted on 11/5/2012 11:18:25 AM (QP5 v5.136.908.31019) */
+INSERT INTO prs_kostenplaats (prs_kostenplaats_nr, prs_kostenplaats_omschrijving, prs_kostenplaats_module)
+   (SELECT prs_afdeling_naam, prs_afdeling_omschrijving, 'PRS'
+      FROM prs_afdeling
+     WHERE prs_kostenplaats_key IS NULL AND prs_afdeling_key > 21);
+     
+UPDATE prs_afdeling a SET prs_kostenplaats_key =
+   (SELECT prs_kostenplaats_key FROM prs_kostenplaats k
+     WHERE prs_afdeling_naam = prs_kostenplaats_nr
+       AND a.prs_afdeling_verwijder IS NULL
+       AND k.prs_kostenplaats_verwijder IS NULL)
+WHERE prs_afdeling_key > 21
+  AND prs_kostenplaats_key IS NULL
+  
+  create table aaes_leidinggevende_afd (prs_kostenplaats_key number(10), prs_perslid_key number(10))
+
+insert into aaes_leidinggevende_afd (prs_kostenplaats_key, prs_perslid_key)
+(select a.prs_kostenplaats_key, prs_perslid_key_leid 
+ from aaes_v_leidinggevende_afd la,
+       prs_afdeling a
+   where la.prs_afdeling_key = a.prs_afdeling_key)
+   
+   and a.prs_kostenplaats_key = k.prs_kostenplaats_key
+   
+   )
+
+update prs_kostenplaats k set prs_perslid_key =
+ (select distinct prs_perslid_key 
+ from aaes_leidinggevende_afd la
+   where la.prs_kostenplaats_key = k.prs_kostenplaats_key
+   )
+   
+   select * from prs_afdeling where prs_kostenplaats_key in (
+   select prs_kostenplaats_key from aaes_leidinggevende_afd
+   group by prs_kostenplaats_key having count (prs_kostenplaats_key) > 1)
+   
+ select * from prs_kostenplaats where prs_kostenplaats_key = 1166  
+ 
+ 
+ 
+ SELECT a.prs_afdeling_naam afdeling_naam,
+       a.prs_afdeling_omschrijving afdeling_omschrijving,
+       paa.prs_afdeling_naam afdeling_parent,
+       an.prs_kenmerklink_waarde afdeling_niveau,
+       pfal.prs_perslid_naam_full leidinggevende,
+       (SELECT COUNT ( * )
+          FROM prs_perslid p
+         WHERE p.prs_afdeling_key = a.prs_afdeling_key)
+          aantal_pers,
+       k.prs_kostenplaats_nr kostenplaats_nr,
+       prs_kostenplaats_omschrijving kostenplaats_omschrijving,
+       pfbh.prs_perslid_naam_full budgethouder
+  FROM prs_afdeling a,
+       prs_kostenplaats k,
+       prs_afdeling paa,
+       (SELECT prs_link_key, prs_kenmerklink_waarde
+          FROM prs_kenmerklink
+         WHERE prs_kenmerk_key = 1000) al,
+       (SELECT prs_link_key, prs_kenmerklink_waarde
+          FROM prs_kenmerklink
+         WHERE prs_kenmerk_key = 1060) an,
+       (SELECT prs_link_key, prs_kenmerklink_waarde
+          FROM prs_kenmerklink
+         WHERE prs_kenmerk_key = 1020) pa,
+       prs_v_perslid_fullnames pfal,
+       prs_v_perslid_fullnames pfbh
+ WHERE a.prs_kostenplaats_key = k.prs_kostenplaats_key(+)
+   AND a.prs_afdeling_key = al.prs_link_key(+)
+   AND a.prs_afdeling_key = an.prs_link_key(+)
+   AND a.prs_afdeling_key = pa.prs_link_key(+)
+   AND fac.safe_to_number (pa.prs_kenmerklink_waarde) =
+          paa.prs_afdeling_key(+)
+   AND fac.safe_to_number (al.prs_kenmerklink_waarde) =
+          pfal.prs_perslid_key(+)
+   AND k.prs_perslid_key = pfbh.prs_perslid_key(+);

onces/AA/AAES/prod2testIAM.sql

@@ -0,0 +1,44 @@
+select * from imp_log where imp_log_applicatie = 'SOAP'
+and imp_log_status = 'E' order by imp_log_datum DESC
+
+select * from imp_log where imp_log_applicatie = 'SOAP'
+and imp_log_omschrijving like '%[45337]%' order by imp_log_datum DESC
+
+
+select * from imp_log where imp_log_applicatie = 'SOAP'
+and imp_log_omschrijving like '%INSERT%' order by imp_log_datum DESC
+
+select * from prs_perslid where prs_perslid_oslogin = 'JMAAS1'  -- IAM-1394087
+
+select * from mld_melding
+
+select * from prs_perslid
+
+select * from aaes_imp_soap_perslid
+
+select * from aaes_imp_soap_perslid i, prs_perslid p
+where i.loginnaam = p.prs_perslid_oslogin
+
+update prs_perslid p set prs_perslid_authenticatie = (select id from aaes_imp_soap_perslid i where i.loginnaam = p.prs_perslid_oslogin)
+
+select loginnaam from aaes_imp_soap_perslid group by loginnaam having count(loginnaam) > 1
+
+delete aaes_imp_soap_perslid where email like '%.nl' or email like '%.com'
+
+delete aaes_imp_soap_perslid where email is null
+and loginnaam in (select loginnaam from aaes_imp_soap_perslid group by loginnaam having count(loginnaam) > 1)
+
+select * from aaes_imp_soap_perslid where loginnaam = 'RSAH'
+
+select * from aaes_imp_soap_perslid where email is null
+
+select * from prs_perslid where not  exists
+(select id from aaes_imp_soap_perslid where id = coalesce(prs_perslid_authenticatie, 'blabla')
+ )
+ 
+   and prs_perslid_authenticatie is not null
+   
+   
+   update prs_perslid set prs_perslid_verwijder = sysdate
+    where prs_perslid_authenticatie is null
+   and prs_perslid_nr is not null

onces/AA/AAES/soap_init.sql

@@ -0,0 +1,107 @@
+
+      
+      
+DROP TABLE aaes_imp_soap_perslid
+
+/* Formatted on 7/18/2012 10:48:41 AM (QP5 v5.136.908.31019) */
+CREATE TABLE aaes_imp_soap_perslid
+(
+   id                  VARCHAR2 (80),
+   email               VARCHAR2 (120),
+   loginnaam           VARCHAR2 (255),
+   voorletters         VARCHAR2 (32),
+   voornaam            VARCHAR2 (255),
+   tussenvoegsel       VARCHAR2 (50),
+   persoonachternaam   VARCHAR2 (255),
+   personeelsnummer    VARCHAR2 (50),
+   functie             VARCHAR2 (255),
+   mobiel              VARCHAR2 (30),
+   telefoonnummer      VARCHAR2 (30),
+   organisatieid       VARCHAR2 (20),   -- IAM organisatie id
+   isactive            NUMBER (1)
+)
+
+drop table aaes_imp_soap_afdeling
+
+CREATE TABLE aaes_imp_soap_afdeling
+(
+   id                  VARCHAR2 (80),    -- IAM id van de afdeling
+   parentid            VARCHAR2 (20),    -- IAM id van de bovenliggende afdeling
+   bedrijfsnaam        VARCHAR2 (255),
+   afdelingsomschrijving  VARCHAR2 (255),
+   afdelingscode         VARCHAR2 (10),
+   leidinggevende       VARCHAR2 (80)   -- IAM id van de leidinggevende
+)
+
+
+
+CREATE TABLE AAES_TEST.AAES_TMP_IAM2
+(
+  IAM         VARCHAR2(100),
+  LOGIN       VARCHAR2(100),
+  PERSLID_NR  VARCHAR2(100)
+)
+
+UPDATE prs_perslid p
+   SET prs_perslid_authenticatie =
+          (SELECT iam
+             FROM aaes_tmp_iam2 i
+            WHERE UPPER (i.login) = p.prs_perslid_oslogin)
+ WHERE prs_perslid_verwijder IS NULL
+
+/* Formatted on 10/12/2012 9:31:00 AM (QP5 v5.136.908.31019) */
+DELETE prs_perslid p
+ WHERE prs_afdeling_key = 41
+   AND prs_perslid_key <> 9001 
+   and prs_perslid_key <> 9121
+   AND NOT EXISTS (SELECT prs_perslid_key
+                     FROM prs_v_verplichting_all v
+                    WHERE v.prs_perslid_key = p.prs_perslid_key);
+
+select * from prs_perslid where prs_perslid_verwijder is not null
+
+insert into aaes_imp_soap_perslid (
+   id,
+   loginnaam,
+   email,
+   voornaam,
+   tussenvoegsel,
+   persoonachternaam,
+   personeelsnummer,
+   functie,
+   organisatieid,
+   mobiel,
+   telefoonnummer,
+   isactive)
+  SELECT prs_perslid_authenticatie id,
+          prs_perslid_oslogin loginnaam,
+          prs_perslid_email mailaddres,
+          prs_perslid_voornaam voornaam,
+          prs_perslid_tussenvoegsel tussenvoegsel,
+          prs_perslid_naam persoonachternaam,
+          prs_perslid_nr personeelsnummer,
+          prs_srtperslid_omschrijving functie,
+          prs_afdeling_naam afdelingscode,
+          prs_perslid_mobiel mobiel,
+          prs_perslid_telefoonnr telefoonnummer,
+          NVL2 (prs_perslid_verwijder, 0, 1) isactive
+     FROM prs_perslid pp, prs_afdeling pa, prs_srtperslid sp
+    WHERE pp.prs_afdeling_key = pa.prs_afdeling_key
+      AND pp.prs_srtperslid_key = sp.prs_srtperslid_key
+      AND prs_perslid_nr IS NOT NULL
+
+
+-- set organisatie-id bij ESSENT
+
+CREATE SEQUENCE fac_s_soapdata_seq MINVALUE 1;
+CREATE TABLE fac_soapdata
+(
+    fac_soapdata_seq NUMBER(10) NOT NULL, -- NIET UNIEK!
+    fac_soapdata_name VARCHAR(64),
+    fac_soapdata_value VARCHAR(4000)
+)
+
+
+
+
+select * form imp_log where imp_log_applicatie = 'SOAP'

onces/AA/AAES/uplift_vk.sql

@@ -0,0 +1,93 @@
+SET DEFINE OFF;
+Insert into AAXX_IMP_UPLIFT
+   (PRS_KOSTENSOORT_OMS, UPLIFT)
+ Values
+   ('CVE AFVAL REST', 3);
+Insert into AAXX_IMP_UPLIFT
+   (PRS_KOSTENSOORT_OMS, UPLIFT)
+ Values
+   ('CVE BEW', 6);
+Insert into AAXX_IMP_UPLIFT
+   (PRS_KOSTENSOORT_OMS, UPLIFT)
+ Values
+   ('CVE BEWAK', 6);
+Insert into AAXX_IMP_UPLIFT
+   (PRS_KOSTENSOORT_OMS, UPLIFT)
+ Values
+   ('CVE BEWAK OVR', 6);
+Insert into AAXX_IMP_UPLIFT
+   (PRS_KOSTENSOORT_OMS, UPLIFT)
+ Values
+   ('CVE CONS AUT', 6);
+Insert into AAXX_IMP_UPLIFT
+   (PRS_KOSTENSOORT_OMS, UPLIFT)
+ Values
+   ('CVE FM', 6);
+Insert into AAXX_IMP_UPLIFT
+   (PRS_KOSTENSOORT_OMS, UPLIFT)
+ Values
+   ('CVE GEB NIET PLAN', 6);
+Insert into AAXX_IMP_UPLIFT
+   (PRS_KOSTENSOORT_OMS, UPLIFT)
+ Values
+   ('CVE INSTAL NIET PLAN', 6);
+Insert into AAXX_IMP_UPLIFT
+   (PRS_KOSTENSOORT_OMS, UPLIFT)
+ Values
+   ('CVE KART', 3);
+Insert into AAXX_IMP_UPLIFT
+   (PRS_KOSTENSOORT_OMS, UPLIFT)
+ Values
+   ('CVE KLED', 6);
+Insert into AAXX_IMP_UPLIFT
+   (PRS_KOSTENSOORT_OMS, UPLIFT)
+ Values
+   ('CVE OND', 6);
+Insert into AAXX_IMP_UPLIFT
+   (PRS_KOSTENSOORT_OMS, UPLIFT)
+ Values
+   ('CVE CONS SERV', 6);
+Insert into AAXX_IMP_UPLIFT
+   (PRS_KOSTENSOORT_OMS, UPLIFT)
+ Values
+   ('CVE GROEN', 4.5);
+Insert into AAXX_IMP_UPLIFT
+   (PRS_KOSTENSOORT_OMS, UPLIFT)
+ Values
+   ('CVE VERH', 3);
+Insert into AAXX_IMP_UPLIFT
+   (PRS_KOSTENSOORT_OMS, UPLIFT)
+ Values
+   ('CVE OND TERR', 4.5);
+Insert into AAXX_IMP_UPLIFT
+   (PRS_KOSTENSOORT_OMS, UPLIFT)
+ Values
+   ('CVE PREV CAL', 3);
+Insert into AAXX_IMP_UPLIFT
+   (PRS_KOSTENSOORT_OMS, UPLIFT)
+ Values
+   ('CVE REC', 6);
+Insert into AAXX_IMP_UPLIFT
+   (PRS_KOSTENSOORT_OMS, UPLIFT)
+ Values
+   ('CVE TERR VERHARD', 4.5);
+Insert into AAXX_IMP_UPLIFT
+   (PRS_KOSTENSOORT_OMS, UPLIFT)
+ Values
+   ('CVE WP', 3);
+Insert into AAXX_IMP_UPLIFT
+   (PRS_KOSTENSOORT_OMS, UPLIFT)
+ Values
+   ('CVE SCH', 6);
+Insert into AAXX_IMP_UPLIFT
+   (PRS_KOSTENSOORT_OMS, UPLIFT)
+ Values
+   ('CVE SCH GLAS', 6);
+   
+delete aaxx_verkoopbuffer;
+
+COMMIT;
+
+
+
+

onces/AA/AAFM/HandyViews.sql

@@ -0,0 +1,218 @@
+-- aangepaste settings over alle klanten.
+SELECT 'AAAR',
+       fac_setting_module,
+       fac_setting_name,
+       fac_setting_description,
+       fac_setting_default,
+       fac_setting_pvalue
+  FROM aaar.fac_setting s
+ WHERE fac_setting_pvalue IS NOT NULL
+UNION ALL
+SELECT 'AABT',
+       fac_setting_module,
+       fac_setting_name,
+       fac_setting_description,
+       fac_setting_default,
+       fac_setting_pvalue
+  FROM aabt.fac_setting s
+ WHERE fac_setting_pvalue IS NOT NULL
+UNION ALL
+SELECT 'AACE',
+       fac_setting_module,
+       fac_setting_name,
+       fac_setting_description,
+       fac_setting_default,
+       fac_setting_pvalue
+  FROM aace.fac_setting s
+ WHERE fac_setting_pvalue IS NOT NULL
+UNION ALL
+SELECT 'AADO',
+       fac_setting_module,
+       fac_setting_name,
+       fac_setting_description,
+       fac_setting_default,
+       fac_setting_pvalue
+  FROM aado.fac_setting s
+ WHERE fac_setting_pvalue IS NOT NULL
+UNION ALL
+SELECT 'AADS',
+       fac_setting_module,
+       fac_setting_name,
+       fac_setting_description,
+       fac_setting_default,
+       fac_setting_pvalue
+  FROM aads.fac_setting s
+ WHERE fac_setting_pvalue IS NOT NULL
+UNION ALL
+SELECT 'AAEN',
+       fac_setting_module,
+       fac_setting_name,
+       fac_setting_description,
+       fac_setting_default,
+       fac_setting_pvalue
+  FROM aaen.fac_setting s
+ WHERE fac_setting_pvalue IS NOT NULL
+UNION ALL
+SELECT 'AAES',
+       fac_setting_module,
+       fac_setting_name,
+       fac_setting_description,
+       fac_setting_default,
+       fac_setting_pvalue
+  FROM aaes.fac_setting s
+ WHERE fac_setting_pvalue IS NOT NULL
+UNION ALL
+SELECT 'AAFP',
+       fac_setting_module,
+       fac_setting_name,
+       fac_setting_description,
+       fac_setting_default,
+       fac_setting_pvalue
+  FROM aafp.fac_setting s
+ WHERE fac_setting_pvalue IS NOT NULL
+UNION ALL
+SELECT 'AAFR',
+       fac_setting_module,
+       fac_setting_name,
+       fac_setting_description,
+       fac_setting_default,
+       fac_setting_pvalue
+  FROM aafr.fac_setting s
+ WHERE fac_setting_pvalue IS NOT NULL
+UNION ALL
+SELECT 'AAHU',
+       fac_setting_module,
+       fac_setting_name,
+       fac_setting_description,
+       fac_setting_default,
+       fac_setting_pvalue
+  FROM aahu.fac_setting s
+ WHERE fac_setting_pvalue IS NOT NULL
+UNION ALL
+SELECT 'AAIT',
+       fac_setting_module,
+       fac_setting_name,
+       fac_setting_description,
+       fac_setting_default,
+       fac_setting_pvalue
+  FROM aait.fac_setting s
+ WHERE fac_setting_pvalue IS NOT NULL
+UNION ALL
+SELECT 'AALB',
+       fac_setting_module,
+       fac_setting_name,
+       fac_setting_description,
+       fac_setting_default,
+       fac_setting_pvalue
+  FROM aalb.fac_setting s
+ WHERE fac_setting_pvalue IS NOT NULL
+UNION ALL
+SELECT 'AAME',
+       fac_setting_module,
+       fac_setting_name,
+       fac_setting_description,
+       fac_setting_default,
+       fac_setting_pvalue
+  FROM aame.fac_setting s
+ WHERE fac_setting_pvalue IS NOT NULL
+UNION ALL
+SELECT 'AANS',
+       fac_setting_module,
+       fac_setting_name,
+       fac_setting_description,
+       fac_setting_default,
+       fac_setting_pvalue
+  FROM aans.fac_setting s
+ WHERE fac_setting_pvalue IS NOT NULL
+UNION ALL
+SELECT 'AANX',
+       fac_setting_module,
+       fac_setting_name,
+       fac_setting_description,
+       fac_setting_default,
+       fac_setting_pvalue
+  FROM aanx.fac_setting s
+ WHERE fac_setting_pvalue IS NOT NULL
+UNION ALL
+SELECT 'AAPM',
+       fac_setting_module,
+       fac_setting_name,
+       fac_setting_description,
+       fac_setting_default,
+       fac_setting_pvalue
+  FROM aapm.fac_setting s
+ WHERE fac_setting_pvalue IS NOT NULL
+UNION ALL
+SELECT 'AASA',
+       fac_setting_module,
+       fac_setting_name,
+       fac_setting_description,
+       fac_setting_default,
+       fac_setting_pvalue
+  FROM aasa.fac_setting s
+ WHERE fac_setting_pvalue IS NOT NULL
+UNION ALL
+SELECT 'AAVL',
+       fac_setting_module,
+       fac_setting_name,
+       fac_setting_description,
+       fac_setting_default,
+       fac_setting_pvalue
+  FROM aavl.fac_setting s
+ WHERE fac_setting_pvalue IS NOT NULL
+UNION ALL
+SELECT 'AAXX',
+       fac_setting_module,
+       fac_setting_name,
+       fac_setting_description,
+       fac_setting_default,
+       fac_setting_pvalue
+  FROM aaxx.fac_setting s
+ WHERE fac_setting_pvalue IS NOT NULL
+UNION ALL
+SELECT 'AAZC',
+       fac_setting_module,
+       fac_setting_name,
+       fac_setting_description,
+       fac_setting_default,
+       fac_setting_pvalue
+  FROM aazc.fac_setting s
+ WHERE fac_setting_pvalue IS NOT NULL
+UNION ALL
+SELECT 'ASMS',
+       fac_setting_module,
+       fac_setting_name,
+       fac_setting_description,
+       fac_setting_default,
+       fac_setting_pvalue
+  FROM asms.fac_setting s
+ WHERE fac_setting_pvalue IS NOT NULL
+ 
+ 
+ 
+ DECLARE
+   str          VARCHAR2 (400);
+   last_login   DATE;
+   v_count      NUMBER;
+   v_like       VARCHAR2 (100);
+BEGIN
+   FOR klant IN (SELECT   owner
+                   FROM   all_tables
+                  WHERE   table_name = 'PRS_PERSLID')
+   LOOP
+      IF length(klant.owner) = 4
+      THEN 
+         v_like := chr(39) || '%aa-fm%' || chr(39);
+         str :=
+         'SELECT count(*)   FROM '|| klant.owner || '.prs_perslid WHERE PRS_PERSLID_OSLOGIN IS NULL AND PRS_PERSLID_OSLOGIN2 IS NOT NULL';
+
+--DBMS_OUTPUT.put_line (str);
+
+         EXECUTE IMMEDIATE str INTO v_count;
+
+         DBMS_OUTPUT.put_line (
+            v_count || ' ' || klant.owner
+            );
+      END IF;
+   END LOOP;
+END;

onces/AA/AAFM/Mobile_usage.sql

@@ -0,0 +1,104 @@
+SELECT 'AAAR',
+       count(mld_melding_key)
+  FROM aaar.mld_melding m
+ WHERE mld_meldbron_key = 7
+UNION ALL
+SELECT 'AABT',
+       count(mld_melding_key)
+  FROM aabt.mld_melding m
+ WHERE mld_meldbron_key = 7
+UNION ALL
+SELECT 'AACE',
+       count(mld_melding_key)
+  FROM aace.mld_melding m
+ WHERE mld_meldbron_key = 7
+UNION ALL
+SELECT 'AADO',
+       count(mld_melding_key)
+  FROM aado.mld_melding m
+ WHERE mld_meldbron_key = 7
+UNION ALL
+SELECT 'AADS',
+       count(mld_melding_key)
+  FROM aads.mld_melding m
+ WHERE mld_meldbron_key = 7
+UNION ALL
+SELECT 'AAEN',
+       count(mld_melding_key)
+  FROM aaen.mld_melding m
+ WHERE mld_meldbron_key = 7
+UNION ALL
+SELECT 'AAES',
+       count(mld_melding_key)
+  FROM aaes.mld_melding m
+ WHERE mld_meldbron_key = 7
+UNION ALL
+SELECT 'AAFP',
+       count(mld_melding_key)
+  FROM aafp.mld_melding m
+ WHERE mld_meldbron_key = 7
+UNION ALL
+SELECT 'AAFR',
+       count(mld_melding_key)
+  FROM aafr.mld_melding m
+ WHERE mld_meldbron_key = 7
+UNION ALL
+SELECT 'AAHU',
+       count(mld_melding_key)
+  FROM aahu.mld_melding m
+ WHERE mld_meldbron_key = 7
+UNION ALL
+SELECT 'AAIT',
+       count(mld_melding_key)
+  FROM aait.mld_melding m
+ WHERE mld_meldbron_key = 7
+UNION ALL
+SELECT 'AALB',
+       count(mld_melding_key)
+  FROM aalb.mld_melding m
+ WHERE mld_meldbron_key = 7
+UNION ALL
+SELECT 'AAME',
+       count(mld_melding_key)
+  FROM aame.mld_melding m
+ WHERE mld_meldbron_key = 7
+UNION ALL
+SELECT 'AANS',
+       count(mld_melding_key)
+  FROM aans.mld_melding m
+ WHERE mld_meldbron_key = 7
+UNION ALL
+SELECT 'AANX',
+       count(mld_melding_key)
+  FROM aanx.mld_melding m
+ WHERE mld_meldbron_key = 7
+UNION ALL
+SELECT 'AAPM',
+       count(mld_melding_key)
+  FROM aapm.mld_melding m
+ WHERE mld_meldbron_key = 7
+UNION ALL
+SELECT 'AASA',
+       count(mld_melding_key)
+  FROM aasa.mld_melding m
+ WHERE mld_meldbron_key = 7
+UNION ALL
+SELECT 'AAVL',
+       count(mld_melding_key)
+  FROM aavl.mld_melding m
+ WHERE mld_meldbron_key = 7
+UNION ALL
+SELECT 'AAXX',
+       count(mld_melding_key)
+  FROM aaxx.mld_melding m
+ WHERE mld_meldbron_key = 7
+UNION ALL
+SELECT 'AAZC',
+       count(mld_melding_key)
+  FROM aazc.mld_melding m
+ WHERE mld_meldbron_key = 7
+UNION ALL
+SELECT 'ASMS',
+       count(mld_melding_key)
+  FROM asms.mld_melding m
+ WHERE mld_meldbron_key = 7

onces/AA/AAIT/AAIT#25476.sql

@@ -0,0 +1,32 @@
+-- Customer specific once-script related to logcenter call: AAIT#25476
+--
+-- (c) 2012 SG|facilitor bv
+-- $Revision$
+-- $Id$
+--
+-- Support: +31 53 4800700
+
+SET ECHO ON
+SPOOL xAAIT#25476.lst
+SET DEFINE OFF
+
+
+alter session set nls_territory = 'America';
+
+INSERT INTO fac_notificatie_job (fac_notificatie_job_view,
+                                 fac_notificatie_job_oms,
+                                 fac_notificatie_job_mode,
+                                 fac_notificatie_job_interval,
+                                 fac_notificatie_job_nextrun,
+                                 fac_notificatie_job_flags)
+    VALUES ('AAXX_V_NOTI_BEZOEKERS',
+            'Notificatie naar bezoekers (bij aanmaak/mutatie)',
+            2,
+            1,
+            TO_DATE ('20130211 1300', 'yyyymmdd hh24mi'),
+            1);
+
+COMMIT;
+
+SPOOL OFF
+

onces/AA/AAIT/RuimteSensor.sql

@@ -0,0 +1,61 @@
+CREATE OR REPLACE VIEW cad_v_thema_srtruimtesensor
+(
+   alg_ruimte_key,
+   waarde
+)
+AS
+   -- zalen met een sensor
+   SELECT r.alg_ruimte_key,
+          DECODE (
+             INITCAP (d.ins_deel_state),
+             'Uit',                      -- als de sensor uit is kijken we naar de reservering
+             DECODE (r2a.res_reservering_key,
+                     NULL, 'Uit',        -- als er geen reservering gescheduled staat is de status uit
+                     DECODE (eerste10min, 1, 'Aan', 'NoShow')),  -- in de eerste 10 minuten v/d reservering melden we nog geen noshow
+             'Aan')
+             status
+     FROM alg_ruimte r,
+          ins_deel d,
+          (SELECT r2a.*,
+                  DECODE (TRUNC ( (SYSDATE - res_rsv_ruimte_van) / 144),
+                          0, 1,
+                          0)
+                     eerste10min
+             FROM res_v_rsv_ruimte_2_alg_ruimte r2a
+            WHERE res_rsv_ruimte_dirtlevel = 0
+              AND r2a.res_alg_ruimte_verwijder IS NULL
+              AND r2a.res_rsv_ruimte_van < SYSDATE
+              AND r2a.res_rsv_ruimte_tot > SYSDATE) r2a
+    WHERE r.alg_ruimte_verwijder IS NULL
+      AND d.ins_deel_verwijder IS NULL
+      AND d.ins_alg_ruimte_type = 'R'
+      AND d.ins_alg_ruimte_key = r.alg_ruimte_key
+      AND d.ins_deel_state IS NOT NULL
+      AND r.alg_ruimte_key = r2a.alg_ruimte_key(+)
+   UNION ALL               -- en dan de ruimten zonder sensor
+   SELECT r.alg_ruimte_key,
+          DECODE (rr.res_ruimte_key,  -- is dit een vergaderruimte?
+                  NULL, '*' || sr.alg_srtruimte_omschrijving,
+                  DECODE (r2a.res_reservering_key, NULL, 'Uit', 'Aan'))
+     FROM alg_v_aanwezigruimte r,
+          alg_srtruimte sr,
+          (SELECT r2a.*
+             FROM res_v_rsv_ruimte_2_alg_ruimte r2a
+            WHERE res_rsv_ruimte_dirtlevel = 0
+              AND r2a.res_alg_ruimte_verwijder IS NULL
+              AND r2a.res_rsv_ruimte_van < SYSDATE
+              AND r2a.res_rsv_ruimte_tot > SYSDATE) r2a,
+          (  SELECT alg_ruimte_key, MAX (res_ruimte_key) res_ruimte_key
+               FROM res_alg_ruimte
+              WHERE res_alg_ruimte_verwijder IS NULL
+           GROUP BY alg_ruimte_key) rr
+    WHERE r.alg_srtruimte_key = sr.alg_srtruimte_key(+)
+      AND r.alg_ruimte_key = r2a.alg_ruimte_key(+)
+      AND r.alg_ruimte_key = rr.alg_ruimte_key(+)
+      AND NOT EXISTS
+             (SELECT r.alg_ruimte_key
+                FROM ins_deel d
+               WHERE d.ins_deel_verwijder IS NULL
+                 AND d.ins_alg_ruimte_type = 'R'
+                 AND d.ins_alg_ruimte_key = r.alg_ruimte_key
+                 AND d.ins_deel_state IS NOT NULL);