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

GVBA#12401

Browse Source 
svn path=/Customer/trunk/; revision=13211
This commit is contained in:
Arthur Egberink
2007-03-12 19:48:56 +00:00
parent f501906b57
commit 99c09329c6
3 changed files with 106 additions and 28 deletions
Download Patch File Download Diff File Expand all files Collapse all files

27
GVBA/Once/gvba461to470.sql Normal file
View File

@@ -0,0 +1,27 @@
SET ECHO ON
SPOOL xgvba461to470.lst
PROMPT $Revision: 1 $
--///////////////////////////////////////////////////////////////////////////////////////////////// FSN#12144
UPDATE prs_perslid p
SET prs_perslid_mobiel =
(SELECT SUBSTR (prs_kenmerklink_waarde, 1, 15)
FROM prs_kenmerklink
WHERE prs_kenmerk_key = 1000
AND prs_link_key = p.prs_perslid_key
AND prs_kenmerklink_verwijder IS NULL
AND prs_kenmerklink_niveau = 'P');
DELETE FROM prs_kenmerklink
WHERE prs_kenmerk_key = 1000
AND prs_kenmerklink_niveau = 'P';
--///////////////////////////////////////////////////////////////////////////////////////////////// FSN#12216
UPDATE prs_kenmerk SET prs_kenmerk_systeem=NULL where prs_kenmerk_key=1000;
DELETE FROM prs_kenmerk WHERE prs_kenmerk_key=1000;
update prs_werkplek set prs_werkplek_virtueel = 0, prs_werkplek_module = 'IMP' where prs_werkplek_virtueel = 1;
SPOOL OFF
@gvba.sql

53
GVBA/gvba.sql
View File

@@ -1,7 +1,7 @@
-- Script containing customer specific configuration sql statements for GVBA: Gem. Vervoersbedrijf Amsterdam
-- (c) 2006 Facilitor Software Nederland/Dijkoraad IT bv
-- $Revision: 11 $
-- $Modtime: 26-01-07 10:46 $
-- $Revision: 12 $
-- $Modtime: 12-03-07 16:03 $
--
-- Support: +31 53 4800700
@@ -545,6 +545,7 @@ CREATE OR REPLACE PACKAGE BODY gvba_p_import AS
FROM prs_werkplek
WHERE prs_werkplek_verwijder IS NULL
AND prs_alg_ruimte_key = p_ruimte_key
AND prs_werkplek_module = 'IMP'
AND prs_werkplek_virtueel = p_werkplek_virtueel;
IF (v_count <= 0) THEN
@@ -595,7 +596,7 @@ CREATE OR REPLACE PACKAGE BODY gvba_p_import AS
,PRS_WERKPLEK_VIRTUEEL
)
values
('PRR'
('IMP'
,v_werkplek_volgnr
,v_ruimte_nr||'/'||to_char(v_werkplek_volgnr)
,p_ruimte_key
@@ -1002,10 +1003,10 @@ SELECT
, SUBSTR(gp.tussenvoegsels,1,15) PRS_PERSLID_TUSSENVOEGSEL
, SUBSTR(gp.voorletters,1,10) PRS_PERSLID_VOORLETTERS
, SUBSTR(gp.telefoon,1,15) PRS_PERSLID_TELEFOONNR
, SUBSTR(gp.mobiel,1,15) flex_mobile
, SUBSTR(gp.mobiel,1,15) PRS_PERSLID_MOBIEL
, SUBSTR(gp.grip,1,15) flex_grip
, SUBSTR(gp.login,1,30) PRS_PERSLID_OSLOGIN
, SUBSTR(gp.email,1,50) flex_email
, SUBSTR(gp.email,1,200) PRS_PERSLID_EMAIL
, NVL(SUBSTR(gp.functie,1,30),'Onbekend') PRS_SRTPERSLID_OMSCHRIJVING
, NVL(SUBSTR(trim(gp.organisatiecode),1,10),'Onbekend') PRS_AFDELING_NAAM
, SUBSTR(gp.kostenplaats,1,30) PRS_KOSTENPLAATS_NR
@@ -1061,7 +1062,7 @@ AS
v_mobiel VARCHAR2(100);
v_grip VARCHAR2(100);
v_login VARCHAR2(100);
v_email VARCHAR2(100);
v_email VARCHAR2(200);
v_functie VARCHAR2(100);
v_organisatie_code VARCHAR2(100);
v_kostenplaats VARCHAR2(100);
@@ -1148,7 +1149,7 @@ BEGIN
SUBSTR (v_mobiel, 1, 15),
SUBSTR (v_grip, 1, 15),
SUBSTR (v_login, 1, 30),
SUBSTR (v_email, 1, 80),
SUBSTR (v_email, 1, 200),
SUBSTR (v_functie, 1, 30),
SUBSTR (v_organisatie_code, 1, 10),
SUBSTR (v_kostenplaats, 1, 30),
@@ -1299,9 +1300,11 @@ BEGIN
,prs_perslid_ingangsdatum
,prs_perslid_einddatum
,prs_perslid_telefoonnr
,prs_perslid_mobiel
,prs_perslid_oslogin
,prs_srtperslid_key
,prs_afdeling_key)
,prs_afdeling_key
,prs_perslid_email)
values
(v_perslid_key
,rec1.prs_perslid_naam
@@ -1313,9 +1316,11 @@ BEGIN
,rec1.prs_perslid_ingangsdatum
,rec1.prs_perslid_einddatum
,rec1.prs_perslid_telefoonnr
,rec1.prs_perslid_oslogin
,rec1.prs_perslid_mobiel
,rec1.prs_perslid_oslogin
,v_srtperslid_key
,v_afdeling_key
,rec1.prs_perslid_email
);
ELSE
@@ -1329,7 +1334,9 @@ BEGIN
,prs_perslid_ingangsdatum = rec1.prs_perslid_ingangsdatum
,prs_perslid_einddatum = rec1.prs_perslid_einddatum
,prs_perslid_telefoonnr = rec1.prs_perslid_telefoonnr
,prs_perslid_mobiel = rec1.prs_perslid_mobiel
,prs_perslid_oslogin = rec1.prs_perslid_oslogin
,prs_perslid_email = rec1.prs_perslid_email
,prs_srtperslid_key = v_srtperslid_key
,prs_afdeling_key = v_afdeling_key
WHERE prs_perslid_key = v_perslid_key;
@@ -1348,7 +1355,8 @@ BEGIN
AND EXISTS (SELECT 'x'
FROM PRS_WERKPLEK w
WHERE w.prs_werkplek_key = pw.prs_werkplek_key
AND w.prs_werkplek_virtueel = 1
AND w.prs_werkplek_module = 'IMP'
AND w.prs_werkplek_virtueel = 0
AND rownum=1);
ELSE
@@ -1359,9 +1367,9 @@ BEGIN
IF v_ruimte_key > 0 THEN -- Ruimte gevonden
v_errmes := 'Maak virtuele werkplek aan indien niet aanwezig? Dit voor persoon met persoonnr <' || rec1.prs_perslid_nr || '>';
gvba_p_import.set_prs_werkplek_key(v_ruimte_key,1);
gvba_p_import.set_prs_werkplek_key(v_ruimte_key,0);
v_errmes := 'Vraag virtuele werkplek op in Facilitor? Dit voor persoon met persoonnr <' || rec1.prs_perslid_nr || '>';
v_werkplek_key := gvba_p_import.get_prs_werkplek_key(v_ruimte_key,1);
v_werkplek_key := gvba_p_import.get_prs_werkplek_key(v_ruimte_key,0);
v_errmes := 'Is de virtuele werkplek gewijzigd? Dit voor persoon met persoonnr <' || rec1.prs_perslid_nr || '>';
select count(*)
@@ -1371,7 +1379,8 @@ BEGIN
and pw.prs_perslid_key = v_perslid_key
and pw.prs_werkplek_key = v_werkplek_key
and pw.prs_werkplek_key = w.prs_werkplek_key
and w.prs_werkplek_virtueel = 1;
and w.prs_werkplek_module = 'IMP'
and w.prs_werkplek_virtueel = 0;
IF (v_count = 0) THEN
@@ -1382,7 +1391,8 @@ BEGIN
AND EXISTS (SELECT 'x'
FROM PRS_WERKPLEK w
WHERE w.prs_werkplek_key = pw.prs_werkplek_key
AND w.prs_werkplek_virtueel = 1
AND w.prs_werkplek_module = 'IMP'
AND w.prs_werkplek_virtueel = 0
AND rownum=1);
v_errmes := 'Voeg werkplek toe voor persoon met persoonnr <' || rec1.prs_perslid_nr || '>';
@@ -1438,19 +1448,12 @@ BEGIN
v_errmes := 'Fout bij toevoegen flexibele kenmerken voor persoon met persoonnr <' || rec1.prs_perslid_nr || '>';
BEGIN -- FlexProps
v_errmes := 'Fout bij toevoegen flexibele kenmerken Emailadres voor persoon met persoonnr <' || rec1.prs_perslid_nr || '>';
v_errmes := 'Fout bij toevoegen flexibele kenmerken Kostenplaats voor persoon met persoonnr <' || rec1.prs_perslid_nr || '>';
SELECT gvba_p_import.get_prs_kenmerk_key('P','Kostenplaats')
INTO v_prs_kenmerk_key
FROM dual;
gvba_p_import.set_prs_ckenmerk_waarde(v_prs_kenmerk_key,v_perslid_key,rec1.prs_kostenplaats_nr);
v_errmes := 'Fout bij toevoegen flexibele kenmerken Mobile voor persoon met persoonnr <' || rec1.prs_perslid_nr || '>';
SELECT gvba_p_import.get_prs_kenmerk_key('P','Mobile')
INTO v_prs_kenmerk_key
FROM dual;
gvba_p_import.set_prs_ckenmerk_waarde(v_prs_kenmerk_key,v_perslid_key,rec1.FLEX_MOBILE);
v_errmes := 'Fout bij toevoegen flexibele kenmerken Grip voor persoon met persoonnr <' || rec1.prs_perslid_nr || '>';
SELECT gvba_p_import.get_prs_kenmerk_key('P','Grip')
INTO v_prs_kenmerk_key
@@ -1481,12 +1484,6 @@ BEGIN
FROM dual;
gvba_p_import.set_prs_ckenmerk_waarde(v_prs_kenmerk_key,v_perslid_key,rec1.FLEX_RUIMTE);
v_errmes := 'Fout bij toevoegen flexibele kenmerken Emailadres voor persoon met persoonnr <' || rec1.prs_perslid_nr || '>';
SELECT gvba_p_import.get_prs_kenmerk_key('P','Emailadres')
INTO v_prs_kenmerk_key
FROM dual;
gvba_p_import.set_prs_ckenmerk_waarde(v_prs_kenmerk_key,v_perslid_key,rec1.FLEX_EMAIL);
END;
COMMIT; -- Er zijn geen fouten opgetreden

54
GVBA/post-imp.sql Normal file
View File

@@ -0,0 +1,54 @@
-- POST-IMP.SQL
-- $Revision: 1 $
-- $Modtime: 12-03-07 21:59 $
-- to be run after an import of any Facilitor dump, to prevent confusion by suppliers by ghost orders and notifications
-- Also anonymizes the passwords
-- We are not always sure that all triggers are valid at this moment, therefore we disable them.
set echo on
spool post-imp.lst
SHOW USER;
--Reset passwords
ALTER TRIGGER prs_t_prs_perslid_b_iu DISABLE;
UPDATE prs_perslid SET prs_perslid_wachtwoord='123'
WHERE prs_perslid_oslogin IS NOT NULL;
ALTER TRIGGER prs_t_prs_perslid_b_iu ENABLE;
--Prevent e-mails to real users
UPDATE prs_perslid SET prs_perslid_email='altepost@gvb.nl' WHERE prs_perslid_email is not null;
--Prevent ordering/notification to real suppliers
UPDATE prs_bedrijf
SET prs_bedrijf_opmerking = prs_bedrijf_opmerking || '-' || prs_bedrijf_order_adres
WHERE prs_bedrijf_order_adres IS NOT NULL;
UPDATE prs_bedrijf
SET prs_bedrijf_order_adres='mailto:altepost@gvb.nl'
WHERE prs_bedrijf_order_adres is not null;
UPDATE prs_bedrijf
SET prs_bedrijf_opmerking = prs_bedrijf_opmerking || '-' || prs_bedrijf_mldorder_adres
WHERE prs_bedrijf_mldorder_adres IS NOT NULL;
UPDATE prs_bedrijf
SET prs_bedrijf_mldorder_adres='mailto:altepost@gvb.nl'
WHERE prs_bedrijf_mldorder_adres is not null;
UPDATE prs_bedrijf
SET prs_bedrijf_email = 'mailto:altepost@gvb.nl'
WHERE prs_bedrijf_email iS NOT NULL;
--Prevent SMS messages to employees or real suppliers
UPDATE prs_perslid
SET prs_perslid_mobiel = SUBSTR ('dit-' || prs_perslid_mobiel, 1, 15)
WHERE prs_perslid_mobiel IS NOT NULL;
UPDATE prs_bedrijf
SET prs_bedrijf_telefoon2 = SUBSTR ('dit-' || prs_bedrijf_telefoon2, 1, 15)
WHERE prs_bedrijf_telefoon2 IS NOT NULL;
UPDATE prs_contactpersoon
SET prs_contactpersoon_telefoon_2 = SUBSTR ('dit-' || prs_contactpersoon_telefoon_2, 1, 15)
WHERE prs_contactpersoon_telefoon_2 IS NOT NULL;
commit;
spool off
quit