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

FSN#23967 Opruimen ongebruikte SCH spullen

Browse Source 
svn path=/Database/trunk/; revision=15796
This commit is contained in:
Peter Feij
2012-11-05 15:56:17 +00:00
parent e8ab192293
commit eb8cad869e
11 changed files with 11 additions and 334 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
FAC/FAC_INI.SRC
View File

@@ -1762,7 +1762,6 @@ DEF_FAC_FUNCTIE2('WEB_INSPRJ', 'Projecten:Objectmutaties', 'INS', 11, 1,1,'Om
DEF_FAC_FUNCTIE2('WEB_SLEBOF', 'Backoffice:Sleutelbeheer', 'SLE', 11, 0,1,'Om cilinders en sleutels te kunnen beheren');
DEF_FAC_FUNCTIE2('WEB_CNTMAN', 'Backoffice:Contractbeheer', 'CNT', 15, 1,1,'Om contracten te kunnen beheren');
DEF_FAC_FUNCTIE2('WEB_CNTUSE', 'Backoffice:Contractgegevens','CNT', 15, 1,1,'Om een deel van contractgegevens te kunnen beheren');
DEF_FAC_FUNCTIE2('WEB_SCHBOF', 'Backoffice:Schoonmaakprogramma','SCH', 0, 0,1,'Om schoonmaakprogramma''s te kunnen beheren');
DEF_FAC_FUNCTIE2('WEB_MRKBOF', 'Backoffice:Marktplaats', 'MRK', 0, 0,1,'Om berichten op marktplaats te beheren.');
DEF_FAC_FUNCTIE2('WEB_PRJBOF', 'Backoffice:Verhuizingen', 'PRJ', 11, 0,1,'Om verhuisscenarios te kunnen maken.');
DEF_FAC_FUNCTIE2('WEB_PRJMAN', 'Backoffice:Verhuizingen', 'PRJ', 11, 0,1,'Om verhuisscenarios te kunnen doorvoeren.');
@@ -2567,8 +2566,6 @@ DEF_MENUITEM(1, 'lcl_menu_fac_reports' , '', 'FAC', 'appl/fac/fac_usrra
DEF_MENUITEM(1, 'lcl_menu_sle_sleutels' , '', 'SLE', 'appl/sle/sleutel_search.asp?urole=bo', 0, 0, 'WEB_SLEBOF', 'W', '1');
DEF_MENUITEM(1, 'lcl_menu_ins_verbruik' , '', 'INS', 'appl/ins/ins_verbruik_search.asp', 0, 0, 'WEB_INSUSE', 'W', '1');
DEF_MENUITEM(1, 'lcl_menu_cnt_huurregister' , '', 'CNT', 'appl/cnt/cnt_huurmut_search.asp', 0, 0, 'WEB_CNTMAN', 'W', '1'); /*R?*/
// Te bereiken via bedrijf DEF_MENUITEM(1, 'lcl_menu_prs_diensten' , '', 'PRS', 'appl/prs/dienst_search.asp', 0, 0, 'WEB_RELMAN', 'W', '1');
DEF_MENUITEM(1, 'lcl_menu_sch_schoonmaak' , '', 'SCH', 'appl/sch/sch_algsearch.asp', 0, 0, 'WEB_SCHBOF', 'W', '1');
DEF_MENUITEM(1, 'lcl_menu_ins_outlet' , '', 'INS', 'appl/ins/outlet.asp', 0, 0, 'WEB_INSMAN', 'W', '0');
DEF_MENUKOP(1, 'lcl_fg');

1
FAC/FAC_LCLASP.SRC
View File

@@ -2705,7 +2705,6 @@ FACXSL_LCL('lcl_menu_cnt_bo', 'Contractbeheer', 'Contracts management', 'Vertrag
FACXSL_LCL('lcl_menu_fac_reports', 'Rapportages', 'Reports', 'Report', 'Rapports')
FACXSL_LCL('lcl_menu_ins_verbruik', 'Verbruiksregistratie', 'Consumption registration', 'Verbrauchsregistration', 'Gestion de consommation')
FACXSL_LCL('lcl_menu_cnt_huurregister', 'Huurcontractmutaties', 'Contract mutations', 'Mietvertrags<67>nderungen', 'Mutations des contrats locataires')
FACXSL_LCL('lcl_menu_sch_schoonmaak', 'Schoonmaak', 'Cleaning', 'Reinigung', 'Nettoyage')
FACXSL_LCL('lcl_menu_ins_outlet', 'Outletbeheer', 'Outlet management', 'Steckdosenverwaltung', 'Gestion des prises')
FACXSL_LCL('lcl_fg', 'FACILITOR<4F> Graphics', 'FACILITOR<4F> Graphics', 'FACILITOR<4F> Graphics', 'FACILITOR<4F> Graphics')
FACXSL_LCL('lcl_menu_fg', 'FACILITOR Graphics', 'FACILITOR Graphics', 'FACILITOR Graphics', 'FACILITOR Graphics')

8
MODULES.H
View File

@@ -5,6 +5,7 @@
* MODULEDEFINITIES
*
* ALG - Algemeen (onroerend goed)
* BES - Bestellingen (eProcurement)
* BEZ - Bezoekers registratie
* CAD - AutoCAD koppeling
* CNT - Contracten
@@ -14,15 +15,11 @@
* MLD - Meldingen (basis)
* MRK - Marktplaats
* MSG - Messenger [sinds 4.70 apart]
* PRS - Personen (kleine basisset tbv. Meldingen)
* PRJ - Projecten/verhuizingen [sinds 4.61 in web]
* RAP - Rapport module (geen src voor nodig)
* SCH - Schoonmaak
* PRS - Personen (kleine basisset tbv. Meldingen)
* SLE - Sleutelplan
* WEB - Intranet modules
*
* DATA - Data voor diverse modules inserten
*
*/
#define ALG ALG
@@ -39,7 +36,6 @@
#define PRJ PRJ
#define PRS PRS
#define RES RES
#define SCH SCH
#define WEB WEB
#define CARE CARE

9
SCH/SCH_IND.SRC
View File

@@ -1,9 +0,0 @@
#ifdef SCH
/*
* $Revision$
* $Id$
*/
REGISTERONCE('$Workfile: SCH_IND.SRC $','$Revision$')
#endif // SCH

41
SCH/SCH_INI.SRC
View File

@@ -1,41 +0,0 @@
#ifdef SCH // 19-04-96 KTH
/*
* $Revision$
* $Id$
*/
_FAC_MODULE('SCH','Schoonmaak')
#ifdef DATA
INSERT INTO fac_usrdata
(fac_usrtab_key, fac_usrdata_code, fac_usrdata_omschr)
SELECT fac_usrtab_key, 'Beton', 'Beton' FROM fac_usrtab WHERE SUBSTR(UPPER(fac_usrtab_object),1,20) = SUBSTR(UPPER('USR_VLOERSOORT'), 1, 20);
INSERT INTO fac_usrdata
(fac_usrtab_key, fac_usrdata_code, fac_usrdata_omschr)
SELECT fac_usrtab_key, 'Computervloer', 'Computervloer' FROM fac_usrtab WHERE SUBSTR(UPPER(fac_usrtab_object),1,20) = SUBSTR(UPPER('USR_VLOERSOORT'), 1, 20);
INSERT INTO fac_usrdata
(fac_usrtab_key, fac_usrdata_code, fac_usrdata_omschr)
SELECT fac_usrtab_key, 'Linoleum', 'Linoleum' FROM fac_usrtab WHERE SUBSTR(UPPER(fac_usrtab_object),1,20) = SUBSTR(UPPER('USR_VLOERSOORT'), 1, 20);
INSERT INTO fac_usrdata
(fac_usrtab_key, fac_usrdata_code, fac_usrdata_omschr)
SELECT fac_usrtab_key, 'Natuursteen', 'Natuursteen' FROM fac_usrtab WHERE SUBSTR(UPPER(fac_usrtab_object),1,20) = SUBSTR(UPPER('USR_VLOERSOORT'), 1, 20);
INSERT INTO fac_usrdata
(fac_usrtab_key, fac_usrdata_code, fac_usrdata_omschr)
SELECT fac_usrtab_key, 'Parket', 'Parket' FROM fac_usrtab WHERE SUBSTR(UPPER(fac_usrtab_object),1,20) = SUBSTR(UPPER('USR_VLOERSOORT'), 1, 20);
INSERT INTO fac_usrdata
(fac_usrtab_key, fac_usrdata_code, fac_usrdata_omschr)
SELECT fac_usrtab_key, 'Tapijt', 'Tapijt' FROM fac_usrtab WHERE SUBSTR(UPPER(fac_usrtab_object),1,20) = SUBSTR(UPPER('USR_VLOERSOORT'), 1, 20);
INSERT INTO fac_usrdata
(fac_usrtab_key, fac_usrdata_code, fac_usrdata_omschr)
SELECT fac_usrtab_key, 'Vloertegels, glad', 'Vloertegels, glad' FROM fac_usrtab WHERE SUBSTR(UPPER(fac_usrtab_object),1,20) = SUBSTR(UPPER('USR_VLOERSOORT'), 1, 20);
INSERT INTO fac_usrdata
(fac_usrtab_key, fac_usrdata_code, fac_usrdata_omschr)
SELECT fac_usrtab_key, 'Vloertegels, ruw', 'Vloertegels, ruw' FROM fac_usrtab WHERE SUBSTR(UPPER(fac_usrtab_object),1,20) = SUBSTR(UPPER('USR_VLOERSOORT'), 1, 20);
COMMIT;
#endif // DATA
REGISTERONCE('$Workfile: SCH_INI.SRC $','$Revision$')
#endif // SCH

9
SCH/SCH_PAC.SRC
View File

@@ -1,9 +0,0 @@
#ifdef SCH
/*
* $Revision$
* $Id$
*/
REGISTERRUN('$Workfile: SCH_PAC.SRC $','$Revision$')
#endif // SCH

12
SCH/SCH_SEQ.SRC
View File

@@ -1,12 +0,0 @@
#ifdef SCH //21-03-96 RW
/*
* $Revision$
* $Id$
*/
CREATE SEQUENCE sch_s_sch_programma_key MINVALUE 1;
CREATE SEQUENCE sch_s_sch_programma_b_key MINVALUE 1;
REGISTERONCE('$Workfile: SCH_SEQ.SRC $','$Revision$')
#endif // SCH

47
SCH/SCH_TAB.SRC
View File

@@ -1,47 +0,0 @@
#ifdef SCH //21-03-96 RW
/*
* $Revision$
* $Id$
*/
CREATE_TABLE(sch_programma, 0)
(
sch_programma_key
NUMBER(10)
CONSTRAINT sch_k_sch_programma_key PRIMARY KEY,
sch_programma_code
VARCHAR2(30)
NOT_NULL(sch_programma_code, sch_c_sch_programma_code),
sch_programma_srtruimte_key
NUMBER(10)
CONSTRAINT sch_r_sch_srtruimte_key REFERENCES fac_usrdata(fac_usrdata_key),
sch_programma_srtvloer_key
NUMBER(10)
CONSTRAINT sch_r_sch_srtvloer_key REFERENCES fac_usrdata(fac_usrdata_key),
sch_programma_frequentie_key
NUMBER(10)
CONSTRAINT sch_r_sch_frequentie_key REFERENCES fac_usrdata(fac_usrdata_key),
sch_programma_document
VARCHAR2(255),
CONSTRAINT sch_u_sch_programma_code UNIQUE (sch_programma_code)
);
CREATE_TABLE(sch_programma_bedrijf,0)
(
sch_programma_bedrijf_key
NUMBER(10)
CONSTRAINT sch_k_sch_prog_bedrijf_key PRIMARY KEY,
sch_programma_key
NUMBER(10)
NOT_NULL(sch_programma_key, sch_c_sch_programma_key)
CONSTRAINT sch_r_sch_programma_key REFERENCES sch_programma(sch_programma_key),
prs_bedrijf_key
NUMBER(10)
CONSTRAINT sch_r_prs_bedrijf_key REFERENCES prs_bedrijf(prs_bedrijf_key),
sch_programma_bedrijf_kental
NUMBER(9,6)
);
REGISTERONCE('$Workfile: SCH_TAB.SRC $','$Revision$')
#endif // SCH

25
SCH/SCH_TRI.SRC
View File

@@ -1,25 +0,0 @@
#ifdef SCH //21-03-96 RW
/*
* $Revision$
* $Id$
*/
CREATE_TRIGGER(sch_t_sch_programma_b_iu)
BEFORE INSERT OR UPDATE ON sch_programma
FOR EACH ROW
BEGIN
UPDATE_PRIMARY_KEY(sch_programma_key, sch_s_sch_programma_key);
END;
/
CREATE_TRIGGER(sch_t_sch_programma_b_b_iu)
BEFORE INSERT OR UPDATE ON sch_programma_bedrijf
FOR EACH ROW
BEGIN
UPDATE_PRIMARY_KEY(sch_programma_bedrijf_key, sch_s_sch_programma_b_key);
END;
/
REGISTERRUN('$Workfile: SCH_TRI.SRC $','$Revision$')
#endif // SCH

181
SCH/SCH_VIE.SRC
View File

@@ -1,181 +0,0 @@
#ifdef SCH
/*
* $Revision$
* $Id$
*/
-- Drie views die per 4.81 als basisinrichting gelden voor de standaard SCH-module!
CREATE_VIEW(sch_v_schoonmaakbedrijf,0) (prs_bedrijf_key, prs_bedrijf_naam)
AS
SELECT DISTINCT b.prs_bedrijf_key, b.prs_bedrijf_naam
FROM prs_bedrijf b, prs_bedrijfdienstlocatie dl, prs_dienst d, fac_usrdata u
WHERE b.prs_bedrijf_verwijder IS NULL
AND b.prs_bedrijf_key = dl.prs_bedrijf_key(+)
AND dl.prs_dienst_key = d.prs_dienst_key(+)
AND UPPER (d.prs_dienst_omschrijving) LIKE NVL (UPPER (u.fac_usrdata_omschr), '%')
AND u.fac_usrtab_key = (SELECT fac_usrtab_key
FROM fac_usrtab
WHERE fac_usrtab_object = 'USR_INSTELLINGEN')
AND u.fac_usrdata_upper = 'SCH_BEDRIJFDIENST';
CREATE_VIEW(sch_v_ruimtegegevens,0) (
alg_ruimte_key,
alg_verdieping_key,
alg_gebouw_key,
alg_locatie_key,
locatie_code,
gebouw_code,
verdieping_code,
ruimte_nr,
ruimte_oms,
ruimte_srt,
opp_bvo,
opp_alt1,
opp_alt2,
prog_code,
prog_doc,
ruimtesoort,
vloersoort,
frequentie,
sch_bedrijf,
sch_opm_link,
sch_opm,
kental
)
AS
SELECT rr.alg_ruimte_key, rr.alg_verdieping_key, rr.alg_gebouw_key,
rr.alg_locatie_key, rr.alg_locatie_code, rr.alg_gebouw_code,
rr.alg_verdieping_code, rr.alg_ruimte_nr,
rr.alg_ruimte_omschrijving, rr.alg_srtruimte_omschrijving, rr.bvo,
rr.alt1, rr.alt2, sp.prog_code, sp.prog_doc, sp.ruimtesoort,
sp.vloersoort, sp.frequentie, sb.bedrijfsnaam,
DECODE (NVL (so.sch_opm, '0'), '0', '0', '1'), so.sch_opm,
(SELECT spb.sch_programma_bedrijf_kental
FROM sch_programma_bedrijf spb
WHERE spb.sch_programma_key = sp.prog_key
AND spb.prs_bedrijf_key = sb.bedr_key) kental
FROM (SELECT r.alg_ruimte_key, v.alg_verdieping_key, g.alg_gebouw_key,
l.alg_locatie_key, l.alg_locatie_code, g.alg_gebouw_code,
v.alg_verdieping_code, r.alg_ruimte_nr,
r.alg_ruimte_omschrijving, sr.alg_srtruimte_omschrijving,
r.alg_ruimte_bruto_vloeropp bvo, r.alg_ruimte_opp_alt1 alt1,
r.alg_ruimte_opp_alt2 alt2
FROM alg_v_aanwezigruimte r,
alg_verdieping v,
alg_gebouw g,
alg_locatie l,
alg_srtruimte sr
WHERE r.alg_verdieping_key = v.alg_verdieping_key
AND v.alg_gebouw_key = g.alg_gebouw_key
AND g.alg_locatie_key = l.alg_locatie_key
AND r.alg_srtruimte_key = sr.alg_srtruimte_key(+)) rr
LEFT JOIN -- schoonmaakprogrammagegevens
(SELECT a.alg_onrgoed_key, a.prog_key, b.prog_code, b.prog_doc,
b.ruimtesoort, c.vloersoort, d.frequentie
FROM (SELECT fac.safe_to_number
(alg_onrgoedkenmerk_waarde)
prog_key,
ok.alg_onrgoed_key
FROM alg_v_aanwezigonrgoedkenmerk ok
WHERE ok.alg_kenmerk_key = 31) a -- schoonmaakprogramma
LEFT JOIN
(SELECT p.sch_programma_key, p.sch_programma_code prog_code,
p.sch_programma_document prog_doc,
ud.fac_usrdata_omschr ruimtesoort
FROM sch_programma p, fac_usrdata ud
WHERE p.sch_programma_srtruimte_key = ud.fac_usrdata_key(+)) b
ON a.prog_key = b.sch_programma_key
LEFT JOIN
(SELECT p.sch_programma_key,
ud.fac_usrdata_omschr vloersoort
FROM sch_programma p, fac_usrdata ud
WHERE p.sch_programma_srtvloer_key = ud.fac_usrdata_key) c
ON a.prog_key = c.sch_programma_key
LEFT JOIN
(SELECT p.sch_programma_key,
ud.fac_usrdata_omschr frequentie
FROM sch_programma p, fac_usrdata ud
WHERE p.sch_programma_frequentie_key = ud.fac_usrdata_key) d
ON a.prog_key = d.sch_programma_key
) sp ON rr.alg_ruimte_key = sp.alg_onrgoed_key
LEFT JOIN -- schoonmaakbedrijfgegevens
(SELECT a.alg_onrgoed_key, a.bedr_key, b.bedrijfsnaam
FROM (SELECT fac.safe_to_number
(alg_onrgoedkenmerk_waarde)
bedr_key,
ok.alg_onrgoed_key
FROM alg_v_aanwezigonrgoedkenmerk ok
WHERE ok.alg_kenmerk_key = 32) a -- schoonmaakbedrijf
LEFT JOIN
(SELECT sb.prs_bedrijf_key,
sb.prs_bedrijf_naam bedrijfsnaam
FROM prs_bedrijf sb) b ON a.bedr_key = b.prs_bedrijf_key
) sb ON rr.alg_ruimte_key = sb.alg_onrgoed_key
LEFT JOIN -- schoonmaakopmerking
(SELECT ok.alg_onrgoed_key, alg_onrgoedkenmerk_waarde sch_opm
FROM alg_v_aanwezigonrgoedkenmerk ok
WHERE ok.alg_kenmerk_key = 33) so -- schoonmaakopmerking
ON rr.alg_ruimte_key = so.alg_onrgoed_key;
CREATE_VIEW(sch_v_locatiegegevens,0) (
alg_locatie_key,
locatie_code,
locatie_oms,
prog_code,
sch_bedrijf,
opp_bvo,
opp_alt1,
opp_alt2
)
AS
SELECT rr.alg_locatie_key, rr.alg_locatie_code,
rr.alg_locatie_omschrijving, sp.prog_code, sb.bedrijfsnaam,
SUM (rr.bvo) bvo, SUM (rr.alt1) alt1, SUM (rr.alt2) alt2
FROM (SELECT r.alg_ruimte_key, l.alg_locatie_key, l.alg_locatie_code,
l.alg_locatie_omschrijving,
r.alg_ruimte_bruto_vloeropp bvo,
r.alg_ruimte_opp_alt1 alt1, r.alg_ruimte_opp_alt2 alt2
FROM alg_v_aanwezigruimte r,
alg_verdieping v,
alg_gebouw g,
alg_locatie l
WHERE r.alg_verdieping_key = v.alg_verdieping_key
AND v.alg_gebouw_key = g.alg_gebouw_key
AND g.alg_locatie_key = l.alg_locatie_key) rr
LEFT JOIN -- schoonmaakprogrammagegevens
(SELECT a.alg_onrgoed_key, a.prog_key, b.prog_code
FROM (SELECT fac.safe_to_number
(alg_onrgoedkenmerk_waarde)
prog_key,
ok.alg_onrgoed_key
FROM alg_v_aanwezigonrgoedkenmerk ok
WHERE ok.alg_kenmerk_key = 31) a -- schoonmaakprogramma
LEFT JOIN
(SELECT p.sch_programma_key,
p.sch_programma_code prog_code
FROM sch_programma p) b
ON a.prog_key = b.sch_programma_key
) sp ON rr.alg_ruimte_key = sp.alg_onrgoed_key
LEFT JOIN -- schoonmaakbedrijfgegevens
(SELECT a.alg_onrgoed_key, a.bedr_key, b.bedrijfsnaam
FROM (SELECT fac.safe_to_number
(alg_onrgoedkenmerk_waarde)
bedr_key,
ok.alg_onrgoed_key
FROM alg_v_aanwezigonrgoedkenmerk ok
WHERE ok.alg_kenmerk_key = 32) a -- schoonmaakbedrijf
LEFT JOIN
(SELECT sb.prs_bedrijf_key,
sb.prs_bedrijf_naam bedrijfsnaam
FROM prs_bedrijf sb) b ON a.bedr_key =
b.prs_bedrijf_key
) sb ON rr.alg_ruimte_key = sb.alg_onrgoed_key
GROUP BY rr.alg_locatie_key,
rr.alg_locatie_code,
rr.alg_locatie_omschrijving,
sp.prog_code,
sb.bedrijfsnaam;
REGISTERRUN('$Workfile: SCH_VIE.SRC $','$Revision$')
#endif // SCH

9
_UP/DB16to17.src
View File

@@ -114,6 +114,15 @@ ALTER TABLE fac_setting DROP COLUMN fac_setting_ovalue;
ALTER TABLE fac_setting DROP COLUMN fac_setting_tvalue;
ALTER TABLE fac_setting DROP COLUMN fac_setting_avalue;
DELETE FROM fac_menuitems WHERE fac_menuitems_label='lcl_menu_sch_schoonmaak';
DELETE FROM fac_functie WHERE fac_functie_code = 'WEB_SCHBOF';
DROP VIEW sch_v_schoonmaakbedrijf;
DROP VIEW sch_v_ruimtegegevens;
DROP VIEW sch_v_locatiegegevens;
DROP TABLE sch_programma_bedrijf;
DROP TABLE sch_programma;
DROP SEQUENCE sch_s_sch_programma_key;
DROP SEQUENCE sch_s_sch_programma_b_key;
///////////////////////////////////////////////////////////////////////////////////////////
REGISTERONCE('$Workfile: DB16to17.src $','$Revision$')
#include "epilogue.inc"