KFNS#40110 -- Procedure voor kostenmonitor freeze toegevoegd

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

KFNS/kfns.sql

@@ -860,6 +860,38 @@ EXCEPTION
 END;
 /
 
+CREATE OR REPLACE PROCEDURE KFNS_EXPORT_KM_FREEZE (p_applname IN VARCHAR2)
+AS
+   V_KWARTAAL   VARCHAR2 (10);
+BEGIN
+   IF TRUNC (SYSDATE, 'Q') = TRUNC (SYSDATE)
+   THEN
+      V_KWARTAAL :=
+            TO_CHAR (SYSDATE, 'yyyy')
+         || '-'
+         || FAC.SAFE_TO_NUMBER (TO_CHAR ( (SYSDATE), 'Q'));
+
+      INSERT INTO KFNS_KM_FREEZE (FREEZE_DATUM,
+                                  KWARTAAL,
+                                  ALG_GEBOUW_CODE,
+                                  ALG_GEBOUW_OMSCHRIJVING,
+                                  PRS_KOSTENSOORT_OMS,
+                                  PRS_KOSTENSOORTGRP_OMS,
+                                  VOLGORDE,
+                                  BEDRAG)
+         SELECT SYSDATE,
+                V_KWARTAAL,
+                ALG_GEBOUW_CODE,
+                ALG_GEBOUW_OMSCHRIJVING,
+                PRS_KOSTENSOORT_OMS,
+                PRS_KOSTENSOORTGRP_OMS,
+                VOLGORDE,
+                BEDRAG
+           FROM KFNS_V_RAP_KOSTEN_MONITOR;
+   END IF;
+END;
+/
+
 CREATE OR REPLACE PROCEDURE kfns_update_opdrstat_strukton (p_import_key IN NUMBER)
 AS
    -- Cursor loopt - in volgorde! - over alle ingelezen statusberichten.