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

VIAR#33232 ook opdrachten naar archief

Browse Source 
svn path=/Customer/trunk/; revision=26464
This commit is contained in:
Ruud Lipper
2015-09-24 08:27:09 +00:00
parent 2e80caf420
commit 260d441879
1 changed files with 68 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

74
VIAR/viar.sql
View File

@@ -10,6 +10,7 @@ set echo on
spool VIAR.lst spool VIAR.lst
-- VIAR#33232 -- VIAR#33232
-- Zet alle opdrachten van afgemelde meldingen (= key 5) die zijn afgerond (= key 161) naar status historie (= key 7)
-- Zet alle afgemelde meldingen (= key 5) die zijn afgerond (= key 161) naar status historie (= key 6) -- Zet alle afgemelde meldingen (= key 5) die zijn afgerond (= key 161) naar status historie (= key 6)
CREATE OR REPLACE PROCEDURE viar_export_nachtwerk (p_applname IN VARCHAR2, CREATE OR REPLACE PROCEDURE viar_export_nachtwerk (p_applname IN VARCHAR2,
p_applrun IN VARCHAR2, p_applrun IN VARCHAR2,
@@ -18,19 +19,77 @@ CREATE OR REPLACE PROCEDURE viar_export_nachtwerk (p_applname IN VARCHAR2,
AS AS
CURSOR cmafm CURSOR cmafm
IS IS
SELECT mld_melding_key SELECT DISTINCT m.mld_melding_key
FROM mld_melding FROM mld_melding m, mld_opdr o
WHERE mld_melding_status = 5 WHERE mld_melding_status = 5
AND mld_melding_key IN (SELECT fac_tracking_refkey AND o.mld_melding_key = m.mld_melding_key
FROM fac_tracking AND m.mld_melding_key IN
WHERE fac_srtnotificatie_key = 161); (SELECT fac_tracking_refkey
FROM fac_tracking
WHERE fac_srtnotificatie_key = 161);
CURSOR coafm
IS
SELECT mld_opdr_key
FROM mld_opdr
WHERE mld_statusopdr_key IN (6, 9)
AND mld_melding_key IN
(SELECT DISTINCT m.mld_melding_key
FROM mld_melding m, mld_opdr o
WHERE mld_melding_status = 5
AND o.mld_melding_key = m.mld_melding_key
AND o.mld_melding_key NOT IN
(SELECT mld_melding_key
FROM mld_opdr
WHERE mld_statusopdr_key NOT IN
(6, 9))
AND m.mld_melding_key IN
(SELECT fac_tracking_refkey
FROM fac_tracking
WHERE fac_srtnotificatie_key =
161));
v_errorhint VARCHAR2 (1000); v_errorhint VARCHAR2 (1000);
v_errormsg VARCHAR2 (1000); v_errormsg VARCHAR2 (1000);
oracle_err_num NUMBER; oracle_err_num NUMBER;
oracle_err_mes VARCHAR2 (200); oracle_err_mes VARCHAR2 (200);
v_count NUMBER := 0; v_count NUMBER := 0;
v_count2 NUMBER := 0;
BEGIN BEGIN
FOR r IN coafm
LOOP
BEGIN
MLD.setopdrachtstatus (r.mld_opdr_key, 7, NULL);
v_count2 := v_count2 + 1;
COMMIT;
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,
'W',
v_errormsg,
v_errorhint);
COMMIT;
END;
END LOOP;
fac.writelog (p_applname,
'S',
'Aantal opdrachten verwerkt: ' || TO_CHAR (v_count2),
'');
COMMIT;
FOR r IN cmafm FOR r IN cmafm
LOOP LOOP
BEGIN BEGIN
@@ -63,6 +122,9 @@ BEGIN
'S', 'S',
'Aantal meldingen verwerkt: ' || TO_CHAR (v_count), 'Aantal meldingen verwerkt: ' || TO_CHAR (v_count),
''); '');
COMMIT;
EXCEPTION EXCEPTION
WHEN OTHERS WHEN OTHERS
THEN THEN
@@ -1794,7 +1856,7 @@ AS
BEGIN adm.systrackscriptId('$Id$', 0); END; BEGIN adm.systrackscriptId('$Id$', 0); END;
/ /
BEGIN fac.registercustversion('VIAR', 7); END; BEGIN fac.registercustversion('VIAR', 8); END;
/ /
commit; commit;