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

Tikfoudje

Browse Source 
svn path=/Database/trunk/; revision=9823
This commit is contained in:
Jos Groot Lipman
2008-08-12 08:50:50 +00:00
parent 9555c4ee37
commit b1bf948495
1 changed files with 8 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
RES/RES_TRI.SRC
View File

@@ -1,7 +1,7 @@
#ifdef RES
/*
* $Revision: 89 $
* $Modtime: 8-08-08 9:52 $
* $Revision: 90 $
* $Modtime: 12-08-08 10:49 $
*/
#include "comsql.h"
@@ -182,7 +182,7 @@ BEGIN
END IF;
IF UPDATING ('res_rsv_deel_aantal') OR UPDATING ('res_rsv_deel_van') OR UPDATING ('res_rsv_deel_tot')
THEN
:new.res_rsv_deel_mutatie := SYSDATE;\
:new.res_rsv_deel_mutatie := SYSDATE;
END IF;
END;
/
@@ -452,8 +452,8 @@ BEGIN
lomschrijving res_rsv_ruimte.res_rsv_ruimte_omschrijving%TYPE;
lstatuswijziging BOOLEAN;
sgroep BOOLEAN; -- bepaalt of res_key of rsv_ruimte_key als parameter moet
lrefkey res_reservering.res_reservering_key%TYPE;
lxrefkey res_rsv_ruimte.res_rsv_ruimte_key%TYPE;
lrefkey res_reservering.res_reservering_key%TYPE;
lxrefkey res_rsv_ruimte.res_rsv_ruimte_key%TYPE;
skey VARCHAR2 (30);
lnotify res_disc_params.res_disc_params_notify%TYPE;
lsender fac_notificatie.fac_notificatie_sender_email%TYPE;
@@ -597,7 +597,7 @@ BEGIN
THEN
lsender := NULL;
END;
fac.clrnotifications (scode, :NEW.res_reservering_key);
fac.putnotificationsrtprio (NULL, :NEW.res_rsv_ruimte_contact_key, scode, lrefkey, soms, NULL, NULL, NULL, lxrefkey, 2, lsender);
@@ -639,7 +639,7 @@ BEGIN
-- scode := 'RESBEV'; hoeft nooit genotificeerd te worden, daarvoor heeft een parent altijd al gezorgd
-- scode := 'RESDEL'; hoeft nooit genotificeerd te worden, daarvoor heeft een parent altijd al gezorgd
IF (:new.res_deel_key IS NOT NULL AND :old.res_deel_key IS NULL)
THEN
THEN
-- insert
scode := 'RESNEW';
ELSIF (:new.res_rsv_deel_van <> :OLD.res_rsv_deel_van)
@@ -760,7 +760,7 @@ BEGIN
-- scode := 'RESBEV'; hoeft nooit genotificeerd te worden, daarvoor heeft een parent altijd al gezorgd
-- scode := 'RESDEL'; hoeft nooit genotificeerd te worden, daarvoor heeft een parent altijd al gezorgd
IF (:new.res_artikel_key IS NOT NULL AND :old.res_artikel_key IS NULL)
THEN
THEN
-- insert
scode := 'RESNEW';
ELSIF :OLD.res_rsv_artikel_aantal IS NULL