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

STAM#38652 ivm wijzigingen in de vastgoed structuur mapping pers import aanpassing nodig.

Browse Source 
svn path=/Customer/trunk/; revision=31865
This commit is contained in:
Suzan Wiegerinck
2016-12-07 08:52:52 +00:00
parent 92af48cb43
commit 2337e2b555
1 changed files with 20 additions and 24 deletions
Download Patch File Download Diff File Expand all files Collapse all files

44
STAM/STAM.sql
View File

@@ -1,7 +1,6 @@
/* Formatted on 5-9-2016 15:12:52 (QP5 v5.136.908.31019) */
-- Script containing customer specific sql for UWVA (UWV Amsterdam)
-- related to BROC/SCH/FACTUUR.
-- Script containing customer specific sql for STAM (Stamicarbon)
--
-- (c) 2005-2012 SG|Facilitor bv
-- $Revision$
@@ -140,8 +139,7 @@ AS
FROM ALG_RUIMTE R, ALG_ONRGOEDKENMERK K
WHERE K.ALG_ONRGOED_KEY = R.ALG_RUIMTE_KEY;
CREATE OR REPLACE PROCEDURE stam_import_perslid (p_import_key IN NUMBER)
CREATE OR REPLACE PROCEDURE STAM.stam_import_perslid (p_import_key IN NUMBER)
AS
oracle_err_num NUMBER;
oracle_err_mes VARCHAR2 (200);
@@ -163,25 +161,27 @@ BEGIN
--- locatie vanuit deze import is altijd Sittard
UPDATE fac_imp_perslid p
SET alg_locatie_code = 'NL-STD';
SET alg_locatie_code = 'NLSTD';
-- vanuit kenmerk1 moet het gebouw en de verdieping bepaald worden
UPDATE fac_imp_perslid p
SET alg_gebouw_code =
DECODE ( (SUBSTR (P.PRS_KENMERK1, 1, 4)),
'1.1.', 'MERC-BOX-L',
'1.2.', 'MERC-BOX-M',
'1.3.', 'MERC-BOX-R',
'2.1.', 'MERC-BEA',
'2.2.', 'MERC-TWR',
DECODE ( (SUBSTR (P.PRS_KENMERK1, 1, 2)),
'-1', 'Mercator 3',
'0.', 'Mercator 3',
'1.', 'Mercator 3',
'2.', 'Mercator 3',
'7.', 'Mercator 3',
'A.', 'Mercator 3',
''),
alg_verdieping_volgnr =
DECODE ( (SUBSTR (P.PRS_KENMERK1, 1, 4)),
'1.1.', '1',
'1.2.', '1',
'1.3.', '1',
'2.1.', '2',
'2.2.', '2',
DECODE ( (SUBSTR (P.PRS_KENMERK1, 1, 2)),
'-1', '1',
'0.', '2',
'1.', '3',
'2.', '5',
'7.', '10',
'A.', '4',
'');
COMMIT;
@@ -189,23 +189,21 @@ BEGIN
-- als gebouw en verdieping niet bepaald kunnen worden op basis van kenmerk1, dan betreft het buitenlandse mdw, of mdw van de moedermaatschappij. Deze komen op een dummy plek 'Unknown'
UPDATE fac_imp_perslid p
SET alg_ruimte_nr = 'Unknown',
alg_gebouw_code = 'MERC-TWR',
alg_verdieping_volgnr = 0
alg_gebouw_code = 'Mercator 3',
alg_verdieping_volgnr = 2
WHERE alg_gebouw_code IS NULL;
-- de laatste 2 posities van de waarde uit kenmerk1 bepalen het werkpleknummer voor alle medewerkers waar een gebouw en verdieping bepaald kon worden
-- de laatste positie van de waarde uit kenmerk1 bepalen het werkpleknummer voor alle medewerkers waar een gebouw en verdieping bepaald kon worden
UPDATE fac_imp_perslid p
SET prs_werkplek_volgnr = SUBSTR (P.PRS_KENMERK1, 8, 1)
WHERE alg_ruimte_nr IS NULL;
--- de eerste 6 posities van de waarde uit kenmerk1 bepalen het ruimtenr voor alle medewerkers waar een gebouw en verdieping bepaald kon worden
UPDATE fac_imp_perslid p
SET alg_ruimte_nr = SUBSTR (P.PRS_KENMERK1, 1, 6)
WHERE alg_ruimte_nr IS NULL;
COMMIT;
EXCEPTION
WHEN OTHERS
THEN
@@ -216,11 +214,9 @@ EXCEPTION
'E',
v_errormsg,
v_errorhint);
END stam_import_perslid;
/
CREATE OR REPLACE PROCEDURE stam_update_perslid (p_import_key IN NUMBER)
IS
-- Alle personen verwijderen die niet meer in import bestand voorkomen.