Files
Customer/CONN/Once/conn450to460.sql
Richard Derks d0707e0475 conn#665
svn path=/Customer/trunk/; revision=12962
2006-04-18 10:28:28 +00:00

281 lines
10 KiB
SQL

SPOOL xconn450to460.lst
--//////////////////////////////////////////////////////////////////////////////////////// DIJK#94
-- Definieer de disciplines voor FGII, zoals aangegeven door MHA per e-mail 14-11-2005
--**Disciplines Gebouw
--v Bouwkundig
--v Basis
--x Contour
--v Gebruiksvergunning
--v Ontruiming
--**Disciplines Terrein:
--v Topografie/ situatie
--v Kadastraal
--v Hinderwet
--= Gebruikvergunning
INSERT INTO ins_tab_discipline (ins_discipline_module, ins_discipline_omschrijving, ins_discipline_min_level)
VALUES ('INS', 'Bouwkundig', 1);
INSERT INTO ins_disc_params (ins_discipline_key, ins_disc_params_cadlayers, ins_disc_params_type)
SELECT ins_discipline_key, '{BOUWK\|.*}|{BOUWK!.}', 1
FROM ins_discipline
WHERE ins_discipline_omschrijving='Bouwkundig';
INSERT INTO ins_tab_discipline (ins_discipline_module, ins_discipline_omschrijving, ins_discipline_min_level)
VALUES ('INS', 'Gebruiksvergunning', 1);
INSERT INTO ins_disc_params (ins_discipline_key, ins_disc_params_cadlayers, ins_disc_params_type)
SELECT ins_discipline_key, '{GEBRU\|.*}|{GEBRU!.}', 3
FROM ins_discipline
WHERE ins_discipline_omschrijving='Gebruiksvergunning';
INSERT INTO ins_tab_discipline (ins_discipline_module, ins_discipline_omschrijving, ins_discipline_min_level)
VALUES ('INS', 'Ontruiming', 1);
INSERT INTO ins_disc_params (ins_discipline_key, ins_disc_params_cadlayers, ins_disc_params_type)
SELECT ins_discipline_key, '{ONTRU\|.*}|{ONTRU!.}', 1
FROM ins_discipline
WHERE ins_discipline_omschrijving='Ontruiming';
INSERT INTO ins_tab_discipline (ins_discipline_module, ins_discipline_omschrijving, ins_discipline_min_level)
VALUES ('INS', 'Basis', 1);
INSERT INTO ins_disc_params (ins_discipline_key, ins_disc_params_cadlayers, ins_disc_params_type)
SELECT ins_discipline_key, '{BASIS\|.*}|{BASIS!.}', 1
FROM ins_discipline
WHERE ins_discipline_omschrijving='Basis';
INSERT INTO ins_tab_discipline (ins_discipline_module, ins_discipline_omschrijving, ins_discipline_min_level)
VALUES ('INS', 'Kadastraal', 1);
INSERT INTO ins_disc_params (ins_discipline_key, ins_disc_params_cadlayers, ins_disc_params_type)
SELECT ins_discipline_key, '{KADAS\|.*}|{KADAS!.}', 2
FROM ins_discipline
WHERE ins_discipline_omschrijving='Kadastraal';
INSERT INTO ins_tab_discipline (ins_discipline_module, ins_discipline_omschrijving, ins_discipline_min_level)
VALUES ('INS', 'Hinderwet', 1);
INSERT INTO ins_disc_params (ins_discipline_key, ins_disc_params_cadlayers, ins_disc_params_type)
SELECT ins_discipline_key, '{HINDE\|.*}|{HINDE!.}', 2
FROM ins_discipline
WHERE ins_discipline_omschrijving='Hinderwet';
INSERT INTO ins_tab_discipline (ins_discipline_module, ins_discipline_omschrijving, ins_discipline_min_level)
VALUES ('INS', 'Topografie/situatie', 1);
INSERT INTO ins_disc_params (ins_discipline_key, ins_disc_params_cadlayers, ins_disc_params_type)
SELECT ins_discipline_key, '{TOPOG\|.*}|{TOPOG!.}', 2
FROM ins_discipline
WHERE ins_discipline_omschrijving='Topografie/situatie';
COMMIT;
--//////////////////////////////////////////////////////////////////////////////////////// FSN#1251
-- de default thema's werken niet goed voor conn
delete from cad_thema where cad_thema_view='cad_v_thema_srtruimte';
delete from cad_thema where cad_thema_view='cad_v_thema_vloerafwerking';
INSERT INTO cad_thema (cad_thema_omschrijving, cad_legenda_key, cad_thema_view, cad_thema_type, fac_functie_key)
SELECT 'Ruimtefunctie', 1, 'CONN_V_THEMA_RUIMTEFUNCTIE', 1, fac_functie_key
FROM fac_functie
WHERE fac_functie_code = 'WEB_ALGUSE';
INSERT INTO cad_thema (cad_thema_omschrijving, cad_legenda_key, cad_thema_view, cad_thema_type, fac_functie_key)
SELECT 'Huurder', 1, 'CONN_V_THEMA_HUURDER', 1, fac_functie_key
FROM fac_functie
WHERE fac_functie_code = 'WEB_ALGUSE';
INSERT INTO cad_thema (cad_thema_omschrijving, cad_legenda_key, cad_thema_view, cad_thema_type, fac_functie_key)
SELECT 'Huurder', 1, 'CONN_V_THEMA_TERHUURDER', 2, fac_functie_key
FROM fac_functie
WHERE fac_functie_code = 'WEB_ALGUSE';
INSERT INTO cad_thema (cad_thema_omschrijving, cad_legenda_key, cad_thema_view, cad_thema_type, fac_functie_key)
SELECT 'Vloersoort', 1, 'CONN_V_THEMA_SCHVLOERSOORT', 1, fac_functie_key
FROM fac_functie
WHERE fac_functie_code = 'WEB_SCHBOF';
INSERT INTO cad_thema (cad_thema_omschrijving, cad_legenda_key, cad_thema_view, cad_thema_type, fac_functie_key)
SELECT 'Schoonmaak frequentie', 1, 'CONN_V_THEMA_SCHFREQUENTIE', 1, fac_functie_key
FROM fac_functie
WHERE fac_functie_code = 'WEB_SCHBOF';
INSERT INTO cad_thema (cad_thema_omschrijving, cad_legenda_key, cad_thema_view, cad_thema_type, fac_functie_key)
SELECT 'Schoonmaak open/dicht', 1, 'CONN_V_THEMA_SCHOPENDICHT', 1, fac_functie_key
FROM fac_functie
WHERE fac_functie_code = 'WEB_SCHBOF';
-- CONN#602
DROP VIEW CONN_RAP_CONTRACTGEGEVENS;
DROP VIEW CONN_RAP_EXTRA_LEGINGEN;
DROP VIEW CONN_V_EXPORT_CT_;
DROP VIEW CONN_V_EXPORT_CT;
DROP VIEW CONN_V_EXPORT_OPDRACHT_LG_;
DROP VIEW CONN_V_EXPORT_OPDRACHT_LG;
ALTER TRIGGER conn_prs_kenmerklink_d DISABLE;
delete from prs_kenmerklink where prs_kenmerk_key in (1060,1061);
delete from prs_kenmerk where prs_kenmerk_key in (1060,1061);
ALTER TRIGGER conn_prs_kenmerklink_d ENABLE;
-- voeg dummy kostenplaats toe voor opdrachten zonder kostenplaats key
insert into prs_kostenplaats (prs_kostenplaats_nr, prs_kostenplaats_omschrijving, prs_kostenplaats_module)
values ('000000','Lege kostenplaats','PRS');
ALTER TRIGGER MLD_T_MLD_OPDR_B_IU DISABLE;
update mld_opdr set prs_kostenplaats_key = (select prs_kostenplaats_key from prs_kostenplaats where prs_kostenplaats_nr = '000000')
where prs_kostenplaats_key is null;
ALTER TRIGGER MLD_T_MLD_OPDR_B_IU ENABLE;
update bes_bestelling set prs_kostenplaats_key = (select prs_kostenplaats_key from prs_kostenplaats where prs_kostenplaats_nr = '000000')
where prs_kostenplaats_key is null;
update res_reservering set prs_kostenplaats_key = (select prs_kostenplaats_key from prs_kostenplaats where prs_kostenplaats_nr = '000000')
where prs_kostenplaats_key is null;
insert into fac_usrrap (FAC_USRRAP_OMSCHRIJVING, FAC_USRRAP_VIEW_NAME, FAC_USRRAP_INFO, FAC_FUNCTIE_KEY) values
('CNT: Contractgegevens', 'CONN_V_CONTRACTEN_GEGEVENS', 'Contractgegevens m.u.v. huurcontracten', 16);
insert into fac_usrrap (FAC_USRRAP_OMSCHRIJVING, FAC_USRRAP_VIEW_NAME, FAC_USRRAP_INFO, FAC_FUNCTIE_KEY) values
('BES: Voorraad chipknip detail', 'conn_v_rapp_chipknip_detail', 'Detailgegevens mbt voorraad chipknip per maand', 64);
insert into fac_usrrap (FAC_USRRAP_OMSCHRIJVING, FAC_USRRAP_VIEW_NAME, FAC_USRRAP_INFO, FAC_FUNCTIE_KEY) values
('BES: Voorraad chipknip', 'conn_v_rapp_chipknip', 'Totaaloverzicht mbt voorraad chipknip', 64);
INSERT INTO FAC_USRRAP (FAC_USRRAP_OMSCHRIJVING, FAC_USRRAP_VIEW_NAME, FAC_USRRAP_INFO, FAC_FUNCTIE_KEY ) VALUES (
'CNT: Export Huurcontracten', 'CONN_V_EXP_CONTRACTMUTATIE', 'Overzicht van geexporteerde huurmutaties'
, 16);
--CONN#676
delete bes_bestelling_item where bes_bestelling_key in (9961,9928,9724, 9679 );
delete bes_bestelling where bes_bestelling_key in (9961,9928,9724, 9679 );
DROP VIEW CONTRACT1;
DROP VIEW FIP_LOCATIE_SRC;
DROP VIEW FIP_V_LOCATIE;
DROP VIEW RD_V_LOG;
DROP VIEW TMP_CONN_UPDATE_CNT_CONTRACT;
-- N.a.v. beta install
DROP PROCEDURE FIP_IMPORT;
DROP VIEW CONN_RUIMTEGEG;
DROP VIEW CONN_VERPLICHTING;
DROP VIEW CONN_CAD_01;
DROP VIEW CONN_CAD_02;
--CONN#665
DECLARE
CURSOR c_cursor
IS
SELECT d.ins_deel_key,ins_srtdeel_key, ins_deel_omschrijving, SUBSTR(ins_deel_omschrijving,2,8) ins_deel_omschrijving_new
FROM ins_deel d
WHERE 1=1
AND d.ins_deel_verwijder IS NULL
AND ins_srtdeel_key = 43401
AND fac.safe_to_number (SUBSTR (ins_deel_omschrijving, 2, 8)) > 0
AND LENGTH(SUBSTR (ins_deel_omschrijving, 2, 8)) = 8
ORDER BY 3;
next_record c_cursor%ROWTYPE;
oracle_err_num NUMBER;
oracle_err_mes VARCHAR2 (200);
v_errormsg VARCHAR2 (1024);
v_teller INTEGER;
c_halte_code INTEGER := 501;
c_commit_buffer INTEGER := 1000;
c_zero INTEGER := 0;
BEGIN
v_teller := c_zero;
FOR next_record IN c_cursor LOOP
BEGIN
v_teller := v_teller + 1;
v_errormsg := 'Verwijder eventueel aanwezig flexibel kenmerk';
delete
from ins_kenmerkdeel
where ins_kenmerkdeel_verwijder is null
and ins_kenmerk_key = c_halte_code
and ins_deel_key = next_record.ins_deel_key;
-- c_halte_code
v_errormsg := '--C-- flexprops Halte code';
INSERT INTO ins_kenmerkdeel
( ins_kenmerk_key
, ins_deel_Key
, ins_kenmerkdeel_waarde)
VALUES(c_Halte_code
, next_record.ins_deel_key
, next_record.ins_deel_omschrijving_new);
IF (v_teller > c_commit_buffer) THEN
v_teller := c_zero;
commit;
END IF;
EXCEPTION
WHEN OTHERS
THEN
oracle_err_num := SQLCODE;
oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
v_errormsg :=
'(ORACLE error ' || oracle_err_num || '/' || oracle_err_mes
|| ')';
fac.imp_writelog ('CONN#665',
'Halte codes toevoegen',
'E',
v_errormsg,
to_char(next_record.ins_deel_key)
);
END;
END LOOP;
commit;
END;
/
COMMIT;
PROMPT Nu volgt de (her)definitie van de klantspecifieke zaken.
SPOOL OFF
@conn.sql