YFTH#66833 -- Opdrachten op afronden zetten

svn path=/Customer/trunk/; revision=52289

YFTH/yfth.sql

@@ -20,6 +20,8 @@ SET DEFINE OFF
 CREATE OR REPLACE PACKAGE YFTH
 AS
    PROCEDURE mark_fat_client_workplace;
+
+   PROCEDURE zet_opdracht_op_verwerkt;
 END;
 /
 
@@ -131,9 +133,29 @@ AS
                 END LOOP;
             END IF;
         END LOOP;
-        fac.writelog ('mark_fat_client_workplace', 'I', 'Procedure uitgevoerd: ' || TO_CHAR(SYSDATE, 'dd-mm-yyyy h24:mi:ss'), '');
+        fac.writelog ('mark_fat_client_workplace', 'I', 'Procedure uitgevoerd: ' || TO_CHAR(SYSDATE, 'dd-mm-yyyy hh24:mi:ss'), '');
         COMMIT;
     END;
+
+    -- zet alle afgeronde opdrachten op verwerkt.
+    PROCEDURE zet_opdracht_op_verwerkt
+    AS
+       CURSOR c IS
+          SELECT *
+            FROM mld_opdr
+           WHERE mld_statusopdr_key = 9;
+
+    v_count NUMBER;
+
+    BEGIN
+       v_count := 0;
+       FOR rec IN c
+       LOOP
+          v_count := v_count + 1;
+          MLD.setopdrachtstatus (rec.mld_opdr_key, 7, NULL);
+       END LOOP;
+       fac.writelog ('zet_opdracht_op_verwerkt', 'I', 'Procedure uitgevoerd: ' || TO_CHAR(SYSDATE, 'dd-mm-yyyy hh24:mi:ss') || ' ' || v_count || ' opdrachten op verwerkt gezet.', '');
+    END;
 END;
 /
 
@@ -314,7 +336,7 @@ AS
            AND rrr.alg_ruimte_key = rg.alg_ruimte_key
            AND rrr.res_rsv_ruimte_verwijder IS NULL
            AND rrd.res_rsv_deel_verwijder IS NULL
-           AND rrr.res_rsv_ruimte_van > SYSDATE;
+           AND TRUNC(rrr.res_rsv_ruimte_van) >= TRUNC(SYSDATE);
 
 -- Eigen view om fat_client werkplekken een eigen status mee te geven.
 -- Normale werkplekken catalogus 261 hebben groene kleur,
@@ -643,7 +665,20 @@ AS
                      WHERE     kd.ins_deel_key = d.ins_deel_key
                            AND ins_kenmerk_key IN (1, 21, 22));
 
-
+-- Thema dat het type werkplek aangeeft.
+CREATE OR REPLACE VIEW yfth_v_rap_type_werkplek
+AS
+    SELECT d.ins_deel_key,
+           DECODE (
+               FLX.getflex ('INS', 22, d.ins_deel_key),
+               1, 'ZitSta',
+               DECODE (
+                   FLX.getflex ('INS', 1, d.ins_deel_key),
+                   1, DECODE (FLX.getflex ('INS', 41, d.ins_deel_key),
+                              '141', 'FatClient A',
+                              'FatClient B'),
+                   'Normaal'))    waarde
+      FROM ins_deel d;
 --
 -- Reverse billing zoals bij Schiphol
 --
@@ -2830,6 +2865,8 @@ BEGIN
    -- A FAT clients zijn in de even weken beschikbaar
    -- B FAT clients zijn in de onveven weken beschikbaar
    YFTH.mark_fat_client_workplace;
+
+   YFTH.zet_opdracht_op_verwerkt;
 END;
 /