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

HMOD#66867 -- Kostenplaatsten voor Afdelingen herzien in koffersysteem

Browse Source 
HMOD#66715 -- Contracten - Notificaitejob rappel-termijn voor beheerder en eigenaar

svn path=/Customer/trunk/; revision=51361
This commit is contained in:
Jos Migo
2021-05-10 13:52:30 +00:00
parent be496c2db4
commit c4088f758b
1 changed files with 79 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

92
HMOD/hmod.sql
View File

@@ -35,7 +35,8 @@ AS
v_count_import NUMBER (10);
-- De importvelden:
v_versiedatum VARCHAR2 (15);
v_omschrijving VARCHAR2 (250);
v_afdeling VARCHAR2 (250);
v_functie VARCHAR2 (250);
v_code VARCHAR2 (30);
v_token VARCHAR2 (20);
v_mob VARCHAR2 (20);
@@ -84,10 +85,11 @@ BEGIN
v_errormsg := 'Fout opvragen te importeren rij';
v_aanduiding := '';
-- Lees alle veldwaarden: omschrijving;code;token;mob;hit;lap_en_sim;lapt;tnc;tnc omschrijving;facilitor;adp;absentiemanager;regas;checks;accountview;elvy;hodnet;proactive;opmerking
-- Lees alle veldwaarden: afdeling;functie;code;token;mob;hit;lap_en_sim;lapt;tnc;tnc omschrijving;facilitor;adp;absentiemanager;regas;checks;accountview;elvy;hodnet;proactive;opmerking
v_errormsg := 'Fout opvragen te importeren kolom/rij 1';
fac.imp_getfield (v_newline, c_fielddelimitor, v_omschrijving);
v_errormsg := 'Fout opvragen te importeren kolom/rij 2';
fac.imp_getfield (v_newline, c_fielddelimitor, v_afdeling);
fac.imp_getfield (v_newline, c_fielddelimitor, v_functie);
fac.imp_getfield (v_newline, c_fielddelimitor, v_code);
fac.imp_getfield (v_newline, c_fielddelimitor, v_lettercode);
fac.imp_getfield (v_newline, c_fielddelimitor, v_token);
@@ -109,13 +111,14 @@ BEGIN
fac.imp_getfield (v_newline, c_fielddelimitor, v_opmerking);
v_aanduiding :=
v_versiedatum || '|' || v_omschrijving || '|' || v_code;
v_versiedatum || '|' || v_afdeling || '-' || v_functie || '|' || v_code;
v_count_tot := v_count_tot + 1;
-- Skip until the header is found
IF header_is_valid = 0
THEN
IF v_omschrijving = 'omschrijving'
IF v_afdeling = 'afdeling'
AND v_functie = 'functie'
AND v_code = 'code'
AND v_lettercode = 'lettercode'
AND v_token = 'token'
@@ -157,7 +160,8 @@ BEGIN
END;
INSERT INTO hmod_imp_koffersysteem (versiedatum,
omschrijving,
afdeling,
functie,
code,
lettercode,
token,
@@ -179,7 +183,8 @@ BEGIN
volgnr,
opmerking)
VALUES (v_versiedatum,
v_omschrijving,
v_afdeling,
v_functie,
v_code,
v_lettercode,
v_token,
@@ -268,6 +273,8 @@ CREATE OR REPLACE VIEW hmod_v_koffersysteem
OMSCHRIJVING_TOTAAL,
VERSIEDATUM,
OMSCHRIJVING,
AFDELING,
FUNCTIE,
CODE,
LETTERCODE,
TOKEN,
@@ -290,9 +297,11 @@ CREATE OR REPLACE VIEW hmod_v_koffersysteem
OPMERKING
)
AS
SELECT OMSCHRIJVING || ' (' || code || ')' AS omschrijving_totaal,
SELECT afdeling || ' - ' || functie || ' (' || code || ')' AS omschrijving_totaal,
versiedatum,
omschrijving,
afdeling || ' - ' || functie AS omschrijving,
afdeling,
functie,
code,
lettercode,
token,
@@ -323,8 +332,9 @@ CREATE OR REPLACE VIEW hmod_v_koffersysteem_huidig
VERSIEDATUM,
FORMATIEPLAATS,
ORGANISATIE_CODE,
ORGANISATIE_TOT,
FUNCTIE_CODE,
FUNCTIE_0, -- substr uit koffersysteem_totaalomschrijving
FUNCTIE_0, -- uit koffersysteem ADP
FUNCTIE_1, -- uit prs_srtfunctie
FUNCTIE_TOT
)
@@ -336,14 +346,14 @@ AS
k.code,
SUBSTR (k.code, 1, INSTR (k.code, '-')-1)
organisatie_code,
k.afdeling,
SUBSTR(k.code,(instr(k.code,'-')+1),LENGTH(k.code))
functie_code,
SUBSTR(k.omschrijving_totaal, INSTR(k.omschrijving_totaal, CHR(45))+1,(INSTR(k.omschrijving_totaal, CHR(40))-2)-(INSTR(k.omschrijving_totaal, CHR(45))))
k.functie
functie_0,
f.functie
functie_1,
SUBSTR(k.code,(instr(k.code,CHR(45))+1),LENGTH(k.code)) || ' - ' ||
SUBSTR(k.omschrijving_totaal, INSTR(k.omschrijving_totaal, CHR(45))+1,(INSTR(k.omschrijving_totaal, CHR(40))-2)-(INSTR(k.omschrijving_totaal, CHR(45))))
SUBSTR(k.code,(instr(k.code,CHR(45))+1),LENGTH(k.code)) || ' - ' || k.functie
functie_tot
FROM hmod_v_koffersysteem k,
(SELECT v.functie_code, v.formatieplaats, MAX (v.functie) functie
@@ -1375,6 +1385,62 @@ EXCEPTION
END hmod_update_perslid;
/
------------------------
-- NOTIFICATIEJOBS -----
------------------------
CREATE OR REPLACE VIEW hmod_v_noti_cntreminder
(
code,
sender,
receiver,
text,
key,
xkey,
xemail,
xmobile
)
AS
SELECT NULL,
NULL,
c.prs_perslid_key_beh,
'Rappel: Contract ' || c.cnt_contract_nummer_intern
|| DECODE (c.cnt_contract_versie, NULL, '', '.' || c.cnt_contract_versie)
|| ' (' || c.cnt_contract_omschrijving || ' ' || b.prs_bedrijf_naam || ')'
|| ' moet uiterlijk per ' || TO_CHAR (cnt.cnt_getopzegdatum (c.cnt_contract_key), 'dd-mm-yyyy')
|| ' worden verlengd of opgezegd.',
c.cnt_contract_key,
NULL,
NULL,
NULL
FROM cnt_v_aanwezigcontract c, prs_bedrijf b
WHERE c.cnt_prs_bedrijf_key = b.prs_bedrijf_key
AND cnt_contract_status = 0
AND (SYSDATE BETWEEN cnt.cnt_getrappeldatum (c.cnt_contract_key) AND cnt.cnt_getopzegdatum (c.cnt_contract_key))
UNION ALL
SELECT NULL,
NULL,
c.prs_perslid_key_eig,
'Rappel: Contract ' || c.cnt_contract_nummer_intern
|| DECODE (c.cnt_contract_versie, NULL, '', '.' || c.cnt_contract_versie)
|| ' (' || c.cnt_contract_omschrijving || ' ' || b.prs_bedrijf_naam || ')'
|| ' moet uiterlijk per ' || TO_CHAR (cnt.cnt_getopzegdatum (c.cnt_contract_key), 'dd-mm-yyyy')
|| ' worden verlengd of opgezegd.',
c.cnt_contract_key,
NULL,
NULL,
NULL
FROM cnt_v_aanwezigcontract c, prs_bedrijf b
WHERE c.cnt_prs_bedrijf_key = b.prs_bedrijf_key
AND cnt_contract_status = 0
AND c.prs_perslid_key_eig IS NOT NULL
AND (SYSDATE BETWEEN cnt.cnt_getrappeldatum (c.cnt_contract_key) AND cnt.cnt_getopzegdatum (c.cnt_contract_key));
---------------------
-- RAPPORTVIEWS -----
---------------------
-- Rapporview voor HMOD voor de Informatiegids om de telefoonnummers van Management te kunnen opvragen...
CREATE OR REPLACE VIEW hmod_v_rap_informatiegids
(