diff --git a/BAMG/bamg.sql b/BAMG/bamg.sql index 486985132..bdc19f404 100644 --- a/BAMG/bamg.sql +++ b/BAMG/bamg.sql @@ -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; /