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

SKAF#18196:Realisatie van schoonmaakrapport

Browse Source 
svn path=/Customer/trunk/; revision=14265
This commit is contained in:
Marcel Bourseau
2010-07-15 12:11:56 +00:00
parent d50bf784e2
commit 2fb6fd8c48
1 changed files with 97 additions and 49 deletions
Download Patch File Download Diff File Expand all files Collapse all files

146
SKAF/skaf.sql
View File

@@ -1,7 +1,7 @@
-- Script containing customer specific configuration sql statements for SKAF
-- (c) 2009 SG|facilitor bv
-- $Revision: 2 $
-- $Modtime: 1-07-10 11:52 $
-- $Revision: 3 $
-- $Modtime: 15-07-10 13:45 $
--
-- Support: +31 53 4800710
@@ -100,7 +100,7 @@ BEGIN
v_errorhint := 'Fout bij opvragen te importeren rij';
v_ongeldig := 0;
-- Lees alle veldwaarden
-- 01
fac.imp_getfield (v_newline, c_fielddelimitor, v_alg_locatie_code);
-- 02
@@ -127,9 +127,9 @@ BEGIN
fac.imp_getfield (v_newline, c_fielddelimitor, v_prs_perslid_oslogin);
-- 12
fac.imp_getfield (v_newline, c_fielddelimitor, v_prs_perslid_wachtwoord);
--
v_aanduiding :=
'['
@@ -357,7 +357,7 @@ BEGIN
--
v_errorhint := 'Ongeldige plaats/locatiecode';
v_alg_locatie_code := TRIM(v_alg_locatie_code);
v_alg_locatie_code := TRIM(v_alg_locatie_code);
IF LENGTH (v_alg_locatie_code) > 5
THEN
@@ -428,7 +428,7 @@ BEGIN
COMMIT;
END IF;
--
v_errorhint := 'Ongeldig loginnaam';
v_prs_perslid_oslogin := TRIM (v_prs_perslid_oslogin);
@@ -464,7 +464,7 @@ BEGIN
);
COMMIT;
END IF;
-- Insert geformatteerde import record
IF v_ongeldig = 0
THEN
@@ -581,9 +581,9 @@ IS
-- Ruimte waar personen in geplaatst worden (indien nog geen ruimte in opgegeven gebouw)
c_ruimte_nr VARCHAR2 (10) := '000';
-- Groep waar personen in geplaatst worden (indien nog geen groep)
c_key_default_rol NUMBER(10) := 1;
v_aanduiding VARCHAR2 (200);
v_errorhint VARCHAR2 (1000);
v_errormsg VARCHAR2 (1000);
@@ -630,7 +630,7 @@ IS
FROM skaf_imp_prs
GROUP BY UPPER (prs_srtperslid_omschrijving);
CURSOR cperslid
IS
SELECT *
@@ -666,8 +666,8 @@ IS
AND NOT EXISTS (SELECT 1
FROM fac_gebruikersgroep g
WHERE g.prs_perslid_key = p.prs_perslid_key);
BEGIN
SELECT COUNT (*)
INTO v_first_import_count
@@ -940,7 +940,7 @@ BEGIN
prs_perslid_voornaam,
prs_perslid_telefoonnr,
prs_perslid_email,
prs_perslid_nr,
prs_perslid_nr,
prs_perslid_oslogin,
prs_perslid_wachtwoord
)
@@ -951,8 +951,8 @@ BEGIN
recperslid.prs_perslid_voornaam,
recperslid.prs_perslid_telefoonnr,
recperslid.prs_perslid_email,
recperslid.prs_perslid_nr,
v_oslogin,
recperslid.prs_perslid_nr,
v_oslogin,
v_wachtwoord
);
COMMIT;
@@ -1329,8 +1329,8 @@ BEGIN
COMMIT;
END;
END LOOP;
ELSE
fac.imp_writelog
(p_applname,
@@ -1476,10 +1476,10 @@ AS
AND f.bes_bestelopdr_key = bo.bes_bestelopdr_key
AND f.fin_factuur_statuses_key = 6
AND f.fin_factuur_key = fr.fin_factuur_key;
CREATE OR REPLACE VIEW skaf_v_factuur_gegevens
AS
AS
SELECT * from skaf_v_factuur_mldcnt_gegevens
UNION
SELECT * from skaf_v_factuur_bes_gegevens;
@@ -1489,16 +1489,16 @@ SELECT * from skaf_v_factuur_bes_gegevens;
-- De rapportage van het exportbestand die voor Exact zou worden gegenereerd.
CREATE OR REPLACE VIEW skaf_v_rap_exact
(regelnummer,dagb_type, dagbknr, periode, bkjcode, bkstnr, oms25, datum, empty9, debnr,
crdnr, empty12, bedrag, drbk_in_val, valcode, koers, kredbep, bdrkredbep, vervdatfak, vervdatkrd,
empty21, empty22, weeknummer, betaalref, betwijze, grek_bdr, empty27, empty28, empty29, empty30,
(regelnummer,dagb_type, dagbknr, periode, bkjcode, bkstnr, oms25, datum, empty9, debnr,
crdnr, empty12, bedrag, drbk_in_val, valcode, koers, kredbep, bdrkredbep, vervdatfak, vervdatkrd,
empty21, empty22, weeknummer, betaalref, betwijze, grek_bdr, empty27, empty28, empty29, empty30,
empty31, transsubtype, empty33, empty34, empty35, empty36, empty37, empty38, projectnr, field40)
AS
SELECT regelnummer,dagb_type, dagbknr, periode, bkjcode, bkstnr, oms25, datum, empty9, debnr,
crdnr, empty12, bedrag, drbk_in_val, valcode, koers, kredbep, bdrkredbep, vervdatfak, vervdatkrd,
empty21, empty22, weeknummer, betaalref, betwijze, grek_bdr, empty27, empty28, empty29, empty30,
SELECT regelnummer,dagb_type, dagbknr, periode, bkjcode, bkstnr, oms25, datum, empty9, debnr,
crdnr, empty12, bedrag, drbk_in_val, valcode, koers, kredbep, bdrkredbep, vervdatfak, vervdatkrd,
empty21, empty22, weeknummer, betaalref, betwijze, grek_bdr, empty27, empty28, empty29, empty30,
empty31, transsubtype, empty33, empty34, empty35, empty36, empty37, empty38, projectnr, '!'
FROM (SELECT 0 regelnummer,
'I' dagb_type,
@@ -1843,10 +1843,10 @@ BEGIN
-- Bewaar de factuur keys in een tijdelijke tabel zodat bij het verwerken (nieuwe export)
-- deze keys gebruikt kunnen worden.
DELETE skaf_EXP_FACTUUR;
INSERT INTO skaf_EXP_FACTUUR (FIN_FACTUUR_KEY)
( SELECT DISTINCT FIN_FACTUUR_KEY FROM skaf_v_factuur_gegevens );
END;
/
@@ -1856,37 +1856,37 @@ CREATE OR REPLACE VIEW skaf_v_export_verwerk_exact (
)
AS
SELECT REPLACE(REPLACE(f.fin_factuur_key
|| ';'
|| ';'
|| opdracht_id
|| ';'
|| ';'
|| fin_factuur_datum
|| ';'
|| ';'
|| fin_factuur_nr
|| ';'
|| ';'
|| prs_bedrijf_key
|| ';'
|| ';'
|| fin_factuurregel_totaal
|| ';'
|| ';'
|| fin_factuurregel_btw
|| ';'
|| ';'
|| fin_factuurregel_nr
|| ';'
|| ';'
|| fin_factuur_debiteur_nr
|| ';'
|| ';'
|| project_nummer
|| ';'
|| ';'
|| prs_kostensoort_refcode
|| ';'
|| ';'
|| bes_opdr_key
|| ';'
|| ';'
|| mld_opdr_key
|| ';'
|| ';'
|| cnt_contract_key
,CHR (13), ''), CHR (10), '<ret>'), f.fin_factuur_key
FROM skaf_exp_factuur f,
skaf_v_factuur_gegevens fg
WHERE f.fin_factuur_key = fg.fin_factuur_key;
CREATE OR REPLACE PROCEDURE skaf_select_verwerk_exact (
@@ -1914,11 +1914,11 @@ AS
oracle_err_mes VARCHAR2 (200);
BEGIN
v_errormsg := 'Geen akties';
UPDATE fin_factuur
SET fin_factuur_statuses_key = 7
WHERE fin_factuur_key in
(SELECT f.fin_factuur_key
WHERE fin_factuur_key in
(SELECT f.fin_factuur_key
FROM skaf_exp_factuur f
, skaf_v_factuur_gegevens fg
WHERE f.fin_factuur_key = fg.fin_factuur_key);
@@ -1958,7 +1958,7 @@ AS
WHERE r.alg_ruimte_key = va.alg_ruimte_key (+);
-- Stap 5b: Actie/trigger bij sleur+pleur van thema HV-divisie
CREATE OR REPLACE TRIGGER uwva_t_thema_vloersoort_i_iu
CREATE OR REPLACE TRIGGER skaf_t_thema_vloersoort_i_iu
INSTEAD OF INSERT OR UPDATE
ON cad_v_thema_vloersoort
DECLARE
@@ -1969,13 +1969,13 @@ BEGIN
WHERE ok.alg_onrgoed_key = :new.alg_ruimte_key
AND ok.alg_kenmerk_key = 1020
AND ok.alg_onrgoed_niveau='R';
--UPDATE alg_onrgoedkenmerk ok
--SET ok.alg_onrgoedkenmerk_waarde = TO_CHAR(:new.waarde_key)
--WHERE ok.alg_onrgoed_key = :new.alg_ruimte_key
--AND ok.alg_kenmerk_key = 1020
--AND ok.alg_onrgoed_niveau='R';
INSERT INTO alg_onrgoedkenmerk (alg_onrgoed_key, alg_onrgoed_niveau, alg_kenmerk_key, alg_onrgoedkenmerk_waarde)
VALUES (:new.alg_ruimte_key, 'R', 1020, to_char(:new.waarde_key));
EXCEPTION
@@ -1987,9 +1987,57 @@ END;
/
--- Facilitor Graphics / CAD ---
CREATE OR REPLACE VIEW skaf_v_rap_sch_ruimtenivo
(fclt_f_locatie, fclt_f_gebouw, fclt_f_verdieping, ruimte, fclt_f_ruimtesoort, fclt_f_vloer, oppervlak)
AS
SELECT l.alg_locatie_code || '-' || l.alg_locatie_omschrijving, g.alg_gebouw_naam, to_char(v.alg_verdieping_volgnr),
r.alg_ruimte_nr, sr.alg_srtruimte_omschrijving, vloer.fac_usrdata_omschr, r.alg_ruimte_bruto_vloeropp
FROM alg_v_aanwezigruimte r, alg_srtruimte sr, alg_verdieping v, alg_gebouw g, alg_locatie l,
(SELECT rr.alg_ruimte_key, ud.fac_usrdata_omschr, ud.fac_usrdata_key
FROM alg_onrgoedkenmerk ok,
fac_usrdata ud,
alg_refkenmerk rk,
alg_kenmerk k,
alg_v_aanwezigruimte rr
WHERE rk.fac_usrtab_key = ud.fac_usrtab_key
AND k.alg_refkenmerk_key = rk.alg_refkenmerk_key
AND TO_CHAR (ud.fac_usrdata_key) = ok.alg_onrgoedkenmerk_waarde
AND k.alg_kenmerk_key = 1020
AND rr.alg_ruimte_key = ok.alg_onrgoed_key) vloer
WHERE r.alg_srtruimte_key = sr.alg_srtruimte_key(+)
AND 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_ruimte_key = vloer.alg_ruimte_key (+);
CREATE OR REPLACE VIEW skaf_v_rap_sch_locatie_rsoort
(fclt_f_locatie, fclt_f_ruimtesoort, oppervlak)
AS
SELECT fclt_f_locatie, fclt_f_ruimtesoort, SUM(oppervlak)
FROM skaf_v_rap_sch_ruimtenivo
GROUP BY fclt_f_locatie, fclt_f_ruimtesoort;
CREATE OR REPLACE VIEW skaf_v_rap_sch_locatie_vloer
(fclt_f_locatie, fclt_f_vloer, oppervlak)
AS
SELECT fclt_f_locatie, fclt_f_vloer, SUM(oppervlak)
FROM skaf_v_rap_sch_ruimtenivo
GROUP BY fclt_f_locatie, fclt_f_vloer;
CREATE OR REPLACE VIEW skaf_v_rap_sch_locatie
(fclt_f_locatie, oppervlak)
AS
SELECT fclt_f_locatie, SUM(oppervlak)
FROM skaf_v_rap_sch_ruimtenivo
GROUP BY fclt_f_locatie;
commit;
spool off