BLOS#72319 -- eenmalig toevoegen afleveradres per locatie ivm implementatie eProcurement

svn path=/Customer/; revision=56500
2022-07-06 20:30:55 +00:00
parent 7a26b6e0a3
commit b51d030e12
1 changed files with 111 additions and 0 deletions
--- a/onces/BLOS/BLOS#72319.sql
+++ b/onces/BLOS/BLOS#72319.sql
@@ -0,0 +1,111 @@
+-- Customer specific once-script voor BLOS
+
+-- $Id$
+--
+-- Oncescript om eenmalig alle bestaande locaties (+/- 270) een gekoppeld afleveradresde te geven - Ivm inrichten eProcurement
+
+DEFINE thisfile = 'BLOS#72319.SQL'
+DEFINE dbuser   = '^BLOS'
+
+SET ECHO ON
+SET DEFINE ON
+COLUMN fcltlogfile NEW_VALUE fcltlogfile NOPRINT;
+WHENEVER SQLERROR EXIT;
+SELECT adm.scriptspoolfile('&dbuser', '&thisfile') AS fcltlogfile FROM DUAL;
+WHENEVER SQLERROR CONTINUE;
+SPOOL &fcltlogfile
+SET DEFINE OFF
+
+
+------ payload begin ------
+
+DECLARE
+    v_errormsg       VARCHAR (200);
+    v_errorhint      VARCHAR (200);
+    oracle_err_num   NUMBER;
+    oracle_err_mes   VARCHAR2 (150);
+    currentversion   fac_module.fac_module_version%TYPE;
+    v_aanduiding     VARCHAR (100);
+    v_count          NUMBER;
+    v_alg_locatie_key NUMBER (10) ;
+   
+    CURSOR c
+    IS
+    SELECT alg_locatie_key, alg_locatie_omschrijving, alg_locatie_adres, alg_locatie_postcode, alg_locatie_plaats, alg_locatie_land  
+      FROM alg_locatie 
+    WHERE  alg_locatie_verwijder IS NULL ;
+
+BEGIN
+
+    FOR rec IN c
+    LOOP
+        BEGIN
+        
+        SELECT a.alg_locatie_key
+        INTO v_alg_locatie_key
+        FROM mld_adres a
+        WHERE a.alg_locatie_key = rec.alg_locatie_key
+          AND a.mld_adres_verwijder IS NULL ;
+        EXCEPTION WHEN NO_DATA_FOUND
+        THEN
+             
+INSERT INTO mld_adres (mld_adres_contactpers_bureau,
+                       mld_adres_telefoon,
+                       mld_adres_email,
+                       mld_adres_naam,
+                       mld_adres_bezoek_adres,
+                       mld_adres_bezoek_postcode,
+                       mld_adres_bezoek_plaats,
+                       mld_adres_bezoek_land,
+                       mld_adres_post_adres,
+                       mld_adres_gebouw_ruimte,
+                       mld_adres_post_postcode,
+                       mld_adres_post_plaats,
+                       mld_adres_post_land,
+                       mld_adres_contactpersoon,
+                       mld_adres_contactpers_telefoon,
+                       mld_adres_contactpers_email,
+                       mld_adres_factuuradres,
+                       mld_adres_opdrachtadres,
+                       mld_adres_afleveradres,
+                       alg_locatie_key)
+     VALUES (NULL,
+             NULL,
+             NULL,
+             rec.alg_locatie_omschrijving,  -- 'KCC',
+             rec.alg_locatie_adres, --'De Schans 19-09',
+             rec.alg_locatie_postcode, -- '8231 KM',
+             rec.alg_locatie_plaats, -- 'Lelystad',
+             rec.alg_locatie_land, -- 'Nederland',
+             rec.alg_locatie_adres, -- 'De Schans 19-09',
+             NULL,
+             rec.alg_locatie_postcode, --'8231 KM',
+             rec.alg_locatie_plaats, -- 'Lelystad',
+             rec.alg_locatie_land, --'Nederland',
+             NULL,
+             NULL,
+             NULL,
+             NULL,
+             NULL,
+             1,
+             rec.alg_locatie_key) ;   -- 17
+
+
+        END;
+    END LOOP;
+
+END;
+/
+
+
+------ payload end   ------
+
+SET DEFINE OFF
+BEGIN adm.systrackscriptId ('$Id$', 1); END;
+/
+
+COMMIT;
+SET ECHO OFF
+SPOOL OFF
+SET DEFINE ON
+PROMPT Logfile of this upgrade is: &fcltlogfile