UWVA#31430 Eigen badgenummering per gebouw (of: locatie)

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

FAC/FAC_PAC.SRC

@@ -130,6 +130,7 @@ CREATE OR REPLACE PACKAGE fac AS
     FUNCTION makehash (p_in VARCHAR2, method IN VARCHAR2 DEFAULT 'MD5') RETURN VARCHAR2;
     FUNCTION testhash (p_hash VARCHAR2, p_in VARCHAR2) RETURN NUMBER;
     PROCEDURE createlikebookmark (pxmlnode VARCHAR2, prefkey NUMBER);
+    PROCEDURE sequence_nextval(p_seqname IN VARCHAR2, p_initval IN NUMBER DEFAULT 1, p_initexpire IN DATE DEFAULT NULL);
 
 END fac;
 /
@@ -2978,12 +2979,12 @@ CREATE OR REPLACE PACKAGE BODY fac AS
                 THEN
                     lcode2 := 'MLDBE2';
                     lreceiver2 := lmldbehandelaar;
-                    
+
                     SELECT lcl.x('fac_srtnotificatie_oms', fac_srtnotificatie_key, fac_srtnotificatie_oms)
                       INTO loms2
                       FROM fac_srtnotificatie
                      WHERE fac_srtnotificatie_code = lcode2;
-                    
+
                     bericht2 := mld.mldsprintf (loms2, prefkey);
                 END IF;
 
@@ -4508,6 +4509,42 @@ CREATE OR REPLACE PACKAGE BODY fac AS
            END;
        END IF;
     END;
+
+   PROCEDURE sequence_nextval(p_seqname IN VARCHAR2, p_initval IN NUMBER DEFAULT 1, p_initexpire IN DATE DEFAULT NULL)
+   IS
+     v_nextval     NUMBER;
+     v_expiredate  DATE;
+   BEGIN
+      SELECT fac_sequence_lastval
+           , fac_sequence_expiredate
+        INTO v_nextval
+           , v_expiredate
+        FROM fac_sequence
+       WHERE fac_sequence_name = p_seqname;
+      --
+      IF ((p_initexpire IS NOT NULL) AND ( v_expiredate < p_initexpire))
+      THEN
+         -- Reset teller wegens overschrijden van expire_date.
+         v_nextval := p_initval;
+      ELSE
+         -- Alleen teller ophogen.
+         v_nextval := v_nextval + 1;
+      END IF;
+      UPDATE fac_sequence
+         SET fac_sequence_lastval = v_nextval
+           , fac_sequence_expiredate = p_initexpire
+       WHERE fac_sequence_name = p_seqname;
+   EXCEPTION
+      WHEN NO_DATA_FOUND
+      THEN
+         INSERT INTO fac_sequence (fac_sequence_name,
+                                   fac_sequence_lastval,
+                                   fac_sequence_expiredate)
+              VALUES (p_seqname,
+                      p_initval,
+                      p_initexpire);
+   END;
+
 END fac;
 /