UWVA#35039 KOS-procedure starten via interface

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

UWVA/uwva_misc.sql

@@ -5885,14 +5885,11 @@ ORDER BY g.fac_groep_omschrijving,
 
 -- AfterSales afmelden van bestellingen, meldingen en reserveringen.
 -- UWVA#21019: ook facturen automatisch accorderen (na 4 weken bij de budgethouder)
-CREATE OR REPLACE FORCE VIEW uwva_v_export_aftersales (RESULT, result_order)
+CREATE OR REPLACE VIEW uwva_v_export_aftersales (result, result_order)
 AS
    SELECT '', 0
      FROM DUAL
     WHERE 1 = 0;
-/
-
-
 
 ----------------------------------------------------------------------------------
 --
@@ -6953,6 +6950,146 @@ EXCEPTION
 END;
 /
 
+
+-- UWVA#35039: Handmatig <20>n direct te starten KOS-procedure!
+/* Formatted on 13-1-2016 10:54:06 (QP5 v5.136.908.31019) */
+CREATE OR REPLACE VIEW uwva_v_export_kos (result, result_order)
+AS
+   SELECT fac_rapport_regel, fac_rapport_volgnr
+     FROM fac_rapport
+    WHERE fac_rapport_node = SUBSTR ('KOS', 1, 12);
+
+CREATE OR REPLACE PROCEDURE uwva_export_kos (p_applname   IN VARCHAR2,
+                                             p_applrun    IN VARCHAR2,
+                                             p_filedir    IN VARCHAR2,
+                                             p_filename   IN VARCHAR2)
+AS
+   CURSOR c
+   IS
+      SELECT a.bez_afspraak_key,
+             rrr.res_rsv_ruimte_key,
+             rrr.res_reservering_key || '/' || rrr.res_rsv_ruimte_volgnr resnr,
+             rr.res_ruimte_nr resruimte,
+             rrr.res_rsv_ruimte_van van,
+             ac.bez_actie_key
+        FROM bez_afspraak a,
+             res_rsv_ruimte rrr,
+             res_ruimte_opstelling ro,
+             res_ruimte rr,
+             bez_actie ac
+       WHERE     a.bez_afspraak_datum > TRUNC (SYSDATE)
+             AND a.res_rsv_ruimte_key = rrr.res_rsv_ruimte_key
+             AND rrr.res_ruimte_opstel_key = ro.res_ruimte_opstel_key
+             AND ro.res_ruimte_key = rr.res_ruimte_key
+             AND rr.bez_actie_key = ac.bez_actie_key
+             AND BITAND (ac.bez_actie_flags, 1) = 1
+             AND (a.bez_actie_key != ac.bez_actie_key OR a.bez_actie_key IS NULL);
+
+   v_errormsg       VARCHAR2 (1000);
+   oracle_err_num   NUMBER;
+   oracle_err_mes   VARCHAR2 (200);
+   v_aanduiding     VARCHAR2 (255);
+   v_rownr          NUMBER := 0;
+   v_count          NUMBER;
+
+   PROCEDURE add_row (p_regel IN VARCHAR2)
+   AS
+   BEGIN
+      INSERT INTO fac_rapport (fac_rapport_node, fac_rapport_volgnr, fac_rapport_regel)
+          VALUES (SUBSTR (p_applname, 1, 12), v_rownr, p_regel);
+
+      v_rownr := v_rownr + 1;
+   END;
+
+   PROCEDURE add_element (p_tag IN VARCHAR2, p_value IN VARCHAR2)
+   AS
+   BEGIN
+      add_row('<' || p_tag || '>' || xml.char_to_html (p_value) || '</' || p_tag || '>');
+   END;
+BEGIN
+   DELETE fac_rapport
+    WHERE fac_rapport_node = SUBSTR (p_applname, 1, 12);
+
+   COMMIT;
+
+   add_row ('<kos>');
+
+   FOR r IN c
+   LOOP
+      BEGIN
+         v_aanduiding :=
+               'Afspraak '
+            || r.bez_afspraak_key
+            || ' bij res '
+            || r.resnr
+            || ' ('
+            || r.res_rsv_ruimte_key
+            || ') in "'
+            || r.resruimte
+            || '" op '
+            || TO_CHAR (r.van, 'dd-mm-yyyy hh24:mi');
+
+         v_errormsg := 'Fout bijwerken bez_actie bij bez_afspraak';
+
+         UPDATE bez_afspraak
+            SET bez_actie_key = r.bez_actie_key
+          WHERE bez_afspraak_key = r.bez_afspraak_key;
+
+         fac.writelog (p_applname, 'I', v_aanduiding, '');
+         add_element ('log', v_aanduiding);
+      EXCEPTION
+         WHEN OTHERS
+         THEN
+            oracle_err_num := SQLCODE;
+            oracle_err_mes := SUBSTR (SQLERRM, 1, 200);
+            v_errormsg :=
+                  v_errormsg
+               || ' ORACLE (error '
+               || oracle_err_num
+               || '/'
+               || oracle_err_mes
+               || ')';
+            fac.writelog (p_applname, 'E', v_errormsg, v_aanduiding);
+      END;
+   END LOOP;
+
+   COMMIT;
+
+   -- Alle res_ruimte zonder default-actie de default-actie toekennen.
+   SELECT COUNT ( * )
+     INTO v_count
+     FROM res_ruimte
+    WHERE bez_actie_key IS NULL;
+
+   UPDATE res_ruimte
+      SET bez_actie_key = 5
+    WHERE bez_actie_key IS NULL;
+
+   add_element (
+      'log',
+      'Aantal reserveerbare ruimten zonder actie: ' || TO_CHAR (v_count));
+
+   -- Alle toekomstige bez_afspraak zonder actie de default-actie toekennen.
+   SELECT COUNT ( * )
+     INTO v_count
+     FROM bez_afspraak
+    WHERE bez_afspraak_datum > TRUNC (SYSDATE) AND bez_actie_key IS NULL;
+
+   UPDATE bez_afspraak
+      SET bez_actie_key = 5
+    WHERE bez_afspraak_datum > TRUNC (SYSDATE) AND bez_actie_key IS NULL;
+
+   add_element (
+      'log',
+      'Aantal toekomstige afspraken zonder actie: ' || TO_CHAR (v_count));
+
+   add_row ('</kos>');
+
+   COMMIT;
+END;
+/
+
+
 CREATE OR REPLACE VIEW uwva_v_imp_log (fclt_f_applicatie,
                                        datum,
                                        fclt_f_status,