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

CONN#19345

Browse Source 
svn path=/Customer/trunk/; revision=14586
This commit is contained in:
Arthur Egberink
2011-01-12 06:53:34 +00:00
parent 77bb878be1
commit fa64190d22
1 changed files with 29 additions and 39 deletions
Download Patch File Download Diff File Expand all files Collapse all files

68
CONN/conn.sql
View File

@@ -1,7 +1,7 @@
-- Script containing customer specific configuration sql statements for CONN: Connexxion
-- (c) 2005-2010 SG|facilitor bv
-- $Revision: 159 $
-- $Modtime: 2-11-10 14:17 $
-- $Revision: 160 $
-- $Modtime: 11-01-11 23:24 $
--
-- Support: +31 53 4800710
@@ -5507,6 +5507,7 @@ AS
v_mh_bedrijf_key prs_afdeling.prs_afdeling_key%TYPE;
v_mh_afdeling_parentkey prs_afdeling.prs_afdeling_key%TYPE;
v_afdeling_key prs_afdeling.prs_afdeling_key%TYPE;
v_divisie_key prs_afdeling.prs_afdeling_key%TYPE;
BEGIN
BEGIN
SELECT a.prs_afdeling_key
@@ -5520,52 +5521,41 @@ AS
END;
IF v_afdeling_key IS NULL
THEN -- afdeling bestaat niet
THEN -- afdeling bestaat niet zoek de divisie en maak de afdeling aan.
BEGIN
-- bestaat afdeling "perman nieuw"
SELECT a.prs_afdeling_key
INTO v_afdeling_key
FROM prs_afdeling a
WHERE a.prs_afdeling_upper = UPPER ('Perman')
AND UPPER (a.prs_afdeling_omschrijving) = UPPER ('Perman nieuw')
AND a.prs_afdeling_verwijder IS NULL;
INTO v_divisie_key
FROM prs_v_afdeling a
WHERE a.prs_afdeling_upper = UPPER (p_dvb_divisie) AND a.prs_afdeling_verwijder IS NULL AND a.niveau = 1;
EXCEPTION
WHEN NO_DATA_FOUND
THEN
v_afdeling_key := NULL;
BEGIN
v_divisie_key := NULL;
-- als we geen afdeling en divisie kunnen vinden dan plaatsen we de persoon in de afdeling perman nieuw
-- bestaat afdeling "perman nieuw"
SELECT a.prs_afdeling_key
INTO v_afdeling_key
FROM prs_afdeling a
WHERE a.prs_afdeling_upper = UPPER ('Perman')
AND UPPER (a.prs_afdeling_omschrijving) = UPPER ('Perman nieuw')
AND a.prs_afdeling_verwijder IS NULL;
EXCEPTION
WHEN NO_DATA_FOUND
THEN
v_afdeling_key := NULL;
END;
END;
IF v_afdeling_key IS NULL
THEN -- afdeling "Perman nieuw" bestaat niet
-- maak de afdeling " Perman nieuw" aan (dezelfde regio als Maarten Hanemaaijer)
-- vind afdeling van Maarten Hanemaaijer, perslid_key = 1042
-- benodigd zijn prs_afdeling_parent_key en prs_bedrijf_key
BEGIN
SELECT a.prs_bedrijf_key, a.prs_afdeling_parentkey
INTO v_mh_bedrijf_key, v_mh_afdeling_parentkey
FROM prs_perslid p, prs_afdeling a
WHERE p.prs_afdeling_key = a.prs_afdeling_key AND p.prs_perslid_key = 1042;
-- and p.prs_perslid_upper = upper ('Hanemaaijer')
-- and upper (p.prs_perslid_voornaam) = upper ('Maarten');
EXCEPTION
WHEN NO_DATA_FOUND
THEN
RETURN 0;
END;
-- maak de afdeling "Perman nieuw" aan
IF v_divisie_key IS NOT NULL
THEN -- nieuwe afdeling onder bekende divisie plaatsen
-- maak de afdeling aan
INSERT INTO prs_afdeling
(prs_afdeling_parentkey, prs_afdeling_naam, prs_afdeling_omschrijving, prs_bedrijf_key
)
VALUES (v_mh_afdeling_parentkey, 'Perman', 'Perman nieuw', v_mh_bedrijf_key
);
-- vindt de afdeling_key van de afdeling "Perman nieuw"
SELECT prs_afdeling_key
INTO v_afdeling_key
FROM prs_afdeling a
WHERE a.prs_afdeling_upper = UPPER ('Perman')
AND UPPER (a.prs_afdeling_omschrijving) = UPPER ('Perman nieuw');
VALUES (v_divisie_key, p_afd_code, p_afd_omschrijving, null
)
RETURNING prs_afdeling_key INTO v_afdeling_key;
END IF;
-- else -- afdeling bestaat: return v-afdeling_key.
END IF;
@@ -7177,7 +7167,7 @@ AS
BEGIN fac.registercustversion('CONN', 41); END;
/
BEGIN adm.systrackscript('$Workfile: conn.sql $', '$Revision: 159 $', 0); END;
BEGIN adm.systrackscript('$Workfile: conn.sql $', '$Revision: 160 $', 0); END;
/
COMMIT;