63 lines
1.9 KiB
SQL
63 lines
1.9 KiB
SQL
--
|
|
-- $Id$
|
|
--
|
|
-- Korte beschrijving wat het script doet
|
|
-- Kostenplaatsen aanpassen zodat code weer in nummer staan en omschrijving goed staat
|
|
-- Verder worden de kostenplaatsen gegroepeerd en worden budgethouders toegekoend.
|
|
--
|
|
DEFINE thisfile = 'YASK#66389.SQL'
|
|
DEFINE dbuser = '^YASK'
|
|
|
|
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;
|
|
PROMPT &fcltcusterr
|
|
SET DEFINE OFF
|
|
|
|
------ payload begin ------
|
|
|
|
DECLARE
|
|
CURSOR c IS
|
|
SELECT k.prs_kostensoort_refcode,
|
|
k.prs_kostensoort_oms,
|
|
fin_verkoopfactuur_key
|
|
FROM fin_verkoopfactuur v,
|
|
mld_melding m,
|
|
mld_stdmelding std,
|
|
prs_kostensoort k
|
|
WHERE fin_verkoopfactuur_n4 = m.mld_melding_key
|
|
AND m.mld_stdmelding_key = std.mld_stdmelding_key
|
|
AND std.prs_kostensoort_key = k.prs_kostensoort_key(+)
|
|
AND COALESCE (fin_verkoopfactuur_c2, '-1') <>
|
|
COALESCE (k.prs_kostensoort_refcode, '-1');
|
|
BEGIN
|
|
FOR rec IN c
|
|
LOOP
|
|
UPDATE fin_verkoopfactuur
|
|
SET prs_kostensoort_oms = rec.prs_kostensoort_oms,
|
|
fin_verkoopfactuur_c1 = rec.prs_kostensoort_oms,
|
|
fin_verkoopfactuur_c2 = rec.prs_kostensoort_refcode
|
|
WHERE fin_verkoopfactuur_key = rec.fin_verkoopfactuur_key;
|
|
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
|