TMGP#77597 -- Inrichten omgeving voor de Tomin groep

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

TMGP/TMGP.sql

@@ -0,0 +1,84 @@
+--
+-- $Id$
+--
+-- Script containing customer specific sql statements for the FACILITOR database
+-- 
+-- 
+-- 
+-- 
+-- 
+
+
+DEFINE thisfile = 'TMGP.SQL'
+DEFINE dbuser   = 'TMGP'
+
+SET ECHO ON
+SET DEFINE ON
+COLUMN fcltlogfile NEW_VALUE fcltlogfile NOPRINT;
+COLUMN fcltcusttxt NEW_VALUE fcltcusttxt NOPRINT;
+WHENEVER SQLERROR CONTINUE;
+SELECT adm.getscriptspoolfile('&thisfile') AS fcltlogfile FROM DUAL;
+SPOOL &fcltlogfile
+WHENEVER SQLERROR EXIT;
+SELECT adm.checkscriptcust('&dbuser') AS fcltcusttxt FROM DUAL;
+WHENEVER SQLERROR CONTINUE;
+---------------------------------------
+PROMPT &fcltcusttxt
+---------------------------------------
+SET DEFINE OFF
+
+------ payload begin ------
+
+
+-- Import procedure voor inlezen cmdb assets met configuratie link in kenmkerk 1 kolom
+CREATE OR REPLACE PROCEDURE TMGP_IMPORT_CMDBASSETS(p_import_key IN NUMBER)
+AS  
+BEGIN
+  fac_import_ins(p_import_key);     
+END;
+/
+
+
+CREATE OR REPLACE PROCEDURE TMGP_UPDATE_CMDBASSETS(p_import_key IN NUMBER)
+AS
+  CURSOR sel 
+  IS
+       SELECT i.ins_deel_key object_key, i2.ins_deel_key config_key 
+         from fac_imp_ins f, ins_deel i, ins_deel i2
+        WHERE i.ins_deel_omschrijving=f.ins_deel_omschrijving
+          AND f.ins_kenmerkwaarde1 IS NOT NULL
+          AND i2.ins_deel_omschrijving = f.ins_kenmerkwaarde1
+          AND (SELECT count(*) 
+                 FROM ins_deelkoppeling idk 
+                WHERE idk.ins_deelkoppeling_van_key = i2.ins_deel_key 
+                  AND idk.ins_deelkoppeling_naar_key =i.ins_deel_key)=0;
+  
+BEGIN
+  fac_update_ins(p_import_key);  
+  FOR rec IN sel
+  LOOP  
+      INSERT INTO ins_deelkoppeling(ins_deelkoppeling_van_key,
+                                    ins_deelkoppeling_naar_key,
+                                    ins_deelkoppeling_omschrijving,
+                                    ins_deelkoppeling_aanmaak)
+                            VALUES (rec.config_key,
+                                    rec.object_key,
+                                    'Configuratie koppeling',
+                                    SYSDATE);       
+    --  fac.trackaction ('INSUPD', rec.config_key, 3, SYSDATE,'Object toegevoegd aan configuratie');                                   
+  END LOOP;
+   
+END;
+/
+
+------ payload end   ------
+
+SET DEFINE OFF
+BEGIN adm.systrackscriptId ('$Id$', 0); END;
+/
+
+COMMIT;
+SET ECHO OFF
+SPOOL OFF
+SET DEFINE ON
+PROMPT Logfile of this upgrade is: &fcltlogfile