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

PCHW#37813 -- Implementatie Gemeente Westland

Browse Source 
svn path=/Customer/trunk/; revision=35931
This commit is contained in:
Arthur Egberink
2017-11-08 15:06:20 +00:00
parent b1e269375a
commit 96cb496f84
1 changed files with 25 additions and 25 deletions
Download Patch File Download Diff File Expand all files Collapse all files

50
PCHW/pchw.sql
View File

@@ -23,7 +23,7 @@ CREATE OR REPLACE PROCEDURE pchw_import_perslid (p_import_key IN NUMBER)
AS
v_seq_of_columns VARCHAR(255);
BEGIN
v_seq_of_columns := '0;0;0;4;5;6;7;8;9;11;10;0;0;0;0;13;14;15;0;17;16;22;23;24;25;26;27;28;29;30;31;32;33;34;35;36;37;38;39;40;41;42;43;44;45;46';
prs.import_perslid(p_import_key, v_seq_of_columns, 'LOCATIECODE;GEBOUWCODE;BOUWLAAGVOLGNUMMER;RUIMTENUMMER;WERKPLEKVOLGNUMMER;OMSCHRIJVING;AFDELINGSCODE;PERSOONACHTERNAAM;TUSSENVOEGSEL;VOORLETTERS;VOORNAAM;TITEL/AANHEF;TELEFOONNUMMER;MOBIEL;EMAIL;FUNCTIE;PERSONEELSNUMMER;LOGINNAAM;PASSWORD%');
@@ -31,7 +31,7 @@ BEGIN
-- Doordat de import soms door Excel gehaald wordt zetten we zelf de voorloopnullen er weer in.
UPDATE fac_imp_perslid
SET prs_perslid_oslogin = prs_perslid_nr,
prs_perslid_nr = TO_CHAR (prs_perslid_nr, 'FM00000000');
prs_perslid_nr = TO_CHAR (prs_perslid_nr, 'FM000000000');
END pchw_import_perslid;
/
@@ -124,11 +124,11 @@ AS
ORDER BY niveau DESC;
CURSOR c_kpn
IS
IS
SELECT b.prs_afdeling_key, a1.prs_kostenplaats_key, prs_afdeling_naam, prs_afdeling_omschrijving
FROM prs_v_afdeling_boom b, prs_afdeling a1
WHERE b.prs_bedrijf_key = 121 -- Gemeente Westland
AND b.prs_afdeling_key1 = a1.prs_afdeling_key
WHERE b.prs_bedrijf_key = 121 -- Gemeente Westland
AND b.prs_afdeling_key1 = a1.prs_afdeling_key
AND b.niveau <> 1;
BEGIN
@@ -168,7 +168,7 @@ BEGIN
'');
END;
END LOOP;
END pchw_update_organisatie;
/
@@ -195,7 +195,7 @@ BEGIN
UPDATE alg_srtruimte
SET alg_srtruimte_code = SUBSTR (alg_srtruimte_omschrijving, 1, 7)
WHERE alg_srtruimte_code IS NULL;
-- pas de openingstijden van de ruimten aan waar een 24/7 regime geldt. Verder geldt voor
-- deze ruimten ook dat de sla in het weekend door telt.
--UPDATE alg_ruimte
@@ -252,13 +252,13 @@ AS
v_discipline_key NUMBER;
v_srtdiscipline_key NUMBER;
BEGIN
-- Verwijder nbsp karakters.
UPDATE fac_imp_file
SET fac_imp_file_line = REPLACE (fac_imp_file_line, CHR (160), ' ')
WHERE fac_import_key = p_import_key;
-- Init
header_found := FALSE;
v_fielddelimitor := ';';
@@ -572,7 +572,7 @@ AS
AND ssr.mld_stdmelding_key = std.mld_stdmelding_key
AND std.mld_ins_discipline_key = d.ins_discipline_key
AND d.ins_srtdiscipline_key = sd.ins_srtdiscipline_key
AND sd.ins_srtdiscipline_omschrijving IN (SELECT DISTINCT vakgroeptype FROM pchw_imp_storing_regime)
AND sd.ins_srtdiscipline_omschrijving IN (SELECT DISTINCT vakgroeptype FROM pchw_imp_storing_regime)
AND ssr.alg_srtruimte_key = sr.alg_srtruimte_key;
CURSOR c_upd_std
@@ -1032,7 +1032,7 @@ BEGIN
END IF;
END IF;
END LOOP;
FOR rec IN c_del
LOOP
fac.imp_writelog (
@@ -1045,12 +1045,12 @@ BEGIN
|| '/'
|| rec.mld_stdmelding_omschrijving
|| ')',
NULL);
NULL);
DELETE mld_stdmsrtruimte WHERE mld_stdmsrtruimte_key = rec. mld_stdmsrtruimte_key;
END LOOP;
-- Als de hersteltijd per ruimtesoort geldt dan moeten we de vlag afhankelijk ook zetten bij de stdmelding.
UPDATE mld_stdmelding std
SET mld_stdmelding_afhankelijk =
@@ -1059,7 +1059,7 @@ BEGIN
WHERE sr.mld_stdmelding_key = std.mld_stdmelding_key);
-- Als er een uitsplitsing is naar ruimtesoort dan moeten we toch de default uitvoertijd bij de stdmelding
-- invullen. Anders wordt de verkeerde eenheid bij respijt getoond.
-- invullen. Anders wordt de verkeerde eenheid bij respijt getoond.
FOR rec IN c_upd_std
LOOP
UPDATE mld_stdmelding
@@ -1113,7 +1113,7 @@ AS
v_discipline_key NUMBER;
v_srtdiscipline_key NUMBER;
BEGIN
-- Init
header_found := FALSE;
@@ -1144,7 +1144,7 @@ BEGIN
fac.imp_getfield (v_newline, v_fielddelimitor, v_vakgroep);
fac.imp_getfield (v_newline, v_fielddelimitor, v_stdmelding);
fac.imp_getfield (v_newline, v_fielddelimitor, v_kenmerk);
-- fac.imp_getfield (v_newline, v_fielddelimitor, v_dummy);
-- fac.imp_getfield (v_newline, v_fielddelimitor, v_dummy);
fac.imp_getfield (v_newline, v_fielddelimitor, v_vakgroeptype);
-- Skip until a valid header is found
@@ -1468,7 +1468,7 @@ BEGIN
WHERE fac_import_key = p_import_key;
fac_import_mld (p_import_key);
UPDATE fac_imp_mld SET mld_stdmelding_groep = TRIM(mld_stdmelding_groep);
END;
/
@@ -1548,7 +1548,7 @@ CREATE OR REPLACE VIEW PCHW_V_TOTAAL_KORTING_OND
TOTAAL
)
AS
SELECT onderwerp, SUM(totaal)
SELECT onderwerp, SUM(totaal)
FROM (SELECT ins_discipline_omschrijving,
DECODE (
UPPER (ins_discipline_omschrijving),
@@ -1570,8 +1570,8 @@ FROM (SELECT ins_discipline_omschrijving,
AND totaal != 0
AND mld_melding_datum > ADD_MONTHS (SYSDATE, -1))
GROUP BY onderwerp;
-- Procedure om mailberichten van meldingen buiten kantooruren toch in een melding op te kunnen slaan.
CREATE OR REPLACE PROCEDURE pchw_processemail (pfrom IN VARCHAR2,
pto IN VARCHAR2,
@@ -1598,7 +1598,7 @@ BEGIN
v_errormsg := '';
v_locatie_key := 41; -- LGS
v_ruimte_key := 8392; -- L.002 Entreehal incl.wachtruimte
-- Verwijder de Bounce Address Tag Validation
IF pfrom LIKE 'prvs=%'
@@ -1697,7 +1697,7 @@ AS
prs_kostenplaats_eind
FROM prs_kostenplaats
WHERE prs_kostenplaats_verwijder IS NULL;
CREATE OR REPLACE VIEW pchw_v_prs_srtperslid
(
prs_srtperslid_key,
@@ -1706,7 +1706,7 @@ CREATE OR REPLACE VIEW pchw_v_prs_srtperslid
AS
SELECT prs_srtperslid_key, prs_srtperslid_omschrijving
FROM prs_srtperslid
WHERE prs_srtperslid_verwijder IS NULL;
WHERE prs_srtperslid_verwijder IS NULL;
CREATE OR REPLACE VIEW pchw_v_prs_afdeling
(