YASK#85687 Verzoek koppeling Axxerion Rabobank en MultiClient PLUS Vebego
svn path=/Customer/; revision=67975
This commit is contained in:
Arthur Egberink
176
onces/YASK/YASK#85687_4.sql
Normal file
176
onces/YASK/YASK#85687_4.sql
Normal file
@@ -0,0 +1,176 @@
|
||||
--
|
||||
-- $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
|
||||
Reference in New Issue
Block a user