admin/Customer
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

MARE#64359 Implementatie Maregroep, Metrel

Browse Source 
svn path=/Customer/; revision=50270
This commit is contained in:
Sander Schepers
2021-03-10 09:43:39 +00:00
parent ed3437f596
commit 324781325d
1 changed files with 126 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

126
onces/MARE/MARE#64359.sql Normal file
View File

@@ -0,0 +1,126 @@
--
-- $Id$
--
-- Voor import van periodieke taken wordt een tabel aangemaakt.
-- Voor de taken Metrel worden 6 kenmerken aangemaakt.
--
DEFINE thisfile = 'MARE#64359.SQL'
DEFINE dbuser = '^MARE'
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 ------
CREATE TABLE mare_imp_insp_metrel (
alg_locatie_code VARCHAR2 (60),
ins_deel_omschrijving VARCHAR2 (60),
ins_srtcontrole_omschrijving VARCHAR2 (60),
ins_deelsrtcontrole_datum VARCHAR2 (60),
ins_deelsrtcontrole_opmerking VARCHAR2 (60),
apparaatnummer VARCHAR2 (60),
gebruiker VARCHAR2 (60),
status VARCHAR2 (60),
Visuele_test VARCHAR2 (60),
Isolatie_sonde VARCHAR2 (60),
Vermogen VARCHAR2 (60),
Beschermingsleiding VARCHAR2 (60),
Isolatie VARCHAR2 (60)
);
DECLARE
CURSOR c
IS
SELECT ins_srtcontrole_key
FROM ins_srtcontrole
WHERE UPPER (ins_srtcontrole_omschrijving) LIKE '%METREL%';
BEGIN
FOR rec IN c
LOOP
BEGIN
INSERT INTO ins_kenmerk (ins_srtkenmerk_key,
ins_srtinstallatie_key,
ins_kenmerk_niveau,
ins_kenmerk_bewerkniveau,
ins_kenmerk_volgnummer)
VALUES (41, --Kenmerksoort Status
rec.ins_srtcontrole_key,
'C',
'D',
1);
INSERT INTO ins_kenmerk (ins_srtkenmerk_key,
ins_srtinstallatie_key,
ins_kenmerk_niveau,
ins_kenmerk_bewerkniveau,
ins_kenmerk_volgnummer)
VALUES (42, --Kenmerksoort Visuele test
rec.ins_srtcontrole_key,
'C',
'D',
2);
INSERT INTO ins_kenmerk (ins_srtkenmerk_key,
ins_srtinstallatie_key,
ins_kenmerk_niveau,
ins_kenmerk_bewerkniveau,
ins_kenmerk_volgnummer)
VALUES (43, --Kenmerksoort Isolatie sonde
rec.ins_srtcontrole_key,
'C',
'D',
3);
INSERT INTO ins_kenmerk (ins_srtkenmerk_key,
ins_srtinstallatie_key,
ins_kenmerk_niveau,
ins_kenmerk_bewerkniveau,
ins_kenmerk_volgnummer)
VALUES (44, --Kenmerksoort Vermogen
rec.ins_srtcontrole_key,
'C',
'D',
4);
INSERT INTO ins_kenmerk (ins_srtkenmerk_key,
ins_srtinstallatie_key,
ins_kenmerk_niveau,
ins_kenmerk_bewerkniveau,
ins_kenmerk_volgnummer)
VALUES (45, --Kenmerksoort Beschermingsleiding
rec.ins_srtcontrole_key,
'C',
'D',
5);
INSERT INTO ins_kenmerk (ins_srtkenmerk_key,
ins_srtinstallatie_key,
ins_kenmerk_niveau,
ins_kenmerk_bewerkniveau,
ins_kenmerk_volgnummer)
VALUES (46, --Kenmerksoort Isolatie
rec.ins_srtcontrole_key,
'C',
'D',
6);
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