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

WDKA#68779 -- Inrichten Wedeka

Browse Source 
svn path=/Customer/trunk/; revision=57636
This commit is contained in:
Norbert Wassink
2022-10-14 10:08:53 +00:00
parent ad50b249e4
commit ec1e6af688
1 changed files with 92 additions and 27 deletions
Download Patch File Download Diff File Expand all files Collapse all files

119
WDKA/WDKA.sql
View File

@@ -77,7 +77,11 @@ AS
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';
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'
AND ins_kenmerk_verwijder IS NULL;
IF v_ins_kenmerk_key>-1 THEN
flx.setflex('INS',v_ins_kenmerk_key,p_ins_key,p_kenmerk_waarde);
@@ -673,9 +677,9 @@ BEGIN
v_taak1 := rec.INS_KENMERKWAARDE2;
v_taak2 := rec.INS_KENMERKWAARDE4;
v_taak3 := rec.INS_KENMERKWAARDE6;
v_datum1 := COALESCE(fac.safe_to_date(rec.INS_KENMERKWAARDE3,'dd-mm-yyyy'), SYSDATE);
v_datum2 := COALESCE(fac.safe_to_date(rec.INS_KENMERKWAARDE5,'dd-mm-yyyy'), SYSDATE);
v_datum3 := COALESCE(fac.safe_to_date(rec.INS_KENMERKWAARDE7,'dd-mm-yyyy'), SYSDATE);
v_datum1 := COALESCE(fac.safe_to_date(rec.INS_KENMERKWAARDE3,'dd-mm-yyyy'), TO_DATE('01-01-2022','DD-MM-YYYY'));
v_datum2 := COALESCE(fac.safe_to_date(rec.INS_KENMERKWAARDE5,'dd-mm-yyyy'), TO_DATE('01-01-2022','DD-MM-YYYY'));
v_datum3 := COALESCE(fac.safe_to_date(rec.INS_KENMERKWAARDE7,'dd-mm-yyyy'), TO_DATE('01-01-2022','DD-MM-YYYY'));
v_errormsg := 'Fout ophalen object('||rec.ins_deel_omschrijving||') te importeren rij '||v_count;
@@ -738,7 +742,7 @@ BEGIN
FROM ins_srtcontrole
where ins_srtinstallatie_key=v_ins_srtinstallatie_key
AND ins_srtcontrole_niveau=v_ins_srtcontrole_niveau
AND ins_srtcontrole_omschrijving = v_taak1
AND UPPER(ins_srtcontrole_omschrijving) = UPPER(v_taak1)
AND ins_srtcontrole_periode=v_cyclus1
AND ins_srtcontrole_eenheid=v_eenheid
AND ins_srtcontrole_mode=1
@@ -1073,7 +1077,7 @@ END;
CREATE OR REPLACE PROCEDURE WDKA_IMPORT_SMARTWARE(p_import_key IN NUMBER)
CREATE OR REPLACE PROCEDURE WDKA_IMPORT_PAT_DATA(p_import_key IN NUMBER)
AS
c_delim VARCHAR2 (1) := ';';
header_is_valid NUMBER;
@@ -1316,12 +1320,12 @@ EXCEPTION
fac.imp_writelog (p_import_key,
'E',
SUBSTR (v_aanduiding || v_errormsg, 1, 1000),
'Inleesproces smartware gaat fout!');
'Inleesproces PAT Data gaat fout!');
END;
/
CREATE OR REPLACE PROCEDURE WDKA_UPDATE_SMARTWARE(p_import_key IN NUMBER)
CREATE OR REPLACE PROCEDURE WDKA_UPDATE_PAT_DATA(p_import_key IN NUMBER)
AS
CURSOR cs IS
SELECT FAC_IMP_CSV_COL01 smartwareID,
@@ -1460,7 +1464,7 @@ BEGIN
VALUES (v_ins_key,
v_ins_srtcontrole_key,
1,
SYSDATE
v_test_datum
)
RETURNING ins_deelsrtcontrole_key
INTO v_ins_deelsrtcontrole_key;
@@ -1471,9 +1475,9 @@ BEGIN
v_aanduiding := 'Update deelsrtcontrole ('||v_count||')';
UPDATE ins_deelsrtcontrole
SET ins_deelsrtcontrole_status=6,
ins_deelsrtcontrole_datum=SYSDATE,
ins_deelsrtcontrole_datum=v_test_datum,
ins_controlemode_key=10,
ins_deelsrtcontrole_datum_org=SYSDATE,
ins_deelsrtcontrole_datum_org=v_test_datum,
ins_deelsrtcontrole_freezecost=0,
prs_perslid_key=v_perslid_key -- persoon die de import heeft gestart.
WHERE ins_deelsrtcontrole_key=v_ins_deelsrtcontrole_key;
@@ -1501,7 +1505,7 @@ BEGIN
END IF;
IF LENGTH(rec.aarde_resultaat) > 0
THEN
v_aanduiding := 'Verwerken resultaten 2('||v_count||')';
v_aanduiding := 'Verwerken resultaten 2('||v_count||')-'||v_ins_key;
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
@@ -1519,7 +1523,7 @@ BEGIN
END IF;
IF LENGTH(rec.lekstroom_waarde) > 0
THEN
v_aanduiding := 'Verwerken resultaten 3('||v_count||')';
v_aanduiding := 'Verwerken resultaten 3('||v_count||')-'||v_ins_key;
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
@@ -1538,7 +1542,7 @@ BEGIN
IF LENGTH(rec.lekstroom_resultaat) > 0
THEN
v_aanduiding := 'Verwerken resultaten 4('||v_count||')';
v_aanduiding := 'Verwerken resultaten 4('||v_count||')-'||v_ins_key;
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
@@ -1556,7 +1560,7 @@ BEGIN
END IF;
IF LENGTH(rec.aanrk_lekstrm_waarde) > 0
THEN
v_aanduiding := 'Verwerken resultaten 5('||v_count||')';
v_aanduiding := 'Verwerken resultaten 5('||v_count||')-'||v_ins_key;
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
@@ -1574,7 +1578,7 @@ BEGIN
END IF;
IF LENGTH(rec.aanrk_lekstrm_resultaat) > 0
THEN
v_aanduiding := 'Verwerken resultaten 6('||v_count||')';
v_aanduiding := 'Verwerken resultaten 6('||v_count||')-'||v_ins_key;
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
@@ -1593,7 +1597,7 @@ BEGIN
IF LENGTH(rec.verv_lekstrm_waarde) > 0
THEN
v_aanduiding := 'Verwerken resultaten 7('||v_count||')';
v_aanduiding := 'Verwerken resultaten 7('||v_count||')-'||v_ins_key;
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
@@ -1611,7 +1615,7 @@ BEGIN
END IF;
IF LENGTH(rec.verv_lekstrm_resultaat) > 0
THEN
v_aanduiding := 'Verwerken resultaten 8('||v_count||')';
v_aanduiding := 'Verwerken resultaten 8('||v_count||')-'||v_ins_key;
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
@@ -1629,7 +1633,7 @@ BEGIN
END IF;
IF LENGTH(rec.isolatie_waarde) > 0
THEN
v_aanduiding := 'Verwerken resultaten 9('||v_count||')';
v_aanduiding := 'Verwerken resultaten 9('||v_count||')-'||v_ins_key;
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
@@ -1648,7 +1652,7 @@ BEGIN
IF LENGTH(rec.isolatie_resultaat) > 0
THEN
v_aanduiding := 'Verwerken resultaten 10('||v_count||')';
v_aanduiding := 'Verwerken resultaten 10('||v_count||')-'||v_ins_key;
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
@@ -1666,7 +1670,7 @@ BEGIN
END IF;
IF LENGTH(rec.bedrading) > 0
THEN
v_aanduiding := 'Verwerken resultaten 11('||v_count||')';
v_aanduiding := 'Verwerken resultaten 11('||v_count||')-'||v_ins_key;
wdka.setKenmerkObject(v_ins_key, v_ins_discipline_key, 'Bedrading', rec.bedrading);
--flx.setflex('INS',150,v_ins_key,rec.bedrading);
BEGIN
@@ -1684,7 +1688,7 @@ BEGIN
END IF;
IF LENGTH(rec.bedrading_resultaat) > 0
THEN
v_aanduiding := 'Verwerken resultaten 12('||v_count||')';
v_aanduiding := 'Verwerken resultaten 12('||v_count||')-'||v_ins_key;
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
@@ -1702,7 +1706,7 @@ BEGIN
END IF;
IF LENGTH(rec.gebruikertest) > 0
THEN
v_aanduiding := 'Verwerken resultaten 11('||v_count||')';
v_aanduiding := 'Verwerken resultaten 13('||v_count||')-'||v_ins_key;
wdka.setKenmerkObject(v_ins_key, v_ins_discipline_key, 'Gebruikerstest', rec.gebruikertest);
--flx.setflex('INS',150,v_ins_key,rec.gebruikertest);
BEGIN
@@ -1720,7 +1724,7 @@ BEGIN
END IF;
IF LENGTH(rec.gebruikers_resultaat) > 0
THEN
v_aanduiding := 'Verwerken resultaten 11('||v_count||')';
v_aanduiding := 'Verwerken resultaten 14('||v_count||')-'||v_ins_key;
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
@@ -1736,9 +1740,11 @@ BEGIN
END IF;
END IF;
flx.setflex('INS', 152, v_ins_key, TO_CHAR(v_test_datum,'DD-MM-YYYY'));
flx.setflex('INS', 153, v_ins_key, rec.test_resultaat);
v_aanduiding := 'Verwerken resultaten test datum en resultaat('||v_count||')-'||v_ins_key;
wdka.setKenmerkObject(v_ins_key, v_ins_discipline_key, 'Laatste test', TO_CHAR(v_test_datum,'DD-MM-YYYY'));
wdka.setKenmerkObject(v_ins_key, v_ins_discipline_key, 'Laatste resultaat', rec.test_resultaat);
-- flx.setflex('INS', 152, v_ins_key, TO_CHAR(v_test_datum,'DD-MM-YYYY'));
-- flx.setflex('INS', 153, v_ins_key, rec.test_resultaat);
fac.trackaction ('INSUPD', v_ins_key, v_perslid_key, SYSDATE,
'Object geupdate met PAT data.');
ELSE
@@ -1800,6 +1806,65 @@ AS
WHERE prs_bedrijf_leverancier=1 AND prs_bedrijf_verwijder IS NULL;
CREATE OR REPLACE VIEW wdka_v_tasks_nextmonth
AS
select id.ins_deel_omschrijving, id.ins_deel_opmerking, al.ALG_LOCATIE_CODE, algv.ALG_GEBOUW_CODE,algv.ALG_RUIMTE_NR,
CASE
WHEN aa.alg_ruimte_omschrijving LIKE '%@wedeka.nl'
THEN aa.alg_ruimte_omschrijving
ELSE (SELECT prs_perslid_email
FROM prs_perslid
WHERE prs_perslid_key=id.prs_perslid_key_beh)
END email,
i.ins_srtcontrole_omschrijving taak,
fac.nextcyclusdatedeel(id.ins_deel_key,i.ins_srtcontrole_key,0) nextdate
FROM ins_srtcontrole i, ins_deel id, alg_ruimte aa, alg_v_onroerendgoed_gegevens algv, alg_locatie al
WHERE (id.ins_deel_vervaldatum<fac.NEXTCYCLUSDATEDEEL(id.ins_deel_key,i.ins_srtcontrole_key,0) OR id.ins_deel_vervaldatum IS NULL)
AND i.ins_srtinstallatie_key = id.ins_srtdeel_key
AND fac.nextcyclusdatedeel(id.ins_deel_key,i.ins_srtcontrole_key,0) BETWEEN TRUNC(SYSDATE) AND SYSDATE+30
AND algv.alg_ruimte_key = aa.alg_ruimte_key
AND al.alg_locatie_key = algv.alg_locatie_key
AND id.ins_alg_ruimte_key=aa.alg_ruimte_key(+) order by email;
CREATE OR REPLACE VIEW wdka_v_alg_locaties
(
fac_usrdata_key,
fac_usrdata_omschr
)
AS
SELECT alg_locatie_key, alg_locatie_omschrijving||'('||alg_locatie_code||')'
FROM alg_locatie
WHERE alg_locatie_verwijder IS NULL;
CREATE OR REPLACE VIEW wdka_v_objectmutatie
AS
SELECT i.ins_deel_omschrijving,
i.ins_deel_opmerking,
i.ins_deel_aanmaak,
(SELECT ft.fac_tracking_datum
FROM fac_tracking ft
WHERE ft.fac_tracking_refkey=i.ins_deel_key
AND ft.fac_srtnotificatie_key=133) wijzigingsdatum,
(SELECT iag.ins_srtgroep_omschrijving
FROM ins_v_aanwezigsrtgroep iag, ins_v_aanwezigsrtdeel iad
WHERE iad.ins_srtdeel_key=i.ins_srtdeel_key
AND iag.ins_srtgroep_key=iad.ins_srtgroep_key) groep,
(SELECT iad.ins_srtdeel_omschrijving
FROM ins_v_aanwezigsrtdeel iad
WHERE iad.ins_srtdeel_key=i.ins_srtdeel_key) objectsoort,
(SELECT p.prs_perslid_naam_friendly
FROM prs_v_perslid_fullnames p
WHERE p.prs_perslid_key=i.prs_perslid_key_beh) beheerder,
(SELECT alg.alg_locatie_omschrijving||'('||alg.alg_locatie_code||')'
FROM alg_v_locatie_gegevens alg
WHERE alg.alg_locatie_key=aag.alg_locatie_key) locatie,
aag.alg_gebouw_naam,
aag.alg_ruimte_nr
FROM ins_deel i, alg_v_allonrgoed_gegevens aag
WHERE aag.alg_ruimte_key=i.ins_alg_ruimte_key
------ payload end ------
SET DEFINE OFF