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

RWSN#38402 KNMI/IDM_PERS-import bugfixes

Browse Source 
svn path=/Customer/trunk/; revision=35822
This commit is contained in:
Maarten van der Heide
2017-10-26 09:31:58 +00:00
parent 846900a236
commit c7a4715c3d
1 changed files with 26 additions and 22 deletions
Download Patch File Download Diff File Expand all files Collapse all files

48
RWSN/rwsn.sql
View File

@@ -1660,27 +1660,28 @@ BEGIN
v_errormsg := 'Verwijderen van persoon NIET gelukt';
v_errorhint := 'Heeft persoon met key ' || TO_CHAR (v_perslid_key) || ' historie?';
SELECT SUM (x.aant)
SELECT SUM (aant)
INTO v_count
FROM (SELECT COUNT ( * ) aant
FROM prs_v_verplichting_refcheck pv
WHERE pv.prs_perslid_key = v_perslid_key
UNION
FROM prs_v_verplichting_refcheck
WHERE prs_perslid_key = v_perslid_key
UNION ALL
SELECT COUNT ( * ) aant
FROM fac_tracking t
WHERE t.prs_perslid_key = v_perslid_key) x;
FROM cnt_v_aanwezigcontract
WHERE cnt_contract_status = 0 -- NIET Gesloten!
AND cnt_contract_looptijd_tot >= SYSDATE
AND cnt_prs_perslid_key = v_perslid_key
UNION ALL
SELECT COUNT ( * ) aant
FROM fac_tracking
WHERE prs_perslid_key = v_perslid_key);
IF v_count = 0
THEN
-- Persoon heeft geen enkele (actuele of historische) verplichting
v_errorhint := 'Verwijderen van persoon met key ' || TO_CHAR (v_perslid_key);
DELETE FROM prs_perslid WHERE prs_perslid_key = v_perslid_key;
--Via trigger!
--DELETE FROM prs_kenmerklink
-- WHERE prs_link_key = v_perslid_key
-- AND prs_kenmerklink_niveau = 'P';
PRS.delete_perslid (p_import_key, v_perslid_key);
fac.imp_writelog (p_import_key, 'I', 'Persoon verwijderd; RIN: ' || rec_prs_del.rin, '');
ELSE
@@ -1977,10 +1978,8 @@ BEGIN
'Nieuw persoon toegevoegd',
'Naam/RIN: ' || ltussenvoegselpres || ' ' || lnaampresentatie || '/' || rec_prs_upd.rin);
--COMMIT;
-- Nieuwe KNMI-ers de '_Default'-groep afnemen en plaatsen in
-- de 'DefaultKNMI'-groep!
-- Nieuwe KNMI-ers de _Default-groep afnemen en plaatsen in
-- de DefaultKNMI-groep!
IF rec_prs_upd.knmi = 1
THEN
v_errormsg := 'Fout afnemen _Default';
@@ -2036,11 +2035,16 @@ BEGIN
v_perslid_key := rec_prs_upd.prs_perslid_key;
--COMMIT;
-- Bestaande KNMI-ers blijven geplaatst in de 'DefaultKNMI'-groep!
-- Bestaande KNMI-ers evt. de _Default-groep weer afnemen en
-- behouden in de DefaultKNMI-groep!
IF rec_prs_upd.knmi = 1
THEN
v_errormsg := 'Fout afnemen _Default';
DELETE FROM fac_gebruikersgroep
WHERE fac_groep_key = 1
AND prs_perslid_key = v_perslid_key;
v_errormsg := 'Fout behouden DefaultKNMI';
INSERT INTO fac_gebruikersgroep (fac_groep_key, prs_perslid_key)
@@ -25922,7 +25926,7 @@ AS
NULL, NULL,
fac.count_work_days_incltime (x.mld_melding_datum, mldafm.fac_tracking_datum))
doorlooptijd,
sd.mld_kenmerkmelding_waarde startdat,
fac.safe_to_date (sd.mld_kenmerkmelding_waarde, 'dd-mm-yyyy') startdat,
CASE
WHEN sd.mld_kenmerkmelding_waarde < TO_CHAR (mldafm.fac_tracking_datum, 'dd-mm-yyyy')
THEN
@@ -25931,7 +25935,7 @@ AS
0
END
afm_voor_startdat,
ed.mld_kenmerkmelding_waarde einddat,
fac.safe_to_date (ed.mld_kenmerkmelding_waarde, 'dd-mm-yyyy') einddat,
(SELECT fac_usrdata_omschr FROM fac_usrdata WHERE TO_CHAR (fac_usrdata_key) = oo.mld_kenmerkmelding_waarde) onderdeel,
jn.mld_kenmerkmelding_waarde jobnr,
zk.mld_kenmerkmelding_waarde zaakid,
@@ -26055,7 +26059,7 @@ AS
--DECODE (SIGN(TO_DATE ('120916', 'ddmmyy') - fac.datumtijdplusuitvoertijd (mldafm.fac_tracking_datum, 5, 'D')),
-- -1, 'Nee',
-- 'Ja'),
DECODE (SIGN(fac.safe_to_date (bda.mld_kenmerkmelding_waarde, 'dd-mm-yyy') - fac.datumtijdplusuitvoertijd (mldafm.fac_tracking_datum, 5, 'D')),
DECODE (SIGN(fac.safe_to_date (bda.mld_kenmerkmelding_waarde, 'dd-mm-yyyy') - fac.datumtijdplusuitvoertijd (mldafm.fac_tracking_datum, 5, 'D')),
-1, 'Nee',
'Ja')
FROM (SELECT m.mld_melding_key,