svn path=/Customer/trunk/; revision=15060
This commit is contained in:
@@ -1,7 +1,7 @@
|
||||
-- AKZA481to500
|
||||
SET ECHO ON
|
||||
SPOOL xAKZA481to500.lst
|
||||
PROMPT $Revision: 5 $
|
||||
PROMPT $Revision: 6 $
|
||||
|
||||
-- PKO: aanmeldmodule gaat eruit.
|
||||
--UPDATE fac_srtnotificatie SET fac_srtnotificatie_url='../cust/akza/prsaan/aan_edit_person.asp?aan_key=' WHERE fac_srtnotificatie_code LIKE 'COMP%';
|
||||
@@ -296,7 +296,7 @@ DECLARE
|
||||
SELECT ins_alg_ruimte_key perslid_key
|
||||
,knt.ins_kenmerkdeel_waarde kenteken
|
||||
,srt.ins_kenmerkdeel_waarde soort
|
||||
,mrk.ins_kenmerkdeel_waarde merk
|
||||
,mrk.ins_kenmerkdeel_waarde merk
|
||||
,typ.ins_kenmerkdeel_waarde typ
|
||||
,klr.ins_kenmerkdeel_waarde kleur
|
||||
FROM ins_v_aanwezigdeel ad
|
||||
@@ -333,7 +333,7 @@ BEGIN
|
||||
v_volgnr := 1;
|
||||
v_lastkey := rec.perslid_key;
|
||||
END IF;
|
||||
|
||||
|
||||
IF (v_volgnr = 1)
|
||||
THEN
|
||||
v_errormsg := 'Eerste voertuig';
|
||||
@@ -374,7 +374,7 @@ BEGIN
|
||||
prs_kenmerklink_niveau, prs_kenmerk_key)
|
||||
VALUES (rec.perslid_key, rec.kleur, 'P', 1283);
|
||||
END IF;
|
||||
|
||||
|
||||
ELSIF (v_volgnr = 2)
|
||||
THEN
|
||||
v_errormsg := 'Tweede voertuig';
|
||||
@@ -415,7 +415,7 @@ BEGIN
|
||||
prs_kenmerklink_niveau, prs_kenmerk_key)
|
||||
VALUES (rec.perslid_key, rec.kleur, 'P', 1288);
|
||||
END IF;
|
||||
|
||||
|
||||
ELSIF (v_volgnr = 3)
|
||||
THEN
|
||||
v_errormsg := 'Derde voertuig';
|
||||
@@ -456,7 +456,7 @@ BEGIN
|
||||
prs_kenmerklink_niveau, prs_kenmerk_key)
|
||||
VALUES (rec.perslid_key, rec.kleur, 'P', 1293);
|
||||
END IF;
|
||||
|
||||
|
||||
ELSE
|
||||
DBMS_OUTPUT.PUT_LINE('Teveel voertuigen: '||rec.perslid_key||' - '||rec.kenteken);
|
||||
END IF;
|
||||
@@ -472,6 +472,33 @@ END;
|
||||
|
||||
SET SERVEROUTPUT OFF;
|
||||
|
||||
-- Bijlage-sheets geen defaultwaarde meer, zodat bestandsnaam invullen makkelijker is
|
||||
-- srtkenmerk_key 41 = 'Bijlage-sheet'
|
||||
UPDATE res_kenmerk
|
||||
SET res_kenmerk_default = NULL
|
||||
WHERE res_srtkenmerk_key = 41;
|
||||
|
||||
-- Ruimte-foto's zijn geen alg-kenmerk meer, maar een kolom van res_ruimte.
|
||||
-- uit /appl/upgrade/db12to13.asp:
|
||||
UPDATE res_ruimte rr
|
||||
SET res_ruimte_image = (SELECT MIN(aok.alg_onrgoedkenmerk_waarde)
|
||||
FROM res_alg_ruimte rar,
|
||||
alg_onrgoedkenmerk aok
|
||||
WHERE rar.alg_ruimte_key = aok.alg_onrgoed_key
|
||||
AND aok.alg_onrgoed_niveau = 'R'
|
||||
AND aok.alg_kenmerk_key = 1100
|
||||
AND aok.alg_onrgoedkenmerk_verwijder IS NULL
|
||||
AND rar.res_ruimte_key = rr.res_ruimte_key
|
||||
GROUP BY rar.res_ruimte_key);
|
||||
|
||||
UPDATE res_ruimte
|
||||
SET res_ruimte_image = REPLACE( REPLACE(res_ruimte_image,
|
||||
'AFBEELDING/',
|
||||
''),
|
||||
'Afbeelding/',
|
||||
''
|
||||
)
|
||||
WHERE res_ruimte_image IS NOT NULL;
|
||||
|
||||
-- Notificatiejob reminders RES
|
||||
INSERT INTO fac_notificatie_job
|
||||
@@ -547,7 +574,7 @@ DECLARE
|
||||
AND awp.prs_werkplek_virtueel != 1
|
||||
-- AND alg_plaatsaanduiding LIKE 'SSCA-C2-K1-%'
|
||||
ORDER BY alg_ruimte_nr;
|
||||
|
||||
|
||||
-- Werkplekbezetting per afdeling
|
||||
-- NB: afdeling 'NIET VERH' doet niet mee!
|
||||
CURSOR c_wps (in_ruimte_key NUMBER)
|
||||
@@ -563,7 +590,7 @@ DECLARE
|
||||
AND ap.prs_perslid_key = apwp.prs_perslid_key
|
||||
AND ap.prs_afdeling_key = afd.prs_afdeling_key
|
||||
AND afd.prs_afdeling_verwijder IS NULL
|
||||
AND afd.prs_afdeling_upper != 'NIET VERH'
|
||||
AND afd.prs_afdeling_upper != 'NIET VERH'
|
||||
GROUP BY afd.prs_afdeling_key, afd.prs_afdeling_naam;
|
||||
|
||||
BEGIN
|
||||
@@ -571,15 +598,15 @@ BEGIN
|
||||
FOR rec_ruimte IN c_ruimtes
|
||||
LOOP
|
||||
v_desc := rec_ruimte.alg_ruimte_nr || '('||rec_ruimte.alg_ruimte_key||')';
|
||||
|
||||
|
||||
-- Bepaal totale werkplekcapaciteit van ruimte (aantal wps * 100%)
|
||||
SELECT COUNT(*)*100
|
||||
INTO v_totaal
|
||||
FROM prs_v_aanwezigwerkplek awp
|
||||
WHERE awp.prs_alg_ruimte_key = rec_ruimte.alg_ruimte_key
|
||||
AND awp.prs_werkplek_virtueel != 1;
|
||||
|
||||
-- Update bezetting per afdeling in deze ruimte
|
||||
AND awp.prs_werkplek_virtueel != 1;
|
||||
|
||||
-- Update bezetting per afdeling in deze ruimte
|
||||
FOR rec IN c_wps (rec_ruimte.alg_ruimte_key)
|
||||
LOOP
|
||||
v_bezetting := ROUND(rec.bezetting/v_totaal*100);
|
||||
@@ -589,7 +616,7 @@ BEGIN
|
||||
-- ||': bezetting > 100%! ');
|
||||
v_bezetting := 100;
|
||||
END IF;
|
||||
|
||||
|
||||
--DBMS_OUTPUT.PUT_LINE(v_desc||': '||rec.prs_afdeling_naam
|
||||
-- ||' ('||rec.bezetting||'/'||v_totaal||') = '
|
||||
-- ||v_bezetting||'%');
|
||||
@@ -602,10 +629,10 @@ BEGIN
|
||||
rec_ruimte.alg_ruimte_key,
|
||||
v_bezetting);
|
||||
END LOOP;
|
||||
|
||||
|
||||
--DBMS_OUTPUT.PUT_LINE(' ');
|
||||
END LOOP;
|
||||
|
||||
|
||||
-- Verwijder alle werkplekken van users "[afd]" en "LEEG [afd]"
|
||||
-- (user [Flexplek] heeft alleen werkplekken in ruimtesoorten zonder wp's)
|
||||
UPDATE prs_perslidwerkplek
|
||||
|
||||
Reference in New Issue
Block a user