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

Bij nieuwe of verplaatste werkplek alleen in prj-omgeving kijken voor de omschrijving.

Browse Source 
svn path=/Database/trunk/; revision=7193
This commit is contained in:
Erik Groener
1999-10-15 11:21:26 +00:00
parent 0bad01645b
commit c001aa2b1b
1 changed files with 24 additions and 23 deletions
Download Patch File Download Diff File Expand all files Collapse all files

47
PRJ/PRJ_PAC.SRC
View File

@@ -5,6 +5,7 @@
** REVISIONS:
**
** 15-10-1999 EGR In verwerk_project_gewijzigd de omschrijving van ruimte niet aanpassen.
** Bij nieuwe of verplaatste werkplek alleen in prj-omgeving kijken voor de omschrijving.
** 12-10-1999 EGR Na verwerken project alle prj- en cad_tekening-records van dat project verwijderen.
** 12-10-1999 BIV I.v.m. performance LocatieKey en DisciplineKey meegeven bij insert in prj_deel.
** 11-10-1999 EGR Verwerk_project_gewijzigd aangepast voor werkplek zodat werkpleknummer/omschrijving goed wordt aangemaakt/gewijzigd.
@@ -320,30 +321,30 @@ CREATE OR REPLACE PACKAGE BODY prj AS
WHERE prs_alg_ruimte_key = CondKey
AND prj_project_key = ProjectKey
AND prs_werkplek_verwijder IS NULL;
/* Kijk of in de gewone tekening een werkplek voorkomt met een hoger nummer. */
SELECT TO_CHAR(NVL(MAX(prs_werkplek_volgnr),0) +1)
INTO NextVolgNr2
FROM prs_werkplek
WHERE prs_alg_ruimte_key = CondKey
AND prs_werkplek_verwijder IS NULL;
/* Neem de hoogste waarde van beide volgnummers. */
IF ((NextVolgNr1 IS NULL) AND (NextVolgNr2 IS NULL))
THEN
NextVolgNr := '1';
ELSIF ((NextVolgNr1 IS NULL) AND (NextVolgNr2 IS NOT NULL))
THEN
NextVolgNr := NextVolgNr2;
ELSIF ((NextVolgNr2 IS NULL) AND (NextVolgNr1 IS NOT NULL))
THEN
-- /* Kijk of in de gewone tekening een werkplek voorkomt met een hoger nummer. */
-- SELECT TO_CHAR(NVL(MAX(prs_werkplek_volgnr),0) +1)
-- INTO NextVolgNr2
-- FROM prs_werkplek
-- WHERE prs_alg_ruimte_key = CondKey
-- AND prs_werkplek_verwijder IS NULL;
-- /* Neem de hoogste waarde van beide volgnummers. */
-- IF ((NextVolgNr1 IS NULL) AND (NextVolgNr2 IS NULL))
-- THEN
-- NextVolgNr := '1';
-- ELSIF ((NextVolgNr1 IS NULL) AND (NextVolgNr2 IS NOT NULL))
-- THEN
-- NextVolgNr := NextVolgNr2;
-- ELSIF ((NextVolgNr2 IS NULL) AND (NextVolgNr1 IS NOT NULL))
-- THEN
NextVolgNr := NextVolgNr1;
ELSE
IF TO_NUMBER(NextVolgNr1) > TO_NUMBER(NextVolgNr2)
THEN
NextVolgNr := NextVolgNr1;
ELSE
NextVolgNr := NextVolgNr2;
END IF;
END IF;
-- ELSE
-- IF TO_NUMBER(NextVolgNr1) > TO_NUMBER(NextVolgNr2)
-- THEN
-- NextVolgNr := NextVolgNr1;
-- ELSE
-- NextVolgNr := NextVolgNr2;
-- END IF;
-- END IF;
EXCEPTION
WHEN NO_DATA_FOUND
THEN NextVolgNr := '1';