admin/Customer
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
Files
e78f159871fc69eac2f3dd73ed3793dd2aef63b8
Customer/PLAT/plat.sql
Marcel Bourseau c2e69ea1dc PLAT#36309: MJOP-Export vanuit PLATO, Import in Tobias AX 
svn path=/Customer/trunk/; revision=36042
2017-11-17 14:32:02 +00:00

1303 lines
61 KiB
SQL
Raw Blame History

-- Script containing customer specific configuration sql statements for plat: Medux
-- (c) 2014 SG|facilitor
-- $Revision$
-- $Id$
--
-- Support: +31 53 4800710
set echo on
spool plat.lst
----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-- ALG Onroerend Goed 1 import (locaties + gebouwen)
----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
CREATE OR REPLACE PROCEDURE plat_post_import_onrgoed1 (p_import_key IN NUMBER)
AS
v_errorhint VARCHAR2 (400);
BEGIN
v_errorhint := 'plat_post_import_onrgoed1';
END;
/
CREATE OR REPLACE PROCEDURE plat_import_onrgoed1 (p_import_key IN NUMBER)
AS
oracle_err_num NUMBER;
oracle_err_mes VARCHAR2 (200);
v_errormsg VARCHAR2 (400);
v_errorhint VARCHAR2 (400);
BEGIN
v_errorhint := 'plat_import_onrgoed1';
fac_import_onrgoed1(p_import_key);
COMMIT;
-- After import korrektie gebeurt nu...
plat_post_import_onrgoed1(p_import_key);
EXCEPTION
WHEN OTHERS
THEN
oracle_err_num := SQLCODE;
oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
v_errormsg := 'Error ' || oracle_err_num || '/' || oracle_err_mes;
fac.imp_writelog (p_import_key, 'E', v_errormsg, v_errorhint);
END plat_import_onrgoed1;
/
CREATE OR REPLACE PROCEDURE plat_post_onrgoed1_exploitatie (p_import_key IN NUMBER, p_max_alg_gebouw_key IN NUMBER)
AS
v_errorhint VARCHAR2 (400);
v_count_tot NUMBER(10);
v_errormsg VARCHAR2 (400);
oracle_err_num NUMBER;
oracle_err_mes VARCHAR2 (200);
-- locatiecode is uniek (over de hele DB heen), en gebouwcode is uniek binnen de locatiecode.
-- Let op: locatiecode is in DB in UPPER, gebouwcode is in DB niet upper, die staat in de kolom alg_gebouw_upper.
-- Alle locaties met hun gebouwen in de database die NIET in het importbestand staan, en die dus kunnen worden verwijderd.
-- Als die de vorige keer niet verwijderd was, want dan blijven we verwijderen natuurlijk, 1x is genoeg.
-- De vorige verwijderd betekent (tot nu toe gekozen) dat vervaldatum in het verleden ligt; zie TODO hieronder bij het zetten van de vervaldatum (ipv verwijderdatum).
CURSOR c1
IS
SELECT l.alg_locatie_key, l.alg_locatie_code, g.alg_gebouw_key, g.alg_gebouw_code, g.alg_gebouw_upper
FROM alg_locatie l, alg_gebouw g
WHERE g.alg_locatie_key = l.alg_locatie_key
AND l.alg_locatie_verwijder IS NULL
AND g.alg_gebouw_verwijder IS NULL
AND COALESCE(g.alg_gebouw_vervaldatum,SYSDATE) >= SYSDATE
AND NOT EXISTS (SELECT 'x' FROM fac_imp_onrgoed1 og
WHERE UPPER(og.alg_locatie_code) = l.alg_locatie_code
AND UPPER(og.alg_gebouw_code) = g.alg_gebouw_upper);
BEGIN
-- Alle gebouwen krijgen een alg-gebouw_vervaldatum als deze is gevuld in kolom S (flexprop 'Eindjaar' met alg_kenmerk_key = 2).
v_errorhint := 'plat_post_onrgoed1_exploitatie';
-- Werk alle vervaldatums van de gebouwen bij die nog in de DB staan met de waarde uit kenmerk 'Einde exploitatie' (key 2) die bij de locatie (van het gebouw) staat geregistreerd.
-- In kenmerk 'Einde exploitatie' staat het jaartal van einde, die gaan we nog voorzien van de laatste dag in dat jaar, oftewel '31 dec'
UPDATE alg_gebouw g
SET g.alg_gebouw_vervaldatum = (SELECT fac.safe_to_date('31-12-' || alg_onrgoedkenmerk_waarde, 'dd-mm-yyyy')
FROM alg_onrgoedkenmerk ok
WHERE ok.alg_onrgoed_key = g.alg_locatie_key
AND ok.alg_onrgoed_niveau = 'L'
AND ok.alg_kenmerk_key = 2
AND ok.alg_onrgoedkenmerk_verwijder IS NULL)
WHERE g.alg_gebouw_verwijder IS NULL;
FOR rec IN c1
LOOP
fac.imp_writelog (p_import_key,
'I',
'Gebouw ' || rec.alg_gebouw_code || '(locatie ' || rec.alg_locatie_code || ') is verwijderd cq. vervaldatum op vorig jaar gezet: ' || 'gebouw key=[' || TO_CHAR(rec.alg_gebouw_key) || ']',
'');
-- We gaan het gebouw niet verwijderen, wellicht komt dat nog (TODO),
-- want voor het verwijderen van gebouw moeten ALLE onderliggende zaken (controles, objecten, ruimten, verdiepingen) eerst worden verwijderd.
-- Iets too much voor dit moment, en eh..., je bent die historie ook direct kwijt.
-- Dus vooralsnog zetten we hier de einde exploitatietijd met de huidige jaartal MINUS 1, op 31 dec (dus vandaag = 10 aug 2016, dan vervaldatum = 31 dec 2015)
UPDATE alg_gebouw
-- SET alg_gebouw_verwijder = SYSDATE
SET alg_gebouw_vervaldatum = to_date('31-12-' || (TO_CHAR(SYSDATE,'YYYY') - 1), 'dd-mm-yyyy')
WHERE alg_gebouw_key = rec.alg_gebouw_key;
END LOOP;
EXCEPTION
WHEN OTHERS
THEN
oracle_err_num := SQLCODE;
oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
v_errormsg := 'Error ' || oracle_err_num || '/' || oracle_err_mes;
fac.imp_writelog (p_import_key, 'E', v_errormsg, v_errorhint);
END plat_post_onrgoed1_exploitatie;
/
CREATE OR REPLACE PROCEDURE plat_post_onrgoed1_percelen (p_import_key IN NUMBER, p_max_alg_gebouw_key IN NUMBER)
AS
v_errorhint VARCHAR2 (400);
v_count_tot NUMBER(10);
v_errormsg VARCHAR2 (400);
oracle_err_num NUMBER;
oracle_err_mes VARCHAR2 (200);
v_alg_gebouw_key NUMBER(10);
c_kenmerk_aant_percelen_L NUMBER(10);
c_kenmerk_aant_percelen_G NUMBER(10);
v_aant_percelen NUMBER(10);
CURSOR c1
IS
SELECT alg_locatie_code, alg_gebouw_code, SUBSTR (alg_kenmerkwaarde3, INSTR (alg_kenmerkwaarde3, '=') + 1) aant_percelen FROM fac_imp_onrgoed1;
CURSOR c2
IS
SELECT alg_locatie_key FROM alg_locatie;
BEGIN
-- Alle gebouwen krijgen voor 'aantal percelen' een nieuw record (als die nog niet bestond) of een bijgewerkt record (als die al wel bestond)
-- Let op: b.v. een gebouw heeft 123 percelen, dan staat alg_kenmerkwaarde3 staat de waarde "3=123", waarbij de = het scheidingsteken is tussen key 3 en aantal percelen (123)
-- key 3 refereert aan kenmerk 'aantal percelen' op locatie-nivo (dit doet de algemene import), we moeten dit aantal (123) inserten/updaten in het aantal percelen op gebouw nivo (key 4)!
-- Locatie kenmerk 'Aantal percelen'
c_kenmerk_aant_percelen_L := 3;
-- Gebouw kenmerk 'Aantal percelen'
c_kenmerk_aant_percelen_G := 4;
v_errorhint := 'plat_post_onrgoed1_percelen';
FOR rec IN c1
LOOP
SELECT MIN(alg_gebouw_key)
INTO v_alg_gebouw_key
FROM alg_gebouw g, alg_locatie l
WHERE g.alg_gebouw_upper = UPPER(rec.alg_gebouw_code)
AND l.alg_locatie_code = UPPER(rec.alg_locatie_code)
AND g.alg_locatie_key = l.alg_locatie_key
AND l.alg_locatie_verwijder IS NULL
AND g.alg_gebouw_verwijder IS NULL;
IF v_alg_gebouw_key IS NOT NULL
THEN alg.upsertkenmerk (c_kenmerk_aant_percelen_G, v_alg_gebouw_key, rec.aant_percelen);
END IF;
END LOOP;
COMMIT;
-- Ten slotte gaan we het aantal percelen op locatie-nivo nog bijwerken door een SUM te doen van de gebouwen te doen...
FOR rec IN c2
LOOP
SELECT SUM (fac.safe_to_number(alg_onrgoedkenmerk_waarde))
INTO v_aant_percelen
FROM alg_onrgoedkenmerk
WHERE alg_kenmerk_key = c_kenmerk_aant_percelen_G
AND alg_onrgoed_key IN (SELECT g.alg_gebouw_key FROM alg_gebouw g WHERE g.alg_locatie_key = rec.alg_locatie_key);
alg.upsertkenmerk (c_kenmerk_aant_percelen_L, rec.alg_locatie_key, v_aant_percelen);
END LOOP;
COMMIT;
EXCEPTION
WHEN OTHERS
THEN
oracle_err_num := SQLCODE;
oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
v_errormsg := 'Error ' || oracle_err_num || '/' || oracle_err_mes;
fac.imp_writelog (p_import_key, 'E', v_errormsg, v_errorhint);
END plat_post_onrgoed1_percelen;
/
CREATE OR REPLACE PROCEDURE plat_post_update_onrgoed1 (p_import_key IN NUMBER, p_max_alg_gebouw_key IN NUMBER)
AS
v_errorhint VARCHAR2 (400);
v_errormsg VARCHAR2 (400);
v_count_tot NUMBER(10);
oracle_err_num NUMBER;
oracle_err_mes VARCHAR2 (200);
BEGIN
v_errorhint := 'plat_post_update_onrgoed1';
-- Voor alle gebouwen willen we de einddatum / einde exploitatie (alg_gebouw_vervaldatum) updaten.
-- Uitdaging is dat de import
plat_post_onrgoed1_exploitatie (p_import_key, p_max_alg_gebouw_key);
-- Verwerking van aantal percelen in gebouw, en optellen bij locatie (som van alle gebouwen).
-- PLAT#41493: TB035 Cluster bevat niet het aantal percelen
plat_post_onrgoed1_percelen (p_import_key, p_max_alg_gebouw_key);
-- Alleen voor de nieuwe gebouwen moeten we 1 (dummy) verdieping en 1 (dummy) ruimte toevoegen...
-- Dus Dummy verdieping voor elk toegevoegd alg_gebouw (dus waar alg_gebouw_key > p_max_alg_gebouw_key)
INSERT INTO alg_verdieping (alg_gebouw_key, alg_verdieping_omschrijving, alg_verdieping_code, alg_verdieping_volgnr)
SELECT alg_gebouw_key, '-', '_-', 0
FROM alg_gebouw
WHERE alg_gebouw_key > p_max_alg_gebouw_key;
SELECT COUNT(*)
INTO v_count_tot
FROM alg_verdieping
WHERE alg_gebouw_key > p_max_alg_gebouw_key;
fac.imp_writelog (p_import_key,
'S',
'Verdieping/#toegevoegd: ' || TO_CHAR (v_count_tot),
'');
-- Dummy ruimte voor elk toegevoegd dummy alg_verdieping (dus waar alg_gebouw_key > p_max_alg_gebouw_key)
INSERT INTO alg_ruimte (alg_verdieping_key, alg_ruimte_nr)
SELECT alg_verdieping_key, '_1' FROM alg_verdieping
WHERE alg_gebouw_key > p_max_alg_gebouw_key;
SELECT COUNT(*)
INTO v_count_tot
FROM alg_ruimte
WHERE alg_verdieping_key IN (SELECT alg_verdieping_key
FROM alg_verdieping
WHERE alg_gebouw_key > p_max_alg_gebouw_key);
fac.imp_writelog (p_import_key,
'S',
'Ruimte/#toegevoegd: ' || TO_CHAR (v_count_tot),
'');
EXCEPTION
WHEN OTHERS
THEN
oracle_err_num := SQLCODE;
oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
v_errormsg := 'Error ' || oracle_err_num || '/' || oracle_err_mes;
fac.imp_writelog (p_import_key, 'E', v_errormsg, v_errorhint);
END plat_post_update_onrgoed1;
/
CREATE OR REPLACE PROCEDURE plat_update_onrgoed1 (
p_import_key IN NUMBER
) IS
v_count NUMBER;
v_max_alg_gebouw_key NUMBER(10);
BEGIN
-- Even snel registreren wat de laatst toegevoegde alg_gebouw is, dan weten we dat er door deze import-procedure wordt toegevoegd (alles > dan deze max).
SELECT coalesce(max(alg_gebouw_key),0)
INTO v_max_alg_gebouw_key
FROM alg_gebouw
WHERE alg_gebouw_verwijder IS NULL;
fac_update_onrgoed1(p_import_key);
-- After update ...
plat_post_update_onrgoed1(p_import_key, v_max_alg_gebouw_key);
END plat_update_onrgoed1;
/
----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-- Objecten import
----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
CREATE OR REPLACE PROCEDURE plat_post_import_ins (p_import_key IN NUMBER)
AS
v_errorhint VARCHAR2 (400);
BEGIN
v_errorhint := 'plat_post_import_ins';
END;
/
CREATE OR REPLACE PROCEDURE plat_import_ins (p_import_key IN NUMBER)
AS
oracle_err_num NUMBER;
oracle_err_mes VARCHAR2 (200);
v_errormsg VARCHAR2 (400);
v_errorhint VARCHAR2 (400);
BEGIN
v_errorhint := 'plat_import_ins';
-- de sequence array staat beschreven in PRS_PAC.SRC bij de prs.import_perslid proc
fac_import_ins (p_import_key);
COMMIT;
-- After import korrektie gebeurt nu...
plat_post_import_ins(p_import_key);
EXCEPTION
WHEN OTHERS
THEN
oracle_err_num := SQLCODE;
oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
v_errormsg := 'Error ' || oracle_err_num || '/' || oracle_err_mes;
fac.imp_writelog (p_import_key, 'E', v_errormsg, v_errorhint);
END plat_import_ins;
/
CREATE OR REPLACE PROCEDURE plat_post_update_ins (p_import_key IN NUMBER, p_max_ins_srtdeel_key IN NUMBER, p_max_ins_deel_key IN NUMBER)
AS
oracle_err_num NUMBER;
oracle_err_mes VARCHAR2 (200);
v_errormsg VARCHAR2 (400);
v_errorhint VARCHAR2 (400);
v_receptnr VARCHAR2 (1000);
v_kosten VARCHAR2 (1000);
v_periode VARCHAR2 (1000);
v_perc_onderhoud VARCHAR2 (1000);
v_ctr_discipline_key NUMBER(10);
v_fin_btwtabelwaarde_key fin_btwtabelwaarde.fin_btwtabelwaarde_key%TYPE;
l_kosten ins_srtcontrole.ins_srtcontrole_kosten2%TYPE;
l_periode ins_srtcontrole.ins_srtcontrole_periode%TYPE;
l_perc_onderhoud ins_srtcontrole.ins_srtcontrole_percentage%TYPE;
v_mx_ins_srtcontroledl_xcp_key NUMBER(10);
v_kpn_bestaat NUMBER(10);
-- Flexprops in de FIP-INS Excelsheet
-- ins_kenmerkwaarde Flexprop
-- 1 Receptnummer } Srtcontrole
-- 2 Receptomschrijving }
-- 3 Totaalbedr.
-- 4 StJr
-- 5 Duur
-- 6 EiJr
-- 7 ExJr
-- 8 VvJr
-- 9 Aant. Aanw. } Aantal geregistreerde objecten
-- 10 Perc. Onderh } Percentage van dat aantal (vorige kolom) dat voor onderhoud cyclus in aanmerking komt, default 100%
-- 11 Aantal niet
-- 12 Aant.Overh.
-- 13 Eh. } Eenheid --> Stoppen we nu in standaard kolom Eenheid (kolom I)
-- 14 Cycl
-- 15 Fo
-- 16 Fonds
-- 17 Opmerking
-- 18 kenmerk18
-- 19 kenmerk19
-- 20 kenmerk20
-- LET OP: WE GAAN ERVAN UIT DAT bij een Receptnummer (1) altijd dezelfde Receptomschrijving(2) en Eenheid (13) horen. M.a.w. bij 2 regels Receptnr (1) zijn (2) en (13) ook gelijk.
CURSOR c1
IS -- receptnummer, receptomschrijving,
SELECT DISTINCT(ins_kenmerkwaarde1)
FROM fac_imp_ins
order by ins_kenmerkwaarde1;
-- Alle geimporteerde regels (objecten met controles) die nog geen standaard srtcontrole hebben, en dus een uitzondering controle (xcp) moeten krijgen.
CURSOR c2 (p_max_ins_deel_key NUMBER, p_receptnr VARCHAR2, p_kosten VARCHAR2, p_periode VARCHAR2, p_perc_onderhoud VARCHAR2)
IS
SELECT d.ins_deel_key, d.ins_deel_omschrijving, c.ins_srtcontrole_key, ins_kenmerkwaarde14 periode, 4,
fac.safe_to_number(replace(replace(ins_kenmerkwaarde3, '.'), ',','.')) kosten, fac.safe_to_number(replace(replace(ins_kenmerkwaarde10, '.'), ',','.')) perc_onderhoud,
fac.safe_to_date('01-01-' || ins_kenmerkwaarde8 ,'dd-mm-yyyy') verval_datum,
ins_kenmerkwaarde17 xcp_opmerk
FROM fac_imp_ins i, ins_deel d, ins_srtcontrole c, alg_ruimte r, alg_verdieping v, alg_gebouw g, alg_locatie l
WHERE i.ins_deel_omschrijving = d.ins_deel_omschrijving
AND i.alg_locatie_code = l.alg_locatie_code
AND i.alg_gebouw_code = g.alg_gebouw_code
AND i.alg_verdieping_volgnr = v.alg_verdieping_volgnr
AND i.alg_ruimte_nr = r.alg_ruimte_nr
AND d.ins_alg_ruimte_type = 'R'
AND d.ins_alg_ruimte_key = r.alg_ruimte_key
AND r.alg_verdieping_key = v.alg_verdieping_key
AND v.alg_gebouw_key = g.alg_gebouw_key
AND g.alg_locatie_key = l.alg_locatie_key
AND d.ins_deel_key > p_max_ins_deel_key
AND i.ins_kenmerkwaarde1 = p_receptnr
AND (i.ins_kenmerkwaarde3 <> p_kosten OR i.ins_kenmerkwaarde14 <> p_periode OR i.ins_kenmerkwaarde10 <> p_perc_onderhoud)
AND i.ins_kenmerkwaarde3 IS NOT NULL
AND i.ins_kenmerkwaarde14 IS NOT NULL
AND i.ins_kenmerkwaarde10 IS NOT NULL
AND i.ins_kenmerkwaarde1 = substr(c.ins_srtcontrole_omschrijving, 1, instr(c.ins_srtcontrole_omschrijving, '-')-1 );
-- Alle geimporteerde regels (objecten met controles) die NA cursor C2 een standaard srtcontrole hebben gekregen,
-- maar eigenlijk toch een uitzondering controle (xcp) moeten krijgen vanwege vervaljaar of opmerking uit oorspronkelijke systeem, willen we niet verloren laten gaan.
-- Dus via cursor 6 alle records met een gevuld vervaljaar (ins_kenmerkwaarde8) of gevulde opmkering (ins_kenmerkwaarde17) krijgen ook een xcp.
-- NB: Als die al een XCP obv cursor 2 had gekregen (afwijkende prijs, cyclus, %) hebben daar al dit eventuele vervaljaar en/of opmerking erbij gekregen, oftewel dit gaat om nieuwe gevallen.
CURSOR c6 (p_max_ins_deel_key NUMBER, p_receptnr VARCHAR2, p_kosten VARCHAR2, p_periode VARCHAR2, p_perc_onderhoud VARCHAR2)
IS
SELECT d.ins_deel_key, d.ins_deel_omschrijving, c.ins_srtcontrole_key, ins_kenmerkwaarde14 periode, 4,
fac.safe_to_number(replace(replace(ins_kenmerkwaarde3, '.'), ',','.')) kosten, fac.safe_to_number(replace(replace(ins_kenmerkwaarde10, '.'), ',','.')) perc_onderhoud,
fac.safe_to_date('01-01-' || ins_kenmerkwaarde8 ,'dd-mm-yyyy') verval_datum,
ins_kenmerkwaarde17 xcp_opmerk
FROM fac_imp_ins i, ins_deel d, ins_srtcontrole c, alg_ruimte r, alg_verdieping v, alg_gebouw g, alg_locatie l
WHERE i.ins_deel_omschrijving = d.ins_deel_omschrijving
AND i.alg_locatie_code = l.alg_locatie_code
AND i.alg_gebouw_code = g.alg_gebouw_code
AND i.alg_verdieping_volgnr = v.alg_verdieping_volgnr
AND i.alg_ruimte_nr = r.alg_ruimte_nr
AND d.ins_alg_ruimte_type = 'R'
AND d.ins_alg_ruimte_key = r.alg_ruimte_key
AND r.alg_verdieping_key = v.alg_verdieping_key
AND v.alg_gebouw_key = g.alg_gebouw_key
AND g.alg_locatie_key = l.alg_locatie_key
AND d.ins_deel_key > p_max_ins_deel_key
AND i.ins_kenmerkwaarde1 = p_receptnr
AND i.ins_kenmerkwaarde3 = p_kosten
AND i.ins_kenmerkwaarde14 = p_periode
AND i.ins_kenmerkwaarde10 = p_perc_onderhoud
AND i.ins_kenmerkwaarde3 IS NOT NULL
AND i.ins_kenmerkwaarde14 IS NOT NULL
AND i.ins_kenmerkwaarde10 IS NOT NULL
AND i.ins_kenmerkwaarde1 = substr(c.ins_srtcontrole_omschrijving, 1, instr(c.ins_srtcontrole_omschrijving, '-')-1 )
AND (i.ins_kenmerkwaarde8 IS NOT NULL OR i.ins_kenmerkwaarde17 IS NOT NULL);
CURSOR c4 (p_max_ins_srtcontroledl_xcp NUMBER)
IS
SELECT ins_srtcontroledl_xcp_key, ins_deel_key, c.ins_srtcontrole_key, ins_srtcontrole_omschrijving,
CASE
WHEN ins_srtcontrole_kosten2 IS NOT NULL AND ins_srtcontroledl_xcp_kosten2 IS NOT NULL AND ins_srtcontrole_kosten2 = ins_srtcontroledl_xcp_kosten2
THEN 1
ELSE 0
END set_kosten2_null,
CASE
WHEN ins_srtcontrole_periode IS NOT NULL AND ins_srtcontroledl_xcp_periode IS NOT NULL AND ins_srtcontrole_periode = ins_srtcontroledl_xcp_periode
THEN 1
ELSE 0
END set_periode_null,
CASE
WHEN ins_srtcontrole_percentage IS NOT NULL AND ins_srtcontroledl_xcp_perc IS NOT NULL AND ins_srtcontrole_percentage = ins_srtcontroledl_xcp_perc
THEN 1
ELSE 0
END set_perc_onderhoud_null
FROM ins_srtcontrole c, ins_srtcontroledl_xcp x
WHERE x.ins_srtcontroledl_xcp_key > p_max_ins_srtcontroledl_xcp
AND x.ins_srtcontrole_key = c.ins_srtcontrole_key;
-- Let op: de eenheid kolom I wordt (itt hetgeen ik dacht) niet in ins_srtdeel_eenheid verwerkt, maar in res_deel_eenheid.
-- Verder: ins_srtdeel_code is verder helemaal NIET uniek, niet over de DB, niet per discipline en/of groep.
-- We kunnen daarom volstaan door hier verder ook niet te groeperen op discipline of iets dergelijks, we gaan gewoon op objectsoort-code groeperen, en ze krijgen allen dezelfde eenheid.
CURSOR c3
IS
SELECT ins_srtdeel_code, res_deel_eenheid
FROM fac_imp_ins
GROUP BY ins_srtdeel_code, res_deel_eenheid;
-- Fondscodes/Projectgroepen gaan we als (gebouw)kostenplaatsen opvoeren
CURSOR c5
IS
SELECT ins_kenmerkwaarde15, ins_kenmerkwaarde16
FROM fac_imp_ins
GROUP BY ins_kenmerkwaarde15, ins_kenmerkwaarde16;
-- Ten slotte hebben we ook nog de handmatige verschuivingen vanuit Tobias TMJ of StraVIS die komen overwaaien, die willen we niet verloren laten gaan.
-- B.v. alle schilderwerk is naar jaar 2018 verschoven, die willen we niet verloren laten gaan, daarvoor maken we ins_deelsrtcontrole records aan met een plandatum [ins_deelsrtcontrole_plandatum] aan, te weten
-- voor ieder record fac_imp_ins met een gevulde kolom ExJr (7e kolom uit de FIP sheet)
CURSOR c7 (p_max_ins_deel_key NUMBER)
IS
SELECT d.ins_deel_key, d.ins_deel_omschrijving, c.ins_srtcontrole_key, fac.safe_to_date('01-01-' || ins_kenmerkwaarde7 ,'dd-mm-yyyy') plan_datum
FROM fac_imp_ins i, ins_deel d, ins_srtcontrole c, alg_ruimte r, alg_verdieping v, alg_gebouw g, alg_locatie l
WHERE i.ins_deel_omschrijving = d.ins_deel_omschrijving
AND i.alg_locatie_code = l.alg_locatie_code
AND i.alg_gebouw_code = g.alg_gebouw_code
AND i.alg_verdieping_volgnr = v.alg_verdieping_volgnr
AND i.alg_ruimte_nr = r.alg_ruimte_nr
AND d.ins_alg_ruimte_type = 'R'
AND d.ins_alg_ruimte_key = r.alg_ruimte_key
AND r.alg_verdieping_key = v.alg_verdieping_key
AND v.alg_gebouw_key = g.alg_gebouw_key
AND g.alg_locatie_key = l.alg_locatie_key
AND d.ins_deel_key > p_max_ins_deel_key
AND i.ins_kenmerkwaarde1 = substr(c.ins_srtcontrole_omschrijving, 1, instr(c.ins_srtcontrole_omschrijving, '-')-1 )
AND i.ins_kenmerkwaarde7 IS NOT NULL;
BEGIN
v_errorhint := 'plat_post_update_ins - cursor c5';
-- Eerst maar eens beginnen met de verwerking van de kostenplaatsen cursor 5
FOR rec IN c5
LOOP
SELECT COUNT(*)
INTO v_kpn_bestaat
FROM prs_kostenplaats
WHERE prs_kostenplaats_upper = UPPER(rec.ins_kenmerkwaarde15)
AND prs_kostenplaats_verwijder IS NULL
AND prs_kostenplaats_module = 'ALG';
IF v_kpn_bestaat = 0
THEN
v_errorhint := 'plat_post_update_ins - insert i0';
v_errormsg := 'Kostenplaats gegevens: ' || ' prs_kostenplaats_nr=[' || rec.ins_kenmerkwaarde15 || '],' || ' prs_kostenplaats_omschrijving=[' || rec.ins_kenmerkwaarde16 || '],';
INSERT INTO prs_kostenplaats (prs_kostenplaats_nr, prs_kostenplaats_omschrijving, prs_kostenplaats_module, prs_kostenplaats_extern, prs_kostenplaats_limietperiode, prs_kostenplaats_fiat)
VALUES(rec.ins_kenmerkwaarde15, rec.ins_kenmerkwaarde16, 'ALG', 0, 0, 1);
END IF;
END LOOP;
v_errorhint := 'plat_post_update_ins - cursor c3';
-- Eerst maar eens beginnen met de verwerking van ins_srtdeel_eenheid
FOR rec IN c3
LOOP
v_errormsg := 'Deel gegevens: ' || ' ins_srtdeel_eenheid=[' || rec.res_deel_eenheid || '],' || ' ins_srtdeel_code=[' || rec.ins_srtdeel_code || '],';
v_errorhint := 'plat_post_update_ins - update u0';
UPDATE ins_srtdeel
SET ins_srtdeel_eenheid = rec.res_deel_eenheid
WHERE ins_srtdeel_code = rec.ins_srtdeel_code
AND ins_srtdeel_key > p_max_ins_srtdeel_key
AND ins_srtdeel_verwijder IS NULL;
END LOOP;
v_errorhint := 'plat_post_update_ins - update u1';
-- Verder moet van alle ins_srtdeel die zijn toegevoegd de 'hoort bij persoon' eraf worden gehaald (sie in de standaard FIP erop is gezet), dus ins_srtdeel_binding van 17 -> 1
UPDATE ins_srtdeel
SET ins_srtdeel_binding = 1
WHERE ins_srtdeel_key > p_max_ins_srtdeel_key
AND ins_srtdeel_verwijder IS NULL;
v_errorhint := 'plat_post_update_ins - select s1';
-- Bepalen van de ctr discipline waaronder de terugkerende taken worden vastgelegd.
SELECT MIN(ins_discipline_key)
INTO v_ctr_discipline_key
FROM ctr_discipline d, ctr_disc_params dp
WHERE dp.ctr_ins_discipline_key = d.ins_discipline_key
AND d.ins_discipline_verwijder IS NULL
AND dp.ctr_disc_params_ismjob = 1;
v_errorhint := 'plat_post_update_ins - select s2';
IF v_ctr_discipline_key IS NULL
THEN
-- Als de ctr_discipline 'vervanging' niet gevonden is, dan maar de de laatste (max)
SELECT MAX(ins_discipline_key)
INTO v_ctr_discipline_key
FROM ctr_discipline
WHERE ins_discipline_module = 'CTR'
AND ins_discipline_verwijder IS NULL;
END IF;
v_errorhint := 'plat_post_update_ins - select s3';
-- Bepalen van de default BTW % 21...
SELECT MIN(fin_btwtabelwaarde_key)
INTO v_fin_btwtabelwaarde_key
FROM fin_btwtabelwaarde
WHERE fin_btwtabelwaarde_perc = 21
AND COALESCE(fin_btwtabelwaarde_verlegd,0) = 0
AND fin_btwtabelwaarde_verwijder IS NULL;
-- We gaan hier per receptnummer het MEEST UNIFORME (algemene) eruit vissen.
-- Dat doen we door te kijken waarvan de combinatie van dezelfde kosten (aant_K) met dezelfde periode het vaakst voorkomen (aant_P).
-- Voorbeeld hieronder: enkele regels bij 1 object A: recept R1 kost 100 euro per eenhied en wordt elke 2 jaar gepland, elke regel daarna heeft betrekking op ander object
-- recept(1) kosten(3) periode(14)
-- R1 100 2
-- R1 100 2
-- R1 150 2
-- R1 100 1
-- Hier is de meest algemene recept die met kosten 100 en om de 2 jaar (regel 1 en 2), de andere recepten (regel 3 en 4) zijn uitzonderingen (XCP) op de algemene regel.
-- We gaan (gebaseerd op de sheet van WaardWonen) hier ook nog eens rekening houden met Perc.Onderh, die default 100 staat.
-- Maar als de regel is 50%, dan is dat de norm, en elke afwijking van 50% is dus uitzondering, dus we gaan OOK op zoek naar de meeste regels met dezelfde Perc. Onderh.
-- Dus
-- recept(1) kosten(3) periode(14) %onderh (10)
-- R1 100 2 75
-- R1 100 2 50 <-- Hiervan zijn er 2, dit is de standaard taak (srtcontrole)
-- R1 150 2 100
-- R1 100 1 100
-- R1 100 2 50 <-- Hiervan zijn er 2, dit is de standaard taak (srtcontrole)
v_errorhint := 'plat_post_update_ins - cursor c1';
FOR rec IN c1
LOOP
v_errormsg := 'Cursor c1 gegevens: ' || ' ins_kenmerkwaarde1=[' || rec.ins_kenmerkwaarde1 || ']';
v_errorhint := 'plat_post_update_ins - select s4';
SELECT ins_kenmerkwaarde1, ins_kenmerkwaarde3, ins_kenmerkwaarde14, ins_kenmerkwaarde10
INTO v_receptnr, v_kosten, v_periode, v_perc_onderhoud
FROM (
SELECT a.ins_kenmerkwaarde1, a.ins_kenmerkwaarde3, a.ins_kenmerkwaarde14, ins_kenmerkwaarde10, count(*) aantal FROM fac_imp_ins a
WHERE a.ins_kenmerkwaarde1 = rec.ins_kenmerkwaarde1
HAVING count(*) = (SELECT MAX(COUNT(*)) FROM fac_imp_ins b
WHERE b.ins_kenmerkwaarde1 = a.ins_kenmerkwaarde1
GROUP by ins_kenmerkwaarde1, ins_kenmerkwaarde3, ins_kenmerkwaarde14, ins_kenmerkwaarde10
)
GROUP by ins_kenmerkwaarde1, ins_kenmerkwaarde3, a.ins_kenmerkwaarde14, ins_kenmerkwaarde10)
WHERE rownum = 1;
-- Algemene soort controles (terugkerende taken) toevoegen op alle soortdelen die zijn toegevoegd in deze import ( > p_max_ins_srtdeel_key)
-- Daartoe bepalen we eerst van alle controles op een objectsoort de grootste gemene deler, de rest (= afwijkingen daarop) worden xcp-records.
-- Definitie "Grootste gemene deler" = het meeste aantal records met dezelfde kosten, periode en onderhoudspercentage.
-- Fondscode ook in (laatste, zojuist ingeschoten record) ins_srtcontrole verwerken...
-- We gaan ervan uit, en dat is terecht, dat er 1 fondscode (en niet meer dan 1) bij een v_receptnr bestaat.
-- Voor het geval dat er toch is (d.i. een fout in het importbestand) doen we veiligheidshalve MAX.
-- FSN#38080: kolom AA (VvJr = vervaljaar = kenmerk8) gaan we nu ook gebruiken bij de import (deden we tot nu toe nog niets mee, deze stond altijd ingevuld met een berekende waarde
-- indien gevuld met een jaar, dan is dat het vervaljaar van die activiteit bij dat element.
-- Let op: vervaljaar doet NIET! mee in de bepaling van de "grootste gemene deler" voor ins_srtcontrole.
v_errormsg := 'ins_srtcontrole gegevens: ' || ' ctr_discipline_key=[' || v_ctr_discipline_key || '],' || ' v_receptnr=[' || v_receptnr || '],'
|| ' v_kosten=[' || v_kosten || '],' || ' v_periode=[' || v_periode || '],' || ' v_perc_onderhoud=[' || v_perc_onderhoud || ']' ;
v_errorhint := 'plat_post_update_ins - insert i1';
INSERT INTO ins_srtcontrole (ctr_discipline_key, ins_srtinstallatie_key, ins_srtcontrole_niveau, ins_srtcontrole_omschrijving, ins_srtcontrole_groep,
ins_srtcontrole_info, ins_srtcontrole_periode, ins_srtcontrole_eenheid, ins_srtcontrole_mode, ins_srtcontrole_options, ins_srtcontrole_kosten2, fin_btwtabelwaarde_key,
ins_srtcontrole_percentage, prs_kostenplaats_key)
SELECT v_ctr_discipline_key, ins_srtdeel_key, 'S', substr( ins_kenmerkwaarde1 || '-' || MAX(ins_kenmerkwaarde2), 1,60), v_receptnr,
MAX(ins_kenmerkwaarde2) || ' [' || MAX(ins_kenmerkwaarde13) || ']' , v_periode, 4, 1, 3, fac.safe_to_number(replace(replace(v_kosten, '.'), ',','.')),
v_fin_btwtabelwaarde_key,
fac.safe_to_number(replace(replace(v_perc_onderhoud, '.'), ',','.')),
(SELECT prs_kostenplaats_key
FROM prs_kostenplaats
WHERE prs_kostenplaats_verwijder IS NULL
AND prs_kostenplaats_module = 'ALG'
AND prs_kostenplaats_upper = (SELECT UPPER(MAX(ins_kenmerkwaarde15))
FROM fac_imp_ins
WHERE ins_kenmerkwaarde1 = v_receptnr))
FROM ins_srtdeel sd, fac_imp_ins i, ins_srtgroep sg, ins_discipline d
WHERE ins_srtdeel_key > p_max_ins_srtdeel_key
AND sd.ins_srtdeel_code = i.ins_srtdeel_code
AND sd.ins_srtgroep_key = sg.ins_srtgroep_key
AND sg.ins_discipline_key = d.ins_discipline_key
AND i.ins_discipline_omschrijving = d.ins_discipline_omschrijving
AND i.ins_srtgroep_omschrijving = sg.ins_srtgroep_omschrijving
AND i.ins_kenmerkwaarde1 = v_receptnr
AND i.ins_kenmerkwaarde3 = v_kosten
AND i.ins_kenmerkwaarde14 = v_periode
AND i.ins_kenmerkwaarde10 = v_perc_onderhoud
AND NOT EXISTS (SELECT 'x' FROM ins_srtcontrole
WHERE ins_srtinstallatie_key = ins_srtdeel_key
AND ins_srtcontrole_niveau = 'S'
AND ins_srtcontrole_groep = v_receptnr)
GROUP BY ins_srtdeel_key, ins_kenmerkwaarde1;
-- Uitzonderingen op de algemene (reguliere) soort controle, die dus afwijken van kosten en/of periode, worden toegevoegd als XCP
-- Let op: hier wordt aantal nog in GROEP gestopt, vraag is of we de eenheid moeten stoppen in ins_srtdeel_aantal of in ins_srtcontrole_aantal / ins_srtcontroledl_xcp_aantal op dieper nivo.
-- Check via onderstaande query op plato@labs levert op dat er een paar verschillen in aantal zitten:
-- plato_waardwonen_verschil_aantal_andere_eenheid.xls: 15 objecten met meerdere activiteiten, verschillend aantal, andere eenheid.
-- select a.ins_deel_omschrijving, b.ins_kenmerkwaarde1, b.ins_kenmerkwaarde2, b.ins_kenmerkwaarde13, b.ins_kenmerkwaarde10, c.ins_kenmerkwaarde10, c.ins_kenmerkwaarde13, c.ins_kenmerkwaarde1, c.ins_kenmerkwaarde2 from
-- (select ins_deel_omschrijving, count(*) from fac_imp_ins
-- having count(*) > 1
-- group by ins_deel_omschrijving) a,
-- fac_imp_ins b,
-- fac_imp_ins c
-- where a.ins_deel_omschrijving = b.ins_deel_omschrijving
-- AND b.ins_deel_omschrijving = c.ins_deel_omschrijving
-- AND b.ins_kenmerkwaarde1 <> c.ins_kenmerkwaarde1
-- AND b.ins_kenmerkwaarde10 <> c.ins_kenmerkwaarde10
-- AND b.ins_kenmerkwaarde13 <> c.ins_kenmerkwaarde13
-- ORDER BY a.ins_deel_omschrijving;
-- plato_waardwonen_verschil_aantal_dezelfde_eenheid.xls: 30 objecten met meerdere activiteiten, verschillend aantal, dezelfde eenheid
-- select a.ins_deel_omschrijving, b.ins_kenmerkwaarde1, b.ins_kenmerkwaarde2, b.ins_kenmerkwaarde13, b.ins_kenmerkwaarde10, c.ins_kenmerkwaarde10, c.ins_kenmerkwaarde13, c.ins_kenmerkwaarde1, c.ins_kenmerkwaarde2 from
-- (select ins_deel_omschrijving, count(*) from fac_imp_ins
-- having count(*) > 1
-- group by ins_deel_omschrijving) a,
-- fac_imp_ins b,
-- fac_imp_ins c
-- where a.ins_deel_omschrijving = b.ins_deel_omschrijving
-- AND b.ins_deel_omschrijving = c.ins_deel_omschrijving
-- AND b.ins_kenmerkwaarde1 <> c.ins_kenmerkwaarde1
-- AND b.ins_kenmerkwaarde10 <> c.ins_kenmerkwaarde10
-- AND b.ins_kenmerkwaarde13 = c.ins_kenmerkwaarde13
-- ORDER BY a.ins_deel_omschrijving;
-- plato_waardwonen_meer_activiteiten_met_gelijk_aantal.xlsx: 354 objecten met meerdere activiteiten, gelijke aantal, (dezelfde of afwijkend eenheid).
--select a.ins_deel_omschrijving, b.ins_kenmerkwaarde1, b.ins_kenmerkwaarde2, b.ins_kenmerkwaarde13, b.ins_kenmerkwaarde10, c.ins_kenmerkwaarde10, c.ins_kenmerkwaarde13, c.ins_kenmerkwaarde1, c.ins_kenmerkwaarde2 from
--(select ins_deel_omschrijving, count(*) from fac_imp_ins
--having count(*) > 1
--group by ins_deel_omschrijving) a,
--fac_imp_ins b,
--fac_imp_ins c
--where a.ins_deel_omschrijving = b.ins_deel_omschrijving
--AND b.ins_deel_omschrijving = c.ins_deel_omschrijving
--AND b.ins_kenmerkwaarde1 <> c.ins_kenmerkwaarde1
--AND b.ins_kenmerkwaarde10 = c.ins_kenmerkwaarde10
---- AND b.ins_kenmerkwaarde13 = c.ins_kenmerkwaarde13
--ORDER BY a.ins_deel_omschrijving;
--;
--plato_waardwonen_objecten_met_1_activiteit.xlsx: 2940 objecten met 1 activiteit, aantal dont care, eenheid dont care.
--select ins_deel_omschrijving, MAX(b.ins_kenmerkwaarde1), MAX(b.ins_kenmerkwaarde2), MAX(b.ins_kenmerkwaarde13), MAX(b.ins_kenmerkwaarde10) from fac_imp_ins b
--having count(*) = 1
--group by ins_deel_omschrijving;
-- Aantal objecten ingelezen: 3344.
-- select distinct (ins_deel_omschrijving) from fac_imp_ins;
-- Uitzonderingen op de algemene (reguliere) soort controle die we zojuist hebben toegevoegd, die dus afwijken van kosten en/of periode, worden toegevoegd als XCP
-- Let op: hier wordt aantal nog in GROEP gestopt, vraag is of we de eenheid moeten stoppen in ins_srtdeel_aantal of in ins_srtcontrole_aantal / ins_srtcontroledl_xcp_aantal op dieper nivo.
-- Let op 2: Dit zijn natuurlijk alleen de objecten die in deze import zijn toegevoegd (d.ins_deel_key > p_max_ins_deel_key) en afwijkende kosten en afwijkende periode hebben.
-- Verder moet de algemene ins_srtcontrole wel gevonden kunnen worden om een xcp daarop te kunnen maken (foreign-key)
-- Waneer de kosten OF(!) de periode niet zijn ingevuld (NULL-value), dan gaan we ervan uit dat deze de default volgen, en wordt er geen XCP aangemaakt,
-- Dus als een van beide ontbreekt, dan volgt die de standaard.
-- Hier nog ff onthouden wat de laatste xcp record is, is straks nodig voor een nabewerking (cursor 4)
v_errorhint := 'plat_post_update_ins - select s5';
SELECT coalesce(max(ins_srtcontroledl_xcp_key),0)
INTO v_mx_ins_srtcontroledl_xcp_key
FROM ins_srtcontroledl_xcp;
v_errormsg := 'Soort controle gegevens: ' || ' recept=[' || v_receptnr || '],' || ' kosten=[' || v_kosten || '],' ||
' periode=[' || v_periode || '],' || ' percentage=[' || v_perc_onderhoud || '],';
v_errorhint := 'plat_post_update_ins - cursor c2';
FOR rec2 IN c2 (p_max_ins_deel_key, v_receptnr, v_kosten, v_periode, v_perc_onderhoud)
LOOP
BEGIN
v_errormsg := 'C2: INSERT INTO ins_srtcontroledl_xcp: ' || 'ins_deel_key=['|| rec2.ins_deel_key || '],' || 'objectomschrijving=[' || rec2.ins_deel_omschrijving || '] ' ||
'ins_srtcontrole_key=[' || rec2.ins_srtcontrole_key || '],' ||
'recept=[' || v_receptnr || '],' || 'kosten=[' || rec2.kosten || '],' ||
'periode=[' || rec2.periode || '],' || ' percentage=[' || v_perc_onderhoud || '],';
fac.imp_writelog (p_import_key,
'I',
v_errormsg,
v_errorhint
);
v_errorhint := 'plat_post_update_ins - insert i2';
INSERT INTO ins_srtcontroledl_xcp ( ins_deel_key, ins_srtcontrole_key, ins_srtcontroledl_xcp_periode,
ins_srtcontroledl_xcp_kosten2, ins_srtcontroledl_xcp_perc, ins_srtcontroledl_xcp_eind, ins_srtcontroledl_xcp_opmerk)
SELECT rec2.ins_deel_key, rec2.ins_srtcontrole_key, rec2.periode, rec2.kosten, rec2.perc_onderhoud, rec2.verval_datum, rec2.xcp_opmerk FROM dual;
EXCEPTION
WHEN OTHERS
THEN
fac.imp_writelog (p_import_key, 'W', v_errormsg, v_errorhint);
oracle_err_num := SQLCODE;
oracle_err_mes := SUBSTR (SQLERRM, 1, 200);
v_errormsg :=
'OTHERS (error '
|| oracle_err_num
|| '/'
|| oracle_err_mes
|| ')';
fac.imp_writelog (p_import_key,
'E',
v_errormsg,
v_errorhint
);
COMMIT;
END;
END LOOP;
v_errorhint := 'plat_post_update_ins - cursor c6';
FOR rec6 IN c6 (p_max_ins_deel_key, v_receptnr, v_kosten, v_periode, v_perc_onderhoud)
LOOP
BEGIN
v_errormsg := 'C6: VERVALJAAR of OPMERKING -> ins_srtcontroledl_xcp: ' || 'ins_deel_key=['|| rec6.ins_deel_key || '],' || 'objectomschrijving=[' || rec6.ins_deel_omschrijving || '] ' ||
'ins_srtcontrole_key=[' || rec6.ins_srtcontrole_key || '],' ||
'recept=[' || v_receptnr || '],' || 'kosten=[' || rec6.kosten || '],' ||
'periode=[' || rec6.periode || '],' || ' percentage=[' || v_perc_onderhoud || '],';
fac.imp_writelog (p_import_key,
'I',
v_errormsg,
v_errorhint
);
v_errorhint := 'plat_post_update_ins - insert i3';
INSERT INTO ins_srtcontroledl_xcp ( ins_deel_key, ins_srtcontrole_key, ins_srtcontroledl_xcp_eind, ins_srtcontroledl_xcp_opmerk)
SELECT rec6.ins_deel_key, rec6.ins_srtcontrole_key, rec6.verval_datum, rec6.xcp_opmerk FROM dual;
EXCEPTION
WHEN OTHERS
THEN
fac.imp_writelog (p_import_key, 'W', v_errormsg, v_errorhint);
oracle_err_num := SQLCODE;
oracle_err_mes := SUBSTR (SQLERRM, 1, 200);
v_errormsg :=
'OTHERS (error '
|| oracle_err_num
|| '/'
|| oracle_err_mes
|| ')';
fac.imp_writelog (p_import_key,
'E',
v_errormsg,
v_errorhint
);
COMMIT;
END;
END LOOP;
-- "After" post-processing van de XCP records die zojuist - in voorgaande loop- zijn toegevoegd.
-- De kolommen (kosten2 (=derden), periode, percentage) die dezelfde waarde hebben als de standaard ins_srtcontrole moeten op NULL worden gezet,
-- Maw alleen de echte afwijkingen moeten een waarde (NOT NULL) hebben.
-- In de cursor c2 worden de records opgehaald waarvan minimaal 1 afwijking is, dat betekent dat er dus ook mogelijk dezelfde waarde als de standaard bestaat.
v_errormsg := 'NABEWERKING ins_srtcontroledl_xcp: ';
v_errorhint := 'plat_post_update_ins - cursor c4';
FOR rec4 IN c4 (v_mx_ins_srtcontroledl_xcp_key)
LOOP
BEGIN
v_errormsg := 'NABEWERKING ins_srtcontroledl_xcp: ' || 'key=[' || rec4.ins_srtcontroledl_xcp_key || '], controle=[ ' || rec4.ins_srtcontrole_omschrijving || ']';
v_errorhint := 'plat_post_update_ins - update u2';
IF rec4.set_kosten2_null = 1
THEN
UPDATE ins_srtcontroledl_xcp SET ins_srtcontroledl_xcp_kosten2 = NULL WHERE ins_srtcontroledl_xcp_key = rec4.ins_srtcontroledl_xcp_key;
END IF;
v_errorhint := 'plat_post_update_ins - update u3';
IF rec4.set_periode_null = 1
THEN
UPDATE ins_srtcontroledl_xcp SET ins_srtcontroledl_xcp_periode = NULL WHERE ins_srtcontroledl_xcp_key = rec4.ins_srtcontroledl_xcp_key;
END IF;
v_errorhint := 'plat_post_update_ins - update u4';
IF rec4.set_perc_onderhoud_null = 1
THEN
UPDATE ins_srtcontroledl_xcp SET ins_srtcontroledl_xcp_perc = NULL WHERE ins_srtcontroledl_xcp_key = rec4.ins_srtcontroledl_xcp_key;
END IF;
EXCEPTION
WHEN OTHERS
THEN
fac.imp_writelog (p_import_key, 'W', v_errormsg, v_errorhint);
oracle_err_num := SQLCODE;
oracle_err_mes := SUBSTR (SQLERRM, 1, 200);
v_errormsg :=
'OTHERS (error '
|| oracle_err_num
|| '/'
|| oracle_err_mes
|| ')';
fac.imp_writelog (p_import_key,
'E',
v_errormsg,
v_errorhint
);
COMMIT;
END;
END LOOP;
END LOOP;
v_errorhint := 'plat_post_update_ins - cursor c7';
FOR rec7 IN c7 (p_max_ins_deel_key)
LOOP
BEGIN
v_errormsg := 'C7: INSPECTIE record -> ins_deelsrtcontrole: ' || 'ins_deel_key=['|| rec7.ins_deel_key || '],' || 'objectomschrijving=[' || rec7.ins_deel_omschrijving || '] ' ||
'ins_srtcontrole_key=[' || rec7.ins_srtcontrole_key || '],';
fac.imp_writelog (p_import_key,
'I',
v_errormsg,
v_errorhint
);
v_errorhint := 'plat_post_update_ins - insert i4';
INSERT INTO ins_deelsrtcontrole (ins_deel_key, ins_srtcontrole_key, ins_deelsrtcontrole_plandatum, ins_deelsrtcontrole_status)
SELECT rec7.ins_deel_key, rec7.ins_srtcontrole_key, rec7.plan_datum, 0 FROM dual;
EXCEPTION
WHEN OTHERS
THEN
fac.imp_writelog (p_import_key, 'W', v_errormsg, v_errorhint);
oracle_err_num := SQLCODE;
oracle_err_mes := SUBSTR (SQLERRM, 1, 200);
v_errormsg :=
'OTHERS (error '
|| oracle_err_num
|| '/'
|| oracle_err_mes
|| ')';
fac.imp_writelog (p_import_key,
'E',
v_errormsg,
v_errorhint
);
COMMIT;
END;
END LOOP;
-- We gaan dan nog het aantal objecten (ins_deel_aantal) die standaard op 1 staat, bijwerken met kolom 9 (aantal geregistreerde objecten).
-- Hiervoor nemen we het hoogste aantal (het object kan voor meerdere activiteiten met verschillende aantal (icm eenheid) worden ingezet), b.v.:
-- object A (kozijnen) 10 m2 schilderen
-- object A (kozijnen) 2 st. vervangen
-- We registeren dan bij object A 10??? (of is 2 beter, omdat dit de preferred eenheid stuks is)?
v_errorhint := 'plat_post_update_ins - update u5';
UPDATE ins_deel d
SET ins_deel_aantal = (SELECT COALESCE(fac.safe_to_number(max(ins_kenmerkwaarde9)),1)
FROM fac_imp_ins i, alg_ruimte r, alg_verdieping v, alg_gebouw g, alg_locatie l
WHERE i.ins_deel_omschrijving = d.ins_deel_omschrijving
AND i.alg_locatie_code = l.alg_locatie_code
AND i.alg_gebouw_code = g.alg_gebouw_code
AND i.alg_verdieping_volgnr = v.alg_verdieping_volgnr
AND i.alg_ruimte_nr = r.alg_ruimte_nr
AND d.ins_alg_ruimte_key = r.alg_ruimte_key
AND r.alg_verdieping_key = v.alg_verdieping_key
AND v.alg_gebouw_key = g.alg_gebouw_key
AND g.alg_locatie_key = l.alg_locatie_key
)
WHERE d.ins_deel_key > p_max_ins_deel_key
AND d.ins_deel_verwijder IS NULL;
-- De aanmaakdatums van de ins_delen die zijn toegevoegd ( > p_max_ins_deel_key) bepalen de volgende controle-momenten, dus dat komt natuurlijk wel wat nauw.
-- Daarom wordt StJr (ins_kenmerkwaarde4) als startjaar bij alle objecten (ins_delen) van het betreffende pand gezet.
v_errorhint := 'plat_post_update_ins - update u6';
UPDATE ins_deel d
SET ins_deel_aanmaak = (SELECT min( to_date (ins_kenmerkwaarde4, 'yyyy'))
FROM fac_imp_ins i, alg_ruimte r, alg_verdieping v, alg_gebouw g, alg_locatie l
WHERE i.ins_deel_omschrijving = d.ins_deel_omschrijving
AND i.alg_locatie_code = l.alg_locatie_code
AND i.alg_gebouw_code = g.alg_gebouw_code
AND i.alg_verdieping_volgnr = v.alg_verdieping_volgnr
AND i.alg_ruimte_nr = r.alg_ruimte_nr
AND d.ins_alg_ruimte_key = r.alg_ruimte_key
AND r.alg_verdieping_key = v.alg_verdieping_key
AND v.alg_gebouw_key = g.alg_gebouw_key
AND g.alg_locatie_key = l.alg_locatie_key
)
WHERE d.ins_deel_key > p_max_ins_deel_key
AND d.ins_deel_verwijder IS NULL;
v_errorhint := 'plat_post_update_ins - insert i5';
--- En tenslotte gaan we de 3 MJOB autorisatiegroepen MJOB-R, MJOB-W en MJOB-A de rechten op INSUSE, INSMAN en CTRUSE uitdelen....
-- 1. Eerst MJOB-R (Leesrechten): INSUSE READ en INSMAN READ op elke INS-discipline en CTRUSE READ op de MJOB-discipline (v_ctr_discipline_key)
INSERT INTO fac_groeprechten (fac_groep_key, fac_functie_key, ins_discipline_key,
fac_gebruiker_prs_level_read, fac_gebruiker_prs_level_write, fac_gebruiker_alg_level_read, fac_gebruiker_alg_level_write)
SELECT
(SELECT fac_groep_key FROM fac_groep WHERE fac_groep_upper = 'MJOB-R: LEESRECHTEN'),
fac_functie_key,
d.ins_discipline_key,
-1, 9, -1, 9
FROM fac_functie, ins_discipline d
WHERE fac_functie_code = 'WEB_INSUSE'
AND d.ins_discipline_verwijder IS NULL;
v_errorhint := 'plat_post_update_ins - insert i6';
INSERT INTO fac_groeprechten (fac_groep_key, fac_functie_key, ins_discipline_key,
fac_gebruiker_prs_level_read, fac_gebruiker_prs_level_write, fac_gebruiker_alg_level_read, fac_gebruiker_alg_level_write)
SELECT
(SELECT fac_groep_key FROM fac_groep WHERE fac_groep_upper = 'MJOB-R: LEESRECHTEN'),
fac_functie_key,
d.ins_discipline_key,
-1, 9, -1, 9
FROM fac_functie, ins_discipline d
WHERE fac_functie_code = 'WEB_INSMAN'
AND d.ins_discipline_verwijder IS NULL;
v_errorhint := 'plat_post_update_ins - insert i7';
INSERT INTO fac_groeprechten (fac_groep_key, fac_functie_key, ins_discipline_key,
fac_gebruiker_prs_level_read, fac_gebruiker_prs_level_write, fac_gebruiker_alg_level_read, fac_gebruiker_alg_level_write)
SELECT
(SELECT fac_groep_key FROM fac_groep WHERE fac_groep_upper = 'MJOB-R: LEESRECHTEN'),
fac_functie_key,
v_ctr_discipline_key,
-1, 9, -1, 9
FROM fac_functie
WHERE fac_functie_code = 'WEB_CTRUSE';
-- 2. Dan MJOB-W (Schrijfrechten): INSUSE WRITE en INSMAN WRITE op elke INS-discipline en CTRUSE WRITE op de MJOB-discipline (v_ctr_discipline_key)
v_errorhint := 'plat_post_update_ins - insert i8';
INSERT INTO fac_groeprechten (fac_groep_key, fac_functie_key, ins_discipline_key,
fac_gebruiker_prs_level_read, fac_gebruiker_prs_level_write, fac_gebruiker_alg_level_read, fac_gebruiker_alg_level_write)
SELECT
(SELECT fac_groep_key FROM fac_groep WHERE fac_groep_upper = 'MJOB-W: SCHRIJFRECHTEN'),
fac_functie_key,
d.ins_discipline_key,
-1, -1, -1, -1
FROM fac_functie, ins_discipline d
WHERE fac_functie_code = 'WEB_INSUSE'
AND d.ins_discipline_verwijder IS NULL;
v_errorhint := 'plat_post_update_ins - insert i9';
INSERT INTO fac_groeprechten (fac_groep_key, fac_functie_key, ins_discipline_key,
fac_gebruiker_prs_level_read, fac_gebruiker_prs_level_write, fac_gebruiker_alg_level_read, fac_gebruiker_alg_level_write)
SELECT
(SELECT fac_groep_key FROM fac_groep WHERE fac_groep_upper = 'MJOB-W: SCHRIJFRECHTEN'),
fac_functie_key,
d.ins_discipline_key,
-1, -1, -1, -1
FROM fac_functie, ins_discipline d
WHERE fac_functie_code = 'WEB_INSMAN'
AND d.ins_discipline_verwijder IS NULL;
v_errorhint := 'plat_post_update_ins - insert i10';
INSERT INTO fac_groeprechten (fac_groep_key, fac_functie_key, ins_discipline_key,
fac_gebruiker_prs_level_read, fac_gebruiker_prs_level_write, fac_gebruiker_alg_level_read, fac_gebruiker_alg_level_write)
SELECT
(SELECT fac_groep_key FROM fac_groep WHERE fac_groep_upper = 'MJOB-W: SCHRIJFRECHTEN'),
fac_functie_key,
v_ctr_discipline_key,
-1, -1, -1, -1
FROM fac_functie
WHERE fac_functie_code = 'WEB_CTRUSE';
-- 3. Tenslotte MJOB-A (Admin MJOB): INSMGT, ALG..? en nog wat.... TODO...
EXCEPTION
WHEN OTHERS
THEN
fac.imp_writelog (p_import_key, 'E', v_errormsg, v_errorhint);
oracle_err_num := SQLCODE;
oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
v_errormsg := 'Error ' || oracle_err_num || '/' || oracle_err_mes;
fac.imp_writelog (p_import_key, 'E', v_errormsg, v_errorhint);
END;
/
CREATE OR REPLACE PROCEDURE plat_update_ins (
p_import_key IN NUMBER
) IS
v_count NUMBER;
v_max_ins_srtdeel_key NUMBER(10);
v_max_ins_deel_key NUMBER(10);
BEGIN
-- Even snel registreren wat de laatst toegevoegde ins_srtdeel is, dan weten we dat er door deze import-procedure wordt toegevoegd (alles > dan deze max).
SELECT coalesce(max(ins_srtdeel_key),0)
INTO v_max_ins_srtdeel_key
FROM ins_srtdeel
WHERE ins_srtdeel_verwijder IS NULL;
-- Idem voor laatst toegevoegde ins_deel is, dan weten we dat er door deze import-procedure wordt toegevoegd (alles > dan deze max).
SELECT coalesce(max(ins_deel_key),0)
INTO v_max_ins_deel_key
FROM ins_deel
WHERE ins_deel_verwijder IS NULL;
fac_update_ins (p_import_key);
-- After update ...
plat_post_update_ins(p_import_key, v_max_ins_srtdeel_key, v_max_ins_deel_key);
END plat_update_ins;
/
-- PLAT#36309: MJOP-Export vanuit PLATO, Import in Tobias AX.
-- Alle MJOB taken van de actuele situatie (=geen scenario, oftewel scenario_key =1) in het freezeyear (setting mjb_freeze_year) die gestart zijn (geaccordeerd/goedgekeurd, oftewel status 2)
CREATE OR REPLACE VIEW plat_v_exp_mjob_tobiasax_body
(result, result_order)
AS
SELECT 'Id;Bedrijf;Complexcode;Complexnaam;Clustercode;Clusternaam;Hoofdrecept;Groeprecept;Subreceptnummer;Subreceptomschrijving;Elementnummer;Element beschrijving;Hoeveelheid;Hoeveelheid Taak;Eenheid;Cyclus;Cyclus afwijkend;' ||
'Loonbedrag;Derden;Materieel;Materiaal;Uren;Betreft(%);Taak;Projectgroep;BTW;'|| fac.getsetting('mjb_freeze_year'),0 FROM DUAL
UNION ALL
SELECT x.ins_deelsrtcontrole_key || ';' ||
x.alg_district_omschrijving || ';' ||
x.alg_locatie_code || ';' ||
x.alg_locatie_omschrijving || ';' ||
x.alg_gebouw_code || ';' ||
x.alg_gebouw_naam || ';' ||
x.ins_discipline_omschrijving || ';' ||
x.ins_srtgroep_upper || ';' ||
x.ins_srtdeel_code_upper || ';' ||
x.ins_srtdeel_omschrijving || ';' ||
x.ins_deel_upper || ';' ||
x.ins_deel_opmerking || ';' ||
x.ins_deel_aantal || ';' ||
xcp.ins_srtcontroledl_xcp_aantal || ';' ||
x.ins_srtdeel_eenheid || ';' ||
x.ins_srtcontrole_periode || ';' ||
xcp.ins_srtcontroledl_xcp_periode || ';' ||
COALESCE(xcp.ins_srtcontroledl_xcp_kosten, x.ins_srtcontrole_kosten) || ';' ||
COALESCE(xcp.ins_srtcontroledl_xcp_kosten2, x.ins_srtcontrole_kosten2) || ';' ||
COALESCE(xcp.ins_srtcontroledl_xcp_kosten3, x.ins_srtcontrole_kosten3) || ';' ||
COALESCE(xcp.ins_srtcontroledl_xcp_materia, x.ins_srtcontrole_materiaal) || ';' ||
COALESCE(xcp.ins_srtcontroledl_xcp_uren, x.ins_srtcontrole_uren) || ';' ||
COALESCE(xcp.ins_srtcontroledl_xcp_perc, x.ins_srtcontrole_percentage) || ';' ||
x.ins_srtcontrole_omschrijving || ';' ||
x.prs_kostenplaats_upper || ';' ||
x.fin_btwtabelwaarde_perc || ';' ||
x.ins_deelsrtcontrole_freezecost
,x.ins_deelsrtcontrole_key
FROM
(SELECT d.ins_deel_key,
disc.ins_discipline_omschrijving,
sg.ins_srtgroep_upper,
sd.ins_srtdeel_code_upper,
sd.ins_srtdeel_omschrijving,
d.ins_deel_upper,
d.ins_deel_opmerking,
d.ins_deel_aantal,
sd.ins_srtdeel_eenheid,
sc.ins_srtcontrole_periode,
sc.ins_srtcontrole_omschrijving,
sc.ins_srtcontrole_kosten,
sc.ins_srtcontrole_kosten2,
sc.ins_srtcontrole_kosten3,
sc.ins_srtcontrole_materiaal,
sc.ins_srtcontrole_uren,
sc.ins_srtcontrole_percentage,
dc.ins_deelsrtcontrole_freezecost,
kp.prs_kostenplaats_upper,
btw.fin_btwtabelwaarde_perc,
dc.ins_srtcontrole_key,
dc.ins_deelsrtcontrole_key,
ds.alg_district_omschrijving,
l.alg_locatie_code,
l.alg_locatie_omschrijving,
g.alg_gebouw_code,
g.alg_gebouw_naam
FROM ins_deelsrtcontrole dc, ins_srtcontrole sc, ins_deel d, ins_srtdeel sd, ins_srtgroep sg, ins_discipline disc, prs_kostenplaats kp, fin_btwtabelwaarde btw,
alg_ruimte r, alg_verdieping v, alg_gebouw g, alg_locatie l, alg_district ds
WHERE dc.ins_scenario_key = 1
AND to_char(dc.ins_deelsrtcontrole_freezedate, 'YYYY') = fac.getsetting('mjb_freeze_year')
AND dc.ins_deelsrtcontrole_status = 2
AND dc.ins_srtcontrole_key = sc.ins_srtcontrole_key
AND d.ins_alg_ruimte_key = r.alg_ruimte_key
AND d.ins_alg_ruimte_type = 'R'
AND v.alg_verdieping_key = r.alg_verdieping_key
AND g.alg_gebouw_key = v.alg_gebouw_key
AND l.alg_locatie_key = g.alg_locatie_key
AND ds.alg_district_key = l.alg_district_key
AND d.ins_deel_key = dc.ins_deel_key
AND sd.ins_srtdeel_key = d.ins_srtdeel_key
AND sg.ins_srtgroep_key = sd.ins_srtgroep_key
AND disc.ins_discipline_key = sg.ins_discipline_key
AND sc.prs_kostenplaats_key = kp.prs_kostenplaats_key(+)
AND sc.fin_btwtabelwaarde_key = btw.fin_btwtabelwaarde_key(+)) x
LEFT JOIN (select * FROM ins_srtcontroledl_xcp WHERE ins_scenario_key = 1) xcp
ON xcp.ins_deel_key = x.ins_deel_key AND xcp.ins_srtcontrole_key = x.ins_srtcontrole_key;
-- Omdat Tobias-AX geen CSV kan inlezen, maar (alleen/wel) Excel, doen we geen export, maar een rapport.
-- Vanuit dit rapport kan men dan een Excel-knop drukken, de xls openen en dan saven als xlsx.
CREATE OR REPLACE VIEW plat_v_rap_mjob_tobiasax
(Id,Bedrijf,Complexcode,Complexnaam,Clustercode,Clusternaam,Hoofdrecept,Groeprecept,Subreceptnummer,Subreceptomschrijving,Elementnummer,Elementbeschrijving,Hoeveelheid,Hoeveelheid_taak,Eenheid,Cyclus,Cyclus_afwijkend,
Loonbedrag,Derden,Materieel,Materiaal,Uren,Betreft_percentage,Taak,Projectgroep,BTW, Begroting)
AS SELECT x.ins_deelsrtcontrole_key,
x.alg_district_omschrijving,
x.alg_locatie_code,
x.alg_locatie_omschrijving,
x.alg_gebouw_code,
x.alg_gebouw_naam,
x.ins_discipline_omschrijving,
x.ins_srtgroep_upper,
x.ins_srtdeel_code_upper,
x.ins_srtdeel_omschrijving,
x.ins_deel_upper,
x.ins_deel_opmerking,
x.ins_deel_aantal,
xcp.ins_srtcontroledl_xcp_aantal,
x.ins_srtdeel_eenheid,
x.ins_srtcontrole_periode,
xcp.ins_srtcontroledl_xcp_periode,
COALESCE(xcp.ins_srtcontroledl_xcp_kosten, x.ins_srtcontrole_kosten),
COALESCE(xcp.ins_srtcontroledl_xcp_kosten2, x.ins_srtcontrole_kosten2),
COALESCE(xcp.ins_srtcontroledl_xcp_kosten3, x.ins_srtcontrole_kosten3),
COALESCE(xcp.ins_srtcontroledl_xcp_materia, x.ins_srtcontrole_materiaal),
COALESCE(xcp.ins_srtcontroledl_xcp_uren, x.ins_srtcontrole_uren),
COALESCE(xcp.ins_srtcontroledl_xcp_perc, x.ins_srtcontrole_percentage),
x.ins_srtcontrole_omschrijving,
x.prs_kostenplaats_upper,
x.fin_btwtabelwaarde_perc,
x.ins_deelsrtcontrole_freezecost
FROM
(SELECT d.ins_deel_key,
disc.ins_discipline_omschrijving,
sg.ins_srtgroep_upper,
sd.ins_srtdeel_code_upper,
sd.ins_srtdeel_omschrijving,
d.ins_deel_upper,
d.ins_deel_opmerking,
d.ins_deel_aantal,
sd.ins_srtdeel_eenheid,
sc.ins_srtcontrole_periode,
sc.ins_srtcontrole_omschrijving,
sc.ins_srtcontrole_kosten,
sc.ins_srtcontrole_kosten2,
sc.ins_srtcontrole_kosten3,
sc.ins_srtcontrole_materiaal,
sc.ins_srtcontrole_uren,
sc.ins_srtcontrole_percentage,
dc.ins_deelsrtcontrole_freezecost,
kp.prs_kostenplaats_upper,
btw.fin_btwtabelwaarde_perc,
dc.ins_srtcontrole_key,
dc.ins_deelsrtcontrole_key,
ds.alg_district_omschrijving,
l.alg_locatie_code,
l.alg_locatie_omschrijving,
g.alg_gebouw_code,
g.alg_gebouw_naam
FROM ins_deelsrtcontrole dc, ins_srtcontrole sc, ins_deel d, ins_srtdeel sd, ins_srtgroep sg, ins_discipline disc, prs_kostenplaats kp, fin_btwtabelwaarde btw,
alg_ruimte r, alg_verdieping v, alg_gebouw g, alg_locatie l, alg_district ds
WHERE dc.ins_scenario_key = 1
AND to_char(dc.ins_deelsrtcontrole_freezedate, 'YYYY') = fac.getsetting('mjb_freeze_year')
AND dc.ins_deelsrtcontrole_status = 2
AND dc.ins_srtcontrole_key = sc.ins_srtcontrole_key
AND d.ins_alg_ruimte_key = r.alg_ruimte_key
AND d.ins_alg_ruimte_type = 'R'
AND v.alg_verdieping_key = r.alg_verdieping_key
AND g.alg_gebouw_key = v.alg_gebouw_key
AND l.alg_locatie_key = g.alg_locatie_key
AND ds.alg_district_key = l.alg_district_key
AND d.ins_deel_key = dc.ins_deel_key
AND sd.ins_srtdeel_key = d.ins_srtdeel_key
AND sg.ins_srtgroep_key = sd.ins_srtgroep_key
AND disc.ins_discipline_key = sg.ins_discipline_key
AND sc.prs_kostenplaats_key = kp.prs_kostenplaats_key(+)
AND sc.fin_btwtabelwaarde_key = btw.fin_btwtabelwaarde_key(+)) x
LEFT JOIN (select * FROM ins_srtcontroledl_xcp WHERE ins_scenario_key = 1) xcp
ON xcp.ins_deel_key = x.ins_deel_key AND xcp.ins_srtcontrole_key = x.ins_srtcontrole_key;
--SELECT 'ins_deel_key;Hoofdrecept;Groeprecept;Subreceptnummer;Subreceptomschrijving;Elementnummer;Element beschrijving;Hoeveelheid;Eenheid;ins_srtcontrole_key',0 FROM DUAL
--UNION ALL
--SELECT d.ins_deel_key || ';' ||
-- disc.ins_discipline_omschrijving || ';' ||
-- sg.ins_srtgroep_upper || ';' ||
-- sd.ins_srtdeel_code_upper || ';' ||
-- sd.ins_srtdeel_omschrijving || ';' ||
-- d.ins_deel_upper || ';' ||
-- d.ins_deel_opmerking || ';' ||
-- d.ins_deel_aantal || ';' ||
-- sd.ins_srtdeel_eenheid || ';' ||
-- dc.ins_srtcontrole_key
-- , dc.ins_deelsrtcontrole_key
--FROM ins_deelsrtcontrole dc, ins_deel d, ins_srtdeel sd, ins_srtgroep sg, ins_discipline disc
--WHERE dc.ins_scenario_key = 1
--AND to_char(dc.ins_deelsrtcontrole_freezedate, 'YYYY') = fac.getsetting('mjb_freeze_year')
--AND dc.ins_deelsrtcontrole_status = 2
--AND d.ins_deel_key = dc.ins_deel_key
--AND sd.ins_srtdeel_key = d.ins_srtdeel_key
--AND sg.ins_srtgroep_key = sd.ins_srtgroep_key
--AND disc.ins_discipline_key = sg.ins_discipline_key;
CREATE OR REPLACE VIEW plat_v_export_MJOB_TOBIAS_AX (
result,
result_order
)
AS
SELECT result, result_order FROM plat_v_exp_mjob_tobiasax_body;
BEGIN fac.registercustversion('PLAT', 1); END;
/
BEGIN adm.systrackscriptId('$Id$', 0); END;
/
show errors;
commit;
spool off;
Reference in New Issue View Git Blame Copy Permalink