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

BLCC#72529 Inrichten BHV organisatie+BLCC#74209 Rap/Diverse wijzigingen

Browse Source 
svn path=/Customer/trunk/; revision=57196
This commit is contained in:
Maarten van der Heide
2022-09-08 13:02:36 +00:00
parent 76560c823b
commit e154ee4d77
1 changed files with 310 additions and 236 deletions
Download Patch File Download Diff File Expand all files Collapse all files

546
BLCC/blcc.sql
View File

@@ -21,95 +21,8 @@ PROMPT &fcltcusttxt
SET DEFINE OFF
------ payload begin ------
-- Herhalingen BHV theorie per jaar
CREATE OR REPLACE VIEW BLCC_V_RAP_BHV_HERHALING_T
(
INS_DEEL_KEY,
OMSCHRIJVING,
OPMERKING,
SOORTDEEL_KEY,
SOORT_OPLEIDING,
COLLECTIEF_HUURDERSPEC,
PRS_PERSLID_KEY,
PERSLID_EMAIL,
PERSLID_NAAM_FULL,
PERSLID_NAAM_FRIENDLY,
CODE_HERHALING_THEORIE,
REGISTRATIEDATUM_CODE,
JAARTAL_CODE
)
AS
SELECT d.ins_deel_key,
d.ins_deel_omschrijving,
d.ins_deel_opmerking,
sd.ins_srtdeel_key,
sd.ins_srtdeel_omschrijving,
coll_huurderspec.fac_usrdata_code
coll_hrdspec,
p.prs_perslid_key,
p.prs_perslid_email,
prs_perslid_naam
|| DECODE (p.prs_perslid_voorletters,
NULL, '',
', ' || p.prs_perslid_voorletters)
|| DECODE (p.prs_perslid_tussenvoegsel,
NULL, '',
' ' || p.prs_perslid_tussenvoegsel)
|| DECODE (p.prs_perslid_voornaam,
NULL, '',
' (' || p.prs_perslid_voornaam || ')')
prs_perslid_naam_full,
DECODE (p.prs_perslid_voornaam,
NULL, '',
p.prs_perslid_voornaam || ' ')
|| DECODE (p.prs_perslid_tussenvoegsel,
NULL, '',
p.prs_perslid_tussenvoegsel || ' ')
|| prs_perslid_naam
prs_perslid_naam_friendly,
code.ins_kenmerkdeel_waarde
code_herh_theorie,
code.ins_kenmerkdeel_aanmaak,
EXTRACT (YEAR FROM ins_kenmerkdeel_aanmaak)
jaar
FROM ins_discipline di,
ins_v_aanwezigsrtgroep sg,
ins_v_aanwezigsrtdeel sd,
ins_v_aanwezigdeel d,
prs_perslid p,
(SELECT kd.ins_deel_key,
kd.ins_kenmerkdeel_waarde,
kd.ins_kenmerkdeel_aanmaak
FROM ins_kenmerk k, ins_srtkenmerk sk, ins_kenmerkdeel kd
WHERE k.ins_srtkenmerk_key = sk.ins_srtkenmerk_key
AND sk.ins_srtkenmerk_key = 261
AND kd.ins_kenmerk_key = k.ins_kenmerk_key
AND kd.ins_kenmerkdeel_verwijder IS NULL) code,
(SELECT kd.ins_deel_key, ud.fac_usrdata_code
FROM ins_kenmerk k,
ins_srtkenmerk sk,
ins_kenmerkdeel kd,
fac_usrdata ud,
fac_usrtab ut
WHERE k.ins_srtkenmerk_key = sk.ins_srtkenmerk_key
AND sk.ins_srtkenmerk_key = 85
AND kd.ins_kenmerk_key = k.ins_kenmerk_key
AND kd.ins_kenmerkdeel_verwijder IS NULL
AND fac.safe_to_number (kd.ins_kenmerkdeel_waarde) =
ud.fac_usrdata_key
AND ud.fac_usrtab_key = ut.fac_usrtab_key
AND ut.fac_usrtab_key = 941) coll_huurderspec
WHERE sd.ins_srtdeel_key = d.ins_srtdeel_key
AND sg.ins_srtgroep_key = sd.ins_srtgroep_key
AND di.ins_discipline_key = sg.ins_discipline_key
AND d.prs_perslid_key_beh = p.prs_perslid_key(+)
AND code.ins_deel_key = d.ins_deel_key
AND coll_huurderspec.ins_deel_key(+) = d.ins_deel_key
AND sd.ins_srtdeel_key = 281 --- BHV basis opleidingen
AND ( COALESCE (d.ins_deel_vervaldatum, SYSDATE + 1) >= SYSDATE
OR d.ins_deel_vervaldatum IS NULL)
AND d.ins_deel_verwijder IS NULL;
-- BLCC#63461: Bron tbv. te verwijderen oude accounts (halfjaar niet ingelogd).
-- BLCC#72389: Aangevinkte personen/accounts niet automatisch schonen.
CREATE OR REPLACE VIEW blcc_v_rap_oude_accounts
@@ -693,7 +606,7 @@ IS
PROCEDURE blcc_noti_ctr_ehbo_tas;
PROCEDURE blcc_onderhoud_AED;
PROCEDURE blcc_facturatie_bhv_basis_t;
END;
@@ -1364,55 +1277,137 @@ IS
COMMIT;
END blcc_onderhoud_AED;
PROCEDURE blcc_facturatie_bhv_basis_t
AS
v_telling NUMBER;
v_melding_key NUMBER;
c_applname VARCHAR2 (50)
:= 'Melding tbv facturatie BHV basis theorie';
v_errorhint VARCHAR2 (1000);
v_errormsg VARCHAR2 (1000);
oracle_err_num NUMBER;
oracle_err_mes VARCHAR2 (200);
AS
v_telling NUMBER;
v_melding_key NUMBER;
c_applname VARCHAR2 (50)
:= 'Melding tbv facturatie BHV basis theorie';
v_errorhint VARCHAR2 (1000);
v_errormsg VARCHAR2 (1000);
oracle_err_num NUMBER;
oracle_err_mes VARCHAR2 (200);
-- de huurderspecifieke opleidingen die doorbelast moeten worden
-- voor elke huurderspecifieke opleiding moet een melding aangemaakt worden
CURSOR huurderspecifiek IS
SELECT idsc.ins_deelsrtcontrole_datum,
isc.ins_srtcontrole_omschrijving,
a.prs_afdeling_omschrijving,
o.ins_deel_key,
o.prs_perslid_key,
o.perslid_naam_friendly,
o.code_herhaling_theorie
FROM blcc_v_rap_bhv_herhaling_t o,
ins_deelsrtcontrole idsc,
ins_srtcontrole isc,
prs_perslid p,
prs_afdeling a
WHERE o.jaartal_code = EXTRACT (YEAR FROM SYSDATE)
AND UPPER (o.collectief_huurderspec) = 'HUURDERSPECIFIEK'
AND o.ins_deel_key = idsc.ins_deel_key
AND isc.ins_srtcontrole_key = idsc.ins_srtcontrole_key
AND isc.ins_srtcontrole_key = 51
AND p.prs_perslid_key = o.prs_perslid_key
AND a.prs_afdeling_key = p.prs_afdeling_key;
BEGIN
-- de totale aantallen codes die voor dit jaar is aangemaakt
-- deze moeten in een nieuwe melding 'Opleiding collectief' komen te staan
-- de huurderspecifieke opleidingen die doorbelast moeten worden
-- voor elke huurderspecifieke opleiding moet een melding aangemaakt worden
CURSOR huurderspecifiek IS
SELECT idsc.ins_deelsrtcontrole_datum,
isc.ins_srtcontrole_omschrijving,
a.prs_afdeling_omschrijving,
o.ins_deel_key,
o.prs_perslid_key,
o.perslid_naam_friendly,
o.code_herhaling_theorie
FROM blcc_v_rap_bhv_herhaling_t o,
ins_deelsrtcontrole idsc,
ins_srtcontrole isc,
prs_perslid p,
prs_afdeling a
WHERE o.jaartal_code = EXTRACT (YEAR FROM SYSDATE)
AND UPPER (o.collectief_huurderspec) = 'HUURDERSPECIFIEK'
AND o.ins_deel_key = idsc.ins_deel_key
AND isc.ins_srtcontrole_key = idsc.ins_srtcontrole_key
AND isc.ins_srtcontrole_key = 51
AND p.prs_perslid_key = o.prs_perslid_key
AND a.prs_afdeling_key = p.prs_afdeling_key;
SELECT COUNT (o.code_herhaling_theorie) aantal
INTO v_telling
FROM blcc_v_rap_bhv_herhaling_t o
WHERE o.jaartal_code = EXTRACT (YEAR FROM SYSDATE)
GROUP BY o.jaartal_code;
CURSOR codes IS
SELECT d.ins_deel_omschrijving,
code.ins_kenmerkdeel_key,
EXTRACT (YEAR FROM ins_kenmerkdeel_aanmaak) jaar
FROM ins_discipline di,
ins_v_aanwezigsrtgroep sg,
ins_v_aanwezigsrtdeel sd,
ins_v_aanwezigdeel d,
prs_perslid p,
(SELECT kd.ins_deel_key,
kd.ins_kenmerkdeel_key,
kd.ins_kenmerkdeel_waarde,
kd.ins_kenmerkdeel_aanmaak
FROM ins_kenmerk k, ins_srtkenmerk sk, ins_kenmerkdeel kd
WHERE k.ins_srtkenmerk_key = sk.ins_srtkenmerk_key
AND sk.ins_srtkenmerk_key = 261
AND kd.ins_kenmerk_key = k.ins_kenmerk_key
AND kd.ins_kenmerkdeel_verwijder IS NULL) code
WHERE sd.ins_srtdeel_key = d.ins_srtdeel_key
AND sg.ins_srtgroep_key = sd.ins_srtgroep_key
AND di.ins_discipline_key = sg.ins_discipline_key
AND d.prs_perslid_key_beh = p.prs_perslid_key(+)
AND code.ins_deel_key = d.ins_deel_key
AND sd.ins_srtdeel_key = 281 --- BHV basis opleidingen
AND ( COALESCE (d.ins_deel_vervaldatum, SYSDATE + 1) >=
SYSDATE
OR d.ins_deel_vervaldatum IS NULL)
AND d.ins_deel_verwijder IS NULL
AND EXTRACT (YEAR FROM ins_kenmerkdeel_aanmaak) =
EXTRACT (YEAR FROM SYSDATE);
BEGIN
-- de totale aantallen codes die voor dit jaar is aangemaakt
-- deze moeten in een nieuwe melding 'Opleiding collectief' komen te staan
v_errorhint := 'Fout bij aanmaken facturatie BHV theorie';
SELECT COUNT (o.code_herhaling_theorie) aantal
INTO v_telling
FROM blcc_v_rap_bhv_herhaling_t o
WHERE o.jaartal_code = EXTRACT (YEAR FROM SYSDATE)
GROUP BY o.jaartal_code;
v_errorhint := 'Fout bij aanmaken facturatie BHV theorie';
IF v_telling > 0
THEN
IF v_telling > 0
THEN
INSERT INTO mld_melding (mld_melding_module,
mld_meldbron_key,
mld_melding_datum,
mld_melding_omschrijving,
mld_melding_opmerking,
mld_alg_locatie_key,
mld_stdmelding_key,
prs_perslid_key,
mld_melding_status,
mld_melding_spoed)
VALUES (
'MLD',
6, -- System
SYSDATE,
'Er zijn '
|| v_telling
|| ' aantal codes uitgegeven voor het theoriegedeelte van de BHV basis training',
'Facturatie herhaling BHV basis theorie',
1,
1514, -- Opleiding collectief
4, -- Facilitor
2, -- Nieuw
3)
RETURNING mld_melding_key
INTO v_melding_key;
fac.writelog (
c_applname,
'S',
'Melding '
|| v_melding_key
|| ' tbv facturatie herhaling BHV basis',
'');
COMMIT;
FOR rec IN codes
LOOP
BEGIN
UPDATE INS_KENMERKDEEL kd
SET kd.ins_kenmerkdeel_verwijder = SYSDATE
WHERE kd.ins_kenmerkdeel_key = rec.ins_kenmerkdeel_key;
COMMIT;
END;
END LOOP;
END IF;
-- Voor doorbelasting huurderspecifiek wordt een melding per code aangemaakt
FOR rec IN huurderspecifiek
LOOP
BEGIN
INSERT INTO mld_melding (mld_melding_module,
mld_meldbron_key,
mld_melding_datum,
@@ -1425,96 +1420,54 @@ IS
mld_melding_spoed)
VALUES (
'MLD',
6, -- System
6, -- System
SYSDATE,
'Er zijn '
|| v_telling
|| ' aantal codes uitgegeven voor het theoriegedeelte van de BHV basis training',
'Facturatie herhaling BHV basis theorie',
'Er is een code uitgegeven voor herhaling BHV basis voor '
|| rec.perslid_naam_friendly,
'Doorbelasting herhaling BHV basis theorie '
|| rec.prs_afdeling_omschrijving,
1,
1514, -- Opleiding collectief
4, -- Facilitor
2, -- Nieuw
1515, -- Opleiding huurderspecifiek
rec.prs_perslid_key, -- BHV-er
2, -- Nieuw
3)
RETURNING mld_melding_key
INTO v_melding_key;
---- om welke opleiding gaat het
INSERT INTO mld_melding_object (mld_melding_key, ins_deel_key)
VALUES (v_melding_key, rec.ins_deel_key);
fac.writelog (
c_applname,
'S',
'Melding '
|| v_melding_key
|| ' tbv facturatie herhaling BHV basis',
|| ' tbv doorbelasting herhaling BHV basis',
'');
END;
END LOOP;
COMMIT;
EXCEPTION
WHEN OTHERS
THEN
oracle_err_num := SQLCODE;
oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
v_errormsg :=
v_errormsg
|| ' ORACLE (error '
|| oracle_err_num
|| '/'
|| oracle_err_mes
|| ')';
fac.writelog (c_applname,
'E',
v_errormsg,
'');
COMMIT;
END IF;
-- Voor doorbelasting huurderspecifiek wordt een melding per code aangemaakt
FOR rec IN huurderspecifiek
LOOP
BEGIN
INSERT INTO mld_melding (mld_melding_module,
mld_meldbron_key,
mld_melding_datum,
mld_melding_omschrijving,
mld_melding_opmerking,
mld_alg_locatie_key,
mld_stdmelding_key,
prs_perslid_key,
mld_melding_status,
mld_melding_spoed)
VALUES (
'MLD',
6, -- System
SYSDATE,
'Er is een code uitgegeven voor herhaling BHV basis voor '
|| rec.perslid_naam_friendly,
'Doorbelasting herhaling BHV basis theorie '
|| rec.prs_afdeling_omschrijving,
1,
1515, -- Opleiding huurderspecifiek
rec.prs_perslid_key, -- BHV-er
2, -- Nieuw
3)
RETURNING mld_melding_key
INTO v_melding_key;
---- om welke opleiding gaat het
INSERT INTO mld_melding_object (mld_melding_key, ins_deel_key)
VALUES (v_melding_key, rec.ins_deel_key);
fac.writelog (
c_applname,
'S',
'Melding '
|| v_melding_key
|| ' tbv doorbelasting herhaling BHV basis',
'');
END;
END LOOP;
COMMIT;
EXCEPTION
WHEN OTHERS
THEN
oracle_err_num := SQLCODE;
oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
v_errormsg :=
v_errormsg
|| ' ORACLE (error '
|| oracle_err_num
|| '/'
|| oracle_err_mes
|| ')';
fac.writelog (c_applname,
'E',
v_errormsg,
'');
COMMIT;
END blcc_facturatie_bhv_basis_t;
END;
@@ -1546,7 +1499,7 @@ AS
v_sept NUMBER;
oracle_err_num NUMBER;
oracle_err_mes VARCHAR2 (200);
BEGIN
SELECT 1
INTO v_sept
@@ -1562,7 +1515,7 @@ BEGIN
THEN
blcc.blcc_facturatie_bhv_basis_t;
END IF;
EXCEPTION
WHEN OTHERS
THEN
@@ -19324,7 +19277,7 @@ AS
CREATE OR REPLACE VIEW blcc_v_rap_vastgoedgeg
AS
WITH ok AS (SELECT k.vnr, k.alg_kenmerk_key, k.alg_kenmerk_omschrijving, ok.alg_onrgoed_key, ok.waarde
WITH ok AS (SELECT k.vnr, k.alg_kenmerk_key, k.alg_kenmerk_omschrijving, ok.alg_onrgoed_key, ok.waarde, ok.alg_gebouw_key
FROM (SELECT ROWNUM vnr, alg_kenmerk_key, alg_kenmerk_omschrijving
FROM ( SELECT k.alg_kenmerk_key, k.alg_kenmerk_omschrijving, k.alg_kenmerk_aanmaak
FROM alg_kenmerk k
@@ -19370,11 +19323,13 @@ AS
'R', fac.getdomeinwaarde (k.fac_kenmerkdomein_key, ok.alg_onrgoedkenmerk_waarde),
'S', fac.getdomeinwaarde (k.fac_kenmerkdomein_key, ok.alg_onrgoedkenmerk_waarde),
ok.alg_onrgoedkenmerk_waarde)
waarde
FROM alg_v_aanwezigonrgoedkenmerk ok, alg_kenmerk k
waarde,
aog.alg_gebouw_key
FROM alg_v_aanwezigonrgoedkenmerk ok, alg_kenmerk k, alg_v_allonroerendgoed aog
WHERE ok.alg_kenmerk_key = k.alg_kenmerk_key
AND k.alg_kenmerk_verwijder IS NULL
AND k.alg_kenmerk_niveau IN ('G', 'V', 'R')) ok
AND k.alg_kenmerk_niveau IN ('G', 'V', 'R')
AND ok.alg_onrgoed_key = aog.alg_onroerendgoed_keys) ok
ON k.alg_kenmerk_key = ok.alg_kenmerk_key)
SELECT x.alg_locatie_key,
x.alg_regio_omschrijving regionaam,
@@ -19477,6 +19432,7 @@ AS
END
ruimte_vandaag_verhuurd
FROM (SELECT l.alg_locatie_key,
g.alg_gebouw_key,
g.alg_gebouw_key alg_onrgoed_key,
'G' alg_onrgoed_type,
reg.alg_regio_omschrijving,
@@ -19513,6 +19469,7 @@ AS
AND g.alg_gebouw_key = glhkot.alg_onrgoed_key(+)
UNION ALL
SELECT t.alg_locatie_key,
NULL alg_gebouw_key,
t.alg_terreinsector_key alg_onrgoed_key,
'T' alg_onrgoed_type,
reg.alg_regio_omschrijving,
@@ -19543,6 +19500,7 @@ AS
AND d.alg_regio_key = reg.alg_regio_key
UNION ALL
SELECT g.alg_locatie_key,
g.alg_gebouw_key,
v.alg_verdieping_key alg_onrgoed_key,
'V' alg_onrgoed_type,
reg.alg_regio_omschrijving,
@@ -19581,6 +19539,7 @@ AS
AND v.alg_verdieping_key = vlhkot.alg_onrgoed_key(+)
UNION ALL
SELECT g.alg_locatie_key,
g.alg_gebouw_key,
r.alg_ruimte_key alg_onrgoed_key,
'R' alg_onrgoed_type,
reg.alg_regio_omschrijving,
@@ -19654,7 +19613,7 @@ AS
AND strategie.alg_kenmerk_key = 1161 -- Strategie
AND strategie.alg_onrgoed_niveau = 'G'
LEFT JOIN alg_v_aanwezigonrgoedkenmerk gc
ON x.alg_onrgoed_key = gc.alg_onrgoed_key
ON x.alg_gebouw_key = gc.alg_onrgoed_key
AND gc.alg_kenmerk_key = 1940 -- Gebouwcluster
AND gc.alg_onrgoed_niveau = 'G'
LEFT JOIN ( SELECT t.fac_tracking_refkey, MAX (t.fac_tracking_datum) last_change
@@ -19673,7 +19632,7 @@ AS
AND cont.cad_tekening_key = tek.cad_tekening_key
LEFT JOIN ( SELECT cp.cnt_alg_plaats_key, COUNT ( * )
FROM cnt_contract c, cnt_contract_plaats cp
WHERE c.ins_discipline_key IN (2122,2123) -- LA/LA CRF
WHERE c.ins_discipline_key = 2122 -- Alleen LA (niet LA CRF)!
AND SYSDATE BETWEEN TRUNC (c.cnt_contract_looptijd_van) AND TRUNC (c.cnt_contract_looptijd_tot + 1)
AND c.cnt_contract_status = 0 -- Definitief
AND c.cnt_contract_key = cp.cnt_contract_key
@@ -19726,8 +19685,8 @@ AS
LEFT JOIN ok k43 ON x.alg_onrgoed_key = k43.alg_onrgoed_key AND k43.vnr = 43
LEFT JOIN ok k44 ON x.alg_onrgoed_key = k44.alg_onrgoed_key AND k44.vnr = 44
LEFT JOIN ok k45 ON x.alg_onrgoed_key = k45.alg_onrgoed_key AND k45.vnr = 45
LEFT JOIN ok k46 ON x.alg_onrgoed_key = k46.alg_onrgoed_key AND k46.vnr = 46
LEFT JOIN ok k47 ON x.alg_onrgoed_key = k47.alg_onrgoed_key AND k47.vnr = 47
LEFT JOIN ok k46 ON x.alg_gebouw_key = k46.alg_gebouw_key AND k46.vnr = 46 -- in_expl_dat
LEFT JOIN ok k47 ON x.alg_gebouw_key = k47.alg_gebouw_key AND k47.vnr = 47 -- uit_expl_dat
LEFT JOIN ok k48 ON x.alg_onrgoed_key = k48.alg_onrgoed_key AND k48.vnr = 48
LEFT JOIN ok k49 ON x.alg_onrgoed_key = k49.alg_onrgoed_key AND k49.vnr = 49
LEFT JOIN ok k50 ON x.alg_onrgoed_key = k50.alg_onrgoed_key AND k50.vnr = 50
@@ -20358,21 +20317,23 @@ AS
--x.ruimteomschrijving, -- Actuele ruimteomschrijving
--NULL nvo, -- Niet bewaard in FIN_VERKOOPFACTUUR-tabel
--NULL nvo_getekend, -- Niet bewaard in FIN_VERKOOPFACTUUR-tabel
CASE
WHEN x.huur_maand < '202210'
THEN
TO_CHAR (x.vvo, 'fm999999999999999990.00')
ELSE
TO_CHAR (r.vvo, 'fm999999999999999990.00')
END
--CASE
-- WHEN x.huur_maand < '202301'
-- THEN
-- TO_CHAR (x.vvo, 'fm999999999999999990.00') -- Op basis van verkoopfacturen!
-- ELSE
-- TO_CHAR (r.vvo, 'fm999999999999999990.00') -- Op basis van VVO bij ruimte!
--END
TO_CHAR (x.vvo, 'fm999999999999999990.00')
vvo,
CASE
WHEN x.huur_maand < '202210'
THEN
TO_CHAR (NULL, 'fm999999999999999990.00')
ELSE
TO_CHAR (x.vvo, 'fm999999999999999990.00')
END
--CASE
-- WHEN x.huur_maand < '202301'
-- THEN
-- TO_CHAR (NULL, 'fm999999999999999990.00') -- Leeg
-- ELSE
-- TO_CHAR (x.vvo, 'fm999999999999999990.00') -- Op basis van verkoopfacturen!
--END
TO_CHAR (NULL, 'fm999999999999999990.00')
vvo_overeenkomst,
x.lhkotc_class,
x.cnt_contract_key,
@@ -20467,7 +20428,7 @@ AS
AND r.alg_srtruimte_key = sr.alg_srtruimte_key(+)) x
LEFT JOIN
blcc_alg_freeze r
ON x.huur_maand = r.huur_maand AND x.alg_ruimte_key = r.alg_ruimte_key
ON x.huur_maand = REPLACE (r.huur_maand, '-', '') AND x.alg_ruimte_key = r.alg_ruimte_key
;
/*
LEFT JOIN ( SELECT x.fin_verkoopfactuur_maand huurmaand,
@@ -25049,7 +25010,7 @@ AS
CREATE OR REPLACE VIEW BLCC_V_RAP_BHV_HERHALING_T
(
INS_DEEL_KEY,
OMSCHRIJVING,
OMSCHRIJVING,
OPMERKING,
SOORTDEEL_KEY,
SOORT_OPLEIDING,
@@ -25070,7 +25031,7 @@ AS
sd.ins_srtdeel_omschrijving,
coll_huurderspec.fac_usrdata_code
coll_hrdspec,
p.prs_perslid_key,
p.prs_perslid_key,
p.prs_perslid_email,
prs_perslid_naam
|| DECODE (p.prs_perslid_voorletters,
@@ -25132,8 +25093,121 @@ AS
AND sd.ins_srtdeel_key = 281 --- BHV basis opleidingen
AND ( COALESCE (d.ins_deel_vervaldatum, SYSDATE + 1) >= SYSDATE
OR d.ins_deel_vervaldatum IS NULL)
AND d.ins_deel_verwijder IS NULL;
AND d.ins_deel_verwijder IS NULL;
-- Herhalingen BHV theorie per jaar
CREATE OR REPLACE VIEW BLCC_V_RAP_BHV_HERHALING_T
(
INS_DEEL_KEY,
OMSCHRIJVING,
OPMERKING,
SOORTDEEL_KEY,
SOORT_OPLEIDING,
COLLECTIEF_HUURDERSPEC,
PRS_PERSLID_KEY,
PERSLID_EMAIL,
PERSLID_NAAM_FULL,
PERSLID_NAAM_FRIENDLY,
CODE_HERHALING_THEORIE,
REGISTRATIEDATUM_CODE,
JAARTAL_CODE
)
AS
SELECT d.ins_deel_key,
d.ins_deel_omschrijving,
d.ins_deel_opmerking,
sd.ins_srtdeel_key,
sd.ins_srtdeel_omschrijving,
coll_huurderspec.fac_usrdata_code
coll_hrdspec,
p.prs_perslid_key,
p.prs_perslid_email,
prs_perslid_naam
|| DECODE (p.prs_perslid_voorletters,
NULL, '',
', ' || p.prs_perslid_voorletters)
|| DECODE (p.prs_perslid_tussenvoegsel,
NULL, '',
' ' || p.prs_perslid_tussenvoegsel)
|| DECODE (p.prs_perslid_voornaam,
NULL, '',
' (' || p.prs_perslid_voornaam || ')')
prs_perslid_naam_full,
DECODE (p.prs_perslid_voornaam,
NULL, '',
p.prs_perslid_voornaam || ' ')
|| DECODE (p.prs_perslid_tussenvoegsel,
NULL, '',
p.prs_perslid_tussenvoegsel || ' ')
|| prs_perslid_naam
prs_perslid_naam_friendly,
code.ins_kenmerkdeel_waarde
code_herh_theorie,
code.ins_kenmerkdeel_aanmaak,
EXTRACT (YEAR FROM ins_kenmerkdeel_aanmaak)
jaar
FROM ins_discipline di,
ins_v_aanwezigsrtgroep sg,
ins_v_aanwezigsrtdeel sd,
ins_v_aanwezigdeel d,
prs_perslid p,
(SELECT kd.ins_deel_key,
kd.ins_kenmerkdeel_waarde,
kd.ins_kenmerkdeel_aanmaak
FROM ins_kenmerk k, ins_srtkenmerk sk, ins_kenmerkdeel kd
WHERE k.ins_srtkenmerk_key = sk.ins_srtkenmerk_key
AND sk.ins_srtkenmerk_key = 261
AND kd.ins_kenmerk_key = k.ins_kenmerk_key
AND kd.ins_kenmerkdeel_verwijder IS NULL) code,
(SELECT kd.ins_deel_key, ud.fac_usrdata_code
FROM ins_kenmerk k,
ins_srtkenmerk sk,
ins_kenmerkdeel kd,
fac_usrdata ud,
fac_usrtab ut
WHERE k.ins_srtkenmerk_key = sk.ins_srtkenmerk_key
AND sk.ins_srtkenmerk_key = 85
AND kd.ins_kenmerk_key = k.ins_kenmerk_key
AND kd.ins_kenmerkdeel_verwijder IS NULL
AND fac.safe_to_number (kd.ins_kenmerkdeel_waarde) =
ud.fac_usrdata_key
AND ud.fac_usrtab_key = ut.fac_usrtab_key
AND ut.fac_usrtab_key = 941) coll_huurderspec
WHERE sd.ins_srtdeel_key = d.ins_srtdeel_key
AND sg.ins_srtgroep_key = sd.ins_srtgroep_key
AND di.ins_discipline_key = sg.ins_discipline_key
AND d.prs_perslid_key_beh = p.prs_perslid_key(+)
AND code.ins_deel_key = d.ins_deel_key
AND coll_huurderspec.ins_deel_key(+) = d.ins_deel_key
AND sd.ins_srtdeel_key = 281 --- BHV basis opleidingen
AND ( COALESCE (d.ins_deel_vervaldatum, SYSDATE + 1) >= SYSDATE
OR d.ins_deel_vervaldatum IS NULL)
AND d.ins_deel_verwijder IS NULL;
CREATE OR REPLACE VIEW blcc_v_rap_bhv_herh_t_voltooid
(
omschrijving,
soort_opleiding,
mdw_email,
mdw_naam,
code_herh_theorie,
jaartal_code_uitgegeven,
datum_theorie_voltooid
)
AS
SELECT d.omschrijving,
d.soort_opleiding,
d.perslid_email,
d.perslid_naam_full,
d.code_herhaling_theorie,
d.jaartal_code,
idsc.ins_deelsrtcontrole_datum
FROM ins_deelsrtcontrole idsc, blcc_v_rap_bhv_herhaling_t d
WHERE d.ins_deel_key = idsc.ins_deel_key
AND idsc.ins_srtcontrole_key = 51
AND EXTRACT (YEAR FROM idsc.ins_deelsrtcontrole_datum) =
d.jaartal_code;
------ payload end ------
SET DEFINE OFF