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

FSN#26537 AiAi error op KWIS-rapport

Browse Source 
svn path=/Customer/trunk/; revision=17887
This commit is contained in:
Maarten van der Heide
2013-05-13 09:50:40 +00:00
parent 82311cc29d
commit 460d5f8dc9
1 changed files with 101 additions and 102 deletions
Download Patch File Download Diff File Expand all files Collapse all files

203
GVBA/gvba.sql
View File

@@ -2098,106 +2098,106 @@ CREATE OR REPLACE PACKAGE GVBA_RAP AS
END;
/
CREATE OR REPLACE PACKAGE BODY GVBA_RAP AS
--
-- Algemene procedures en functies.
--
/* Formatted on 13-5-2013 11:45:15 (QP5 v5.115.810.9015) */
CREATE OR REPLACE PACKAGE BODY GVBA_RAP
AS
--
-- Algemene procedures en functies.
--
PROCEDURE gvba_rap_kwismelding (user_key IN NUMBER
, p_datum_van IN VARCHAR2 -- Let wel: formaat '13-05-2005'
, p_datum_tot IN VARCHAR2
, p_cursor OUT t_cursor) AS
v_datum_van DATE;
v_datum_tot DATE;
BEGIN
v_datum_van := fac.safe_to_date(p_datum_van, 'dd-mm-yyyy');
v_datum_tot := fac.safe_to_date(p_datum_tot, 'dd-mm-yyyy');
OPEN p_cursor FOR
SELECT DISTINCT m.mld_melding_key melding,
TO_CHAR (m.mld_melding_datum, 'DD-MM-YYYY HH24:MI') datum,
(SELECT mld_statuses_omschrijving
FROM mld_statuses s
WHERE m.mld_melding_status = s.mld_statuses_key) status,
TO_CHAR (mld.getmeldingstatusdate (m.mld_melding_key, m.mld_melding_status),
'YYYY-MM-DD HH24:MI'
) laatste_actie,
(SELECT sd.ins_srtdiscipline_omschrijving
FROM ins_srtdiscipline sd
WHERE sd.ins_srtdiscipline_key =
md.ins_srtdiscipline_key)
kwis,
SUBSTR (md.ins_discipline_omschrijving, 3) vakgroep,
(SELECT stdm.mld_stdmelding_omschrijving
FROM mld_stdmelding stdm
WHERE m.mld_stdmelding_key =
stdm.mld_stdmelding_key)
melding,
m.mld_melding_omschrijving omschrijving,
m.mld_melding_opmerking actie,
(SELECT d.prs_afdeling_naam6
FROM prs_v_afdeling d
WHERE p.prs_afdeling_key = d.prs_afdeling_key) organisatie,
p.prs_perslid_naam
|| DECODE (NVL (p.prs_perslid_voorletters, ''),
'', '',
', ' || p.prs_perslid_voorletters
)
|| DECODE (NVL (p.prs_perslid_tussenvoegsel, ''),
'', '',
' ' || p.prs_perslid_tussenvoegsel
)
|| DECODE (NVL (p.prs_perslid_voornaam, ''),
'', '',
' (' || p.prs_perslid_voornaam || ')'
) naam,
(SELECT k.prs_kostenplaats_nr
|| ' '
|| k.prs_kostenplaats_omschrijving
FROM prs_kostenplaats k
WHERE k.prs_kostenplaats_key = m.prs_kostenplaats_key)
kostenplaats,
(SELECT alg_locatie_code
FROM alg_locatie l
WHERE m.mld_alg_locatie_key = l.alg_locatie_key)
|| (SELECT CASE COALESCE (g.alg_gebouw_code, '')
WHEN ''
THEN ''
ELSE '-' || g.alg_gebouw_code
END
|| CASE COALESCE (g.alg_verdieping_code, '')
WHEN ''
THEN ''
ELSE '-' || g.alg_verdieping_code
END
|| CASE COALESCE (g.alg_ruimte_nr, '')
WHEN ''
THEN ''
ELSE '-' || g.alg_ruimte_nr
END
|| CASE COALESCE (g.alg_terreinsector_code, '')
WHEN ''
THEN ''
ELSE '-' || g.alg_terreinsector_code
END
FROM alg_v_allonrgoed_gegevens g
WHERE m.mld_alg_onroerendgoed_keys =
g.alg_onroerendgoed_keys)
plaats
FROM mld_melding m,
mld_stdmelding std,
mld_discipline md,
alg_v_onroerendgoed_gegevens v,
alg_locatie l,
prs_perslid p
WHERE m.mld_alg_locatie_key = l.alg_locatie_key(+)
AND m.mld_alg_onroerendgoed_keys = v.alg_onroerendgoed_keys(+)
AND m.prs_perslid_key = p.prs_perslid_key
AND m.mld_stdmelding_key = std.mld_stdmelding_key
AND std.mld_ins_discipline_key = md.ins_discipline_key
AND m.mld_melding_datum BETWEEN v_datum_van
AND v_datum_tot
ORDER BY 1, 2, 3 DESC;
END;
PROCEDURE gvba_rap_kwismelding (user_key IN NUMBER,
p_datum_van IN VARCHAR2-- Let wel: formaat '13-05-2005'
,
p_datum_tot IN VARCHAR2,
p_cursor OUT t_cursor)
AS
v_datum_van DATE;
v_datum_tot DATE;
BEGIN
v_datum_van := fac.safe_to_date (p_datum_van, 'dd-mm-yyyy');
v_datum_tot := fac.safe_to_date (p_datum_tot, 'dd-mm-yyyy');
OPEN p_cursor FOR
SELECT DISTINCT
m.mld_melding_key nummer,
TO_CHAR (m.mld_melding_datum, 'DD-MM-YYYY HH24:MI') datum,
(SELECT mld_statuses_omschrijving
FROM mld_statuses s
WHERE m.mld_melding_status = s.mld_statuses_key)
status,
TO_CHAR (
mld.getmeldingstatusdate (m.mld_melding_key,
m.mld_melding_status),
'YYYY-MM-DD HH24:MI'
)
laatste_actie,
(SELECT sd.ins_srtdiscipline_omschrijving
FROM ins_srtdiscipline sd
WHERE sd.ins_srtdiscipline_key =
md.ins_srtdiscipline_key)
kwis,
SUBSTR (md.ins_discipline_omschrijving, 3) vakgroep,
(SELECT stdm.mld_stdmelding_omschrijving
FROM mld_stdmelding stdm
WHERE m.mld_stdmelding_key = stdm.mld_stdmelding_key)
melding,
m.mld_melding_omschrijving omschrijving,
m.mld_melding_opmerking actie,
(SELECT d.prs_afdeling_naam6
FROM prs_v_afdeling d
WHERE p.prs_afdeling_key = d.prs_afdeling_key)
organisatie,
p.prs_perslid_naam
|| DECODE (NVL (p.prs_perslid_voorletters, ''),
'', '',
', ' || p.prs_perslid_voorletters)
|| DECODE (NVL (p.prs_perslid_tussenvoegsel, ''),
'', '',
' ' || p.prs_perslid_tussenvoegsel)
|| DECODE (NVL (p.prs_perslid_voornaam, ''),
'', '',
' (' || p.prs_perslid_voornaam || ')')
naam,
(SELECT k.prs_kostenplaats_nr
|| ' '
|| k.prs_kostenplaats_omschrijving
FROM prs_kostenplaats k
WHERE k.prs_kostenplaats_key = m.prs_kostenplaats_key)
kostenplaats,
(SELECT alg_locatie_code
FROM alg_locatie l
WHERE m.mld_alg_locatie_key = l.alg_locatie_key)
|| (SELECT DECODE (g.alg_gebouw_code,
NULL, '',
'-' || g.alg_gebouw_code)
|| DECODE (g.alg_verdieping_code,
NULL, '',
'-' || g.alg_verdieping_code)
|| DECODE (g.alg_ruimte_nr,
NULL, '',
'-' || g.alg_ruimte_nr)
|| DECODE (g.alg_terreinsector_code,
NULL, '',
'-' || g.alg_terreinsector_code)
FROM alg_v_allonrgoed_gegevens g
WHERE m.mld_alg_onroerendgoed_keys =
g.alg_onroerendgoed_keys)
plaats
FROM mld_melding m,
mld_stdmelding std,
mld_discipline md,
alg_v_onroerendgoed_gegevens v,
alg_locatie l,
prs_perslid p
WHERE m.mld_alg_locatie_key = l.alg_locatie_key(+)
AND m.mld_alg_onroerendgoed_keys =
v.alg_onroerendgoed_keys(+)
AND m.prs_perslid_key = p.prs_perslid_key
AND m.mld_stdmelding_key = std.mld_stdmelding_key
AND std.mld_ins_discipline_key = md.ins_discipline_key
AND m.mld_melding_datum BETWEEN v_datum_van AND v_datum_tot
ORDER BY 1, 2, 3 DESC;
END;
END;
/
@@ -2235,11 +2235,10 @@ AS
imp_log_omschrijving fclt_f_omschrijving
FROM imp_log;
BEGIN fac.registercustversion('GVBA', 8); END;
BEGIN fac.registercustversion('GVBA', 9); END;
/
BEGIN adm.systrackscript('$Workfile: gvba.sql $', '$Revision$', 0); END;
/
commit;
spool off;
spool off