Customer/onces/PCHW/PCHW#56857.sql

--
-- $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