-- Customer specific once-script to convert karakter-kenmerk to datum-kenmerk
-- for all objects in Hardware-discipline (HPJI#19616).
--
-- (c) 2011 SG|facilitor bv 
-- $Revision$ 
-- $Id$
--
-- Support: +31 53 4800700
SET ECHO ON
SPOOL xhpji19616.lst
SET DEFINE OFF

/* Formatted on 18-1-2011 14:48:24 (QP5 v5.115.810.9015) */
DECLARE
   v_dummy   NUMBER (10) := -1;
BEGIN
   -- 401=Hardware-discipline
   -- 23=Aanschafjaar-kenmerk (karakter-veld)
   -- 101=Aanschafdatum-kenmerk (datum-veld)
   FOR rc
   IN (  SELECT   kd.ins_deel_key,
                  DECODE (
                     LENGTH (TRIM (kd.ins_kenmerkdeel_waarde)),
                     4,
                     COALESCE (
                        fac.safe_to_date (kd.ins_kenmerkdeel_waarde || '0101',
                                          'yyyymmdd'),
                        TO_DATE ('99990101', 'yyyymmdd')
                     ),
                     TO_DATE ('99990101', 'yyyymmdd')
                  )
                     aanschafdatum
           FROM   ins_v_aanwezigkenmerkdeel kd,
                  ins_v_aanwezigdeel d,
                  ins_v_aanwezigsrtdeel sd,
                  ins_v_aanwezigsrtgroep sg,
                  ins_v_aanwezigkenmerk k
          WHERE       kd.ins_deel_key = d.ins_deel_key
                  AND d.ins_srtdeel_key = sd.ins_srtdeel_key
                  AND sd.ins_srtgroep_key = sg.ins_srtgroep_key
                  AND sg.ins_discipline_key = 401
                  AND kd.ins_kenmerk_key = k.ins_kenmerk_key
                  AND k.ins_srtkenmerk_key = 23
       ORDER BY   kd.ins_deel_key)
   LOOP
      INSERT INTO ins_kenmerkdeel (
                                      ins_deel_key,
                                      ins_kenmerk_key,
                                      ins_kenmerkdeel_waarde
                 )
        VALUES   (rc.ins_deel_key, 101, rc.aanschafdatum);

      COMMIT;
   END LOOP;
END;
/

BEGIN adm.systrackscript('$Workfile: hpji#19616.sql $', '$Revision$', 1); END;
/

SPOOL OFF
