333 lines
14 KiB
SQL
333 lines
14 KiB
SQL
-- $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 |