ASDL52274 Import glasmeldingen

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

ASDL/asdl.sql

@@ -2696,6 +2696,16 @@ BEGIN
                   v_aanduiding || 'Uitvoerder bestaat niet',
                      'Melding wordt niet ingelezen!');
             END IF;
+            
+            --Controle of de melding al is aangemaakt. 
+            IF TO_NUMBER(TO_CHAR(v_uitvoerjaar, 'YYYY')||TO_CHAR(v_uitvoerweek, 'WW')) <= TO_NUMBER(TO_CHAR(SYSDATE, 'YYYY')||TO_CHAR(SYSDATE, 'WW'))+1
+            THEN v_ongeldig := 1;
+                fac.imp_writelog (
+                  p_import_key,
+                  'W',
+                  v_aanduiding || 'Melding in volgende of voorgaande weken',
+                     'Melding wordt niet ingelezen!');
+            END IF;            
 
             IF LENGTH (v_serviceordernr) > 50
             THEN
@@ -2733,23 +2743,6 @@ BEGIN
                   || ']');
             END IF;
 
-            IF v_uitvoerjaar <> TO_CHAR(SYSDATE, 'YYYY')
-            THEN v_ongeldig := 1;
-                fac.imp_writelog (
-                  p_import_key,
-                  'W',
-                  v_aanduiding || 'Melding niet in huidig jaar',
-                     'Melding wordt niet ingelezen!');
-            END IF;
-            
-            IF TO_NUMBER(v_uitvoerweek) <= TO_NUMBER(TO_CHAR(SYSDATE, 'WW'))
-            THEN v_ongeldig := 1;
-                fac.imp_writelog (
-                  p_import_key,
-                  'W',
-                  v_aanduiding || 'Melding in deze of voorgaande week',
-                     'Melding wordt niet ingelezen!');
-            END IF;
 
              -- Insert geformatteerde import record
                 IF header_is_valid = 1