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

Procedures ...postdraw en ...postmodify ook uitlezen van entry LINKTOROOM.

Browse Source 
svn path=/Database/trunk/; revision=6834
This commit is contained in:
Bert in het Veld
1999-05-21 14:24:40 +00:00
parent bd68195f53
commit f839681394
1 changed files with 40 additions and 22 deletions
Download Patch File Download Diff File Expand all files Collapse all files

62
CAD/CAD_PAC.SRC
View File

@@ -2531,6 +2531,7 @@ FUNCTION Bepaal_VolgnummerTxt(Omschrijving IN VARCHAR2) RETURN VARCHAR2 IS
RuimteKey prs_werkplek.prs_alg_ruimte_key%TYPE;
RuimteType VARCHAR2(1);
DoDeelUpdate BOOLEAN;
LinkToRoom NUMBER;
BEGIN
LPNName := cad_SLNKSTRUCTreadVALSTR(Session_id, 'LPNALIASINSO');
@@ -2576,21 +2577,29 @@ FUNCTION Bepaal_VolgnummerTxt(Omschrijving IN VARCHAR2) RETURN VARCHAR2 IS
SET ins_deel_oppervlak = Oppervlak
WHERE ins_deel_key = LPNKey;
END IF;
DoDeelUpdate := TRUE;
SELECT ins_alg_ruimte_type, ins_alg_ruimte_key INTO PlaatsDeel, PlaatsKey
FROM all_v_aanwezigdeel
WHERE ins_deel_key = LPNKey;
LinkToRoom := cad_SLNKSTRUCTreadVALINT(Session_id, 'LINKTOROOM');
cad_slnkstructdelete(Session_id, 'LINKTOROOM');
DoDeelUpdate := TRUE;
IF LPNCondName = 'LPN_ALG_RUIMTE' THEN
/* Bij LPN_ALG_RUIMTE checken - of deel gekoppeld is aan een werkplek die zich in dezelfde
ruimte bevindt dan de opgegeven ruimte, zo ja dan GEEN update van de plaats v/h deel */
/* Bij LPN_ALG_RUIMTE checken - of deel gekoppeld is aan een werkplek die zich in dezelfde
ruimte bevindt dan de opgegeven ruimte, zo ja dan GEEN update van de plaats v/h deel */
IF PlaatsDeel = 'W' THEN
SELECT prs_alg_ruimte_key INTO RuimteKey
FROM prs_werkplek
WHERE prs_werkplek_key = PlaatsKey;
IF Ruimtekey = LPNCondKey THEN
DoDeelUpdate := FALSE;
END IF;
END IF;
IF LinkToRoom = 1 THEN
DoDeelUpdate := TRUE;
ELSE
SELECT prs_alg_ruimte_key INTO RuimteKey
FROM prs_werkplek
WHERE prs_werkplek_key = PlaatsKey;
IF Ruimtekey = LPNCondKey THEN
DoDeelUpdate := FALSE;
ELSE
DoDeelUpdate := TRUE;
END IF;
END IF;
END IF;
END IF;
IF DODeelUpdate THEN
UPDATE ins_deel
@@ -2901,6 +2910,7 @@ FUNCTION Bepaal_VolgnummerTxt(Omschrijving IN VARCHAR2) RETURN VARCHAR2 IS
RuimteKey prs_werkplek.prs_alg_ruimte_key%TYPE;
WerkplekNr prs_werkplek.prs_werkplek_volgnr%TYPE;
DoDeelUpdate BOOLEAN;
LinkToRoom NUMBER;
BEGIN
LPNName := cad_SLNKSTRUCTreadVALSTR(Session_id, 'LPNALIASMODO');
@@ -2932,21 +2942,29 @@ FUNCTION Bepaal_VolgnummerTxt(Omschrijving IN VARCHAR2) RETURN VARCHAR2 IS
ELSIF LPNCondName = 'LPN_PRS_WERKPLEK' THEN
RuimteType := 'W';
END IF;
SELECT ins_alg_ruimte_type, ins_alg_ruimte_key INTO PlaatsDeel, PlaatsKey
FROM all_v_aanwezigdeel
WHERE ins_deel_key = LPNKey;
LinkToRoom := cad_SLNKSTRUCTreadVALINT(Session_id, 'LINKTOROOM');
cad_slnkstructdelete(Session_id, 'LINKTOROOM');
DoDeelUpdate := TRUE;
IF LPNCondName = 'LPN_ALG_RUIMTE' THEN
/* Bij LPN_ALG_RUIMTE checken - of deel gekoppeld is aan een werkplek die zich in dezelfde
ruimte bevindt dan de opgegeven ruimte, zo ja dan GEEN update van de plaats v/h deel */
SELECT ins_alg_ruimte_type, ins_alg_ruimte_key INTO PlaatsDeel, PlaatsKey
FROM all_v_aanwezigdeel
WHERE ins_deel_key = LPNKey;
/* Bij LPN_ALG_RUIMTE checken - of deel gekoppeld is aan een werkplek die zich in dezelfde
ruimte bevindt dan de opgegeven ruimte, zo ja dan GEEN update van de plaats v/h deel */
IF PlaatsDeel = 'W' THEN
SELECT prs_alg_ruimte_key INTO RuimteKey
FROM prs_werkplek
WHERE prs_werkplek_key = PlaatsKey;
IF Ruimtekey = LPNCondKey THEN
DoDeelUpdate := FALSE;
END IF;
END IF;
IF LinkToRoom = 1 THEN
DoDeelUpdate := TRUE;
ELSE
SELECT prs_alg_ruimte_key INTO RuimteKey
FROM prs_werkplek
WHERE prs_werkplek_key = PlaatsKey;
IF Ruimtekey = LPNCondKey THEN
DoDeelUpdate := FALSE;
ELSE
DoDeelUpdate := TRUE;
END IF;
END IF;
END IF;
END IF;
IF DODeelUpdate THEN
UPDATE ins_deel