FSN#31290 Export faalt met melding 'wrong number or types of arguments in call'

svn path=/Customer/trunk/; revision=23745
This commit is contained in:
Peter Koerhuis
2014-12-19 15:41:56 +00:00
parent bb3769d482
commit a236dfef19

View File

@@ -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 -- Real-time monitors
CREATE OR REPLACE VIEW demo_v_graph_meldingpm_fm CREATE OR REPLACE VIEW demo_v_graph_meldingpm_fm
( (