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

TDNL#80795 Aanpassing mld/opdr/note import-migratie procedures

Browse Source 
svn path=/Customer/trunk/; revision=66838
This commit is contained in:
Norbert Wassink
2024-10-31 15:43:15 +00:00
parent f047a651c2
commit 44e9ee2780
1 changed files with 50 additions and 23 deletions
Download Patch File Download Diff File Expand all files Collapse all files

73
TDNL/TDNL.sql
View File

@@ -453,15 +453,15 @@ END;
--CREATE OR REPLACE PROCEDURE TDNL_IMPORT_VERBRUIKSWAARDES (p_import_key IN NUMBER)
--AS
CREATE OR REPLACE PROCEDURE TDNL_IMPORT_VERBRUIKSWAARDES (p_import_key IN NUMBER)
AS
--BEGIN
BEGIN
-- NULL;
NULL;
--END;
--/
END;
/
CREATE OR REPLACE PROCEDURE TDNL_UPDATE_VERBRUIKSWAARDES (p_import_key IN NUMBER)
@@ -472,7 +472,8 @@ AS
fac_imp_csv_col01 ins_deel_omschrijving,
fac_imp_csv_col02 kenmerk_waarde,
fac_imp_csv_col03 kenmerk_aanmaakdatum,
fac_imp_csv_col04 kenmerk_verwijderdatum
fac_imp_csv_col04 kenmerk_verwijderdatum,
fac_imp_csv_col05 ins_srtdeel
from fac_imp_csv
WHERE fac_import_key = p_import_key
ORDER BY fac_imp_csv_index;
@@ -508,13 +509,14 @@ BEGIN
LOOP
IF v_counter>0 THEN --- De header lezen we niet in
-- gaan we eerst het object opzoeken als de ins_deel_omschrijving anders dan de vorige
BEGIN -- gaan we eerst het object opzoeken als de ins_deel_omschrijving anders dan de vorige
v_aanduiding:= 'Object met omschrijving '||rec.ins_deel_omschrijving||' is niet gevonden';
SELECT i.ins_deel_key INTO v_ins_deel_key
FROM ins_deel i
FROM ins_deel i, ins_srtdeel sd
WHERE i.ins_deel_omschrijving=rec.ins_deel_omschrijving
AND i.ins_deel_verwijder IS NULL
;
AND sd.INS_SRTDEEL_KEY=i.INS_SRTDEEL_KEY
AND UPPER(sd.INS_SRTDEEL_OMSCHRIJVING) = UPPER(rec.ins_srtdeel);
v_kenmerk_aanmaakdatum:= TO_DATE(rec.kenmerk_aanmaakdatum,'DD-MM-YYYY HH24:MI:SS');
v_kenmerk_verwijderdatum:=TO_DATE(rec.kenmerk_verwijderdatum,'DD-MM-YYYY HH24:MI:SS');
@@ -543,6 +545,14 @@ BEGIN
rec.kenmerk_waarde);
v_records:=v_records+1;
END IF;
EXCEPTION
WHEN NO_DATA_FOUND THEN
fac.imp_writelog (p_import_key,
'W',
'Niet gevonden',
v_aanduiding);
END;
ELSE
v_counter:=v_counter+1;
@@ -969,6 +979,7 @@ AS
v_opdr_status_key NUMBER;
v_mld_status_key NUMBER;
v_conn_opdr_nr NUMBER;
v_mld_datum DATE;
BEGIN
v_error:=0;
FOR rec in sel
@@ -1035,8 +1046,8 @@ AS
--
v_aanduiding:='Ophalen van meldning met nr:'||rec.mld_org_melding_key||' is mislukt';
BEGIN
SELECT m.mld_melding_key , msm.mld_ins_discipline_key, mld_melding_status
INTO v_melding_key, v_mld_ins_discipline_key, v_mld_status_key
SELECT m.mld_melding_key , msm.mld_ins_discipline_key, mld_melding_status, mld_melding_datum
INTO v_melding_key, v_mld_ins_discipline_key, v_mld_status_key, v_mld_datum
FROM mld_melding m, mld_stdmelding msm
WHERE m.mld_melding_externnr=rec.mld_org_melding_key
AND msm.mld_stdmelding_key = m.mld_stdmelding_key;
@@ -1046,6 +1057,16 @@ AS
v_error:=1;
END;
IF v_melding_key>0 AND v_error=0 AND rec.mld_opdr_volgnr=1
THEN
IF v_mld_status_key=5 OR v_mld_status_key=6
THEN
fac.trackaction('#MLDTRK',v_melding_key,NULL, v_mld_datum,'Migratie melding aangemaakt');
ELSE
fac.trackaction('#MLDNEW',v_melding_key,NULL, v_mld_datum,'Migratie melding aangemaakt');
END IF;
END IF;
IF v_error=0 THEN
v_aanduiding:='Opdracht is al bekend :'||v_melding_key||'/'||rec.mld_opdr_volgnr ||'(regel: '||v_regel||')';
SELECT COUNT(*)
@@ -1172,6 +1193,12 @@ AS
rec.mld_org_opdr_key)
RETURNING mld_opdr_key
INTO v_mld_opdr_key;
IF v_opdr_status_key = 6 THEN
fac.trackaction('#ORDTRK',v_mld_opdr_key,NULL, NULL,'Migratie opdracht aangemaakt');
ELSE
fac.trackaction('#ORDNEW',v_mld_opdr_key,NULL, SYSDATE,'Migratie opdracht aangemaakt');
END IF;
INSERT INTO mld_opdr_note (mld_opdr_key,
mld_opdr_note_aanmaak,
@@ -3462,7 +3489,7 @@ AS
(SELECT p.prs_perslid_key
FROM alg_onrgoedkenmerk ok, prs_v_perslid_fullnames p
WHERE ok.alg_onrgoed_key = c.alg_district_key
AND ok.alg_kenmerk_key = 1020
AND ok.alg_kenmerk_key = 1001
AND ok.alg_onrgoed_niveau = 'D'
AND p.prs_perslid_key =
FAC.SAFE_TO_NUMBER (ok.alg_onrgoedkenmerk_waarde))
@@ -3470,7 +3497,7 @@ AS
(SELECT p.prs_perslid_naam_full
FROM alg_onrgoedkenmerk ok, prs_v_perslid_fullnames p
WHERE ok.alg_onrgoed_key = c.alg_district_key
AND ok.alg_kenmerk_key = 1020
AND ok.alg_kenmerk_key = 1001
AND ok.alg_onrgoed_niveau = 'D'
AND p.prs_perslid_key =
FAC.SAFE_TO_NUMBER (ok.alg_onrgoedkenmerk_waarde))
@@ -3478,7 +3505,7 @@ AS
(SELECT p.prs_perslid_key
FROM alg_onrgoedkenmerk ok, prs_v_perslid_fullnames p
WHERE ok.alg_onrgoed_key = c.alg_district_key
AND ok.alg_kenmerk_key = 1021
AND ok.alg_kenmerk_key = 1002
AND ok.alg_onrgoed_niveau = 'D'
AND p.prs_perslid_key =
FAC.SAFE_TO_NUMBER (ok.alg_onrgoedkenmerk_waarde))
@@ -3486,7 +3513,7 @@ AS
(SELECT p.prs_perslid_naam_full
FROM alg_onrgoedkenmerk ok, prs_v_perslid_fullnames p
WHERE ok.alg_onrgoed_key = c.alg_district_key
AND ok.alg_kenmerk_key = 1021
AND ok.alg_kenmerk_key = 1002
AND ok.alg_onrgoed_niveau = 'D'
AND p.prs_perslid_key =
FAC.SAFE_TO_NUMBER (ok.alg_onrgoedkenmerk_waarde))
@@ -3494,7 +3521,7 @@ AS
(SELECT p.prs_perslid_key
FROM alg_onrgoedkenmerk ok, prs_v_perslid_fullnames p
WHERE ok.alg_onrgoed_key = c.alg_district_key
AND ok.alg_kenmerk_key = 1022
AND ok.alg_kenmerk_key = 1003
AND ok.alg_onrgoed_niveau = 'L'
AND p.prs_perslid_key =
FAC.SAFE_TO_NUMBER (ok.alg_onrgoedkenmerk_waarde))
@@ -3502,7 +3529,7 @@ AS
(SELECT p.prs_perslid_naam_full
FROM alg_onrgoedkenmerk ok, prs_v_perslid_fullnames p
WHERE ok.alg_onrgoed_key = c.alg_district_key
AND ok.alg_kenmerk_key = 1022
AND ok.alg_kenmerk_key = 1003
AND ok.alg_onrgoed_niveau = 'L'
AND p.prs_perslid_key =
FAC.SAFE_TO_NUMBER (ok.alg_onrgoedkenmerk_waarde))
@@ -3833,7 +3860,7 @@ AS
prs_v_perslid_fullnames_all p,
mld_statuses stat,
alg_v_aanweziglocatie l
WHERE m.mld_stdmelding_key = 63
WHERE m.mld_stdmelding_key = 33
AND stat.mld_statuses_key = m.mld_melding_status
AND p.prs_perslid_key = m.prs_perslid_key
AND l.alg_locatie_key = m.mld_alg_locatie_key;
@@ -3852,7 +3879,7 @@ AS
(SELECT ko.mld_kenmerkopdr_waarde
FROM mld_kenmerkopdr ko
WHERE ko.mld_opdr_key = o.mld_opdr_key
AND ko.mld_kenmerk_key=62 -- A=62 P=
AND ko.mld_kenmerk_key=84 -- A=62 P=204
AND ko.mld_kenmerkopdr_waarde IS NOT NULL) coupa_id,
fb.fac_bijlagen_filename bestand,
fb.fac_bijlagen_disk_directory path,
@@ -3860,7 +3887,7 @@ AS
FROM mld_opdr o, fac_v_bijlagen fb
WHERE fb.fac_bijlagen_refkey=o.mld_opdr_key
AND o.mld_statusopdr_key IN (4,5)
AND fb.fac_bijlagen_kenmerk_key=64 -- A=64 P=
AND fb.fac_bijlagen_kenmerk_key=83 -- A=64 P=97
AND fb.fac_bijlagen_module='MLD';
@@ -3948,7 +3975,7 @@ AS
AND NOT EXISTS
(SELECT 1
FROM fac_tracking t
WHERE t.fac_srtnotificatie_key =405
WHERE t.fac_srtnotificatie_key =209
AND t.fac_tracking_refkey = a.bez_afspraak_key
AND t.fac_tracking_oms LIKE '%CUST03%');
@@ -3986,7 +4013,7 @@ AS
AND NOT EXISTS
(SELECT 1
FROM fac_tracking t
WHERE t.fac_srtnotificatie_key = 405
WHERE t.fac_srtnotificatie_key = 209
AND t.fac_tracking_refkey = a.bez_afspraak_key
AND t.fac_tracking_oms LIKE '%CUST02%');