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

HERO#90618 -- Aanpassing AFAS verwerking met werkplek toewijzing, waarneming los van de functie getrokken

Browse Source 
svn path=/Customer/trunk/; revision=70395
This commit is contained in:
Norbert Wassink
2025-09-23 12:20:29 +00:00
parent b165510fca
commit dcdae4957b
1 changed files with 72 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

79
HERO/HERO.sql
View File

@@ -1596,21 +1596,24 @@ AS
AND V.alg_verdieping_verwijder IS NULL
and r.alg_verdieping_key = v.alg_verdieping_key
AND r.alg_ruimte_nr='_WP'
AND r.alg_ruimte_verwijder IS NULL
UNION
AND r.alg_ruimte_verwijder IS NULL;
CURSOR waarnm
IS
SELECT r.alg_ruimte_key, prs_perslid_key
FROM alg_district d,
alg_locatie l,
alg_gebouw g,
alg_verdieping v,
alg_ruimte r,
alg_verdieping v, alg_ruimte r,
prs_perslid p,
prs_kenmerklink pkl,
prs_kenmerk pk
WHERE p.prs_perslid_key = p_perslid_key
AND pk.prs_kenmerk_code='CLUSTER_WAARN'
WHERE pk.prs_kenmerk_code='CLUSTER_WAARN'
AND pk.prs_kenmerk_verwijder IS NULL
AND pkl.prs_kenmerk_key = pk.prs_kenmerk_key
AND pkl.prs_link_key=p.prs_perslid_key
AND pkl.PRS_KENMERKLINK_VERWIJDER IS NULL
AND pkl.prs_link_key=p.prs_perslid_key
AND p.prs_perslid_verwijder IS NULL
AND d.alg_district_key = fac.safe_to_number(pkl.prs_kenmerklink_waarde)
AND d.alg_district_verwijder is NULL
AND l.alg_district_key = d.alg_district_key
@@ -1773,6 +1776,20 @@ BEGIN
END;
END LOOP;
FOR rec_wnm IN waarnm
LOOP
fac.imp_writelog (p_import_key,
'I',
'PERLSID :'||rec_wnm.prs_perslid_key||'-Ruimte:'||rec_wnm.alg_ruimte_key,'');
prs.movetoruimte (rec_wnm.prs_perslid_key,
rec_wnm.alg_ruimte_key,
'',
1);
END LOOP;
EXCEPTION
WHEN OTHERS
@@ -1883,6 +1900,54 @@ AS
AND kl.prs_link_key=b.prs_bedrijf_key
AND b.prs_bedrijf_verwijder is null;
-- Basis rapport van AEG voor BVB
CREATE OR REPLACE HERO_V_rap_mjob_begroyong_verplichting
AS
SELECT dsc.ins_deelsrtcontrole_freezedate,
TO_CHAR (ins_deelsrtcontrole_freezedate, 'YYYY') freezejaar,
sg.ins_srtgroep_omschrijving groep,
sd.ins_srtdeel_omschrijving objectsoort,
d.ins_deel_omschrijving object,
d.ins_deel_key object_key,
sc.ins_srtcontrole_omschrijving taak,
cd.ins_discipline_omschrijving taakcategorie,
dsc.ins_deelsrtcontrole_freezecost begroting,
ROUND ((dsc.ins_deelsrtcontrole_freezecost / mc.begroting) * mc.verplichting, 2) verplichting,
mo.mld_melding_key melding
FROM ins_deelsrtcontrole dsc,
ins_deel d,
ins_srtdeel sd,
ins_srtgroep sg,
ins_srtcontrole sc,
ctr_discipline cd,
mld_melding_object mo,
(SELECT m.mld_melding_key,
(SELECT SUM (mld_opdr_kosten)
FROM mld_opdr o
WHERE o.mld_melding_key = m.mld_melding_key) verplichting,
(SELECT SUM (ins_deelsrtcontrole_freezecost)
FROM mld_melding_object mo, ins_deelsrtcontrole dsc
WHERE m.mld_melding_key = mo.mld_melding_key
AND mo.ins_deelsrtcontrole_key = dsc.ins_deelsrtcontrole_key) begroting
FROM mld_melding m) mc
WHERE dsc.ins_deel_key = d.ins_deel_key
AND d.ins_deel_verwijder IS NULL
AND d.ins_srtdeel_key = sd.ins_srtdeel_key
AND sd.ins_srtgroep_key = sg.ins_srtgroep_key
AND sg.ins_discipline_key = 121 -- MJOB A=121
AND dsc.ins_srtcontrole_key = sc.ins_srtcontrole_key
AND sc.ctr_discipline_key = cd.ins_discipline_key
AND dsc.ins_deelsrtcontrole_key = mo.ins_deelsrtcontrole_key(+)
AND mo.mld_melding_key = mc.mld_melding_key(+)
AND dsc.ins_deelsrtcontrole_status IN (2,
3,
4,
5,
6)-- 2;Gestart/In behandeling 3;Ter uitvoering 5;Afgemeld/Gereed gemeld; 6;Afgerond
------ payload end ------
SET DEFINE OFF