CSUN#65497 Import planning, bepalen beginpunt jaar verbeterd

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

CSUN/CSUN.sql

@@ -3934,6 +3934,7 @@ IS
    v_count_import         NUMBER (10);
    v_count_melding        NUMBER := 1;
    v_count_alglocatie     NUMBER := 1;
+   v_year_method          NUMBER := 1;
    -- De importvelden:
    v_fac_import_key       VARCHAR (256);
    v_fac_import_index     VARCHAR (256);
@@ -4061,6 +4062,20 @@ BEGIN
                   'Melding wordt niet ingelezen!');
             END IF;
 
+            --Bepalen methode van inlezen. Verderop bij de import wordt obv weeknummer een datum bepaald (met NEXT_DAY).
+            CASE
+               WHEN    TO_CHAR (TO_DATE ('04-jan-' || 2020, 'dd-mm-yyyy'),
+                                'Day') = 'Vrijdag'
+                    OR TO_CHAR (TO_DATE ('04-jan-' || 2020, 'dd-mm-yyyy'),
+                                'Day') = 'Zaterdag'
+                    OR TO_CHAR (TO_DATE ('04-jan-' || 2020, 'dd-mm-yyyy'),
+                                'Day') = 'Zondag'
+               THEN
+                  v_year_method := 2;
+               ELSE
+                  v_year_method := 1;
+            END CASE;
+
             -- Controle of de melding wel ingelezen moet worden. Meldingen moeten worden ingelezen na volgende week.
             -- Dus stel het is week 8, dan moeten meldingen ingelezen worden in week 10 en verder.
             -- De routine om meldingen automatisch aan te maken (csun_export_meldingen) maakt namelijk op maandag meldingen voor volgende week aan.
@@ -4145,7 +4160,7 @@ BEGIN
                               NEXT_DAY (
                                  TO_DATE ('04-jan-' || v_uitvoerjaar,
                                           'dd-mm-yyyy')
-                                 + (v_uitvoerweek - 2) * 7,
+                                 + (v_uitvoerweek - v_year_method) * 7,
                                  'vrijd'),
                               v_uitvoerweek,
                               v_uitvoerjaar,