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

CSUN#74613 Financieel afronden van een melding

Browse Source 
svn path=/Customer/trunk/; revision=59107
This commit is contained in:
Sander Schepers
2023-02-10 14:38:18 +00:00
parent f592d31362
commit 8757374ca3
1 changed files with 54 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

55
CSUN/CSUN.sql
View File

@@ -7214,7 +7214,60 @@ AS
ins_srtcontrole_key,
taakcategorie,
srtcontrole_omschrijving
ORDER BY fclt_3d_locatie_key, ins_srtcontrole_key) x);
ORDER BY fclt_3d_locatie_key, ins_srtcontrole_key) x);
CREATE OR REPLACE PROCEDURE csun_mld_verwerken
AS
c_applname VARCHAR2 (50) := 'MLD_VERWERK';
v_errormsg VARCHAR2 (1000);
oracle_err_num NUMBER;
oracle_err_mes VARCHAR2 (200);
v_mld_key NUMBER;
CURSOR c IS
SELECT mld_melding_key
FROM mld_melding
WHERE mld_melding_status = 5
AND mld_melding_key = 667766
AND mld_melding_afgerond = 1;
BEGIN
FOR rec IN c
LOOP
v_mld_key := rec.mld_melding_key;
mld.setmeldingstatus (rec.mld_melding_key,
6, -- Status Financieel verwerkt
4, -- Facilitor
NULL);
END LOOP;
EXCEPTION
WHEN OTHERS
THEN
oracle_err_num := SQLCODE;
oracle_err_mes := SUBSTR (SQLERRM, 1, 200);
v_errormsg :=
'ORACLE (error '
|| oracle_err_num
|| '/'
|| oracle_err_mes
|| ')';
fac.writelog (c_applname,
'E',
v_mld_key || ' ' || v_errormsg,
'Daily taak verwerken meldingen afgebroken!');
END;
/
CREATE OR REPLACE PROCEDURE CSUN_DAILY
AS
v_errormsg VARCHAR2 (1000);
oracle_err_num NUMBER;
oracle_err_mes VARCHAR2 (200);
BEGIN
-- Meldingen die zijn afgemelde <20>n afgerond mogen financieel worden verwerkt (status 6 / Archief)
csun_mld_verwerken ();
END;
/
------ payload end ------