62 lines
2.0 KiB
SQL
62 lines
2.0 KiB
SQL
-- 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
|