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

Bij wijzigen van ruimtenummer of werkpleknummer tijdens verwerken project ook gebouw en verdieping vermelden.

Browse Source 
Hierbij fac_messages gebruiken.

svn path=/Database/trunk/; revision=7165
This commit is contained in:
Erik Groener
1999-10-05 14:37:20 +00:00
parent 3378446948
commit d853b6e3dd
1 changed files with 38 additions and 22 deletions
Download Patch File Download Diff File Expand all files Collapse all files

60
PRJ/PRJ_PAC.SRC
View File

@@ -4,7 +4,8 @@
**
** REVISIONS:
**
** 11-11-1999 RD Nieuwe bugs toegevoegd.
** 05-10-1999 EGR In verwerk_project_description wordt voor wijzigingsmelding gebouwcode - verdiepingnummer - ruimtenummer/werkplek
** afgedrukt. Meldingen in verwerk_project_description via fac_message laten lopen.
** 04-10-1999 EGR Voor verwerk_project_... de cursors aangepast voor objecten. Deze mogen niets selecteren als ruimtekey=0
** of een werkplek met ruimtekey=0.
** prj_f_fac_get_description moet voor realworld gegevens uit all_v_aanwezigdeel halen ivm autorisatie fcltcad.
@@ -3301,28 +3302,35 @@ CREATE OR REPLACE PACKAGE BODY prj AS
omschrijving VARCHAR2(30);
SrtDeelCode VARCHAR2(30);
dummy VARCHAR2(1);
ruimte_nr VARCHAR2(10);
ruimte_nr VARCHAR2(30);
melding prs_verwerk_log.prj_log%TYPE;
BEGIN
IF element_type = 'RUIMTE'
THEN
/* Zoek op de geselecteerde verdieping of het huidige ruimtenummer al voor komt. */
BEGIN
SELECT 'x'
INTO dummy
FROM alg_ruimte
WHERE alg_ruimte_nr = element_omschrijving
AND alg_verdieping_key = element_key
AND alg_ruimte_verwijder IS NULL;
SELECT G.alg_gebouw_code ||' - '|| to_char(V.alg_verdieping_volgnr) ||' - '
INTO ruimte_nr
FROM alg_gebouw G
, alg_verdieping V
, alg_ruimte R
WHERE G.alg_gebouw_key = V.alg_gebouw_key
AND V.alg_verdieping_key = R.alg_verdieping_key
AND R.alg_verdieping_key = element_key
AND R.alg_ruimte_nr = element_omschrijving
AND R.alg_ruimte_verwijder IS NULL;
/* Deze ruimtenummer komt al voor, dus een nieuw nummer bepalen. */
omschrijving := fac_f_fac_get_description('LPN_ALG_RUIMTE'
,element_key
,NULL
,NULL);
prj.verwerk_log('Ruimtenummer <'|| element_omschrijving
||'> bestaat al; gewijzigd in <'|| omschrijving ||'>.'
,session_id
,project_key);
EXCEPTION
SELECT REPLACE(REPLACE(fac_message_text,'%1%',ruimte_nr || element_omschrijving)
,'%2%',ruimte_nr || omschrijving)
INTO melding
FROM fac_message
WHERE fac_message_code='PRJ_M063';
prj.verwerk_log(melding,session_id,project_key);
EXCEPTION
WHEN NO_DATA_FOUND
THEN /* Ruimtenummer komt nog niet voor in de echte situatie. */
omschrijving := element_omschrijving;
@@ -3331,11 +3339,15 @@ CREATE OR REPLACE PACKAGE BODY prj AS
THEN
/* Zoek in de geselecteerde ruimte of het huidige werkpleknummer al voor komt. */
BEGIN
SELECT alg_ruimte_nr
SELECT G.alg_gebouw_code ||' - '|| to_char(V.alg_verdieping_volgnr) ||' - '|| R.alg_ruimte_nr
INTO ruimte_nr
FROM prs_werkplek W
, alg_ruimte R
, alg_verdieping V
, alg_gebouw G
WHERE W.prs_alg_ruimte_key = R.alg_ruimte_key
AND R.alg_verdieping_key = V.alg_verdieping_key
AND V.alg_gebouw_key = G.alg_gebouw_key
AND W.prs_werkplek_volgnr = element_omschrijving
AND W.prs_alg_ruimte_key = element_key
AND W.prs_werkplek_verwijder IS NULL;
@@ -3344,10 +3356,12 @@ CREATE OR REPLACE PACKAGE BODY prj AS
,element_key
,NULL
,NULL);
prj.verwerk_log('Werkpleknummer <'|| ruimte_nr ||'/'|| element_omschrijving
||'> bestaat al; gewijzigd in <'|| ruimte_nr ||'/'|| omschrijving ||'>.'
,session_id
,project_key);
SELECT REPLACE(REPLACE(fac_message_text,'%1%',ruimte_nr ||'/'|| element_omschrijving)
,'%2%',ruimte_nr ||'/'|| omschrijving)
INTO melding
FROM fac_message
WHERE fac_message_code='PRJ_M064';
prj.verwerk_log(melding,session_id,project_key);
EXCEPTION
WHEN NO_DATA_FOUND
THEN /* Werkpleknummer komt nog niet voor in de echte situatie. */
@@ -3378,10 +3392,12 @@ CREATE OR REPLACE PACKAGE BODY prj AS
,element_key
,SrtDeelCode
,prefix_key);
prj.verwerk_log('Objectomschrijving <'|| element_omschrijving
||'> bestaat al; gewijzigd in <'|| omschrijving ||'>.'
,session_id
,project_key);
SELECT REPLACE(REPLACE(fac_message_text,'%1%',element_omschrijving)
,'%2%',omschrijving)
INTO melding
FROM fac_message
WHERE fac_message_code='PRJ_M065';
prj.verwerk_log(melding,session_id,project_key);
EXCEPTION
WHEN NO_DATA_FOUND
THEN /* Omschrijving komt nog niet voor in de echte situatie. */