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

VOLK#78884 Import sluit nu afdelingen met een verwijderdatum uit bij het bijwerken van bestaande afdelingen

Browse Source 
svn path=/Customer/trunk/; revision=67330
This commit is contained in:
Suzan Wiegerinck
2024-12-09 11:20:43 +00:00
parent a6f1f4c133
commit fca662d4e2
1 changed files with 23 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

29
VOLK/volk.sql
View File

@@ -1637,7 +1637,7 @@ EXCEPTION
END volk_processemail;
/
CREATE OR REPLACE PROCEDURE volk_organisatie_level7 (p_import_key IN NUMBER)
CREATE OR REPLACE PROCEDURE VOLK.volk_organisatie_level7 (p_import_key IN NUMBER)
IS
c_fielddelimitor VARCHAR2 (2) := fac.import_delimiter (p_import_key);
v_newline fac_imp_file.fac_imp_file_line%TYPE; -- Input line
@@ -2062,7 +2062,7 @@ BEGIN
v_errormsg := '';
v_errorhint := '';
IF (recafdeling1.niveau = 1)
IF (rec.niveau = 1)
THEN
v_errorhint := 'Bedrijf niet gevonden bij afdeling';
v_prs_afdeling_parentkey := TO_NUMBER (NULL);
@@ -2153,15 +2153,32 @@ BEGIN
ELSE
IF (v_count = 1)
THEN
IF (rec.niveau = 1)
THEN
--- parent is null dus bedrijf moet gevuld worden
UPDATE prs_afdeling
SET prs_afdeling_parentkey = v_prs_afdeling_parentkey,
prs_bedrijf_key = v_bedrijf_key
WHERE prs_afdeling_upper = UPPER (TRIM (rec.prs_afdeling_upper))
AND prs_afdeling_verwijder IS NULL;
ELSE
UPDATE prs_afdeling
SET prs_afdeling_parentkey = v_prs_afdeling_parentkey
WHERE prs_afdeling_upper = UPPER (TRIM (rec.prs_afdeling_upper))
AND prs_afdeling_verwijder IS NULL;
END IF;
UPDATE prs_afdeling
SET prs_afdeling_parentkey = v_prs_afdeling_parentkey,
prs_kostenplaats_key = v_kostenplaats_key
WHERE prs_afdeling_upper = UPPER (TRIM (rec.prs_afdeling_upper));
SET prs_kostenplaats_key = v_kostenplaats_key
WHERE prs_afdeling_upper = UPPER (TRIM (rec.prs_afdeling_upper))
AND prs_afdeling_verwijder IS NULL;
SELECT prs_afdeling_key
INTO v_afdeling_key
FROM prs_afdeling
WHERE prs_afdeling_upper = UPPER (TRIM (rec.prs_afdeling_upper));
WHERE prs_afdeling_upper = UPPER (TRIM (rec.prs_afdeling_upper))
AND prs_afdeling_verwijder IS NULL;
-- Vul dep level
flx.setflex ('PRS',