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

VLKC#87344 ORG+PRS-import/Overgang naar AFAS (revisited)

Browse Source 
svn path=/Customer/trunk/; revision=67897
This commit is contained in:
Maarten van der Heide
2025-02-06 15:14:11 +00:00
parent 849d56dc49
commit 275e6d4e14
1 changed files with 19 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

28
VLKC/vlkc.sql
View File

@@ -170,7 +170,7 @@ END;
/* Formatted on 21-12-2016 19:35:25 (QP5 v5.136.908.31019) */
CREATE OR REPLACE PROCEDURE vlkc_update_org (p_import_key IN NUMBER)
AS
c_prs_bedrijf_key NUMBER := 2241; -- F. Van Lanschot Bankiers N.V.
c_prs_bedrijf_key NUMBER := 2241; -- Van Lanschot Kempen N.V.
v_errormsg VARCHAR2 (1000) := '';
oracle_err_num NUMBER;
oracle_err_mes VARCHAR2 (200);
@@ -213,7 +213,7 @@ BEGIN
SELECT COUNT ( * ) INTO l_impcountafd FROM fac_imp_organisatie;
-- How many active afdelingen are now present?
SELECT COUNT ( * ) -- ALLEEN onder F. van Lanschot!
SELECT COUNT ( * ) -- ALLEEN onder Van Lanschot Kempen N.V.!
INTO l_oldcountafd
FROM prs_v_aanwezigafdeling a, prs_v_afdeling_boom ab
WHERE UPPER (COALESCE (a.prs_afdeling_omschrijving, '-')) NOT LIKE 'VERVALLEN:%'
@@ -306,7 +306,8 @@ BEGIN
IF (v_count = 0)
THEN
UPDATE prs_kostenplaats
SET prs_kostenplaats_omschrijving = rc.prs_kostenplaats_omschrijving
SET prs_kostenplaats_omschrijving = rc.prs_kostenplaats_omschrijving,
prs_kostenplaats_module = 'PRS'
WHERE prs_kostenplaats_key = lkostenplaatskey;
END IF;
END IF;
@@ -490,14 +491,18 @@ BEGIN
AND NOT EXISTS
(SELECT 1
FROM fac_imp_organisatie
WHERE UPPER (prs_kostenplaats_nr) = kp.prs_kostenplaats_upper);
WHERE UPPER (prs_kostenplaats_nr) = kp.prs_kostenplaats_upper)
AND NOT EXISTS
(SELECT 1
FROM prs_v_aanwezigperslid
WHERE prs_kostenplaats_key = kp.prs_kostenplaats_key);
COMMIT;
-- Zet afdelingen op VERVALLEN; de rest handmatig verder maar regelen!
v_errormsg := 'Fout inactiveren afdelingen.';
SELECT COUNT ( * ) -- ALLEEN onder F. van Lanschot!
SELECT COUNT ( * ) -- ALLEEN onder Van Lanschot Kempen N.V.!
INTO l_vervcountafd
FROM prs_v_aanwezigafdeling a, prs_v_afdeling_boom ab
WHERE UPPER (COALESCE (a.prs_afdeling_omschrijving, '-')) NOT LIKE 'VERVALLEN:%'
@@ -508,7 +513,7 @@ BEGIN
FROM fac_imp_organisatie
WHERE UPPER (prs_afdeling_naam) = a.prs_afdeling_upper);
UPDATE prs_afdeling a -- ALLEEN onder F. van Lanschot!
UPDATE prs_afdeling a -- ALLEEN onder Van Lanschot Kempen N.V.!
SET a.prs_afdeling_omschrijving = SUBSTR ('VERVALLEN:' || COALESCE (prs_afdeling_omschrijving, '-'), 1, 60)
WHERE a.prs_afdeling_verwijder IS NULL
AND UPPER (COALESCE (a.prs_afdeling_omschrijving, '-')) NOT LIKE 'VERVALLEN:%'
@@ -525,7 +530,7 @@ BEGIN
COMMIT;
-- For summary only.
SELECT COUNT ( * ) -- ALLEEN onder F. van Lanschot!
SELECT COUNT ( * ) -- ALLEEN onder Van Lanschot Kempen N.V.!
INTO l_newcountafd
FROM prs_v_aanwezigafdeling a, prs_v_afdeling_boom ab
WHERE UPPER (COALESCE (a.prs_afdeling_omschrijving, '-')) NOT LIKE 'VERVALLEN:%'
@@ -1036,7 +1041,7 @@ AS
AND i.prs_kenmerk2 != p.prs_perslid_oslogin
ORDER BY 2, 1;
-- Toekennen(/aanmaken) persoonlijke kostenplaats!
-- Toekennen(/aanmaken/bijwerken) persoonlijke kostenplaats!
CURSOR c_prskpn
IS
SELECT '[' || p.prs_perslid_nr || '|' || TRIM (i.prs_kenmerk3) || '|' || TRIM (i.prs_kenmerk4) || '] ' aanduiding,
@@ -1135,7 +1140,7 @@ BEGIN
END;
END LOOP;
-- Toekennen(/aanmaken) kostenplaats!
-- Toekennen(/aanmaken/bijwerken) kostenplaats!
FOR rec IN c_prskpn
LOOP
BEGIN
@@ -1146,6 +1151,11 @@ BEGIN
VALUES (rec.prs_kenmerk3, COALESCE (rec.prs_kenmerk4, rec.prs_kenmerk3), 'PRS')
RETURNING prs_kostenplaats_key
INTO v_kostenplaats_key;
ELSE
UPDATE prs_kostenplaats
SET prs_kostenplaats_omschrijving = COALESCE (rec.prs_kenmerk4, rec.prs_kenmerk3),
prs_kostenplaats_module = 'PRS'
WHERE prs_kostenplaats_key = v_kostenplaats_key;
END IF;
UPDATE prs_perslid