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

CVGZ#62673 -- VGZ personen import aanpassing incl mandatering

Browse Source 
svn path=/Customer/trunk/; revision=47370
This commit is contained in:
Jos Migo
2020-07-10 08:47:08 +00:00
parent 657a1421eb
commit a55444e2be
1 changed files with 49 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

49
AA/CVGZ/cvgz.sql
View File

@@ -378,12 +378,21 @@ IS
AND i.prs_perslid_nr IS NULL
AND p.prs_perslid_verwijder IS NULL;
CURSOR c_man IS
SELECT v.prs_perslid_key, v.prs_perslid_naam || ', ' || v.prs_perslid_voorletters || ' (' || v.prs_perslid_voornaam || ')' as prs_perslid_naam_full, v.prs_perslid_nr, v.prs_perslid_oslogin
FROM fac_imp_perslid i, prs_v_aanwezigperslid v, prs_afdeling a
WHERE i.prs_perslid_key = v.prs_perslid_key
AND v.prs_afdeling_key = a.prs_afdeling_key
AND a.prs_bedrijf_key = 1 -- VGZ
AND INSTR(v.prs_perslid_naam,'INACTIEF') = 0 ;
v_bedrijf_key NUMBER (10);
v_afdeling_key1 NUMBER (10);
v_afdeling_key2 NUMBER (10);
v_kostenplaats_key NUMBER (10);
v_kpn_nr_prev VARCHAR2 (20);
v_count_mandaat NUMBER (10);
v_count_man_prs NUMBER (10) := 0;
v_aanduiding VARCHAR2 (100);
v_errorhint VARCHAR2 (1000);
@@ -410,6 +419,46 @@ BEGIN
prs.update_perslid (p_import_key, 'NR', NULL);
-- Gaan nu de mandetering toevoegen indien nodig
FOR rec IN c_man
LOOP
v_errorhint := 'Mandatering toevoegen || ' || rec.prs_perslid_naam_full || '-' || rec.prs_perslid_nr || '-' || rec.prs_perslid_oslogin;
-- Is er al mandatering voor die persoon vastgelegd
SELECT COUNT(*)
INTO v_count_mandaat
FROM prs_perslidkostenplaats
WHERE prs_perslid_key = rec.prs_perslid_key
-- AND prs_kostenplaats_key IS NULL -- volledig mandaat
;
IF v_count_mandaat = 0
THEN
INSERT INTO prs_perslidkostenplaats (prs_perslidkostenplaats_boeken,
prs_perslidkostenplaats_inzage,
prs_perslid_key,
prs_kostenplaats_key)
VALUES (1,
1,
rec.prs_perslid_key,
NULL);
v_count_man_prs := v_count_man_prs + 1 ;
END IF;
END LOOP;
fac.imp_writelog (
p_import_key,
'S',
'Mandatering - doorgevoerd op '
|| TO_CHAR (v_count_man_prs)
|| ' personen'
,
'');
COMMIT;
EXCEPTION
WHEN OTHERS