WDKA#79209 -- Aanpassing notificatie view WDKA_V_NOTI_TAAK_AFGEROND
svn path=/Customer/trunk/; revision=62991
This commit is contained in:
Norbert Wassink
213
WDKA/WDKA.sql
213
WDKA/WDKA.sql
@@ -1632,7 +1632,208 @@ BEGIN
|
||||
END;
|
||||
/
|
||||
|
||||
-- Import Asset migratie:
|
||||
-- Concept script om import sheet objecten telaten verplaatsen naat andere objest srt/groep
|
||||
-- Door nieuwe release is dit evt niet meer noodzakelijk.
|
||||
CREATE OR REPLACE PROCEDURE WDKA_IMPORT_ASSET_MIGRATIE(p_import_key IN NUMBER)
|
||||
AS
|
||||
BEGIN
|
||||
DELETE FROM fac_imp_csv;
|
||||
|
||||
fac_import_genericcsv(p_import_key);
|
||||
END;
|
||||
/
|
||||
|
||||
-- Concept script om import sheet objecten telaten verplaatsen naat andere objest srt/groep, alleen voor taak1 gebouwd rest nog maken
|
||||
-- Door nieuwe release is dit evt niet meer noodzakelijk.
|
||||
CREATE OR REPLACE PROCEDURE WDKA_UPDATE_ASSET_MIGRATIE(p_import_key IN NUMBER)
|
||||
AS
|
||||
CURSOR c
|
||||
IS
|
||||
SELECT fac_imp_csv_col01 ins_deel_omschrijving,
|
||||
fac_imp_csv_col02 ins_deel_opmerking,
|
||||
fac_imp_csv_col03 ins_discipline,
|
||||
fac_imp_csv_col04 ins_srtgroep_oud,
|
||||
fac_imp_csv_col05 ins_srtdeel_oud,
|
||||
fac_imp_csv_col06 ins_srtgroep_nieuw,
|
||||
fac_imp_csv_col07 ins_srtdeel_nieuw,
|
||||
fac_imp_csv_col08 taak1,
|
||||
fac_imp_csv_col09 taak1_datum,
|
||||
fac_imp_csv_col08 taak2,
|
||||
fac_imp_csv_col09 taak2_datum,
|
||||
fac_imp_csv_col08 taak3,
|
||||
fac_imp_csv_col09 taak3_datum
|
||||
from fac_imp_csv
|
||||
WHERE fac_import_key = p_import_key;
|
||||
|
||||
|
||||
v_errormsg VARCHAR2 (1000);
|
||||
v_errorhint VARCHAR2 (1000);
|
||||
v_aanduiding VARCHAR2 (1000);
|
||||
oracle_err_num NUMBER;
|
||||
oracle_err_mes VARCHAR2 (200);
|
||||
|
||||
v_counter NUMBER;
|
||||
v_ins_deel_key NUMBER;
|
||||
v_ins_srtdeel_key_now NUMBER;
|
||||
v_ins_srtdeel_key_new NUMBER;
|
||||
v_ins_srtgroep_key_new NUMBER;
|
||||
v_srtcontrole_key NUMBER;
|
||||
v_eenheid NUMBER;
|
||||
v_groep NUMBER;
|
||||
v_cyclus1 NUMBER;
|
||||
v_cyclus2 NUMBER;
|
||||
v_cyclus3 NUMBER;
|
||||
v_datum1 DATE;
|
||||
v_datum2 DATE;
|
||||
v_datum3 DATE;
|
||||
BEGIN
|
||||
v_counter:=0;
|
||||
v_eenheid:=3;
|
||||
FOR rec IN C
|
||||
LOOP
|
||||
IF v_counter>0
|
||||
THEN
|
||||
BEGIN
|
||||
v_errormsg :='Ophalen object '||rec.ins_deel_omschrijving||' gaat fout';
|
||||
SELECT ins_deel_key , ins_srtdeel_key
|
||||
INTO v_ins_deel_key, v_ins_srtdeel_key_now
|
||||
FROM ins_deel
|
||||
where ins_deel_omschrijving=rec.ins_deel_omschrijving
|
||||
AND UPPER(ins_deel_opmerking) = UPPER(rec.ins_deel_opmerking)
|
||||
AND ins_deel_verwijder IS NULL
|
||||
AND (ins_deel_vervaldatum IS NULL
|
||||
OR ins_deel_vervaldatum>SYSDATE);
|
||||
|
||||
v_errormsg :='Ophalen objectgroep '||rec.ins_srtgroep_nieuw||' gaat fout';
|
||||
SELECT ins_srtgroep_key
|
||||
INTO v_ins_srtgroep_key_new
|
||||
FROM ins_srtgroep
|
||||
WHERE UPPER(ins_srtgroep_omschrijving)=UPPER(rec.ins_srtgroep_nieuw)
|
||||
AND ins_srtgroep_verwijder IS NULL;
|
||||
|
||||
v_errormsg :='Ophalen objectsoort '||rec.ins_srtdeel_nieuw||' gaat fout';
|
||||
SELECT ins_srtdeel_key
|
||||
INTO v_ins_srtdeel_key_new
|
||||
FROM ins_srtdeel
|
||||
WHERE UPPER(ins_srtdeel_omschrijving)=UPPER(rec.ins_srtdeel_nieuw)
|
||||
AND ins_srtgroep_key = v_ins_srtgroep_key_new
|
||||
AND ins_srtdeel_verwijder IS NULL;
|
||||
EXCEPTION
|
||||
WHEN NO_DATA_FOUND THEN
|
||||
v_ins_deel_key:=-1;
|
||||
v_ins_srtdeel_key_new:=-1;
|
||||
fac.imp_writelog (p_import_key,
|
||||
'W',
|
||||
v_errormsg,
|
||||
v_errorhint);
|
||||
END;
|
||||
|
||||
IF v_ins_deel_key>0
|
||||
AND v_ins_srtdeel_key_new > 0
|
||||
AND v_ins_srtdeel_key_new<>v_ins_srtdeel_key_now
|
||||
THEN
|
||||
-- we hebben nu alles gevonden en kunnen nu de mutatie op het object doorvoeren
|
||||
v_errormsg :='verplaatsen object '||rec.ins_deel_omschrijving||' van '||v_ins_srtdeel_key_now||' naar '||v_ins_srtdeel_key_new||' gaat fout.';
|
||||
UPDATE ins_deel
|
||||
SET ins_srtdeel_key=v_ins_srtdeel_key_new
|
||||
WHERE ins_deel_key = v_ins_deel_key;
|
||||
IF (rec.taak1 ='SKH keuring') THEN
|
||||
v_cyclus1:=36;
|
||||
ELSE
|
||||
v_cyclus1:=12;
|
||||
END IF;
|
||||
IF (rec.taak2 ='SKH keuring') THEN
|
||||
v_cyclus2:=36;
|
||||
ELSE
|
||||
v_cyclus2:=12;
|
||||
END IF;
|
||||
IF (rec.taak3 ='SKH keuring') THEN
|
||||
v_cyclus3:=36;
|
||||
ELSE
|
||||
v_cyclus3:=12;
|
||||
END IF;
|
||||
|
||||
|
||||
-- Onder welke groep valt deze taak
|
||||
IF rec.taak1 IS NOT NULL
|
||||
AND rec.taak1 <> 'Registratie'
|
||||
AND length(rec.taak1)>0
|
||||
THEN
|
||||
v_groep:=wdka.getCtrGroep(rec.taak1);
|
||||
-- Object gevoiden en groep gevonden
|
||||
-- Opzeok naar een taak met de aangegeven omschrijving op de nieuwe objectsoort
|
||||
BEGIN
|
||||
v_errormsg :='Ophalen srtcontrole '||rec.taak1||' gaat fout';
|
||||
SELECT ins_srtcontrole_key
|
||||
INTO v_srtcontrole_key
|
||||
FROM ins_srtcontrole
|
||||
where ins_srtinstallatie_key=v_ins_srtdeel_key_new
|
||||
AND ins_srtcontrole_niveau='S'
|
||||
AND UPPER(ins_srtcontrole_omschrijving) = UPPER(rec.taak1)
|
||||
AND ins_srtcontrole_periode=v_cyclus1
|
||||
AND ins_srtcontrole_eenheid=v_eenheid
|
||||
AND ins_srtcontrole_mode=1
|
||||
AND ctr_discipline_key=v_groep;
|
||||
EXCEPTION
|
||||
WHEN NO_DATA_FOUND
|
||||
THEN
|
||||
v_srtcontrole_key:=-1;
|
||||
fac.imp_writelog (p_import_key,
|
||||
'W',
|
||||
v_errormsg,
|
||||
v_errorhint);
|
||||
END;
|
||||
IF v_srtcontrole_key >0 THEN
|
||||
|
||||
v_datum1 := fac.safe_to_date(rec.taak1_datum,'DD-MM-YYYY');
|
||||
v_datum1 := wdka.getSrtControldatum(v_datum1, v_cyclus1);
|
||||
-- nu gaan we de insdeelsrtcontrioeole vullen
|
||||
v_errormsg := 'Fout INSERT deelsrtcontrole te importeren rij taak1 '||v_counter||'('||rec.ins_deel_omschrijving||')';
|
||||
|
||||
INSERT INTO ins_deelsrtcontrole(ins_deel_key,
|
||||
ins_srtcontrole_key,
|
||||
ins_scenario_key,
|
||||
ins_deelsrtcontrole_datum,
|
||||
ins_controlemode_key,
|
||||
ins_deelsrtcontrole_status,
|
||||
ins_deelsrtcontrole_datum_org,
|
||||
ins_deelsrtcontrole_freezecost,
|
||||
prs_perslid_key)
|
||||
VALUES(v_ins_deel_key,
|
||||
v_srtcontrole_key,
|
||||
1,
|
||||
v_datum1,
|
||||
10,
|
||||
6,
|
||||
v_datum1,
|
||||
0,
|
||||
3);
|
||||
END IF;
|
||||
END IF;
|
||||
|
||||
|
||||
END IF;
|
||||
ELSE
|
||||
-- Header row
|
||||
v_counter:=v_counter+1;
|
||||
END IF;
|
||||
END LOOP;
|
||||
EXCEPTION
|
||||
WHEN OTHERS
|
||||
THEN
|
||||
v_errorhint := v_errormsg || ' - ' || v_aanduiding;
|
||||
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;
|
||||
/
|
||||
-- Einde Import Asset migratie:
|
||||
|
||||
CREATE OR REPLACE PROCEDURE WDKA_IMPORT_PAT_DATA(p_import_key IN NUMBER)
|
||||
AS
|
||||
@@ -2794,14 +2995,17 @@ CREATE OR REPLACE VIEW wdka_v_noti_taak_afgerond
|
||||
CODE,
|
||||
SENDER,
|
||||
RECEIVER,
|
||||
XEMAIL,
|
||||
TEXT,
|
||||
KEY,
|
||||
XKEY
|
||||
XKEY,
|
||||
XMOBILE
|
||||
)
|
||||
AS
|
||||
SELECT 'CUST03' code,
|
||||
NULL sender,
|
||||
NVL(
|
||||
NULL receiver,
|
||||
RTRIM(LTRIM(NVL(
|
||||
(CASE
|
||||
WHEN ar2.alg_ruimte_omschrijving LIKE '%@%'
|
||||
THEN ar2.alg_ruimte_omschrijving
|
||||
@@ -2820,10 +3024,11 @@ AS
|
||||
FROM prs_perslid
|
||||
WHERE prs_perslid_key = ag.prs_perslid_key_verantw2)
|
||||
ELSE NULL
|
||||
END),p.prs_perslid_email) receiver,
|
||||
END),p.prs_perslid_email),';'),';') xemail,
|
||||
'Uw apparaat ('|| i.ins_deel_omschrijving||') ligt gereed na keuring.' text,
|
||||
i.ins_deel_key key,
|
||||
NULL xkey
|
||||
NULL xkey,
|
||||
NULL xmobile
|
||||
FROM ins_deelsrtcontrole ids,
|
||||
ins_srtcontrole isc,
|
||||
ins_deel i,
|
||||
|
||||
Reference in New Issue
Block a user