diff --git a/DEMO/demo.sql b/DEMO/demo.sql index b01462c96..4770fb16d 100644 --- a/DEMO/demo.sql +++ b/DEMO/demo.sql @@ -1583,99 +1583,6 @@ AS / - ----- Pseudo-export HV_FREEZE; doel is om de actuele doorbelastingsregels ----- (1x per maand) te bevriezen in curs_HV_FREEZE! ----- -/* Formatted on 2008/11/14 09:50 (Formatter Plus v4.8.7) */ -CREATE OR REPLACE VIEW curs_v_export_hv_freeze (RESULT, result_order) -AS - SELECT '', 0 - FROM DUAL - WHERE 1 = 0 -/ - -/* Formatted on 2008/11/14 09:51 (Formatter Plus v4.8.7) */ -CREATE OR REPLACE PROCEDURE curs_select_hv_freeze ( - p_applname IN VARCHAR2, - p_applrun IN VARCHAR2 -) -AS -BEGIN - NULL; -END; -/ - -/* Formatted on 2008/11/21 11:56 (Formatter Plus v4.8.7) */ -CREATE OR REPLACE PROCEDURE curs_export_hv_freeze ( - p_applname IN VARCHAR2, - p_applrun IN VARCHAR2 -) -AS --- Cursor over alle regels voor doorbelasting! - CURSOR c1 - IS - SELECT hv.dis_oms, hv.loc_code, hv.geb_code, hv.ver_code, - hv.ruimte_nr, hv.ruimtesoort, hv.wp_cap, hv.teken_opp, - hv.sp_nummer, hv.sp_naam, hv.bezetting, hv.m2_wpnorm, - hv.m2_tarief - FROM curs_v_hv_actual hv - ORDER BY hv.dis_oms, - hv.loc_code, - hv.geb_code, - hv.ver_code, - hv.ruimte_nr, - hv.sp_nummer; - - v_errormsg VARCHAR2 (1000); - oracle_err_num NUMBER; - oracle_err_mes VARCHAR2 (200); - v_count_tot NUMBER (10); - freeze_date DATE; -BEGIN - v_count_tot := 0; - freeze_date := SYSDATE; - - FOR rec IN c1 - LOOP - INSERT INTO curs_hv_freeze - (dis_oms, loc_code, geb_code, ver_code, - ruimte_nr, ruimtesoort, wp_cap, - teken_opp, sp_nummer, sp_naam, bezetting, - m2_wpnorm, m2_tarief, freeze_datum, freeze_state - ) - VALUES (rec.dis_oms, rec.loc_code, rec.geb_code, rec.ver_code, - rec.ruimte_nr, rec.ruimtesoort, rec.wp_cap, - rec.teken_opp, rec.sp_nummer, rec.sp_naam, rec.bezetting, - rec.m2_wpnorm, rec.m2_tarief, freeze_date, 'F' - ); - - v_count_tot := v_count_tot + 1; - END LOOP; - - fac.writelog (p_applname, - 'S', - 'Aantal doorbelastingsregels bevroren: ' - || TO_CHAR (v_count_tot), - '' - ); - COMMIT; -EXCEPTION - WHEN OTHERS - THEN - oracle_err_num := SQLCODE; - oracle_err_mes := SUBSTR (SQLERRM, 1, 150); - v_errormsg := - 'ORACLE (error ' || oracle_err_num || '/' || oracle_err_mes || ')'; - fac.writelog (p_applname, - 'E', - 'Proces HV_FREEZE afgebroken!', - v_errormsg - ); -END; -/ - - -- Real-time monitors CREATE OR REPLACE VIEW demo_v_graph_meldingpm_fm (