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

FCLT#65260 Ontdubbelen registatie bij verwijderen niet 100% correct?

Browse Source 
svn path=/Database/trunk/; revision=50560
This commit is contained in:
Erik Groener
2021-03-30 12:23:00 +00:00
parent fded8b6a39
commit e4a3956711
1 changed files with 13 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
FAC/FAC_PACFLEX.SRC
View File

@@ -55,7 +55,8 @@
, p_kenmerk_key IN NUMBER
, p_from_bijlagen_key IN NUMBER
);
PROCEDURE deleteflexbijlage (p_bijlagen_key IN NUMBER);
PROCEDURE deleteflexbijlage (p_bijlagen_key IN NUMBER
,p_fileisgone IN BOOLEAN DEFAULT FALSE);
PROCEDURE deleteflexbijlage (p_module IN VARCHAR2,
p_kenmerk_key IN NUMBER,
p_ref_key IN NUMBER,
@@ -287,7 +288,8 @@
WHERE fac_bijlagen_key = p_from_bijlagen_key;
END;
PROCEDURE deleteflexbijlage (p_bijlagen_key IN NUMBER)
PROCEDURE deleteflexbijlage (p_bijlagen_key IN NUMBER
,p_fileisgone IN BOOLEAN DEFAULT FALSE)
AS
v_cur_root_key NUMBER;
v_new_root_key NUMBER;
@@ -319,9 +321,15 @@
END IF;
--
-- Nu mag dit record verwijderd worden
UPDATE fac_bijlagen
SET fac_bijlagen_verwijder = SYSDATE
WHERE fac_bijlagen_key = p_bijlagen_key;
IF (p_fileisgone)
THEN
DELETE FROM fac_bijlagen
WHERE fac_bijlagen_key = p_bijlagen_key;
ELSE
UPDATE fac_bijlagen
SET fac_bijlagen_verwijder = SYSDATE
WHERE fac_bijlagen_key = p_bijlagen_key;
END IF;
END;
PROCEDURE deleteflexbijlage (p_module IN VARCHAR2,