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=57661
This commit is contained in:
Norbert Wassink
2022-10-18 13:47:49 +00:00
parent e2171009f8
commit f841a67bf1
1 changed files with 73 additions and 56 deletions
Download Patch File Download Diff File Expand all files Collapse all files

129
WDKA/WDKA.sql
View File

@@ -35,6 +35,8 @@ AS
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;
FUNCTION getCtrGroep(v_taak in VARCHAR2) RETURN NUMBER;
END;
/
@@ -114,6 +116,72 @@ AS
RETURN r_datum;
END;
FUNCTION getCtrGroep(v_taak IN VARCHAR2) RETURN NUMBER
AS
v_groep NUMBER;
BEGIN
v_groep:=-1;
BEGIN
IF UPPER(v_taak) = '11A - NEN3140'
THEN
SELECT ins_discipline_key INTO v_groep
FROM ctr_discipline
WHERE UPPER(ins_discipline_omschrijving)='11A - NEN3140'
and ins_discipline_verwijder IS NULL;
END IF;
IF UPPER(v_taak) = 'APK KEURING'
THEN
SELECT ins_discipline_key INTO v_groep
FROM ctr_discipline
WHERE UPPER(ins_discipline_omschrijving)='APK KEURING'
and ins_discipline_verwijder IS NULL;
END IF;
IF UPPER(v_taak) = 'REGISTRATIE'
THEN
SELECT ins_discipline_key INTO v_groep
FROM ctr_discipline
WHERE UPPER(ins_discipline_omschrijving)='REGISTRATIE'
and ins_discipline_verwijder IS NULL;
END IF;
IF UPPER(SUBSTR(v_taak,0,3)) = '20A' OR
UPPER(SUBSTR(v_taak,0,3)) = '53A' OR
UPPER(SUBSTR(v_taak,0,3)) = '58A' OR
UPPER(SUBSTR(v_taak,0,3)) = '60A' OR
UPPER(SUBSTR(v_taak,0,3)) = '63A'
THEN
SELECT ins_discipline_key INTO v_groep
FROM ctr_discipline
WHERE UPPER(ins_discipline_omschrijving)='INTERN ONDERHOUD'
and ins_discipline_verwijder IS NULL;
END IF;
IF UPPER(SUBSTR(v_taak,0,3)) = '21' OR
UPPER(SUBSTR(v_taak,0,3)) = '53B' OR
UPPER(SUBSTR(v_taak,0,3)) = '58B' OR
UPPER(SUBSTR(v_taak,0,3)) = '58C' OR
UPPER(SUBSTR(v_taak,0,3)) = '59B' OR
UPPER(SUBSTR(v_taak,0,3)) = '62B' OR
UPPER(v_taak) = 'SKH KEURING'
THEN
SELECT ins_discipline_key INTO v_groep
FROM ctr_discipline
WHERE UPPER(ins_discipline_omschrijving)='EXTERN ONDERHOUD'
and ins_discipline_verwijder IS NULL;
END IF;
IF v_groep<0
THEN
v_groep:=3;
END IF;
RETURN v_groep;
EXCEPTION WHEN NO_DATA_FOUND THEN
v_groep:=3;
RETURN v_groep;
END;
END;
END;
/
@@ -684,61 +752,7 @@ BEGIN
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'));
BEGIN
IF UPPER(v_taak1) = '11A - NEN3140' OR UPPER(v_taak2) = '11A - NEN3140' OR UPPER(v_taak3) = '11A - NEN3140'
THEN
SELECT ins_discipline_key INTO v_groep
FROM ctr_discipline
WHERE UPPER(ins_discipline_omschrijving)='11A - NEN3140'
and ins_discipline_verwijder IS NULL;
END IF;
IF UPPER(v_taak1) = 'APK KEURING' OR UPPER(v_taak2) = 'APK KEURING' OR UPPER(v_taak3) = 'APK KEURING'
THEN
SELECT ins_discipline_key INTO v_groep
FROM ctr_discipline
WHERE UPPER(ins_discipline_omschrijving)='APK KEURING'
and ins_discipline_verwijder IS NULL;
END IF;
IF UPPER(v_taak1) = 'REGISTRATIE' OR UPPER(v_taak2) = 'REGISTRATIE' OR UPPER(v_taak3) = 'REGISTRATIE'
THEN
SELECT ins_discipline_key INTO v_groep
FROM ctr_discipline
WHERE UPPER(ins_discipline_omschrijving)='APK KEURING'
and ins_discipline_verwijder IS NULL;
END IF;
IF UPPER(SUBSTR(v_taak1,0,3)) = '20A' OR UPPER(SUBSTR(v_taak2,0,3)) = '20A' OR UPPER(SUBSTR(v_taak3,0,3)) = '20A' OR
UPPER(SUBSTR(v_taak1,0,3)) = '53A' OR UPPER(SUBSTR(v_taak2,0,3)) = '53A' OR UPPER(SUBSTR(v_taak3,0,3)) = '53A' OR
UPPER(SUBSTR(v_taak1,0,3)) = '58A' OR UPPER(SUBSTR(v_taak2,0,3)) = '58A' OR UPPER(SUBSTR(v_taak3,0,3)) = '58A' OR
UPPER(SUBSTR(v_taak1,0,3)) = '60A' OR UPPER(SUBSTR(v_taak2,0,3)) = '60A' OR UPPER(SUBSTR(v_taak3,0,3)) = '60A' OR
UPPER(SUBSTR(v_taak1,0,3)) = '63A' OR UPPER(SUBSTR(v_taak2,0,3)) = '63A' OR UPPER(SUBSTR(v_taak3,0,3)) = '63A'
THEN
SELECT ins_discipline_key INTO v_groep
FROM ctr_discipline
WHERE UPPER(ins_discipline_omschrijving)='INTERN ONDERHOUD'
and ins_discipline_verwijder IS NULL;
END IF;
IF UPPER(SUBSTR(v_taak1,0,3)) = '21' OR UPPER(SUBSTR(v_taak2,0,3)) = '21' OR UPPER(SUBSTR(v_taak3,0,3)) = '21' OR
UPPER(SUBSTR(v_taak1,0,3)) = '53B' OR UPPER(SUBSTR(v_taak2,0,3)) = '53B' OR UPPER(SUBSTR(v_taak3,0,3)) = '53B' OR
UPPER(SUBSTR(v_taak1,0,3)) = '58B' OR UPPER(SUBSTR(v_taak2,0,3)) = '58B' OR UPPER(SUBSTR(v_taak3,0,3)) = '58B' OR
UPPER(SUBSTR(v_taak1,0,3)) = '58C' OR UPPER(SUBSTR(v_taak2,0,3)) = '58C' OR UPPER(SUBSTR(v_taak3,0,3)) = '58C' OR
UPPER(SUBSTR(v_taak1,0,3)) = '59B' OR UPPER(SUBSTR(v_taak2,0,3)) = '59B' OR UPPER(SUBSTR(v_taak3,0,3)) = '59B' OR
UPPER(SUBSTR(v_taak1,0,3)) = '62B' OR UPPER(SUBSTR(v_taak2,0,3)) = '62B' OR UPPER(SUBSTR(v_taak3,0,3)) = '62B' OR
UPPER(v_taak1) = 'SKH KEURING' OR UPPER(v_taak2) = 'SKH KEURING' OR UPPER(v_taak3) = 'SKH KEURING'
THEN
SELECT ins_discipline_key INTO v_groep
FROM ctr_discipline
WHERE UPPER(ins_discipline_omschrijving)='EXTERN ONDERHOUD'
and ins_discipline_verwijder IS NULL;
END IF;
IF v_groep<0
THEN
v_groep:=3;
END IF;
EXCEPTION WHEN NO_DATA_FOUND THEN
v_groep:=3;
END;
v_errormsg := 'Fout ophalen object('||rec.ins_deel_omschrijving||') te importeren rij '||v_count;
@@ -795,6 +809,7 @@ BEGIN
AND v_taak1 <> 'Registratie'
AND v_cyclus1 IS NOT NULL
THEN
v_groep:=wdka.getCtrGroep(v_taak1);
BEGIN
v_errormsg := 'Fout Count srtcontrole Taak1 '||v_ins_srtinstallatie_key||' Object '||rec.ins_deel_omschrijving;
SELECT ins_srtcontrole_key
@@ -903,7 +918,8 @@ BEGIN
END IF;
v_errormsg := 'Fout verwerken Taak2 '||v_count||' Object '||rec.ins_deel_omschrijving;
IF v_taak2 IS NOT NULL AND v_taak2 <> 'Registratie' AND v_cyclus2 IS NOT NULL
THEN
THEN
v_groep:=wdka.getCtrGroep(v_taak2);
BEGIN
v_errormsg := 'Fout Count srtcontrole Taak2 '||v_count||' Object '||rec.ins_deel_omschrijving;
SELECT ins_srtcontrole_key
@@ -1010,6 +1026,7 @@ BEGIN
AND v_taak3 <> 'Registratie'
AND v_cyclus3 IS NOT NULL
THEN
v_groep:=wdka.getCtrGroep(v_taak3);
BEGIN
v_errormsg := 'Fout Count srtcontrole Taak3 '||v_count||' Object '||rec.ins_deel_omschrijving;
SELECT ins_srtcontrole_key