PZEE#78747 Procedure pzee.prs_mandaten aanpassen

svn path=/Customer/trunk/; revision=60850
This commit is contained in:
Suzan Wiegerinck
2023-06-20 12:01:51 +00:00
parent a1e4390f88
commit 72ccc5d2c4

View File

@@ -43,32 +43,21 @@ AS
v_errormsg VARCHAR2 (200);
CURSOR c IS
SELECT p.prs_perslid_key,
kp.prs_kostenplaats_key,
kp.prs_kostenplaats_nr,
kp.prs_kostenplaats_omschrijving
FROM prs_perslid p, prs_kostenplaats kp
WHERE p.prs_perslid_verwijder IS NULL
AND kp.prs_kostenplaatsgrp_key = 1
AND kp.prs_kostenplaats_verwijder IS NULL
AND ( kp.prs_kostenplaats_eind IS NULL
OR TRUNC (kp.prs_kostenplaats_eind) > TRUNC (SYSDATE))
AND NOT EXISTS
SELECT p.prs_perslid_key
FROM prs_perslid p
WHERE p.prs_perslid_verwijder IS NULL
AND NOT EXISTS
(SELECT *
FROM prs_perslidkostenplaats m
WHERE m.prs_kostenplaats_key =
kp.prs_kostenplaats_key
AND m.prs_perslid_key = p.prs_perslid_key);
WHERE m.prs_perslid_key = p.prs_perslid_key);
BEGIN
FOR rec IN C
LOOP
INSERT INTO prs_perslidkostenplaats (
prs_perslid_key,
prs_kostenplaats_key,
prs_perslid_key,
prs_perslidkostenplaats_boeken,
prs_perslidkostenplaats_aanmk)
VALUES (rec.prs_perslid_key,
rec.prs_kostenplaats_key,
VALUES (rec.prs_perslid_key,
1,
SYSDATE);
@@ -85,7 +74,7 @@ AS
|| '/'
|| oracle_err_mes
|| ')';
fac.writelog ('Mandatering externe medewerker',
fac.writelog ('Mandatering medewerker',
'E',
v_errormsg,
'');