WDKA#80394 kenmerksoort contraints mbt het kenmerktype verwijderd, tevens kenmerktype 'B' referenties verwijderd.

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

PRS/PRS_TRI.SRC

@@ -475,15 +475,15 @@ BEGIN
       raise_application_error(-20000, 'ALG_M238');
    END IF;
 
-   IF :new.prs_kenmerk_kenmerktype IN ('C', 'N', 'B') AND :new.prs_kenmerk_lengte IS NULL
+   IF :new.prs_kenmerk_kenmerktype IN ('C', 'N') AND :new.prs_kenmerk_lengte IS NULL
    THEN
       raise_application_error(-20000, 'ALG_C_ALG_KENMERK_LENGTE');
    END IF;
-   IF :new.prs_kenmerk_kenmerktype IN ('N', 'B') AND :new.prs_kenmerk_lengte > 20
+   IF :new.prs_kenmerk_kenmerktype = 'N' AND :new.prs_kenmerk_lengte > 20
    THEN
       :new.prs_kenmerk_lengte := 20;
    END IF;
-   IF :new.prs_kenmerk_kenmerktype IN ('N', 'B') AND :old.prs_kenmerk_key IS NOT NULL
+   IF :new.prs_kenmerk_kenmerktype = 'N' AND :old.prs_kenmerk_key IS NOT NULL
    THEN
      -- An existing property of type N
      IF :old.prs_kenmerk_nmin <> :new.prs_kenmerk_nmin OR
@@ -643,7 +643,7 @@ BEGIN
                APPLICATION_ERROR_GOTO(-20004, 'ALG_M232,'|| KenmerkOmschr ||','
                                                     || TO_CHAR(KenmerkLengte));
             END IF;
-         ELSIF KenmerkType IN ('N', 'B')
+         ELSIF KenmerkType = 'N'
          /*
          ** Number
          */