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

BAMG#67179 -- Royal BAM Group N.V. Migratie en kostensoorten

Browse Source 
svn path=/Customer/; revision=53506
This commit is contained in:
Arthur Egberink
2021-10-27 16:02:55 +00:00
parent b00c6680fc
commit 9a605878f1
2 changed files with 357 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

28
onces/BAMG/BAMG#67179.sql
View File

@@ -1,6 +1,6 @@
-- $Id$
--
-- Standaardmelding voorzien van de aanwijzing.
-- Migratie van meldingen en reserveringen vanuit MCS.
DEFINE thisfile = 'BAMG#67179.SQL'
DEFINE dbuser = '^BAMG'
@@ -16,6 +16,14 @@ SET DEFINE OFF
------ payload begin ------
BEGIN
adm.trydrop ('TABLE bamg_imp_res');
adm.trydrop ('TABLE bamg_imp_mld');
END;
/
CREATE TABLE bamg_imp_res
(
ReservationID VARCHAR2 (1000), -- res_rsv_ruimte_opmerking
@@ -34,6 +42,7 @@ CREATE TABLE bamg_imp_res
CREATE TABLE bamg_imp_mld
(
CallID VARCHAR2 (1000), -- mld_melding_externnr
Status VARCHAR2 (1000), -- mld_melding_status
Reference VARCHAR2 (1000), -- mld_melding_onderwerp
DateTimeReceived VARCHAR2 (1000), -- mld_melding_datum
Caller VARCHAR2 (1000), -- mld_melding.prs_perslid_key
@@ -161,7 +170,7 @@ BEGIN
--WHEN '' THEN 'BUN18 - A - Vergaderzaal 0.01'
--WHEN '' THEN 'BUN18 - A - Vergaderzaal Kolfruimte / be'
WHEN '' THEN 'BUN18 - B - Vergaderzaal B 2.12'
--WHEN '' THEN 'BUN18 - B - Vergaderzaal B.2.25'
WHEN 'BUN18 - B - Vergaderzaal B 225' THEN 'BUN18 - B - Vergaderzaal B.2.25'
WHEN 'BUN18 - B - Berlijn' THEN 'BUN18 - B - Vergaderzaal Berlijn'
--WHEN '' THEN 'BUN18 - B - Vergaderzaal Boardroom'
WHEN 'BUN18 - B - Brussel' THEN 'BUN18 - B - Vergaderzaal Brussel'
@@ -563,6 +572,7 @@ AS
-- De importvelden:
v_CallID VARCHAR2 (1000); -- mld_melding_externnr
v_Status VARCHAR2 (1000); -- mld_melding_status
v_Reference VARCHAR2 (1000); -- mld_melding_onderwerp
v_DateTimeReceived VARCHAR2 (1000); -- mld_melding_datum
v_Caller VARCHAR2 (1000); -- mld_melding.prs_perslid_key
@@ -595,7 +605,7 @@ BEGIN
-- Lees alle veldwaarden
fac.imp_getfield (v_newline, c_fielddelimitor, v_CallID);
fac.imp_getfield (v_newline, c_fielddelimitor, v_dummy);
fac.imp_getfield (v_newline, c_fielddelimitor, v_Status);
fac.imp_getfield (v_newline, c_fielddelimitor, v_dummy);
fac.imp_getfield (v_newline, c_fielddelimitor, v_Reference);
fac.imp_getfield (v_newline, c_fielddelimitor, v_dummy);
@@ -626,6 +636,7 @@ BEGIN
INSERT INTO bamg_imp_mld ( CallID,
Status,
Reference,
DateTimeReceived,
Caller,
@@ -636,6 +647,7 @@ BEGIN
Description,
DueDate)
VALUES (v_CallID,
v_Status,
v_Reference,
v_DateTimeReceived,
v_Caller,
@@ -761,7 +773,7 @@ BEGIN
v_perslid_key,
v_perslid_key,
fac.safe_to_date (rec.DueDate, 'DD-MM-YYYY HH24:MI'),
2,
DECODE (rec.Status, 'Nieuw', 2, 4),
3)
RETURNING mld_melding_key
INTO v_mld_key;
@@ -771,6 +783,14 @@ BEGIN
3,
SYSDATE,
'Melding gemigreerd');
IF rec.Status <> 'Nieuw'
THEN
fac.trackaction ('MLDACP',
v_mld_key,
3,
SYSDATE,
'Melding is geaccepteerd');
END IF;
EXCEPTION
WHEN OTHERS
THEN

333
onces/BAMG/BAMG#67179_1.sql Normal file
View File

@@ -0,0 +1,333 @@
-- $Id$
--
-- Toevoegen kostensoorten
DEFINE thisfile = 'BAMG#67179_1.SQL'
DEFINE dbuser = '^BAMG'
SET ECHO ON
SET DEFINE ON
COLUMN fcltlogfile NEW_VALUE fcltlogfile NOPRINT;
WHENEVER SQLERROR EXIT;
SELECT adm.scriptspoolfile('&dbuser', '&thisfile') AS fcltlogfile FROM DUAL;
WHENEVER SQLERROR CONTINUE;
SPOOL &fcltlogfile
SET DEFINE OFF
------ payload begin ------
INSERT INTO prs_kostensoort (prs_kostensoort_refcode, prs_kostensoort_oms, prs_kostensoortgrp_key) VALUES ('219999','Facility Manager',1);
INSERT INTO prs_kostensoort (prs_kostensoort_refcode, prs_kostensoort_oms, prs_kostensoortgrp_key) VALUES ('690200','Inhuur personeel',1);
INSERT INTO prs_kostensoort (prs_kostensoort_refcode, prs_kostensoort_oms, prs_kostensoortgrp_key) VALUES ('690500','Overige personeelskosten',1);
INSERT INTO prs_kostensoort (prs_kostensoort_refcode, prs_kostensoort_oms, prs_kostensoortgrp_key) VALUES ('691200','Kantinekosten',1);
INSERT INTO prs_kostensoort (prs_kostensoort_refcode, prs_kostensoort_oms, prs_kostensoortgrp_key) VALUES ('691400','Medische verzorging',1);
INSERT INTO prs_kostensoort (prs_kostensoort_refcode, prs_kostensoort_oms, prs_kostensoortgrp_key) VALUES ('692210','Overige Advieskosten',1);
INSERT INTO prs_kostensoort (prs_kostensoort_refcode, prs_kostensoort_oms, prs_kostensoortgrp_key) VALUES ('692400','Bankkosten',1);
INSERT INTO prs_kostensoort (prs_kostensoort_refcode, prs_kostensoort_oms, prs_kostensoortgrp_key) VALUES ('693000','Contributies en abonnementen',1);
INSERT INTO prs_kostensoort (prs_kostensoort_refcode, prs_kostensoort_oms, prs_kostensoortgrp_key) VALUES ('694200','Research & developmentkosten',1);
INSERT INTO prs_kostensoort (prs_kostensoort_refcode, prs_kostensoort_oms, prs_kostensoortgrp_key) VALUES ('695000','Kantoorbenodigdheden',1);
INSERT INTO prs_kostensoort (prs_kostensoort_refcode, prs_kostensoort_oms, prs_kostensoortgrp_key) VALUES ('695050','Telefonie',1);
INSERT INTO prs_kostensoort (prs_kostensoort_refcode, prs_kostensoort_oms, prs_kostensoortgrp_key) VALUES ('695100','Archivering',1);
INSERT INTO prs_kostensoort (prs_kostensoort_refcode, prs_kostensoort_oms, prs_kostensoortgrp_key) VALUES ('695200','Porto, koeriers en verzendkosten',1);
INSERT INTO prs_kostensoort (prs_kostensoort_refcode, prs_kostensoort_oms, prs_kostensoortgrp_key) VALUES ('695300','ICT: aanschaf, OH en support',1);
INSERT INTO prs_kostensoort (prs_kostensoort_refcode, prs_kostensoort_oms, prs_kostensoortgrp_key) VALUES ('695600','Afschrijving Materieel',1);
INSERT INTO prs_kostensoort (prs_kostensoort_refcode, prs_kostensoort_oms, prs_kostensoortgrp_key) VALUES ('695600','Afschrijvingkosten',1);
INSERT INTO prs_kostensoort (prs_kostensoort_refcode, prs_kostensoort_oms, prs_kostensoortgrp_key) VALUES ('696000','Huur onroerend goed',1);
INSERT INTO prs_kostensoort (prs_kostensoort_refcode, prs_kostensoort_oms, prs_kostensoortgrp_key) VALUES ('696010','Onderhoud Gebouwen',1);
INSERT INTO prs_kostensoort (prs_kostensoort_refcode, prs_kostensoort_oms, prs_kostensoortgrp_key) VALUES ('696020','Vastgoedbeheer',1);
INSERT INTO prs_kostensoort (prs_kostensoort_refcode, prs_kostensoort_oms, prs_kostensoortgrp_key) VALUES ('696030','Inrichting gebouwen',1);
INSERT INTO prs_kostensoort (prs_kostensoort_refcode, prs_kostensoort_oms, prs_kostensoortgrp_key) VALUES ('696040','Onderhoud terreinen',1);
INSERT INTO prs_kostensoort (prs_kostensoort_refcode, prs_kostensoort_oms, prs_kostensoortgrp_key) VALUES ('696060','Huismeester / Handyman',1);
INSERT INTO prs_kostensoort (prs_kostensoort_refcode, prs_kostensoort_oms, prs_kostensoortgrp_key) VALUES ('696100','Energie en water',1);
INSERT INTO prs_kostensoort (prs_kostensoort_refcode, prs_kostensoort_oms, prs_kostensoortgrp_key) VALUES ('696200','Beveiliging',1);
INSERT INTO prs_kostensoort (prs_kostensoort_refcode, prs_kostensoort_oms, prs_kostensoortgrp_key) VALUES ('696210','Receptie diensten',1);
INSERT INTO prs_kostensoort (prs_kostensoort_refcode, prs_kostensoort_oms, prs_kostensoortgrp_key) VALUES ('696220','Planten/bloemen',1);
INSERT INTO prs_kostensoort (prs_kostensoort_refcode, prs_kostensoort_oms, prs_kostensoortgrp_key) VALUES ('696230','Servicekosten huurcontract',1);
INSERT INTO prs_kostensoort (prs_kostensoort_refcode, prs_kostensoort_oms, prs_kostensoortgrp_key) VALUES ('696300','Belasting onroerend goed',1);
INSERT INTO prs_kostensoort (prs_kostensoort_refcode, prs_kostensoort_oms, prs_kostensoortgrp_key) VALUES ('696400','Verzekering gebouwen',1);
INSERT INTO prs_kostensoort (prs_kostensoort_refcode, prs_kostensoort_oms, prs_kostensoortgrp_key) VALUES ('696500','Schoonmaakkosten onroerend goed',1);
INSERT INTO prs_kostensoort (prs_kostensoort_refcode, prs_kostensoort_oms, prs_kostensoortgrp_key) VALUES ('696600','Overige kosten onroerend goed',1);
INSERT INTO prs_kostensoort (prs_kostensoort_refcode, prs_kostensoort_oms, prs_kostensoortgrp_key) VALUES ('697600','Vuilafvoer',1);
INSERT INTO prs_kostensoort (prs_kostensoort_refcode, prs_kostensoort_oms, prs_kostensoortgrp_key) VALUES ('Nieuw','Banqueting',1);
INSERT INTO prs_kostensoort (prs_kostensoort_refcode, prs_kostensoort_oms, prs_kostensoortgrp_key) VALUES ('Nieuw','Facilitaire softwarepakketten (MCS, SafeGuard, Vecos, CMS)',1);
INSERT INTO prs_kostensoort (prs_kostensoort_refcode, prs_kostensoort_oms, prs_kostensoortgrp_key) VALUES ('Nieuw','Gevelglas binnen/separatieglas glasbewassing',1);
INSERT INTO prs_kostensoort (prs_kostensoort_refcode, prs_kostensoort_oms, prs_kostensoortgrp_key) VALUES ('Nieuw','Koffieautomaten incl. onderhoud en verbruik',1);
INSERT INTO prs_kostensoort (prs_kostensoort_refcode, prs_kostensoort_oms, prs_kostensoortgrp_key) VALUES ('Nieuw','Management/coordinatie soft-service leverancier',1);
INSERT INTO prs_kostensoort (prs_kostensoort_refcode, prs_kostensoort_oms, prs_kostensoortgrp_key) VALUES ('Nieuw','Ongediertebestrijding',1);
INSERT INTO prs_kostensoort (prs_kostensoort_refcode, prs_kostensoort_oms, prs_kostensoortgrp_key) VALUES ('Nieuw','Sanitaire artikelen',1);
INSERT INTO prs_kostensoort (prs_kostensoort_refcode, prs_kostensoort_oms, prs_kostensoortgrp_key) VALUES ('Nieuw','Servicedesken',1);
INSERT INTO prs_kostensoort (prs_kostensoort_refcode, prs_kostensoort_oms, prs_kostensoortgrp_key) VALUES ('Nieuw','Vastgoedondersteuning (nog zonder AK personeel)',1);
INSERT INTO prs_kostensoort (prs_kostensoort_refcode, prs_kostensoort_oms, prs_kostensoortgrp_key) VALUES ('Nieuw','Waterkoelers incl. onderhoud en verbruik',1);
DECLARE
CURSOR c IS
SELECT 1 stdmelding_key, 696200 kostensoort_refcode FROM DUAL
UNION ALL
SELECT 2, 696200 FROM DUAL
UNION ALL
SELECT 5, 691200 FROM DUAL
UNION ALL
SELECT 6, 691200 FROM DUAL
UNION ALL
SELECT 7, 691200 FROM DUAL
UNION ALL
SELECT 8, 691200 FROM DUAL
UNION ALL
SELECT 9, 696220 FROM DUAL
UNION ALL
SELECT 10, 696040 FROM DUAL
UNION ALL
SELECT 11, 696040 FROM DUAL
UNION ALL
SELECT 12, 695000 FROM DUAL
UNION ALL
SELECT 13, 695000 FROM DUAL
UNION ALL
SELECT 14, 696600 FROM DUAL
UNION ALL
SELECT 15, 695000 FROM DUAL
UNION ALL
SELECT 16, 695000 FROM DUAL
UNION ALL
SELECT 17, 695300 FROM DUAL
UNION ALL
SELECT 18, 695000 FROM DUAL
UNION ALL
SELECT 19, 696010 FROM DUAL
UNION ALL
SELECT 20, 695100 FROM DUAL
UNION ALL
SELECT 21, 695000 FROM DUAL
UNION ALL
SELECT 22, 695000 FROM DUAL
UNION ALL
SELECT 23, 295200 FROM DUAL
UNION ALL
SELECT 26, 696210 FROM DUAL
UNION ALL
SELECT 27, 696210 FROM DUAL
UNION ALL
SELECT 28, 697600 FROM DUAL
UNION ALL
SELECT 29, 696500 FROM DUAL
UNION ALL
SELECT 30, 696500 FROM DUAL
UNION ALL
SELECT 31, 696500 FROM DUAL
UNION ALL
SELECT 32, 696500 FROM DUAL
UNION ALL
SELECT 33, 697600 FROM DUAL
UNION ALL
SELECT 34, 697600 FROM DUAL
UNION ALL
SELECT 35, 697600 FROM DUAL
UNION ALL
SELECT 36, 697600 FROM DUAL
UNION ALL
SELECT 37, 697600 FROM DUAL
UNION ALL
SELECT 39, 696010 FROM DUAL
UNION ALL
SELECT 40, 696200 FROM DUAL
UNION ALL
SELECT 41, 696200 FROM DUAL
UNION ALL
SELECT 42, 696200 FROM DUAL
UNION ALL
SELECT 43, 696200 FROM DUAL
UNION ALL
SELECT 45, 696600 FROM DUAL
UNION ALL
SELECT 46, 696010 FROM DUAL
UNION ALL
SELECT 47, 696200 FROM DUAL
UNION ALL
SELECT 48, 696200 FROM DUAL
UNION ALL
SELECT 49, 696500 FROM DUAL
UNION ALL
SELECT 50, 696500 FROM DUAL
UNION ALL
SELECT 52, 696100 FROM DUAL
UNION ALL
SELECT 53, 696500 FROM DUAL
UNION ALL
SELECT 54, 696060 FROM DUAL
UNION ALL
SELECT 55, 691200 FROM DUAL
UNION ALL
SELECT 57, 696220 FROM DUAL
UNION ALL
SELECT 58, 696040 FROM DUAL
UNION ALL
SELECT 59, 696600 FROM DUAL
UNION ALL
SELECT 60, 691400 FROM DUAL
UNION ALL
SELECT 61, 295200 FROM DUAL
UNION ALL
SELECT 62, 696500 FROM DUAL
UNION ALL
SELECT 63, 696600 FROM DUAL
UNION ALL
SELECT 64, 696500 FROM DUAL
UNION ALL
SELECT 65, 691200 FROM DUAL
UNION ALL
SELECT 161, 691200 FROM DUAL
UNION ALL
SELECT 67, 696200 FROM DUAL
UNION ALL
SELECT 68, 691200 FROM DUAL
UNION ALL
SELECT 69, 691200 FROM DUAL
UNION ALL
SELECT 70, 691200 FROM DUAL
UNION ALL
SELECT 71, 691200 FROM DUAL
UNION ALL
SELECT 72, 696010 FROM DUAL
UNION ALL
SELECT 73, 696010 FROM DUAL
UNION ALL
SELECT 74, 696010 FROM DUAL
UNION ALL
SELECT 75, 696010 FROM DUAL
UNION ALL
SELECT 76, 696010 FROM DUAL
UNION ALL
SELECT 77, 696010 FROM DUAL
UNION ALL
SELECT 78, 696010 FROM DUAL
UNION ALL
SELECT 79, 696040 FROM DUAL
UNION ALL
SELECT 80, 696010 FROM DUAL
UNION ALL
SELECT 81, 696010 FROM DUAL
UNION ALL
SELECT 82, 696010 FROM DUAL
UNION ALL
SELECT 83, 696040 FROM DUAL
UNION ALL
SELECT 84, 696220 FROM DUAL
UNION ALL
SELECT 85, 696040 FROM DUAL
UNION ALL
SELECT 86, 695000 FROM DUAL
UNION ALL
SELECT 87, 691400 FROM DUAL
UNION ALL
SELECT 88, 695000 FROM DUAL
UNION ALL
SELECT 89, 696600 FROM DUAL
UNION ALL
SELECT 90, 695000 FROM DUAL
UNION ALL
SELECT 91, 695000 FROM DUAL
UNION ALL
SELECT 93, 695000 FROM DUAL
UNION ALL
SELECT 94, 696500 FROM DUAL
UNION ALL
SELECT 95, 695050 FROM DUAL
UNION ALL
SELECT 96, 696210 FROM DUAL
UNION ALL
SELECT 97, 696200 FROM DUAL
UNION ALL
SELECT 98, 697600 FROM DUAL
UNION ALL
SELECT 99, 696500 FROM DUAL
UNION ALL
SELECT 100, 696500 FROM DUAL
UNION ALL
SELECT 101, 696500 FROM DUAL
UNION ALL
SELECT 102, 696500 FROM DUAL
UNION ALL
SELECT 103, 696200 FROM DUAL
UNION ALL
SELECT 104, 691400 FROM DUAL
UNION ALL
SELECT 105, 696100 FROM DUAL
UNION ALL
SELECT 106, 696100 FROM DUAL
UNION ALL
SELECT 107, 695300 FROM DUAL
UNION ALL
SELECT 108, 696010 FROM DUAL
UNION ALL
SELECT 109, 696010 FROM DUAL
UNION ALL
SELECT 110, 696010 FROM DUAL
UNION ALL
SELECT 111, 696010 FROM DUAL
UNION ALL
SELECT 112, 696010 FROM DUAL
UNION ALL
SELECT 113, 696010 FROM DUAL
UNION ALL
SELECT 114, 696200 FROM DUAL
UNION ALL
SELECT 115, 696010 FROM DUAL
UNION ALL
SELECT 116, 696010 FROM DUAL
UNION ALL
SELECT 117, 696010 FROM DUAL
UNION ALL
SELECT 118, 696600 FROM DUAL;
v_kostensoort_key NUMBER;
v_errormsg VARCHAR2 (1000);
v_errorhint VARCHAR2 (1000);
oracle_err_num NUMBER;
oracle_err_mes VARCHAR2 (200);
v_aanduiding VARCHAR2 (500);
BEGIN
DELETE imp_log WHERE imp_log_applicatie = 'Import kostensoorten';
FOR rec IN c
LOOP
BEGIN
v_aanduiding := rec.stdmelding_key || '-' || rec.kostensoort_refcode;
v_errorhint := 'Bepalen kostensoort';
SELECT prs_kostensoort_key
INTO v_kostensoort_key
FROM prs_kostensoort
WHERE prs_kostensoort_refcode = TO_CHAR(rec.kostensoort_refcode);
v_errorhint := 'Aanpassen stdmelding';
UPDATE mld_stdmelding
SET prs_kostensoort_key = v_kostensoort_key
WHERE mld_stdmelding_key = rec.stdmelding_key;
EXCEPTION
WHEN OTHERS
THEN
oracle_err_num := SQLCODE;
oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
v_errormsg :=
'error ' || oracle_err_num || '/' || oracle_err_mes;
fac.writelog ('Import kostensoorten',
'E',
v_errormsg,
v_errorhint || '-' || v_aanduiding);
END;
END LOOP;
END;
/
------ payload end ------
SET DEFINE OFF
BEGIN adm.systrackscriptId ('$Id$', 1); END;
/
COMMIT;
SET ECHO OFF
SPOOL OFF
SET DEFINE ON
PROMPT Logfile of this upgrade is: &fcltlogfile