PCHW#56857 Once script om meldingen op indult te zetten, tekst toe te voegen en meldingen goed te keuren.
svn path=/Customer/; revision=43387
This commit is contained in:
Sander Schepers
432
onces/PCHW/PCHW#56857.sql
Normal file
432
onces/PCHW/PCHW#56857.sql
Normal file
@@ -0,0 +1,432 @@
|
||||
--
|
||||
-- $Id$
|
||||
--
|
||||
-- <<Aanmaken 2 tabellen voor import glasbonnen>>
|
||||
-- Voor dbuser invullen: - indien script voor 1 klant is: 'AADS' (de klantcode, zoals vermeld in fac_version_cust)
|
||||
-- - script is voor meerdere klanten: 'AAXX' (de groepcode, zoals vermeld in fac_version_group)
|
||||
-- - script is voor meerdere klanten met naam volgens een bepaald patroon: '^AA|^ASMS|^GULU|^NMMS|^RABO|^ZKHM'
|
||||
DEFINE thisfile = 'PCHW#56857.SQL'
|
||||
DEFINE dbuser = '^PCHW'
|
||||
|
||||
SET ECHO ON
|
||||
SET DEFINE ON
|
||||
COLUMN fcltlogfile NEW_VALUE fcltlogfile NOPRINT;
|
||||
COLUMN fcltcusterr NEW_VALUE fcltcusterr NOPRINT;
|
||||
WHENEVER SQLERROR CONTINUE;
|
||||
SELECT adm.getscriptspoolfile('&thisfile') AS fcltlogfile FROM DUAL;
|
||||
SPOOL &fcltlogfile
|
||||
WHENEVER SQLERROR EXIT;
|
||||
SELECT adm.checkscriptcust('&dbuser') AS fcltcusterr FROM DUAL;
|
||||
WHENEVER SQLERROR CONTINUE;
|
||||
SET DEFINE OFF
|
||||
|
||||
------ payload begin ------
|
||||
|
||||
-- Meldingen die wel al op de lijst og staan en voor een korting zouden zorgen (mogelijk ook overschrijdingen, vandaar gaan check op Totaal): op Indult zetten.
|
||||
-- Omdat meldingen die eerst overlappend waren hierdoor worden opengebroken, moet deze routine mbt indult 9 maal uitgevoerd worden.
|
||||
|
||||
DECLARE
|
||||
CURSOR indult1
|
||||
IS
|
||||
SELECT m.mld_melding_key
|
||||
FROM mld_melding m, mld_v_udr_melding mld, pchx_v_monitoring mon
|
||||
WHERE m.mld_melding_key = mld.melding_key
|
||||
AND m.mld_melding_key = mon.melding_key
|
||||
AND m.mld_melding_key < 3307
|
||||
AND mon.indult = 'Nee';
|
||||
|
||||
v_melding_key NUMBER;
|
||||
BEGIN
|
||||
FOR rec IN indult1
|
||||
LOOP
|
||||
BEGIN
|
||||
v_melding_key := rec.mld_melding_key;
|
||||
|
||||
UPDATE mld_melding
|
||||
SET mld_melding_indult = 1
|
||||
where mld_melding_key = rec.mld_melding_key;
|
||||
|
||||
fac.trackaction (
|
||||
'MLDUPD',
|
||||
v_melding_key,
|
||||
8322, -- Leonie Bomhof-VanSchie
|
||||
NULL,
|
||||
'Uitsluiten voor korting (indult): 0 --> 1');
|
||||
END;
|
||||
END LOOP;
|
||||
COMMIT;
|
||||
END;
|
||||
/
|
||||
|
||||
DECLARE
|
||||
CURSOR indult2
|
||||
IS
|
||||
SELECT m.mld_melding_key
|
||||
FROM mld_melding m, mld_v_udr_melding mld, pchx_v_monitoring mon
|
||||
WHERE m.mld_melding_key = mld.melding_key
|
||||
AND m.mld_melding_key = mon.melding_key
|
||||
AND m.mld_melding_key < 3307
|
||||
AND mon.indult = 'Nee';
|
||||
|
||||
v_melding_key NUMBER;
|
||||
BEGIN
|
||||
FOR rec IN indult2
|
||||
LOOP
|
||||
BEGIN
|
||||
v_melding_key := rec.mld_melding_key;
|
||||
|
||||
UPDATE mld_melding
|
||||
SET mld_melding_indult = 1
|
||||
where mld_melding_key = rec.mld_melding_key;
|
||||
|
||||
fac.trackaction (
|
||||
'MLDUPD',
|
||||
v_melding_key,
|
||||
8322, -- Leonie Bomhof-VanSchie
|
||||
NULL,
|
||||
'Uitsluiten voor korting (indult): 0 --> 1');
|
||||
END;
|
||||
END LOOP;
|
||||
COMMIT;
|
||||
END;
|
||||
/
|
||||
|
||||
DECLARE
|
||||
CURSOR indult3
|
||||
IS
|
||||
SELECT m.mld_melding_key
|
||||
FROM mld_melding m, mld_v_udr_melding mld, pchx_v_monitoring mon
|
||||
WHERE m.mld_melding_key = mld.melding_key
|
||||
AND m.mld_melding_key = mon.melding_key
|
||||
AND m.mld_melding_key < 3307
|
||||
AND mon.indult = 'Nee';
|
||||
|
||||
v_melding_key NUMBER;
|
||||
BEGIN
|
||||
FOR rec IN indult3
|
||||
LOOP
|
||||
BEGIN
|
||||
v_melding_key := rec.mld_melding_key;
|
||||
|
||||
UPDATE mld_melding
|
||||
SET mld_melding_indult = 1
|
||||
where mld_melding_key = rec.mld_melding_key;
|
||||
|
||||
fac.trackaction (
|
||||
'MLDUPD',
|
||||
v_melding_key,
|
||||
8322, -- Leonie Bomhof-VanSchie
|
||||
NULL,
|
||||
'Uitsluiten voor korting (indult): 0 --> 1');
|
||||
END;
|
||||
END LOOP;
|
||||
COMMIT;
|
||||
END;
|
||||
/
|
||||
|
||||
DECLARE
|
||||
CURSOR indult4
|
||||
IS
|
||||
SELECT m.mld_melding_key
|
||||
FROM mld_melding m, mld_v_udr_melding mld, pchx_v_monitoring mon
|
||||
WHERE m.mld_melding_key = mld.melding_key
|
||||
AND m.mld_melding_key = mon.melding_key
|
||||
AND m.mld_melding_key < 3307
|
||||
AND mon.indult = 'Nee';
|
||||
|
||||
v_melding_key NUMBER;
|
||||
BEGIN
|
||||
FOR rec IN indult4
|
||||
LOOP
|
||||
BEGIN
|
||||
v_melding_key := rec.mld_melding_key;
|
||||
|
||||
UPDATE mld_melding
|
||||
SET mld_melding_indult = 1
|
||||
where mld_melding_key = rec.mld_melding_key;
|
||||
|
||||
fac.trackaction (
|
||||
'MLDUPD',
|
||||
v_melding_key,
|
||||
8322, -- Leonie Bomhof-VanSchie
|
||||
NULL,
|
||||
'Uitsluiten voor korting (indult): 0 --> 1');
|
||||
END;
|
||||
END LOOP;
|
||||
COMMIT;
|
||||
END;
|
||||
/
|
||||
|
||||
DECLARE
|
||||
CURSOR indult5
|
||||
IS
|
||||
SELECT m.mld_melding_key
|
||||
FROM mld_melding m, mld_v_udr_melding mld, pchx_v_monitoring mon
|
||||
WHERE m.mld_melding_key = mld.melding_key
|
||||
AND m.mld_melding_key = mon.melding_key
|
||||
AND m.mld_melding_key < 3307
|
||||
AND mon.indult = 'Nee';
|
||||
|
||||
v_melding_key NUMBER;
|
||||
BEGIN
|
||||
FOR rec IN indult5
|
||||
LOOP
|
||||
BEGIN
|
||||
v_melding_key := rec.mld_melding_key;
|
||||
|
||||
UPDATE mld_melding
|
||||
SET mld_melding_indult = 1
|
||||
where mld_melding_key = rec.mld_melding_key;
|
||||
|
||||
fac.trackaction (
|
||||
'MLDUPD',
|
||||
v_melding_key,
|
||||
8322, -- Leonie Bomhof-VanSchie
|
||||
NULL,
|
||||
'Uitsluiten voor korting (indult): 0 --> 1');
|
||||
END;
|
||||
END LOOP;
|
||||
COMMIT;
|
||||
END;
|
||||
/
|
||||
|
||||
DECLARE
|
||||
CURSOR indult6
|
||||
IS
|
||||
SELECT m.mld_melding_key
|
||||
FROM mld_melding m, mld_v_udr_melding mld, pchx_v_monitoring mon
|
||||
WHERE m.mld_melding_key = mld.melding_key
|
||||
AND m.mld_melding_key = mon.melding_key
|
||||
AND m.mld_melding_key < 3307
|
||||
AND mon.indult = 'Nee';
|
||||
|
||||
v_melding_key NUMBER;
|
||||
BEGIN
|
||||
FOR rec IN indult6
|
||||
LOOP
|
||||
BEGIN
|
||||
v_melding_key := rec.mld_melding_key;
|
||||
|
||||
UPDATE mld_melding
|
||||
SET mld_melding_indult = 1
|
||||
where mld_melding_key = rec.mld_melding_key;
|
||||
|
||||
fac.trackaction (
|
||||
'MLDUPD',
|
||||
v_melding_key,
|
||||
8322, -- Leonie Bomhof-VanSchie
|
||||
NULL,
|
||||
'Uitsluiten voor korting (indult): 0 --> 1');
|
||||
END;
|
||||
END LOOP;
|
||||
COMMIT;
|
||||
END;
|
||||
/
|
||||
|
||||
DECLARE
|
||||
CURSOR indult7
|
||||
IS
|
||||
SELECT m.mld_melding_key
|
||||
FROM mld_melding m, mld_v_udr_melding mld, pchx_v_monitoring mon
|
||||
WHERE m.mld_melding_key = mld.melding_key
|
||||
AND m.mld_melding_key = mon.melding_key
|
||||
AND m.mld_melding_key < 3307
|
||||
AND mon.indult = 'Nee';
|
||||
|
||||
v_melding_key NUMBER;
|
||||
BEGIN
|
||||
FOR rec IN indult7
|
||||
LOOP
|
||||
BEGIN
|
||||
v_melding_key := rec.mld_melding_key;
|
||||
|
||||
UPDATE mld_melding
|
||||
SET mld_melding_indult = 1
|
||||
where mld_melding_key = rec.mld_melding_key;
|
||||
|
||||
fac.trackaction (
|
||||
'MLDUPD',
|
||||
v_melding_key,
|
||||
8322, -- Leonie Bomhof-VanSchie
|
||||
NULL,
|
||||
'Uitsluiten voor korting (indult): 0 --> 1');
|
||||
END;
|
||||
END LOOP;
|
||||
COMMIT;
|
||||
END;
|
||||
/
|
||||
|
||||
DECLARE
|
||||
CURSOR indult8
|
||||
IS
|
||||
SELECT m.mld_melding_key
|
||||
FROM mld_melding m, mld_v_udr_melding mld, pchx_v_monitoring mon
|
||||
WHERE m.mld_melding_key = mld.melding_key
|
||||
AND m.mld_melding_key = mon.melding_key
|
||||
AND m.mld_melding_key < 3307
|
||||
AND mon.indult = 'Nee';
|
||||
|
||||
v_melding_key NUMBER;
|
||||
BEGIN
|
||||
FOR rec IN indult8
|
||||
LOOP
|
||||
BEGIN
|
||||
v_melding_key := rec.mld_melding_key;
|
||||
|
||||
UPDATE mld_melding
|
||||
SET mld_melding_indult = 1
|
||||
where mld_melding_key = rec.mld_melding_key;
|
||||
|
||||
fac.trackaction (
|
||||
'MLDUPD',
|
||||
v_melding_key,
|
||||
8322, -- Leonie Bomhof-VanSchie
|
||||
NULL,
|
||||
'Uitsluiten voor korting (indult): 0 --> 1');
|
||||
END;
|
||||
END LOOP;
|
||||
COMMIT;
|
||||
END;
|
||||
/
|
||||
|
||||
DECLARE
|
||||
CURSOR indult9
|
||||
IS
|
||||
SELECT m.mld_melding_key
|
||||
FROM mld_melding m, mld_v_udr_melding mld, pchx_v_monitoring mon
|
||||
WHERE m.mld_melding_key = mld.melding_key
|
||||
AND m.mld_melding_key = mon.melding_key
|
||||
AND m.mld_melding_key < 3307
|
||||
AND mon.indult = 'Nee';
|
||||
|
||||
v_melding_key NUMBER;
|
||||
BEGIN
|
||||
FOR rec IN indult9
|
||||
LOOP
|
||||
BEGIN
|
||||
v_melding_key := rec.mld_melding_key;
|
||||
|
||||
UPDATE mld_melding
|
||||
SET mld_melding_indult = 1
|
||||
where mld_melding_key = rec.mld_melding_key;
|
||||
|
||||
fac.trackaction (
|
||||
'MLDUPD',
|
||||
v_melding_key,
|
||||
8322, -- Leonie Bomhof-VanSchie
|
||||
NULL,
|
||||
'Uitsluiten voor korting (indult): 0 --> 1');
|
||||
END;
|
||||
END LOOP;
|
||||
COMMIT;
|
||||
END;
|
||||
/
|
||||
|
||||
|
||||
-- meldingen die wel al op de lijst og staan, maar nog niet zijn afgerond, worden afgerond.
|
||||
-- daarmee ook de meldingen ter goedkeuring op de lijst OG
|
||||
|
||||
DECLARE
|
||||
CURSOR afronden
|
||||
IS
|
||||
SELECT m.mld_melding_key,
|
||||
mld.meldingnummer,
|
||||
mld.productgroep,
|
||||
mld.subproductgroep
|
||||
FROM mld_melding m, mld_v_udr_melding mld
|
||||
WHERE m.mld_melding_key = mld.melding_key
|
||||
AND m.mld_melding_key IN
|
||||
(SELECT melding_key FROM pchx_v_monitoring)
|
||||
AND m.mld_melding_key < 3307
|
||||
AND m.mld_melding_afgerond = 0;
|
||||
|
||||
v_melding_key NUMBER;
|
||||
v_melding_nr VARCHAR (1000);
|
||||
v_productgroep VARCHAR (1000);
|
||||
v_subproductgroep VARCHAR (1000);
|
||||
BEGIN
|
||||
FOR rec IN afronden
|
||||
LOOP
|
||||
BEGIN
|
||||
v_melding_key := rec.mld_melding_key;
|
||||
v_melding_nr := rec.meldingnummer;
|
||||
v_productgroep := rec.productgroep;
|
||||
v_subproductgroep := rec.subproductgroep;
|
||||
|
||||
UPDATE mld_melding
|
||||
SET mld_melding_afgerond = 1
|
||||
where mld_melding_key = rec.mld_melding_key;
|
||||
|
||||
fac.trackaction (
|
||||
'MLDUPD',
|
||||
v_melding_key,
|
||||
8322, -- Leonie Bomhof-VanSchie
|
||||
NULL,
|
||||
'Melding '
|
||||
|| v_melding_nr
|
||||
|| ' ('
|
||||
|| v_productgroep
|
||||
|| '/'
|
||||
|| v_subproductgroep
|
||||
|| ') is afgerond');
|
||||
END;
|
||||
END LOOP;
|
||||
COMMIT;
|
||||
END;
|
||||
/
|
||||
|
||||
|
||||
-- meldingen die wel de lijst og staan ter goedkeuring worden hiermee goedgekeurd.
|
||||
|
||||
DECLARE
|
||||
CURSOR goedkeuren
|
||||
IS
|
||||
SELECT mld_melding_key
|
||||
FROM mld_melding
|
||||
WHERE mld_melding_key IN (SELECT melding_key FROM pchx_v_monitoring)
|
||||
AND mld_melding_key < 3307
|
||||
AND mld_melding_afgerond = 1;
|
||||
|
||||
v_melding_key NUMBER;
|
||||
BEGIN
|
||||
FOR rec IN goedkeuren
|
||||
LOOP
|
||||
BEGIN
|
||||
v_melding_key := rec.mld_melding_key;
|
||||
|
||||
UPDATE mld_melding
|
||||
SET mld_melding_status = 6
|
||||
WHERE mld_melding_key = rec.mld_melding_key;
|
||||
|
||||
fac.trackaction (
|
||||
'MLDUPD',
|
||||
v_melding_key,
|
||||
8322, -- Leonie Bomhof-VanSchie
|
||||
NULL,
|
||||
'Conform afspraken welke zijn vastgelegd in een gespreksverslag dd 9-1-2019 en bevestigd in VTW-00384, '
|
||||
|| 'is een separate afspraak gemaakt over de verrekening van de kortingen tot en met 31-12-2018. '
|
||||
|| 'In navolging op deze afspraak worden alle kortinghoudende meldingen tot 1-1-2019 in Facilitor op €0,00 gezet.');
|
||||
|
||||
fac.trackaction ('MLDVER',
|
||||
v_melding_key,
|
||||
16341, --Hendrik Berkelaar
|
||||
NULL,
|
||||
NULL);
|
||||
END;
|
||||
END LOOP;
|
||||
END;
|
||||
/
|
||||
|
||||
|
||||
|
||||
------ payload end ------
|
||||
|
||||
SET DEFINE OFF
|
||||
BEGIN adm.systrackscriptId ('$Id$', 1); END;
|
||||
/
|
||||
|
||||
COMMIT;
|
||||
SET ECHO OFF
|
||||
SPOOL OFF
|
||||
SET DEFINE ON
|
||||
PROMPT Logfile of this upgrade is: &fcltlogfile
|
||||
Reference in New Issue
Block a user