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

WTCA#39636 Inrichten stroomschema's/Auto-afmelden

Browse Source 
svn path=/Customer/trunk/; revision=33706
This commit is contained in:
Maarten van der Heide
2017-05-05 07:28:58 +00:00
parent 249581d8a7
commit 441c5c068c
1 changed files with 57 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

57
WTCA/wtca.sql
View File

@@ -197,6 +197,63 @@ AS
END;
/
-- Dummy export NACHTWERK!
/* Formatted on 26-5-2016 11:05:50 (QP5 v5.136.908.31019) */
CREATE OR REPLACE PROCEDURE wtca_select_nachtwerk (p_applname IN VARCHAR2,
p_applrun IN VARCHAR2)
AS
-- Auto-afmelden Verhuis en transport aanvragen 3 werkdagen na de ingevulde
-- transportdatum-tot en alleen als status=Geaccepteerd!
CURSOR c_mldafm
IS
SELECT '[' || TO_CHAR (m.mld_melding_key) || '] ' aanduiding, m.mld_melding_key
FROM mld_melding m, mld_kenmerkmelding km, mld_kenmerk k
WHERE m.mld_stdmelding_key IN (3923, 3924) -- Verhuis en transport aanvragen
AND m.mld_melding_status = 4 -- Geaccepteerd
AND m.mld_melding_key = km.mld_melding_key
AND km.mld_kenmerk_key = k.mld_kenmerk_key
AND k.mld_srtkenmerk_key = 406 -- Transportdatum-tot
AND FAC.count_work_days (SYSDATE, fac.safe_to_date (km.mld_kenmerkmelding_waarde, 'dd-mm-yyyy')) = 4
ORDER BY m.mld_melding_key;
v_errormsg VARCHAR2 (1000);
oracle_err_num NUMBER;
oracle_err_mes VARCHAR2 (200);
v_count NUMBER;
BEGIN
v_count := 0;
-- Auto-afmelden Verhuis en transport aanvragen 3 werkdagen na de ingevulde
-- transportdatum-tot.
FOR rec IN c_mldafm
LOOP
BEGIN
v_errormsg := 'Fout bij auto-afmelden';
MLD.setmeldingstatus (rec.mld_melding_key, 5, NULL);
v_count := v_count + 1;
EXCEPTION
WHEN OTHERS
THEN
oracle_err_num := SQLCODE;
oracle_err_mes := SUBSTR (SQLERRM, 1, 200);
v_errormsg := v_errormsg || ' ORACLE (error ' || oracle_err_num || '/' || oracle_err_mes || ')';
fac.writelog (p_applname, 'W', rec.aanduiding || v_errormsg, '');
COMMIT;
END;
END LOOP;
fac.writelog (p_applname, 'S', 'Verhuis en transport aanvragen/#afgemeld: ' || TO_CHAR (v_count), '');
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 (p_applname, 'E', 'Proces NACHTWERK afgebroken!', v_errormsg);
END wtca_select_nachtwerk;
/
/* Formatted on 5-1-2011 16:38:28 (QP5 v5.115.810.9015) */
CREATE OR REPLACE VIEW wtca_v_stdmld_lijst
(