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=57659
This commit is contained in:
Norbert Wassink
2022-10-18 12:46:17 +00:00
parent 9a077f6bcd
commit df12aa34d7
1 changed files with 63 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

66
WDKA/WDKA.sql
View File

@@ -644,10 +644,12 @@ AS
v_deel_key NUMBER;
v_count NUMBER;
v_aantal NUMBER;
v_groep NUMBER;
BEGIN
v_count:=1;
fac_update_ins(p_import_key);
v_groep:=3;
FOR rec IN sel
LOOP
@@ -660,6 +662,7 @@ BEGIN
v_cyclus1 := 0;
v_cyclus2 := 0;
v_cyclus3 := 0;
v_groep:=-1;
v_perslidkey :=0;
BEGIN
@@ -681,6 +684,63 @@ 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;
SELECT ins_deel_key
@@ -763,7 +823,7 @@ BEGIN
v_cyclus1,
v_eenheid,
1,
3
v_groep
)
RETURNING ins_srtcontrole_key
INTO v_srtcontrole_key;
@@ -873,7 +933,7 @@ BEGIN
v_cyclus2,
v_eenheid,
1,
3
v_groep
)
RETURNING ins_srtcontrole_key
INTO v_srtcontrole_key;
@@ -980,7 +1040,7 @@ BEGIN
v_cyclus3,
v_eenheid,
1,
3
v_groep
)
RETURNING ins_srtcontrole_key
INTO v_srtcontrole_key;