admin/Customer
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

ASLE#31926 -- implementatie Asito Leisure.

Browse Source 
svn path=/Customer/trunk/; revision=25499
This commit is contained in:
Arthur Egberink
2015-06-22 07:49:57 +00:00
parent 65b95e4ba7
commit a1ee1c3fc4
1 changed files with 26 additions and 23 deletions
Download Patch File Download Diff File Expand all files Collapse all files

49
ASLE/asle.sql
View File

@@ -926,22 +926,7 @@ AS
AND num_clean = 1
AND TRUNC (start_inzet) = p_date;
-- verwijder opdrachten waar nog niet mee gestart is
-- pas de tabel werkschema aan en vul last_zone en num_clean
-- met de actuele stand van zaken
DELETE mld_opdr WHERE mld_opdr_key IN
( SELECT mld_opdr_key
FROM asle_v_schoonmaak
WHERE alg_locatie_key = p_locatie_key
AND TRUNC(mld_melding_einddatum) = p_date
AND mld_statusopdr_key NOT IN (
6, -- afgemeld
7, -- verwerkt
8, -- geaccepteerd
9 -- afgerond
)
);
-- markeer de laatste zone, schoonmaaktijd en aantal gepoetste kamers in schoonmaaktabel.
FOR rec IN c_opdr_prs
LOOP
@@ -2173,6 +2158,22 @@ BEGIN
v_tolerantie := 0;
END;
-- verwijder opdrachten waar nog niet mee gestart is
-- pas de tabel werkschema aan en vul last_zone en num_clean
-- met de actuele stand van zaken
DELETE mld_opdr WHERE mld_opdr_key IN
( SELECT mld_opdr_key
FROM asle_v_schoonmaak
WHERE alg_locatie_key = p_locatie_key
AND TRUNC(mld_melding_einddatum) = p_date
AND mld_statusopdr_key NOT IN (
6, -- afgemeld
7, -- verwerkt
8, -- geaccepteerd
9 -- afgerond
)
);
FOR rec IN c
LOOP
BEGIN
@@ -2203,9 +2204,12 @@ BEGIN
mld_stdmelding std
WHERE m.mld_stdmelding_key = std.mld_stdmelding_key
AND std.mld_ins_discipline_key = 21 -- schoonmaak
AND mld_alg_onroerendgoed_keys = rec.alg_ruimte_key
AND mld_meldbron_key = 6 -- System
AND TRUNC (mld_melding_einddatum) =
TRUNC (COALESCE(rec.verw_start_schoonmaak, SYSDATE+p_offset));
v_errormsg := 'Controleer of melding al bestaat2';
IF v_melding_key IS NOT NULL
THEN
SELECT m.mld_stdmelding_key,
@@ -2224,8 +2228,7 @@ BEGIN
ins_srtdiscipline sd
WHERE 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
AND mld_alg_onroerendgoed_keys = rec.alg_ruimte_key
AND d.ins_srtdiscipline_key = sd.ins_srtdiscipline_key
AND m.mld_melding_key = v_melding_key;
v_log := NULL;
@@ -2309,7 +2312,7 @@ BEGIN
rec.verw_start_schoonmaak,
SYSDATE,
c_mld_uitvoertijd,
5,
6, -- system
'MLD',
3)
RETURNING mld_melding_key
@@ -2357,7 +2360,7 @@ BEGIN
v_log :=
'*Melding '
|| v_srtdiscipline_prefix
|| v_melding_key
|| rec.mld_melding_key
|| ' ('
|| v_discipline_omschrijving
|| '/'
@@ -2371,7 +2374,7 @@ BEGIN
fac_tracking_oms,
prs_perslid_key)
SELECT fac_srtnotificatie_key,
v_melding_key,
rec.mld_melding_key,
v_log,
v_user_key
FROM fac_srtnotificatie
@@ -2379,7 +2382,7 @@ BEGIN
END IF;
mld.upsertmeldingkenmerk (81, -- groepnaam
v_melding_key,
rec.mld_melding_key,
'');
END;
END LOOP;
@@ -2547,7 +2550,7 @@ BEGIN adm.systrackscriptId('$Id$', 0); END;
/
BEGIN fac.registercustversion('ASLE', 7); END;
BEGIN fac.registercustversion('ASLE', 8); END;
/
COMMIT;