svn path=/Customer/trunk/; revision=15060

This commit is contained in:
Peter Koerhuis
2011-12-16 15:43:02 +00:00
parent ec2c57f52b
commit 91cd2326b4

View File

@@ -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