WDKA#68779 -- Inrichten Wedeka
svn path=/Customer/trunk/; revision=56661
This commit is contained in:
Norbert Wassink
@@ -32,6 +32,8 @@ CREATE OR REPLACE PACKAGE WDKA
|
||||
AS
|
||||
PROCEDURE insert_ctr_kenmerk (p_srtcontrole_key IN NUMBER);
|
||||
|
||||
PROCEDURE setKenmerkObject(p_ins_key IN NUMBER, p_ins_srtinstallatie_key IN NUMBER, p_kenmerk_omschrijving IN VARCHAR2, p_kenmerk_waarde IN VARCHAR2);
|
||||
|
||||
FUNCTION getSrtControldatum(p_datum IN DATE, p_cyclus IN NUMBER) RETURN DATE;
|
||||
END;
|
||||
/
|
||||
@@ -69,6 +71,18 @@ AS
|
||||
|
||||
END;
|
||||
|
||||
PROCEDURE setKenmerkObject(p_ins_key IN NUMBER, p_ins_srtinstallatie_key IN NUMBER, p_kenmerk_omschrijving IN VARCHAR2, p_kenmerk_waarde IN VARCHAR2)
|
||||
AS
|
||||
v_ins_kenmerk_key NUMBER;
|
||||
BEGIN
|
||||
v_ins_kenmerk_key:=-1;
|
||||
|
||||
select ins_kenmerk_key INTO v_ins_kenmerk_key from ins_kenmerk where UPPER(ins_kenmerk.INS_KENMERK_OMSCHRIJVING)=UPPER(p_kenmerk_omschrijving) AND ins_srtinstallatie_key=p_ins_srtinstallatie_key AND ins_kenmerk_niveau='D';
|
||||
IF v_ins_kenmerk_key>-1 THEN
|
||||
flx.setflex('INS',v_ins_kenmerk_key,p_ins_key,p_kenmerk_waarde);
|
||||
|
||||
END IF;
|
||||
END;
|
||||
|
||||
FUNCTION getSrtControldatum(p_datum IN DATE, p_cyclus IN NUMBER) RETURN DATE
|
||||
AS
|
||||
@@ -1336,6 +1350,7 @@ AS
|
||||
oracle_err_num NUMBER;
|
||||
oracle_err_mes VARCHAR2 (200);
|
||||
v_ins_key NUMBER;
|
||||
v_ins_discipline_key NUMBER;
|
||||
v_aanduiding VARCHAR2 (1000) := '';
|
||||
v_ins_srtcontrole_key NUMBER;
|
||||
v_deelsrtcontrole_key NUMBER;
|
||||
@@ -1380,8 +1395,9 @@ BEGIN
|
||||
v_volgende_testdatum := fac.safe_to_date (rec.v_volgende_testdatum_str,'DD-MM-YYYY');
|
||||
|
||||
|
||||
SELECT COALESCE(MAX(ins_deel_key),-1) INTO v_ins_key
|
||||
FROM ins_deel
|
||||
SELECT ins_deel_key, ins_discipline_key
|
||||
INTO v_ins_key, v_ins_discipline_key
|
||||
FROM ins_v_deel_gegevens
|
||||
WHERE ins_deel_omschrijving=rec.smartwareid;
|
||||
|
||||
|
||||
@@ -1466,17 +1482,19 @@ BEGIN
|
||||
v_aanduiding := 'Verwerken resultaten ('||v_count||')';
|
||||
IF LENGTH(rec.aarde_waarde) > 0
|
||||
THEN
|
||||
v_aanduiding := 'Verwerken resultaten 1('||v_count||')';
|
||||
flx.setflex('INS',141,v_ins_key,rec.aarde_waarde);
|
||||
v_aanduiding := 'Verwerken resultaten 1('||v_count||')-'||v_ins_key;
|
||||
wdka.setKenmerkObject(v_ins_key, v_ins_discipline_key, 'Aarde (Ohm)', rec.aarde_waarde);
|
||||
--flx.setflex('INS',141,v_ins_key,rec.aarde_waarde);
|
||||
BEGIN
|
||||
SELECT ins_kenmerk_key INTO v_ins_kenmerk_key FROM ins_kenmerk where ins_srtinstallatie_key=v_ins_srtcontrole_key AND ins_kenmerk_niveau='C' AND ins_kenmerk_omschrijving='Aarde (Ohm)';
|
||||
EXCEPTION
|
||||
WHEN NO_DATA_FOUND
|
||||
THEN
|
||||
v_aanduiding := 'Kenmerk key Aarde nbiet gevonden('||v_count||')'||'-'||v_ins_srtcontrole_key;
|
||||
v_aanduiding := 'Kenmerk key Aarde niet gevonden('||v_count||')'||'-'||v_ins_srtcontrole_key;
|
||||
v_ins_kenmerk_key:=-1;
|
||||
END;
|
||||
IF v_ins_kenmerk_key>0 THEN
|
||||
IF v_ins_kenmerk_key>0 THEN
|
||||
v_aanduiding := 'Fout bij verwerken resultaten 1('||v_count||')-'||v_ins_key;
|
||||
INSERT into ins_kmdeelsrtcontr(ins_deelsrtcontrole_key, ins_kenmerk_key, ins_kmdeelsrtcontr_waarde, ins_kmdeelsrtcontr_aanmaak)
|
||||
VALUES(v_ins_deelsrtcontrole_key, v_ins_kenmerk_key, rec.aarde_waarde, SYSDATE);
|
||||
END IF;
|
||||
@@ -1484,7 +1502,8 @@ BEGIN
|
||||
IF LENGTH(rec.aarde_resultaat) > 0
|
||||
THEN
|
||||
v_aanduiding := 'Verwerken resultaten 2('||v_count||')';
|
||||
flx.setflex('INS',142,v_ins_key,rec.aarde_resultaat);
|
||||
wdka.setKenmerkObject(v_ins_key, v_ins_discipline_key, 'Aarde Resultaat', rec.aarde_resultaat);
|
||||
--flx.setflex('INS',142,v_ins_key,rec.aarde_resultaat);
|
||||
BEGIN
|
||||
SELECT ins_kenmerk_key INTO v_ins_kenmerk_key FROM ins_kenmerk where ins_srtinstallatie_key=v_ins_srtcontrole_key AND ins_kenmerk_niveau='C' AND ins_kenmerk_omschrijving='Aarde Resultaat';
|
||||
EXCEPTION
|
||||
@@ -1501,7 +1520,8 @@ BEGIN
|
||||
IF LENGTH(rec.lekstroom_waarde) > 0
|
||||
THEN
|
||||
v_aanduiding := 'Verwerken resultaten 3('||v_count||')';
|
||||
flx.setflex('INS',143,v_ins_key,rec.lekstroom_waarde);
|
||||
wdka.setKenmerkObject(v_ins_key, v_ins_discipline_key, 'Lekstroom (mA)', rec.lekstroom_waarde);
|
||||
--flx.setflex('INS',143,v_ins_key,rec.lekstroom_waarde);
|
||||
BEGIN
|
||||
SELECT ins_kenmerk_key INTO v_ins_kenmerk_key FROM ins_kenmerk where ins_srtinstallatie_key=v_ins_srtcontrole_key AND ins_kenmerk_niveau='C' AND ins_kenmerk_omschrijving='Lekstroom (mA)';
|
||||
EXCEPTION
|
||||
@@ -1519,7 +1539,8 @@ BEGIN
|
||||
IF LENGTH(rec.lekstroom_resultaat) > 0
|
||||
THEN
|
||||
v_aanduiding := 'Verwerken resultaten 4('||v_count||')';
|
||||
flx.setflex('INS',144,v_ins_key,rec.lekstroom_resultaat);
|
||||
wdka.setKenmerkObject(v_ins_key, v_ins_discipline_key, 'Lekstroom resultaat', rec.lekstroom_resultaat);
|
||||
--flx.setflex('INS',144,v_ins_key,rec.lekstroom_resultaat);
|
||||
BEGIN
|
||||
SELECT ins_kenmerk_key INTO v_ins_kenmerk_key FROM ins_kenmerk where ins_srtinstallatie_key=v_ins_srtcontrole_key AND ins_kenmerk_niveau='C' AND ins_kenmerk_omschrijving='Lekstroom resultaat';
|
||||
EXCEPTION
|
||||
@@ -1536,7 +1557,8 @@ BEGIN
|
||||
IF LENGTH(rec.aanrk_lekstrm_waarde) > 0
|
||||
THEN
|
||||
v_aanduiding := 'Verwerken resultaten 5('||v_count||')';
|
||||
flx.setflex('INS',145,v_ins_key,rec.aanrk_lekstrm_waarde);
|
||||
wdka.setKenmerkObject(v_ins_key, v_ins_discipline_key, 'Aanraak lekstroom (mA)', rec.aanrk_lekstrm_waarde);
|
||||
--flx.setflex('INS',145,v_ins_key,rec.aanrk_lekstrm_waarde);
|
||||
BEGIN
|
||||
SELECT ins_kenmerk_key INTO v_ins_kenmerk_key FROM ins_kenmerk where ins_srtinstallatie_key=v_ins_srtcontrole_key AND ins_kenmerk_niveau='C' AND ins_kenmerk_omschrijving='Aanraak lekstroom (mA)';
|
||||
EXCEPTION
|
||||
@@ -1553,7 +1575,8 @@ BEGIN
|
||||
IF LENGTH(rec.aanrk_lekstrm_resultaat) > 0
|
||||
THEN
|
||||
v_aanduiding := 'Verwerken resultaten 6('||v_count||')';
|
||||
flx.setflex('INS',146,v_ins_key,rec.aanrk_lekstrm_resultaat);
|
||||
wdka.setKenmerkObject(v_ins_key, v_ins_discipline_key, 'Aanraak lekstroom resultaat', rec.aanrk_lekstrm_resultaat);
|
||||
--lx.setflex('INS',146,v_ins_key,rec.aanrk_lekstrm_resultaat);
|
||||
BEGIN
|
||||
SELECT ins_kenmerk_key INTO v_ins_kenmerk_key FROM ins_kenmerk where ins_srtinstallatie_key=v_ins_srtcontrole_key AND ins_kenmerk_niveau='C' AND ins_kenmerk_omschrijving='Aanraak lekstroom resultaat';
|
||||
EXCEPTION
|
||||
@@ -1571,7 +1594,8 @@ BEGIN
|
||||
IF LENGTH(rec.verv_lekstrm_waarde) > 0
|
||||
THEN
|
||||
v_aanduiding := 'Verwerken resultaten 7('||v_count||')';
|
||||
flx.setflex('INS',147,v_ins_key,rec.verv_lekstrm_waarde);
|
||||
wdka.setKenmerkObject(v_ins_key, v_ins_discipline_key, 'Vervangende lekstroom (mA)', rec.verv_lekstrm_waarde);
|
||||
--flx.setflex('INS',147,v_ins_key,rec.verv_lekstrm_waarde);
|
||||
BEGIN
|
||||
SELECT ins_kenmerk_key INTO v_ins_kenmerk_key FROM ins_kenmerk where ins_srtinstallatie_key=v_ins_srtcontrole_key AND ins_kenmerk_niveau='C' AND ins_kenmerk_omschrijving='Vervangende lekstroom (mA)';
|
||||
EXCEPTION
|
||||
@@ -1588,7 +1612,8 @@ BEGIN
|
||||
IF LENGTH(rec.verv_lekstrm_resultaat) > 0
|
||||
THEN
|
||||
v_aanduiding := 'Verwerken resultaten 8('||v_count||')';
|
||||
flx.setflex('INS',148,v_ins_key,rec.verv_lekstrm_resultaat);
|
||||
wdka.setKenmerkObject(v_ins_key, v_ins_discipline_key, 'Vervangende lekstroom resultaat', rec.verv_lekstrm_resultaat);
|
||||
--flx.setflex('INS',148,v_ins_key,rec.verv_lekstrm_resultaat);
|
||||
BEGIN
|
||||
SELECT ins_kenmerk_key INTO v_ins_kenmerk_key FROM ins_kenmerk where ins_srtinstallatie_key=v_ins_srtcontrole_key AND ins_kenmerk_niveau='C' AND ins_kenmerk_omschrijving='Vervangende lekstroom resultaat';
|
||||
EXCEPTION
|
||||
@@ -1605,7 +1630,8 @@ BEGIN
|
||||
IF LENGTH(rec.isolatie_waarde) > 0
|
||||
THEN
|
||||
v_aanduiding := 'Verwerken resultaten 9('||v_count||')';
|
||||
flx.setflex('INS',149,v_ins_key,rec.isolatie_waarde);
|
||||
wdka.setKenmerkObject(v_ins_key, v_ins_discipline_key, 'Isolatie (MOhm)', rec.isolatie_waarde);
|
||||
--flx.setflex('INS',149,v_ins_key,rec.isolatie_waarde);
|
||||
BEGIN
|
||||
SELECT ins_kenmerk_key INTO v_ins_kenmerk_key FROM ins_kenmerk where ins_srtinstallatie_key=v_ins_srtcontrole_key AND ins_kenmerk_niveau='C' AND ins_kenmerk_omschrijving='Isolatie (MOhm)';
|
||||
EXCEPTION
|
||||
@@ -1623,7 +1649,8 @@ BEGIN
|
||||
IF LENGTH(rec.isolatie_resultaat) > 0
|
||||
THEN
|
||||
v_aanduiding := 'Verwerken resultaten 10('||v_count||')';
|
||||
flx.setflex('INS',150,v_ins_key,rec.isolatie_resultaat);
|
||||
wdka.setKenmerkObject(v_ins_key, v_ins_discipline_key, 'Isolatie resultaat', rec.isolatie_resultaat);
|
||||
--flx.setflex('INS',150,v_ins_key,rec.isolatie_resultaat);
|
||||
BEGIN
|
||||
SELECT ins_kenmerk_key INTO v_ins_kenmerk_key FROM ins_kenmerk where ins_srtinstallatie_key=v_ins_srtcontrole_key AND ins_kenmerk_niveau='C' AND ins_kenmerk_omschrijving='Isolatie resultaat';
|
||||
EXCEPTION
|
||||
@@ -1640,7 +1667,8 @@ BEGIN
|
||||
IF LENGTH(rec.bedrading) > 0
|
||||
THEN
|
||||
v_aanduiding := 'Verwerken resultaten 11('||v_count||')';
|
||||
flx.setflex('INS',150,v_ins_key,rec.bedrading);
|
||||
wdka.setKenmerkObject(v_ins_key, v_ins_discipline_key, 'Bedrading', rec.bedrading);
|
||||
--flx.setflex('INS',150,v_ins_key,rec.bedrading);
|
||||
BEGIN
|
||||
SELECT ins_kenmerk_key INTO v_ins_kenmerk_key FROM ins_kenmerk where ins_srtinstallatie_key=v_ins_srtcontrole_key AND ins_kenmerk_niveau='C' AND ins_kenmerk_omschrijving='Bedrading';
|
||||
EXCEPTION
|
||||
@@ -1657,7 +1685,8 @@ BEGIN
|
||||
IF LENGTH(rec.bedrading_resultaat) > 0
|
||||
THEN
|
||||
v_aanduiding := 'Verwerken resultaten 12('||v_count||')';
|
||||
flx.setflex('INS',150,v_ins_key,rec.bedrading_resultaat);
|
||||
wdka.setKenmerkObject(v_ins_key, v_ins_discipline_key, 'Bedrading resultaat', rec.bedrading_resultaat);
|
||||
--flx.setflex('INS',150,v_ins_key,rec.bedrading_resultaat);
|
||||
BEGIN
|
||||
SELECT ins_kenmerk_key INTO v_ins_kenmerk_key FROM ins_kenmerk where ins_srtinstallatie_key=v_ins_srtcontrole_key AND ins_kenmerk_niveau='C' AND ins_kenmerk_omschrijving='Bedrading resultaat';
|
||||
EXCEPTION
|
||||
@@ -1674,7 +1703,8 @@ BEGIN
|
||||
IF LENGTH(rec.gebruikertest) > 0
|
||||
THEN
|
||||
v_aanduiding := 'Verwerken resultaten 11('||v_count||')';
|
||||
flx.setflex('INS',150,v_ins_key,rec.gebruikertest);
|
||||
wdka.setKenmerkObject(v_ins_key, v_ins_discipline_key, 'Gebruikerstest', rec.gebruikertest);
|
||||
--flx.setflex('INS',150,v_ins_key,rec.gebruikertest);
|
||||
BEGIN
|
||||
SELECT ins_kenmerk_key INTO v_ins_kenmerk_key FROM ins_kenmerk where ins_srtinstallatie_key=v_ins_srtcontrole_key AND ins_kenmerk_niveau='C' AND ins_kenmerk_omschrijving='Gebruikerstest';
|
||||
EXCEPTION
|
||||
@@ -1691,7 +1721,8 @@ BEGIN
|
||||
IF LENGTH(rec.gebruikers_resultaat) > 0
|
||||
THEN
|
||||
v_aanduiding := 'Verwerken resultaten 11('||v_count||')';
|
||||
flx.setflex('INS',150,v_ins_key,rec.gebruikers_resultaat);
|
||||
wdka.setKenmerkObject(v_ins_key, v_ins_discipline_key, 'Gebruikers resultaat', rec.gebruikers_resultaat);
|
||||
--flx.setflex('INS',150,v_ins_key,rec.gebruikers_resultaat);
|
||||
BEGIN
|
||||
SELECT ins_kenmerk_key INTO v_ins_kenmerk_key FROM ins_kenmerk where ins_srtinstallatie_key=v_ins_srtcontrole_key AND ins_kenmerk_niveau='C' AND ins_kenmerk_omschrijving='Gebruikers resultaat';
|
||||
EXCEPTION
|
||||
|
||||
Reference in New Issue
Block a user