admin/Customer
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

YAXX#89040 Notificatie versturen als medewerkers via login kunnen inloggen.

Browse Source 
svn path=/Customer/trunk/; revision=69725
This commit is contained in:
Arthur Egberink
2025-07-09 11:25:09 +00:00
parent 0443881e87
commit 072577b848
1 changed files with 67 additions and 47 deletions
Download Patch File Download Diff File Expand all files Collapse all files

114
VBGO/vbgo.sql
View File

@@ -1497,60 +1497,80 @@ AS
WHERE gg.fac_groep_key = g.fac_groep_key AND fac_groep_omschrijving = 'SG-VFS-NL-APP-FACPRD')
AND EXISTS
(SELECT 1
FROM prs_kenmerklink kl, prs_kenmerk k
WHERE kl.prs_link_key = p.prs_perslid_key AND kl.prs_kenmerk_key = c_kenmerk_key);
FROM prs_kenmerklink kl
WHERE kl.prs_link_key = p.prs_perslid_key AND kl.prs_kenmerk_key = c_kenmerk_key AND kl.prs_kenmerklink_waarde = '1');
v_kenmerk_key NUMBER;
BEGIN
SELECT prs_kenmerk_key
INTO v_kenmerk_key
FROM prs_kenmerk
WHERE prs_kenmerk_code = 'WACHTWOORDACCOUNT';
BEGIN
SELECT prs_kenmerk_key
INTO v_kenmerk_key
FROM prs_kenmerk
WHERE prs_kenmerk_code = 'WACHTWOORDACCOUNT';
FOR rec IN c_setpw
LOOP
PRS.setpassword (rec.prs_perslid_key, 'kPrqyyQcvaEUwhmqMoExSfQCGFs6-Egb');
FLX.setflex ('PRS',
v_kenmerk_key,
rec.prs_perslid_key,
'P',
1);
FAC.trackaction ('PRSUPD',
rec.prs_perslid_key,
NULL,
NULL,
'Logt in met wachtwoord: (leeg) --> 1');
END LOOP;
FOR rec IN c_setpw
LOOP
PRS.setpassword (rec.prs_perslid_key, 'kPrqyyQcvaEUwhmqMoExSfQCGFs6-Egb');
FLX.setflex ('PRS',
v_kenmerk_key,
rec.prs_perslid_key,
'P',
1);
FAC.trackaction ('PRSUPD',
rec.prs_perslid_key,
NULL,
NULL,
'Logt in met wachtwoord: (leeg) --> 1');
FOR rec IN c_setpw_once (v_kenmerk_key)
LOOP
FLX.setflex ('PRS',
v_kenmerk_key,
rec.prs_perslid_key,
'P',
1);
FAC.trackaction ('PRSUPD',
rec.prs_perslid_key,
NULL,
NULL,
'Logt in met wachtwoord: (leeg) --> 1');
END LOOP;
FAC.putnotificationsrtprio (NULL, -- pfrom
rec.prs_perslid_key, -- pto
'CUST01', -- pcode
rec.prs_perslid_key, -- pref
'Inloggegevens Facilitor', -- poptmessage
NULL, --poptstatus
NULL, -- poptemail
NULL, -- poptmobile
NULL, -- pxref
2, -- pprio
NULL -- psender
);
FOR rec IN c_delpw (v_kenmerk_key)
LOOP
PRS.setpassword (rec.prs_perslid_key, NULL);
FLX.setflex ('PRS',
v_kenmerk_key,
rec.prs_perslid_key,
'P',
NULL);
FAC.trackaction ('PRSUPD',
rec.prs_perslid_key,
NULL,
NULL,
'Logt in met wachtwoord: 1 --> (leeg)');
END LOOP;
END LOOP;
FOR rec IN c_setpw_once (v_kenmerk_key)
LOOP
FLX.setflex ('PRS',
v_kenmerk_key,
rec.prs_perslid_key,
'P',
1);
FAC.trackaction ('PRSUPD',
rec.prs_perslid_key,
NULL,
NULL,
'Logt in met wachtwoord: (leeg) --> 1');
END LOOP;
FOR rec IN c_delpw (v_kenmerk_key)
LOOP
PRS.setpassword (rec.prs_perslid_key, NULL);
FLX.setflex ('PRS',
v_kenmerk_key,
rec.prs_perslid_key,
'P',
NULL);
FAC.trackaction ('PRSUPD',
rec.prs_perslid_key,
NULL,
NULL,
'Logt in met wachtwoord: 1 --> (leeg)');
END LOOP;
EXCEPTION WHEN NO_DATA_FOUND
THEN
-- Kenmerk met code WACHTWOORDACCOUNT moet nog aangemaakt worden
fac.writelog ('VBGO_DAILY', 'W', 'Kenmerk: "Logt in met wachtwoord" is niet aangemaakt bij personen.', NULL);
END;
END;
/