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

WDKA#82091 -- TD-keuringchecklisten digitaal in Facilitor

Browse Source 
svn path=/Customer/trunk/; revision=64275
This commit is contained in:
Norbert Wassink
2024-04-17 06:43:32 +00:00
parent 29bef6d573
commit 3b3b48195f
1 changed files with 66 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

69
WDKA/WDKA.sql
View File

@@ -271,6 +271,8 @@ AS
v_investeringsnr VARCHAR2(50);
v_aanschafprijs VARCHAR2(50);
v_objectstatus NUMBER;
v_kenmerk VARCHAR2(50);
v_beschrijving VARCHAR2(50);
-- Kenmerk keys
v_merk_key NUMBER:=141;
@@ -283,8 +285,19 @@ AS
v_investeringsnr_key NUMBER:=144;
v_aanschafprijs_key NUMBER:=143;
v_objectstatus_key NUMBER:=81;
v_kenmerk_key NUMBER:=121;
v_bijlagen_key NUMBER:=4281;
v_level NUMBER:=0;
CURSOR b(p_melding_key IN NUMBER)
IS
SELECT f.fac_bijlagen_key
FROM fac_bijlagen f
WHERE f.fac_bijlagen_refkey=p_melding_key
AND f.fac_bijlagen_module='MLD';
BEGIN
-- We halen eerts de object identiofocatio op
v_objectNr := p_objectNr;
@@ -458,7 +471,38 @@ AS
v_aanschafprijs:=NULL;
v_aanschafprijs_key:=-1;
END;
BEGIN
SELECT mkm.mld_kenmerkmelding_waarde
INTO v_kenmerk
FROM mld_melding m, mld_kenmerkmelding mkm, mld_kenmerk mk
WHERE m.mld_melding_key=p_mld_melding_key
AND mkm.mld_melding_key=m.mld_melding_key
AND mk.mld_stdmelding_key = m.mld_stdmelding_key
AND mkm.mld_kenmerk_key = mk.mld_kenmerk_key
AND UPPER(mk.mld_kenmerk_omschrijving)='KENMERK';
EXCEPTION WHEN NO_DATA_FOUND
THEN
v_kenmerk:=NULL;
v_kenmerk_key:=-1;
END;
BEGIN
SELECT mkm.mld_kenmerkmelding_waarde
INTO v_beschrijving
FROM mld_melding m, mld_kenmerkmelding mkm, mld_kenmerk mk
WHERE m.mld_melding_key=p_mld_melding_key
AND mkm.mld_melding_key=m.mld_melding_key
AND mk.mld_stdmelding_key = m.mld_stdmelding_key
AND mkm.mld_kenmerk_key = mk.mld_kenmerk_key
AND UPPER(mk.mld_kenmerk_omschrijving)='BESCHRIJVING';
EXCEPTION WHEN NO_DATA_FOUND
THEN
v_beschrijving:=NULL;
END;
SELECT count(*) into v_aanwezig
FROm ins_deel
@@ -467,8 +511,8 @@ AS
IF (v_aanwezig = 0 AND v_aanmaak='Ja') THEN
INSERT INTO ins_deel(ins_deel_omschrijving, ins_deel_aanmaak, ins_srtdeel_key, ins_deel_actief, ins_alg_ruimte_key, ins_alg_ruimte_type)
VALUES(v_objectNr, SYSDATE, v_objectSoortKey, 1, v_alg_ruimte_key ,'R')
INSERT INTO ins_deel(ins_deel_omschrijving, ins_deel_opmerking, ins_deel_aanmaak, ins_srtdeel_key, ins_deel_actief, ins_alg_ruimte_key, ins_alg_ruimte_type)
VALUES(v_objectNr, v_beschrijving, SYSDATE, v_objectSoortKey, 1, v_alg_ruimte_key ,'R')
RETURNING ins_deel_key
INTO v_ins_deel_key;
@@ -497,7 +541,15 @@ AS
IF (v_aanschafprijs_key>0) THEN
flx.setflex('INS',v_aanschafprijs_key,v_ins_deel_key,v_aanschafprijs);
END IF;
IF (v_kenmerk_key>0) THEN
flx.setflex('INS',v_kenmerk_key,v_ins_deel_key,v_kenmerk);
END IF;
FOR rec IN b(p_mld_melding_key)
LOOP
flx.copyflexbijlage ('INS',v_ins_deel_key, v_bijlagen_key, rec.fac_bijlagen_key);
END LOOP;
fac.trackaction ('INSNEW', v_ins_deel_key, 3, SYSDATE,
'Object '||v_objectNr||' geregistreerd uit melding '||p_mld_melding_key||'.');
@@ -754,6 +806,17 @@ BEGIN
ELSE
v_count_tot := v_count_tot + 1;
IF (LENGTH(v_kenmerk_omschr)>50 )
THEN
fac.imp_writelog (p_import_key,
'W',
'Kenmerk omschrijving "'|| v_kenmerk_omschr||'" is meer dan 50 tekens en wordt afgekapt tot 50 tekens.',
'Kenmerk omschrijving te lang.');
v_kenmerk_omschr := SUBSTR(v_kenmerk_omschr,0,50);
END IF;
-- Eerst kijken of de gekozen srtkenmerk wel aanwezig zijn
SELECT COUNT(*), MAX(isk.ins_srtkenmerk_key)
INTO v_count , v_srtkenmerk_key