177 lines
8.5 KiB
SQL
177 lines
8.5 KiB
SQL
--
|
|
-- $Id$
|
|
--
|
|
-- Laatste data update voordat de koppeling in productie wordt genomen en de eerste doorbelasting gedaan wordt:
|
|
-- De koppeling set vanaf nu de prijs van het artikel ook in de inkoopprijs, daarna wordt het opslag percentage bepaald.
|
|
-- Er zijn een aantal reserveringen meegekomen met de koppeling terwijl dat niet moest. Deze worden verwijderd.
|
|
-- Voor bestaande reserveringen moet via dit script de opslag berekend en ingevuld worden.
|
|
|
|
|
|
DEFINE thisfile = 'YASK#85687_4.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 ------
|
|
|
|
UPDATE res_rsv_artikel
|
|
SET res_rsv_artikel_inkoopprijs = res_rsv_artikel_prijs
|
|
WHERE res_artikel_key IN (SELECT res_artikel_key
|
|
FROM res_artikel
|
|
WHERE res_discipline_key = 1221);
|
|
|
|
DECLARE
|
|
CURSOR c IS
|
|
SELECT rrr.res_rsv_ruimte_key,
|
|
rrr.res_rsv_ruimte_van,
|
|
rrr.res_rsv_ruimte_tot,
|
|
rrr.res_reservering_key
|
|
FROM res_rsv_ruimte rrr, res_kenmerkwaarde kw
|
|
WHERE rrr.res_rsv_ruimte_key = kw.res_rsv_ruimte_key
|
|
AND res_kenmerk_key = 401 -- Axxerion nummer
|
|
AND kw.res_kenmerkreservering_waarde IN ('RES-2501432',
|
|
'RES-2507666',
|
|
'RES-2502617',
|
|
'RES-2465910',
|
|
'RES-2500277',
|
|
'RES-2502640',
|
|
'RES-2505337',
|
|
'RES-2463048',
|
|
'RES-2506720',
|
|
'RES-2508352',
|
|
'RES-2503262',
|
|
'RES-2500946',
|
|
'RES-2505505',
|
|
'RES-2505506',
|
|
'RES-2505507',
|
|
'RES-2505508',
|
|
'RES-2505509',
|
|
'RES-2505510',
|
|
'RES-2500912',
|
|
'RES-2507354',
|
|
'RES-2502990',
|
|
'RES-2505083',
|
|
'RES-2502631',
|
|
'RES-2507167',
|
|
'RES-2465346',
|
|
'RES-2465668',
|
|
'RES-2465670',
|
|
'RES-2508312',
|
|
'RES-2503305',
|
|
'RES-2506877',
|
|
'RES-2465288',
|
|
'RES-2465823',
|
|
'RES-2465876',
|
|
'RES-2500192',
|
|
'RES-2506125',
|
|
'RES-2465284',
|
|
'RES-2465281',
|
|
'RES-2506780',
|
|
'RES-2500246',
|
|
'RES-2501222',
|
|
'RES-2502666',
|
|
'RES-2502339',
|
|
'RES-2465408',
|
|
'RES-2501846',
|
|
'RES-2500229',
|
|
'RES-2502444',
|
|
'RES-2464444',
|
|
'RES-2507072',
|
|
'RES-2463228',
|
|
'RES-2464679',
|
|
'RES-2500184',
|
|
'RES-2507661',
|
|
'RES-2501817',
|
|
'RES-2508145',
|
|
'RES-2507642',
|
|
'RES-2507655',
|
|
'RES-2464912',
|
|
'RES-2465290',
|
|
'RES-2503390',
|
|
'RES-2506887',
|
|
'RES-2503310',
|
|
'RES-2506097',
|
|
'RES-2462324',
|
|
'RES-2459187',
|
|
'RES-2462788',
|
|
'RES-2505499',
|
|
'RES-2502060',
|
|
'RES-2464550',
|
|
'RES-2500916',
|
|
'RES-2464419',
|
|
'RES-2500126',
|
|
'RES-2504282',
|
|
'RES-2465250',
|
|
'RES-2500976',
|
|
'RES-2504623',
|
|
'RES-2465276',
|
|
'RES-2500879',
|
|
'RES-2504297');
|
|
BEGIN
|
|
FOR rec IN c
|
|
LOOP
|
|
UPDATE res_rsv_ruimte xx
|
|
SET xx.res_rsv_ruimte_opmerking = 'Mail van Daniel',
|
|
xx.res_status_fo_key = 4,
|
|
xx.res_rsv_ruimte_verwijder = SYSDATE,
|
|
xx.res_rsv_ruimte_totaal = 0
|
|
WHERE res_rsv_ruimte_key = rec.res_rsv_ruimte_key;
|
|
|
|
res.set_ruimtes_clean (TRUNC (rec.res_rsv_ruimte_van));
|
|
res.follow_artikel (rec.res_rsv_ruimte_key, rec.res_rsv_ruimte_van, rec.res_rsv_ruimte_tot);
|
|
|
|
fac.trackaction ('RESDEL',
|
|
rec.res_rsv_ruimte_key,
|
|
3,
|
|
NULL,
|
|
NULL);
|
|
|
|
UPDATE res_reservering
|
|
SET res_reservering_verwijder = SYSDATE
|
|
WHERE res_reservering_key = rec.res_reservering_key
|
|
AND NOT EXISTS
|
|
(SELECT *
|
|
FROM res_v_aanwezigrsv_ruimte
|
|
WHERE res_reservering_key = rec.res_reservering_key);
|
|
END LOOP;
|
|
END;
|
|
/
|
|
|
|
-- Opslag percentage berekenen.
|
|
DECLARE
|
|
CURSOR c IS
|
|
SELECT *
|
|
FROM res_rsv_artikel
|
|
WHERE res_artikel_key IN (SELECT res_artikel_key
|
|
FROM res_artikel
|
|
WHERE res_discipline_key = 1221); -- Rabo catering
|
|
BEGIN
|
|
FOR rec IN c
|
|
LOOP
|
|
vbxx.set_opslag_perc_cat (rec.res_rsv_artikel_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
|