number_to_char() vervangen door NUMBER_TO_CHAR() aangezien macro case-sensitive is.

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

PRS/PRS_TRI.SRC

@@ -1,7 +1,7 @@
 /* CREA_TRI.SRC maakt de triggers aan voor PRS */
 
-/*  $Revision: 33 $
- *  $Modtime: 9-10-03 18:45 $
+/*  $Revision: 34 $
+ *  $Modtime: 10/21/03 12:29p $
  */
 
 #include    "comsql.h"
@@ -107,32 +107,6 @@ BEGIN
       END IF;
     END;
     --
-    -- We blijven veld prs_afdeling_eenheid (voorlopig) redundant gebruiken,
-    -- anders veel te veel forms aan te passen
-    --
-    IF:new.prs_afdeling_verwijder IS NULL
-    THEN
-      IF :new.prs_eenheid_key IS NOT NULL
-      AND :old.prs_eenheid_key  <> :new.prs_eenheid_key
-      THEN
-        DECLARE
-          Eenheid   prs_afdeling.prs_afdeling_eenheid%TYPE;
-        BEGIN
-          SELECT prs_eenheid_code INTO Eenheid
-            FROM prs_eenheid
-           WHERE prs_eenheid_key = :new.prs_eenheid_key;
-          --
-      :new.prs_afdeling_eenheid := Eenheid;
-        EXCEPTION
-          WHEN NO_DATA_FOUND THEN NULL;
-          WHEN TOO_MANY_ROWS THEN NULL;
-        END;
-      ELSE
-        IF :new.prs_eenheid_key IS NULL THEN
-          :new.prs_afdeling_eenheid := NULL;
-        END IF;
-      END IF;
-    END IF;
 #ifdef MS_SQL
 lerror:
 #endif
@@ -652,7 +626,7 @@ BEGIN
                /*
                **  Controleer of de waarde aan het formaat voldoet
                */
-               KenmerkWaarde := LTRIM(number_to_char(NumberWaarde, FormatMask));
+               KenmerkWaarde := LTRIM(NUMBER_TO_CHAR(NumberWaarde, FormatMask));
                IF INSTR2(KenmerkWaarde, '#') <> 0
                THEN
                   FormatMask := REPLACE(FormatMask, '9', '#');
@@ -706,6 +680,8 @@ lcontinue:
 END;
 /
 
+/* Table prs_eenheid is obsolete so we don't need the trigger anymore...
+
 CREATE_TRIGGER(prs_t_prs_eenheid_B_IU)
 BEFORE INSERT OR UPDATE ON prs_eenheid
 FOR EACH ROW
@@ -727,6 +703,9 @@ BEGIN
 END;
 /
 
+*/
+
+
 CREATE_TRIGGER(prs_t_prs_perslideenheid_B_IU)
 BEFORE INSERT OR UPDATE ON prs_perslideenheid
 FOR EACH ROW