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

CONN#237

Browse Source 
svn path=/Database/trunk/; revision=8809
This commit is contained in:
Peter Feij
2004-09-15 07:47:50 +00:00
parent e9db3763a2
commit f68b3cd0be
1 changed files with 6 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
WEB/WEB_TRI.SRC
View File

@@ -75,6 +75,7 @@ BEGIN
keepmes NUMBER;
varstdmld VARCHAR2(30);
vardisc VARCHAR2(30);
varsrtdisc VARCHAR2(10);
BEGIN
IF :OLD.MLD_MELDING_DATUM IS NULL AND :NEW.MLD_MELDING_DATUM IS NOT NULL THEN
code := 'NEWMLD';
@@ -103,10 +104,11 @@ BEGIN
-- We can customize the events to trigger information to the user by the content of web_user_mess_text
IF actkey IS NOT NULL THEN
SELECT M.mld_stdmelding_omschrijving, D.ins_discipline_omschrijving
INTO varstdmld,vardisc
FROM mld_stdmelding M, mld_discipline D
SELECT M.mld_stdmelding_omschrijving, D.ins_discipline_omschrijving, SD.ins_srtdiscipline_prefix
INTO varstdmld, vardisc, varsrtdisc
FROM mld_stdmelding M, mld_discipline D, ins_srtdiscipline SD
WHERE M.mld_ins_discipline_key=D.ins_discipline_key
AND D.ins_srtdiscipline_key=SD.ins_srtdiscipline_key
AND M.mld_stdmelding_key=:new.mld_stdmelding_key;
INSERT INTO WEB_USER_MESSAGES (
@@ -126,7 +128,7 @@ BEGIN
NULL,
:NEW.PRS_PERSLID_KEY,
actkey,
REPLACE(REPLACE(REPLACE (mes,'##DISC##',vardisc),'##STDMLD##',varstdmld),'##KEY##',:NEW.mld_melding_key),
REPLACE(REPLACE(REPLACE (mes,'##DISC##',vardisc),'##STDMLD##',varstdmld),'##KEY##',varsrtdisc||to_char(:NEW.mld_melding_key)),
1,
:NEW.MLD_MELDING_KEY);
END IF;