338 lines
9.8 KiB
SQL
338 lines
9.8 KiB
SQL
--
|
||
-- $Id$
|
||
--
|
||
-- Korte beschrijving wat het script doet
|
||
-- Opdrachtbedragen aanpassen. Bij invoer is ten onrechte de verkoopprijs ingevoerd.
|
||
--
|
||
DEFINE thisfile = 'YASK#65170.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 ------
|
||
|
||
/* Formatted on 16-12-2020 20:06:22 (QP5 v5.336) */
|
||
DECLARE
|
||
PROCEDURE update_opdr (p_opdr_key IN NUMBER, p_bedrag IN NUMBER)
|
||
AS
|
||
v_kosten NUMBER;
|
||
v_materiaal NUMBER;
|
||
v_opdr_id VARCHAR (10);
|
||
BEGIN
|
||
SELECT mld_opdr_materiaal,
|
||
mld_opdr_kosten,
|
||
sd.ins_srtdiscipline_prefix
|
||
|| m.mld_melding_key
|
||
|| '/'
|
||
|| o.mld_opdr_bedrijfopdr_volgnr
|
||
INTO v_materiaal, v_kosten, v_opdr_id
|
||
FROM mld_opdr o,
|
||
mld_melding m,
|
||
mld_stdmelding std,
|
||
mld_discipline d,
|
||
ins_srtdiscipline sd
|
||
WHERE mld_opdr_key = p_opdr_key
|
||
AND o.mld_melding_key = m.mld_melding_key
|
||
AND m.mld_stdmelding_key = std.MLD_STDMELDING_KEY
|
||
AND std.mld_ins_discipline_key = d.ins_discipline_key
|
||
AND d.ins_srtdiscipline_key = sd.ins_srtdiscipline_key(+);
|
||
|
||
UPDATE mld_opdr
|
||
SET mld_opdr_materiaal = p_bedrag, mld_opdr_kosten = p_bedrag
|
||
WHERE mld_opdr_key = p_opdr_key;
|
||
|
||
fac.trackaction (
|
||
'ORDUPD',
|
||
p_opdr_key,
|
||
3,
|
||
NULL,
|
||
'Opdracht '
|
||
|| v_opdr_id
|
||
|| ' is gewijzigd'
|
||
|| CHR (10)
|
||
|| 'Materiaal <20>: '
|
||
|| v_materiaal
|
||
|| ' --> '
|
||
|| p_bedrag
|
||
|| CHR (10)
|
||
|| 'Totaal <20>: '
|
||
|| v_kosten
|
||
|| ' --> '
|
||
|| p_bedrag);
|
||
END;
|
||
BEGIN
|
||
--update_opdr (12, 3189.87);
|
||
update_opdr (13, 500);
|
||
update_opdr (15, 2363.8);
|
||
--update_opdr (16, 435.71);
|
||
update_opdr (19, 15924.64);
|
||
update_opdr (20, 461);
|
||
--update_opdr (21, 4888.39);
|
||
update_opdr (24, 2000);
|
||
update_opdr (25, 250);
|
||
update_opdr (27, 1600);
|
||
update_opdr (31, 1973.87);
|
||
update_opdr (33, 1600);
|
||
update_opdr (34, 7386.36);
|
||
update_opdr (37, 2105.7);
|
||
update_opdr (42, 780);
|
||
update_opdr (46, 939.28);
|
||
update_opdr (48, 213.43);
|
||
update_opdr (50, 4950);
|
||
update_opdr (54, 9984);
|
||
update_opdr (56, 3354);
|
||
update_opdr (60, 217);
|
||
update_opdr (62, 2015.05);
|
||
update_opdr (63, 3850);
|
||
update_opdr (66, 1097);
|
||
update_opdr (67, 250);
|
||
update_opdr (68, 90);
|
||
update_opdr (69, 177.5);
|
||
update_opdr (71, 3025);
|
||
update_opdr (73, 90);
|
||
update_opdr (75, 90);
|
||
update_opdr (76, 158.55);
|
||
update_opdr (78, 3408.75);
|
||
update_opdr (79, 250);
|
||
update_opdr (83, 431.48);
|
||
update_opdr (90, 3957.12);
|
||
update_opdr (91, 1017);
|
||
update_opdr (95, 257.35);
|
||
update_opdr (96, 167.44);
|
||
update_opdr (97, 776.36);
|
||
update_opdr (99, 12718);
|
||
update_opdr (101, 625.76);
|
||
update_opdr (107, 2758.29);
|
||
update_opdr (109, 830);
|
||
update_opdr (110, 406.41);
|
||
update_opdr (112, 1435);
|
||
update_opdr (126, 1853.19);
|
||
update_opdr (127, 1853.19);
|
||
update_opdr (129, 123.67);
|
||
update_opdr (130, 2137.25);
|
||
update_opdr (131, 1602.94);
|
||
update_opdr (133, 13500);
|
||
update_opdr (137, 302.72);
|
||
update_opdr (140, 92.07);
|
||
update_opdr (143, 4118.31);
|
||
update_opdr (145, 79.53);
|
||
update_opdr (146, 337.78);
|
||
update_opdr (147, 27335.84);
|
||
update_opdr (148, 339.19);
|
||
update_opdr (151, 180.84);
|
||
update_opdr (153, 545);
|
||
update_opdr (159, 200);
|
||
update_opdr (161, 175);
|
||
update_opdr (163, 0);
|
||
update_opdr (164, 184.03);
|
||
update_opdr (165, 374.86);
|
||
update_opdr (169, 70);
|
||
update_opdr (171, 150);
|
||
update_opdr (173, 72.24);
|
||
update_opdr (174, 8500);
|
||
update_opdr (176, 3900);
|
||
update_opdr (177, 500);
|
||
update_opdr (178, 250);
|
||
update_opdr (179, 106.04);
|
||
update_opdr (180, 500);
|
||
update_opdr (181, 150);
|
||
update_opdr (182, 54.17);
|
||
update_opdr (185, 3900);
|
||
update_opdr (186, 6480);
|
||
--update_opdr (188, 151.85);
|
||
update_opdr (191, 620);
|
||
update_opdr (192, 315);
|
||
update_opdr (195, 417.68);
|
||
update_opdr (196, 20915);
|
||
update_opdr (197, 4850);
|
||
update_opdr (199, 4000);
|
||
update_opdr (201, 210);
|
||
update_opdr (205, 200);
|
||
update_opdr (207, 17.44);
|
||
update_opdr (210, 304);
|
||
update_opdr (211, 7440);
|
||
update_opdr (213, 648);
|
||
update_opdr (214, 8680);
|
||
update_opdr (220, 16.5);
|
||
update_opdr (221, 8680);
|
||
update_opdr (222, 745.81);
|
||
update_opdr (223, 16.5);
|
||
update_opdr (231, 676.26);
|
||
update_opdr (235, 207.98);
|
||
update_opdr (236, 579.83);
|
||
update_opdr (237, 156.64);
|
||
update_opdr (238, 168);
|
||
update_opdr (239, 207.98);
|
||
update_opdr (240, 250);
|
||
update_opdr (242, 150);
|
||
update_opdr (245, 70.01);
|
||
--update_opdr (246, 115.3);
|
||
update_opdr (248, 65.8);
|
||
update_opdr (249, 70);
|
||
update_opdr (251, 690.33);
|
||
--update_opdr (252, 71.49);
|
||
update_opdr (253, 500);
|
||
update_opdr (255, 650);
|
||
update_opdr (256, 4);
|
||
update_opdr (257, 17.55);
|
||
update_opdr (258, 233.33);
|
||
update_opdr (260, 361.61);
|
||
update_opdr (261, 250);
|
||
update_opdr (263, 6530);
|
||
update_opdr (264, 137.16);
|
||
update_opdr (266, 4744.7);
|
||
update_opdr (267, 274.51);
|
||
update_opdr (272, 500.04);
|
||
update_opdr (277, 13790.88);
|
||
update_opdr (279, 25650);
|
||
update_opdr (280, 1500);
|
||
update_opdr (282, 2716.45);
|
||
update_opdr (286, 1048.06);
|
||
update_opdr (289, 250);
|
||
update_opdr (291, 1199.73);
|
||
update_opdr (293, 6648);
|
||
update_opdr (295, 208.74);
|
||
update_opdr (297, 208.74);
|
||
update_opdr (301, 480.2);
|
||
update_opdr (303, 6648);
|
||
update_opdr (304, 250);
|
||
update_opdr (305, 272.53);
|
||
update_opdr (306, 208.74);
|
||
update_opdr (308, 250);
|
||
update_opdr (311, 250);
|
||
--update_opdr (313, 30366.07);
|
||
update_opdr (317, 1530);
|
||
update_opdr (323, 8950);
|
||
update_opdr (324, 500);
|
||
update_opdr (325, 4000);
|
||
update_opdr (326, 250);
|
||
update_opdr (328, 250);
|
||
update_opdr (331, 553.42);
|
||
update_opdr (343, 948.72);
|
||
update_opdr (346, 1376.39);
|
||
update_opdr (356, 549.02);
|
||
update_opdr (358, 421.53);
|
||
--update_opdr (369, 3847.55);
|
||
update_opdr (371, 250);
|
||
update_opdr (375, 223.21);
|
||
update_opdr (377, 314.8);
|
||
update_opdr (381, 500);
|
||
update_opdr (385, 2160.5);
|
||
update_opdr (391, 1390);
|
||
update_opdr (397, 196.66);
|
||
update_opdr (404, 805);
|
||
update_opdr (409, 12170.71);
|
||
update_opdr (412, 500);
|
||
update_opdr (415, 12.52);
|
||
update_opdr (417, 609);
|
||
update_opdr (419, 250);
|
||
update_opdr (422, 250);
|
||
--update_opdr (423, 501.07);
|
||
update_opdr (424, 250);
|
||
update_opdr (425, 1469.4);
|
||
update_opdr (427, 250);
|
||
update_opdr (429, 250);
|
||
update_opdr (431, 331.65);
|
||
update_opdr (434, 250);
|
||
update_opdr (435, 250);
|
||
update_opdr (436, 250);
|
||
update_opdr (438, 261.61);
|
||
update_opdr (439, 250);
|
||
update_opdr (440, 250);
|
||
update_opdr (443, 442.5);
|
||
update_opdr (447, 250);
|
||
update_opdr (449, 250);
|
||
update_opdr (451, 2125);
|
||
update_opdr (452, 250);
|
||
update_opdr (455, 250);
|
||
update_opdr (458, 250);
|
||
update_opdr (463, 20000);
|
||
update_opdr (464, 368.29);
|
||
update_opdr (465, 272.16);
|
||
update_opdr (470, 2197);
|
||
update_opdr (473, 183.95);
|
||
update_opdr (476, 7300);
|
||
update_opdr (477, 136.36);
|
||
update_opdr (478, 250);
|
||
update_opdr (479, 90.91);
|
||
update_opdr (480, 90);
|
||
update_opdr (481, 250);
|
||
update_opdr (483, 83.71);
|
||
update_opdr (484, 250);
|
||
update_opdr (485, 197.75);
|
||
update_opdr (486, 250);
|
||
update_opdr (487, 250);
|
||
update_opdr (488, 315.53);
|
||
update_opdr (489, 250);
|
||
update_opdr (491, 250);
|
||
update_opdr (497, 250);
|
||
update_opdr (498, 250);
|
||
update_opdr (499, 250);
|
||
update_opdr (500, 250);
|
||
update_opdr (501, 90.91);
|
||
update_opdr (638, 415.57);
|
||
update_opdr (673, 301.79);
|
||
update_opdr (678, 33.05);
|
||
update_opdr (679, 55.8);
|
||
update_opdr (685, 14.85);
|
||
update_opdr (768, 587.96);
|
||
update_opdr (836, 49.43);
|
||
update_opdr (854, 29.52);
|
||
update_opdr (874, 139.73);
|
||
update_opdr (880, 14.73);
|
||
update_opdr (881, 11.36);
|
||
update_opdr (882, 13.5);
|
||
update_opdr (883, 22.17);
|
||
update_opdr (884, 2.8);
|
||
update_opdr (887, 72.02);
|
||
update_opdr (888, 142.35);
|
||
update_opdr (899, 140.4);
|
||
update_opdr (900, 54);
|
||
update_opdr (925, 28.57);
|
||
update_opdr (926, 1.43);
|
||
update_opdr (927, 77.86);
|
||
update_opdr (928, 2.86);
|
||
update_opdr (934, 22.32);
|
||
update_opdr (949, 194.65);
|
||
update_opdr (964, 37.6);
|
||
update_opdr (971, 3.78);
|
||
update_opdr (974, 22.29);
|
||
update_opdr (975, 6.64);
|
||
END;
|
||
/
|
||
|
||
-- Het flexkenmerk verkoopprijs aanpassen voor alle opdrachten
|
||
DECLARE
|
||
CURSOR c IS SELECT mld_opdr_key FROM mld_opdr;
|
||
BEGIN
|
||
FOR rec IN c
|
||
LOOP
|
||
yask.set_verkoopprijs (rec.mld_opdr_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
|