ASDL#35227 -- Implementatie Asito Woonstede

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

ASDL/asdl.sql

@@ -13,6 +13,44 @@ spool &fcltlogfile
 SET DEFINE OFF
 
 
+CREATE OR REPLACE PACKAGE asdl
+AS
+   FUNCTION check_valid_schedule (p_deel_key IN NUMBER)
+      RETURN VARCHAR2;
+END;
+/
+
+CREATE OR REPLACE PACKAGE BODY asdl
+AS
+   FUNCTION check_valid_schedule (p_deel_key IN NUMBER)
+      RETURN VARCHAR2
+   AS
+      v_srtcontrole_key   NUMBER;
+      v_dummydate         DATE;
+      v_error_string      VARCHAR2 (200);
+   BEGIN
+      SELECT ins_srtcontrole_key
+        INTO v_srtcontrole_key
+        FROM ins_srtcontroledl_xcp x
+       WHERE x.ins_deel_key = p_deel_key;
+
+      BEGIN
+         SELECT TRUNC (
+                   fac.nextcyclusdatedeel (p_deel_key, v_srtcontrole_key, 1))
+           INTO v_dummydate
+           FROM DUAL;
+
+         v_error_string := NULL;
+      EXCEPTION
+         WHEN OTHERS
+         THEN
+            v_error_string := SUBSTR (SQLERRM, 1, 200);
+      END;
+
+      RETURN v_error_string;
+   END;
+END;
+/
 
 
 CREATE OR REPLACE VIEW asdl_v_rap_werkprogramma
@@ -320,6 +358,13 @@ AS
       AND d.ins_deel_key = id.ins_deel_key
       AND d.alg_verdieping_key = v.alg_verdieping_key
       AND l.alg_district_key = di.alg_district_key;
+      
+CREATE OR REPLACE VIEW asdl_v_rap_check_schedule
+AS
+SELECT d.*
+  FROM ins_v_deel_gegevens d, ins_srtcontroledl_xcp x
+ WHERE x.ins_deel_key = d.ins_deel_key
+   AND asdl.check_valid_schedule (d.ins_deel_key) IS NOT NULL;
 
 BEGIN adm.systrackscriptId('$Id$', 0); END;
 /