AAGN#78430 -- Upload foto's gebreken tbv rapportage NEN2767 - once ivm noodzakelijke bijstelling kenmerkvelden

svn path=/Customer/; revision=62908

onces/AA/AAXX/AAXX#78430_gebreken.sql

@@ -0,0 +1,90 @@
+--
+-- $Id$
+--
+-- ONCESCRIPT om voor alle Assetmanagent-klanten van heyday 2-tal kenmerkvelden aan te passen zodat het aansluit bij de foto-upload van de gebreken
+---- zou je eigenlijk ook CND\CND_INI.sql op moeten aanpassen..?!
+
+DEFINE thisfile = 'AAXX#78430_gebreken.SQL'
+DEFINE dbuser   = 'AAXX'
+
+SET ECHO ON
+SET DEFINE ON
+COLUMN fcltlogfile NEW_VALUE fcltlogfile NOPRINT;
+COLUMN fcltcusterr NEW_VALUE fcltcusterr NOPRINT;
+WHENEVER SQLERROR CONTINUE;
+SELECT adm.getscriptspoolfile('&thisfile') AS fcltlogfile FROM DUAL;
+SPOOL &fcltlogfile
+WHENEVER SQLERROR EXIT;
+SELECT adm.checkscriptcust('&dbuser') AS fcltcusterr FROM DUAL;
+WHENEVER SQLERROR CONTINUE;
+PROMPT &fcltcusterr
+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;
+
+    -- Per klantomgeving te vullen
+    v_cust_code                    VARCHAR2 (100)  := 'xxxx' ;
+
+    --- Overige
+    v_prs_kenmerk_key_boekdatum    NUMBER (10);
+    v_prs_kenmerk_key_auto_run     NUMBER (10);
+
+BEGIN
+
+    -- klantcode
+    SELECT upper(fac_version_cust)
+      INTO v_cust_code
+      FROM fac_version;
+    
+    -- Klantomgevingen met assetmanagement zijn: 'INLO', 'RABO', 'AAGN', 'AASA', 'SMKA')  
+   
+    IF v_cust_code IN ('INLO', 'RABO', 'AAGN', 'AASA', 'SMKA') THEN
+    
+
+     -- corrigeren fotonaam - meer posities nodig (50 -> 1000) 
+     UPDATE mld_srtkenmerk
+        SET mld_srtkenmerk_lengte = 1000
+      WHERE mld_srtkenmerk_key IN
+           (SELECT mld_srtkenmerk_key
+              FROM mld_srtkenmerk
+             WHERE     mld_srtkenmerk_omschrijving = 'Fotonaam'
+                   AND mld_srtkenmerk_kenmerktype = 'C'
+                   AND mld_srtkenmerk_code = 'FOTONAAM'
+                   AND mld_srtkenmerk_verwijder IS NULL);
+
+     -- upload - meerdere foto's moeten geupload kunnen worden (M -> F)
+     UPDATE mld_srtkenmerk
+        SET mld_srtkenmerk_kenmerktype = 'M'
+      WHERE mld_srtkenmerk_key IN
+           (SELECT mld_srtkenmerk_key
+              FROM mld_srtkenmerk
+             WHERE     mld_srtkenmerk_omschrijving = 'Foto'
+                   AND mld_srtkenmerk_kenmerktype = 'F'
+                   AND mld_srtkenmerk_code = 'FOTO'
+                   AND mld_srtkenmerk_verwijder IS NULL);        
+
+    END IF;
+  
+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