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

HOUT#35522 PRS-import/Fout bij bepalen WP

Browse Source 
svn path=/Customer/trunk/; revision=28199
This commit is contained in:
Maarten van der Heide
2016-02-17 12:16:10 +00:00
parent c596c7c37d
commit 766a131bdf
1 changed files with 5 additions and 70 deletions
Download Patch File Download Diff File Expand all files Collapse all files

73
HOUT/hout.sql
View File

@@ -637,9 +637,6 @@ IS
v_gebouw_key NUMBER (10);
v_verdieping_key NUMBER (10);
v_ruimte_key NUMBER (10);
v_wp_volgnr NUMBER (3);
v_wp_oms VARCHAR2 (30);
v_wp_key NUMBER (10);
v_groep_key NUMBER (10);
v_profiel_key NUMBER (10);
@@ -1358,72 +1355,10 @@ BEGIN
WHERE r.alg_verdieping_key = v_verdieping_key
AND r.alg_ruimte_upper_nr = c_ruimte_nr;
-- Persoon krijgt wp op de hierboven bepaalde ruimte.
v_errorhint := 'Fout bij bepalen vrije werkplek';
SELECT COUNT ( * )
INTO v_count
FROM prs_werkplek w
WHERE w.prs_alg_ruimte_key = v_ruimte_key
AND NOT EXISTS
(SELECT 1
FROM prs_perslidwerkplek pw
WHERE pw.prs_werkplek_key = w.prs_werkplek_key);
IF v_count > 0
THEN
SELECT MIN (w.prs_werkplek_key)
INTO v_wp_key
FROM prs_werkplek w
WHERE w.prs_alg_ruimte_key = v_ruimte_key
AND NOT EXISTS
(SELECT 1
FROM prs_perslidwerkplek pw
WHERE pw.prs_werkplek_key =
w.prs_werkplek_key);
v_errorhint := 'Fout bij koppelen persoon aan vrije werkplek';
INSERT INTO prs_perslidwerkplek (
prs_perslid_key,
prs_werkplek_key,
prs_perslidwerkplek_bezetting
)
VALUES (v_perslid_key, v_wp_key, 100);
-- Persoon (zonder wp!) krijgt wp op de hierboven bepaalde ruimte.
v_errorhint := 'Fout bij toewijzen werkplek';
PRS.movetoruimte (v_perslid_key, v_ruimte_key, NULL);
COMMIT;
ELSE
v_errorhint := 'Fout bij bepalen nieuwe werkplek';
SELECT COALESCE (MAX (w.prs_werkplek_volgnr), 0) + 1
INTO v_wp_volgnr
FROM prs_werkplek w
WHERE w.prs_alg_ruimte_key = v_ruimte_key;
v_wp_oms := c_ruimte_nr || '/' || TO_CHAR (v_wp_volgnr);
v_errorhint := 'Fout bij toevoegen nieuwe werkplek';
INSERT INTO prs_werkplek (prs_werkplek_module,
prs_werkplek_volgnr,
prs_werkplek_omschrijving,
prs_alg_ruimte_key)
VALUES ('PRR',
v_wp_volgnr,
v_wp_oms,
v_ruimte_key)
RETURNING prs_werkplek_key INTO v_wp_key;
v_errorhint := 'Fout bij koppelen persoon aan nieuwe werkplek';
INSERT INTO prs_perslidwerkplek (
prs_perslid_key,
prs_werkplek_key,
prs_perslidwerkplek_bezetting
)
VALUES (v_perslid_key, v_wp_key, 100);
COMMIT;
END IF;
EXCEPTION
WHEN OTHERS
THEN
@@ -4011,7 +3946,7 @@ AS
UNION ALL -- Extra kolom zodat voorgaande kolommen helemaal getoond?
SELECT ' ', 0, 0, 0 FROM DUAL;
BEGIN fac.registercustversion('HOUT', 38); END;
BEGIN fac.registercustversion('HOUT', 39); END;
/
BEGIN adm.systrackscriptId('$Id$', 0); END;
/