Functie cad_getBinnenBuiten() aangepast.

svn path=/Database/trunk/; revision=6664

CAD/CAD_PAC.SRC

@@ -418,7 +418,7 @@ CREATE OR REPLACE PACKAGE BODY cad AS
   TekeningNaam          VARCHAR2(256);
   LocatieCode           VARCHAR2(5);
   LocatieKey            NUMBER(10);
-  Dummy                 NUMBER(10);
+  VerdiepingKey         NUMBER(10);
   Plaats                NUMBER;
 
   BEGIN  
@@ -428,11 +428,15 @@ CREATE OR REPLACE PACKAGE BODY cad AS
       FROM alg_locatie
      WHERE UPPER(alg_locatie_code) = UPPER(LocatieCode);
     BEGIN
-      SELECT alg_verdieping_key INTO Dummy
+      SELECT alg_verdieping_key INTO VerdiepingKey
         FROM cad_v_plattegrond
        WHERE alg_locatie_key = LocatieKey
          AND cad_tekening_filenaam = TekeningNaam;
-      Plaats := 0;
+      IF VerdiepingKey IS NOT NULL THEN
+        Plaats := 0;
+      ELSE        
+        Plaats := 1;
+      END IF;
     EXCEPTION  
       WHEN NO_DATA_FOUND THEN
         Plaats := 1;