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

CAPG#29847 Upgrade naar 5.4.2 (prs_v_aanwezig(perlid)werkplek views verwijderd)

Browse Source 
svn path=/Customer/trunk/; revision=22145
This commit is contained in:
Peter Koerhuis
2014-07-16 10:05:20 +00:00
parent 0605f9bbd7
commit 57a0614bcc
1 changed files with 48 additions and 142 deletions
Download Patch File Download Diff File Expand all files Collapse all files

190
CAPG/Sap2FCLT/Fip_perslid_sap.sql
View File

@@ -1,4 +1,4 @@
-- Versie 2.4
-- $Id$
SET ECHO ON
SET HEADING ON
@@ -11,13 +11,12 @@ SET FEEDBACK ON
set echo on
--connect cgey/c
set autocommit off
show user
update fip_perslid_sap
set fip_error = IMPORTROW
,fip_error2 = ''
,fip_error2 = ''
,ALG_LOCATIE_CODE = LTRIM(RTRIM(ALG_LOCATIE_CODE))
,ALG_GEBOUW_CODE = LTRIM(RTRIM(ALG_GEBOUW_CODE))
,ALG_RUIMTE_NR = LTRIM(RTRIM(ALG_RUIMTE_NR))
@@ -44,11 +43,11 @@ DECLARE
SELECT *
FROM fip_perslid_sap ps
WHERE not exists (select 'x'
from prs_perslid p
where upper(ltrim(rtrim(ps.prs_perslid_nr))) = upper(ltrim(rtrim(p.prs_perslid_nr)))
and ps.uitdienst = 'UD'
and p.prs_perslid_verwijder is not null
and rownum = 1)
from prs_perslid p
where upper(ltrim(rtrim(ps.prs_perslid_nr))) = upper(ltrim(rtrim(p.prs_perslid_nr)))
and ps.uitdienst = 'UD'
and p.prs_perslid_verwijder is not null
and rownum = 1)
ORDER BY ps.fip_perslid_sap_key;
rec c1%rowtype;
teller integer;
@@ -245,85 +244,25 @@ commit;
ruimte_nr := SUBSTR(rec.KAMERNUMMER, 6, 2);
END IF;
-- errorMsg := 'SELECT alg_ruimte_key FROM alg_v_allonrgoed_gegevens';
-- errorMsg := errorMsg || ' WHERE alg_gebouw_code = ' || gebouw_code || ' AND alg_verdieping_code = ' || verdieping_code || ' AND alg_ruimte_nr = ' || ruimte_nr;
--IF upper(SUBSTR(rec.KAMERNUMMER, 1, 1)) in ('1','2','3','4','5','6','7','8','9','G','V') THEN
-- -- Daltonlaan 100, 200 etc.
-- gebouw_code := upper(SUBSTR(rec.KAMERNUMMER, 1, 1));
-- verdieping_code := SUBSTR(rec.KAMERNUMMER, 2, 1);
-- ruimte_nr := SUBSTR(rec.KAMERNUMMER, 3, 2);
--END IF;
--IF SUBSTR(rec.KAMERNUMMER, 1, 1) = '0' THEN
-- -- Fultonbaan
-- gebouw_code := '10';
-- verdieping_code := SUBSTR(rec.KAMERNUMMER, 2, 1);
-- ruimte_nr := SUBSTR(rec.KAMERNUMMER, 3, 2);
--END IF;
--IF upper(SUBSTR(rec.KAMERNUMMER, 1, 1)) in ('A','B','C','D') AND (length(rec.KAMERNUMMER) = 4) THEN
-- -- Varrolaan
-- gebouw_code := '11' || upper(SUBSTR(rec.KAMERNUMMER, 1, 1));
-- verdieping_code := SUBSTR(rec.KAMERNUMMER, 2, 1);
-- ruimte_nr := SUBSTR(rec.KAMERNUMMER, 3, 2);
--END IF;
--IF upper(SUBSTR(rec.KAMERNUMMER, 1, 1)) = 'E' THEN
-- -- Euclideslaan
-- gebouw_code := '12';
-- verdieping_code := SUBSTR(rec.KAMERNUMMER, 2, 1);
-- ruimte_nr := SUBSTR(rec.KAMERNUMMER, 3, 2);
--END IF;
--IF upper(SUBSTR(rec.KAMERNUMMER, 1, 2)) in ('A0','B0','C0') AND (length(rec.KAMERNUMMER) = 5) THEN
-- -- Euclideslaan
-- gebouw_code := upper(SUBSTR(rec.KAMERNUMMER, 1, 1));
-- verdieping_code := SUBSTR(rec.KAMERNUMMER, 3, 1);
-- ruimte_nr := SUBSTR(rec.KAMERNUMMER, 4, 2);
--END IF;
--IF upper(SUBSTR(rec.KAMERNUMMER, 1, 2)) in ('M0','N0') THEN
-- -- Gebouw Midden, gebouw Noord
-- gebouw_code := upper(SUBSTR(rec.KAMERNUMMER, 1, 1));
-- verdieping_code := SUBSTR(rec.KAMERNUMMER, 3, 1);
-- ruimte_nr := SUBSTR(rec.KAMERNUMMER, 4, 2);
--END IF;
--IF upper(SUBSTR(rec.KAMERNUMMER, 1, 1)) = 'Z' THEN
-- -- Zoetemeer, Werklinq
-- gebouw_code := 'W';
-- verdieping_code := SUBSTR(rec.KAMERNUMMER, 2, 1);
-- ruimte_nr := SUBSTR(rec.KAMERNUMMER, 3, 2);
--END IF;
--IF upper(SUBSTR(rec.KAMERNUMMER, 1, 2)) = 'Z0' THEN
-- -- Gebouw Zuid
-- gebouw_code := upper(SUBSTR(rec.KAMERNUMMER, 1, 1));
-- verdieping_code := SUBSTR(rec.KAMERNUMMER, 3, 1);
-- ruimte_nr := SUBSTR(rec.KAMERNUMMER, 4, 2);
--END IF;
SELECT count(g.alg_ruimte_key)
INTO ncount
FROM alg_v_allonrgoed_gegevens g, alg_ruimte r
WHERE g.alg_gebouw_code = gebouw_code
AND g.alg_verdieping_code = verdieping_code
AND g.alg_ruimte_nr = ruimte_nr
AND r.alg_ruimte_key = g.alg_ruimte_key
AND r.alg_ruimte_verwijder is null;
AND r.alg_ruimte_key = g.alg_ruimte_key
AND r.alg_ruimte_verwijder is null;
IF ncount = 1 THEN
SELECT g.alg_ruimte_key
INTO ruimte_key_new
FROM alg_v_allonrgoed_gegevens g, alg_ruimte r
WHERE g.alg_gebouw_code = gebouw_code
AND g.alg_verdieping_code = verdieping_code
AND g.alg_ruimte_nr = ruimte_nr
AND r.alg_ruimte_key = g.alg_ruimte_key
AND r.alg_ruimte_verwijder is null;
SELECT g.alg_ruimte_key
INTO ruimte_key_new
FROM alg_v_allonrgoed_gegevens g, alg_ruimte r
WHERE g.alg_gebouw_code = gebouw_code
AND g.alg_verdieping_code = verdieping_code
AND g.alg_ruimte_nr = ruimte_nr
AND r.alg_ruimte_key = g.alg_ruimte_key
AND r.alg_ruimte_verwijder is null;
ELSE
@@ -358,20 +297,20 @@ commit;
-- Heeft de te wijzigen persoon een werkplek?
SELECT count(*)
INTO nCount
FROM prs_v_aanwezigwerkplek
FROM prs_werkplek
WHERE prs_werkplek_key in (
SELECT prs_werkplek_key
from prs_v_aanwezigperslidwerkplek
from prs_perslidwerkplek
where prs_perslid_key = perslid_key);
IF nCount = 1 THEN
-- Persoon is gekoppeld aan 1 werkplek
SELECT prs_werkplek_key, prs_alg_ruimte_key
INTO werkplek_key_old, ruimte_key_old
FROM prs_v_aanwezigwerkplek
FROM prs_werkplek
WHERE prs_werkplek_key in (
SELECT prs_werkplek_key
from prs_v_aanwezigperslidwerkplek
from prs_perslidwerkplek
where prs_perslid_key = perslid_key)
AND prs_werkplek_module = 'PRR';
ELSE
@@ -383,10 +322,10 @@ commit;
-- Centrale vraag: moet er een nieuwe werkplek aangemaakt worden?
SELECT count(*)
INTO nCount
FROM prs_v_aanwezigwerkplek
FROM prs_werkplek
WHERE prs_werkplek_key in (
SELECT A.prs_werkplek_key
from prs_v_aanwezigperslidwerkplek A, prs_v_aanwezigwerkplek B
from prs_perslidwerkplek A, prs_werkplek B
where A.prs_perslid_key = perslid_key
and A.prs_werkplek_key = B.prs_werkplek_key
and B.prs_alg_ruimte_key = ruimte_key_new)
@@ -414,12 +353,12 @@ commit;
IF (ruimte_key_old <> ruimte_key_new) AND (werkplek_key_old > 0) THEN
DELETE
FROM prs_v_aanwezigperslidwerkplek
FROM prs_perslidwerkplek
WHERE prs_perslid_key = perslid_key
AND prs_werkplek_key = werkplek_key_old;
DELETE
FROM prs_v_aanwezigwerkplek
FROM prs_werkplek
WHERE prs_werkplek_key = werkplek_key_old;
END IF;
@@ -474,7 +413,6 @@ commit;
,PRS_PERSLID_NR
,PRS_PERSLID_TITEL
,PRS_PERSLID_OSLOGIN
-- ,PRS_PERSLID_WACHTWOORD
,PRS_PERSLID_EMAIL
)
values
@@ -490,7 +428,6 @@ commit;
,rec.PRS_PERSLID_NR
,rec.PRS_PERSLID_TITEL
,rec.PRS_PERSLID_OSLOGIN
-- ,rec.PRS_PERSLID_WACHTWOORD
,rec.PERSLID_EMAIL
);
@@ -523,7 +460,6 @@ commit;
,PRS_PERSLID_NR = rec.PRS_PERSLID_NR
,PRS_PERSLID_TITEL = rec.PRS_PERSLID_TITEL
,PRS_PERSLID_OSLOGIN = rec.PRS_PERSLID_OSLOGIN
-- ,PRS_PERSLID_WACHTWOORD = PRS_PERSLID_WACHTWOORD
,PRS_PERSLID_EMAIL = rec.PERSLID_EMAIL
where prs_perslid_key = perslid_key;
@@ -572,35 +508,35 @@ commit;
THEN
SELECT count(*)
INTO nCount
FROM prs_v_aanwezigwerkplek
WHERE PRS_ALG_RUIMTE_KEY = ruimte_key_new;
INTO nCount
FROM prs_werkplek
WHERE PRS_ALG_RUIMTE_KEY = ruimte_key_new;
IF nCount = 0 THEN
WERKPLEK_VOLGNR := 1;
ELSE
IF nCount = 0 THEN
WERKPLEK_VOLGNR := 1;
ELSE
SELECT max(prs_werkplek_volgnr) + 1
INTO WERKPLEK_VOLGNR
FROM prs_v_aanwezigwerkplek
WHERE PRS_ALG_RUIMTE_KEY = ruimte_key_new;
END IF;
FROM prs_werkplek
WHERE PRS_ALG_RUIMTE_KEY = ruimte_key_new;
END IF;
insert into PRS_WERKPLEK
(PRS_WERKPLEK_MODULE
,PRS_WERKPLEK_VOLGNR
,PRS_WERKPLEK_OMSCHRIJVING
,PRS_ALG_RUIMTE_KEY
)
values
('PRR'
,WERKPLEK_VOLGNR
,SUBSTR(rec.KAMERNUMMER,1,30)
,ruimte_key_new
);
(PRS_WERKPLEK_MODULE
,PRS_WERKPLEK_VOLGNR
,PRS_WERKPLEK_OMSCHRIJVING
,PRS_ALG_RUIMTE_KEY
)
values
('PRR'
,WERKPLEK_VOLGNR
,SUBSTR(rec.KAMERNUMMER,1,30)
,ruimte_key_new
);
SELECT max(prs_werkplek_key)
INTO werkplek_key
FROM prs_werkplek;
SELECT max(prs_werkplek_key)
INTO werkplek_key
FROM prs_werkplek;
insert into PRS_PERSLIDWERKPLEK
(prs_perslid_key
@@ -721,33 +657,3 @@ commit;
commit;
END;
/
SET ECHO OFF
SET HEADING OFF
SET LINESIZE 2048
SET TERMOUT OFF
SET VERIFY OFF
SET pagesize 0
SET FEEDBACK OFF
--SPOOL &1\sap.log APP
SPOOL D:\Websites\Facilitor\sapkoppeling\sapbestanden\sap.log
SELECT TO_CHAR(sysdate, 'YYYY-MM-DD HH:MM') AS
FROM DUAL;
SELECT fip_error
FROM fip_perslid_sap
ORDER BY fip_perslid_sap_key;
--SELECT prs_perslid_naam
--FROM prs_perslid
--WHERE prs_perslid_key > 123892;
SPOOL OFF
commit;
exit;