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

prs_werkplek toegevoegd aan slnk_postdraw...

Browse Source 
svn path=/Database/trunk/; revision=7267
This commit is contained in:
Bert in het Veld
1999-11-22 14:40:48 +00:00
parent 65ecdb9bec
commit 1facb5d033
1 changed files with 27 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

27
CAD/CAD_PAC.SRC
View File

@@ -2677,6 +2677,7 @@ FUNCTION Bepaal_VolgnummerTxt(Omschrijving IN VARCHAR2) RETURN VARCHAR2 IS
RuimteType VARCHAR2(1);
DoDeelUpdate BOOLEAN;
LinkToRoom NUMBER;
LPNCondKeyOk BOOLEAN;
BEGIN
LPNName := cad_SLNKSTRUCTreadVALSTR(Session_id, 'LPNALIASINSO');
@@ -2777,6 +2778,32 @@ FUNCTION Bepaal_VolgnummerTxt(Omschrijving IN VARCHAR2) RETURN VARCHAR2 IS
alg_terreinsector_omtrek = Omtrek,
alg_terreinsector_getekend = SYSDATE
WHERE alg_terreinsector_key = LPNKey;
ELSIF LPNName = 'LPN_PRS_WERKPLEK' THEN
/* Bepaal de nieuwe ruimte v/d werkplek */
LPNCondName := cad_SLNKSTRUCTreadVALSTR(Session_id, 'LPNALIASCONDO');
LPNCondKey := cad_SLNKSTRUCTreadVALINT(Session_id, 'LPNKEYCONDO');
IF LPNCondKey IS NOT NULL THEN
/* Check of key wel bestaat - kan zijn dat tekening niet helemaal up-to-date is */
LPNCondKeyOk := CheckLPNCondKey(LPNCondName, LPNCondKey);
IF NOT LPNCondKeyOK THEN
Seqnr := 2;
LOOP
LPNCondKey := cad_SLNKSTRUCTreadVALINT2(Session_id, 'LPNKEYCONDO', Seqnr);
IF LPNCondKey IS NULL THEN
EXIT;
END IF;
LPNCondKeyOK := CheckLPNCondKey(LPNCondName, LPNCondKey);
EXIT WHEN LPNCondKeyOK;
Seqnr := Seqnr + 1;
END LOOP;
END IF;
IF LPNCondKeyOK THEN
UPDATE prs_werkplek
SET prs_alg_ruimte_key = LPNCondKey,
prs_werkplek_getekend = SYSDATE /* IT's CAD */
WHERE prs_werkplek_key = LPNKey;
END IF;
END IF;
#ifdef BIS
ELSIF LPNName = 'LPN_BIS_BORING' THEN
UPDATE bis_boring