From 97a5b36de1f74e72d33586a76875225d8dccb8db Mon Sep 17 00:00:00 2001
From: Arthur Egberink <arthur.egberink@aareon.nl>
Date: Thu, 23 Mar 2023 09:17:10 +0000
Subject: [PATCH] DLLG#77449 -- Koppeling met Brivo systeem geeft
 foutmeldingen.

svn path=/Customer/trunk/; revision=59719
---
 DLLG/DLLG.sql | 12 +++++++++---
 1 file changed, 9 insertions(+), 3 deletions(-)

diff --git a/DLLG/DLLG.sql b/DLLG/DLLG.sql
index 94e70090b..035090a77 100644
--- a/DLLG/DLLG.sql
+++ b/DLLG/DLLG.sql
@@ -436,14 +436,20 @@ AS
          WHERE     kw.bez_bezoekers_key = p_bezkey
                AND kw.bez_kenmerk_key = v_card_number_key;
 
-        -- We controleren of de minst significante vier cijfers van de key overeenkomen met de 4 minst significate cijfers van het kaarnummer
+        -- We controleren of het card number al voorkomt bij een andere bezoeker
         -- Bij het herhalen van de afspraak worden namelijk de kenmerken gekopieerd.
         -- In dat geval wordt de timestamp op NULL gezet zodat de nieuwe informatie doorgestuurd wordt naar Brivo.
-        IF v_code IS NULL OR SUBSTR(v_code, LENGTH(v_code)-3, LENGTH(v_code)) <> SUBSTR(p_bezkey, LENGTH(p_bezkey)-3, LENGTH(p_bezkey))
+        SELECT count(*)
+          INTO v_count
+          FROM bez_kenmerkwaarde kw
+         WHERE     kw.bez_kenmerk_key = v_card_number_key
+               AND bez_kenmerkwaarde_waarde = v_code;
+
+        IF v_code IS NULL OR v_count > 1
         THEN
            fac.writelog ('DLLG: update_bezoeker', 'I', 'v_code: ' || v_code || ' p_bezkey: ' || p_bezkey, '');
 
-           v_code := ROUND(DBMS_RANDOM.value(0,4)) || SUBSTR(p_bezkey, LENGTH(p_bezkey)-3, LENGTH(p_bezkey));
+           v_code := DLLG_S_BEZ_BEZOEKERS_CARD.nextval;
 
            FLX.setflex ('BEZ',
                         v_card_number_key,