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

BAMG#91398 Readonly veld in beheer wordt nu gevuld op basis van de gebouw informatie

Browse Source 
svn path=/Customer/trunk/; revision=70934
This commit is contained in:
Arthur Egberink
2025-11-13 15:18:58 +00:00
parent b2b910f587
commit abb83fc78e
1 changed files with 30 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

31
BAMG/bamg.sql
View File

@@ -1417,7 +1417,7 @@ AS
DECODE (c.cnt_contract_key, NULL, NULL, flx.getflex ('CNT', 1, c.cnt_contract_key)) contract_opgezegd, -- BAMG#83095
fac.safe_to_number (DECODE (c.cnt_contract_key, NULL, NULL, flx.getflex ('CNT', 162, c.cnt_contract_key))) huurlast,
fac.safe_to_number (DECODE (c.cnt_contract_key, NULL, NULL, flx.getflex ('CNT', 163, c.cnt_contract_key))) servicekosten_verhuurder,
fac.safe_to_number (flx.getflex ('ALG', 1560, l.alg_locatie_key, 'L')) exploitatielast,
fac.safe_to_number (flx.getflex ('ALG', 2300, g.alg_gebouw_key, 'G')) exploitatielast,
fac.safe_to_number (flx.getflex ('ALG', 1642, l.alg_locatie_key, 'L')) boekwaarde,
fac.safe_to_number (flx.getflex ('ALG', 1600, g.alg_gebouw_key, 'G')) energieverbruik_Q_kwh,
fac.safe_to_number (flx.getflex ('ALG', 1700, g.alg_gebouw_key, 'G')) pv_opbrengst_Q_kwh,
@@ -3269,8 +3269,20 @@ AS
AND bes_bestelling_item_status <> 6 -- Geleverd
);
CURSOR c_loc IS
SELECT g.alg_locatie_key, MAX(inbeheer) inbeheer
FROM alg_gebouw g,
(SELECT ogk.alg_onrgoed_key alg_gebouw_key, COALESCE(FAC.safe_to_number(ogk.alg_onrgoedkenmerk_waarde), 3) inbeheer
FROM alg_onrgoedkenmerk ogk, alg_kenmerk k
WHERE ogk.alg_kenmerk_key = k.alg_kenmerk_key
AND k.alg_kenmerk_niveau = 'G'
AND k.alg_kenmerk_code = 'INBEHEERBIJBAM') k
WHERE g.alg_gebouw_key = k.alg_gebouw_key
GROUP BY g.alg_locatie_key;
v_volgnr NUMBER;
v_opdr_key NUMBER;
v_kenmerk_key NUMBER;
BEGIN
-- Verwerk de organisatieonderdelen die we een voor een via de API ontvangen hebben
-- en kijk welke organistatie-onderdelen en personen verwijderd kunnen worden.
@@ -3376,6 +3388,23 @@ BEGIN
END;
END IF;
BEGIN
SELECT alg_kenmerk_key
INTO v_kenmerk_key
FROM alg_kenmerk
WHERE alg_kenmerk_niveau = 'L'
AND alg_kenmerk_code = 'INBEHEERBIJBAM';
FOR recl IN c_loc
LOOP
FLX.setflex ('ALG', v_kenmerk_key, recl.alg_locatie_key, 'L', recl.inbeheer);
END LOOP;
EXCEPTION WHEN OTHERS
THEN
INSERT INTO fac_rapport (fac_rapport_node, fac_rapport_volgnr, fac_rapport_regel)
VALUES('INBEHEER', v_volgnr, 'Error: Fout opgetreden bij overzetten van in beheer kenmerk ' || to_char(SYSDATE, 'yyyymmdd hh24mi'));
END;
END;
/