93 lines
2.3 KiB
SQL
93 lines
2.3 KiB
SQL
|
|
|
|
alter table conn_exp_contractmutatie ADD (status VARCHAR2(1), exportdatum DATE);
|
|
|
|
CREATE OR REPLACE VIEW conn_v_export_contractmutatie as
|
|
SELECT
|
|
bedrijfsnummer
|
|
|| ';' ||
|
|
mutatienummer
|
|
|| ';' ||
|
|
huurdernummer
|
|
|| ';' ||
|
|
budgetcode
|
|
|| ';' ||
|
|
complexnummer
|
|
|| ';' ||
|
|
eenheidsnummer
|
|
|| ';' ||
|
|
to_char(ingangsdatum, 'yyyymmdd')
|
|
|| ';' ||
|
|
factuurdebiteur
|
|
|| ';' ||
|
|
prolongatietermijn
|
|
|| ';' ||
|
|
to_char(indexeringsdatum, 'yyyymmdd')
|
|
|| ';' ||
|
|
indexeringscode
|
|
|| ';' ||
|
|
indexeringsmethode
|
|
|| ';' ||
|
|
tarieftype
|
|
|| ';' ||
|
|
replace(to_char(aantal),'.',',')
|
|
|| ';' ||
|
|
replace(to_char(tarief),'.',',')
|
|
|| ';' ||
|
|
replace(to_char(totaal),'.',',') result,
|
|
mutatienummer result_order
|
|
FROM (SELECT *
|
|
FROM CONN_EXP_CONTRACTMUTATIE
|
|
WHERE NOT (UPPER(eenheidsnummer) LIKE '%CXX GEEN CONTRACT%'
|
|
OR tarief = 0
|
|
OR aantal = 0)
|
|
AND exportdatum IS NULL);
|
|
/
|
|
|
|
|
|
CREATE OR REPLACE PROCEDURE conn_select_contractmutatie (
|
|
p_applname IN VARCHAR2,
|
|
p_applrun IN VARCHAR2
|
|
)
|
|
AS
|
|
v_errormsg VARCHAR (200);
|
|
BEGIN
|
|
|
|
v_errormsg := 'Lekker niets doen. View conn_v_export_contractmutatie doet het werk';
|
|
|
|
END;
|
|
/
|
|
|
|
|
|
-- Procedure voor de exporteren gegevens contractmutatie
|
|
CREATE OR REPLACE PROCEDURE conn_export_contractmutatie (
|
|
p_applname IN VARCHAR2,
|
|
p_applrun IN VARCHAR2,
|
|
p_filedir IN VARCHAR2,
|
|
p_filename IN VARCHAR2
|
|
)
|
|
AS
|
|
|
|
v_errormsg VARCHAR (200);
|
|
oracle_err_num NUMBER;
|
|
oracle_err_mes VARCHAR2 (200);
|
|
|
|
BEGIN
|
|
|
|
v_errormsg := 'Geen akties';
|
|
-- Exportregels zijn weggesschreven. De status in de exporttabel wordt op 'E' gezet en de exportdatu ingevuld om dubbele export te voorkomen.
|
|
UPDATE CONN_EXP_CONTRACTMUTATIE SET exportdatum = sysdate, STATUS='E' WHERE exportdatum IS NULL;
|
|
|
|
EXCEPTION
|
|
WHEN OTHERS
|
|
THEN
|
|
oracle_err_num := SQLCODE;
|
|
oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
|
|
v_errormsg :=
|
|
'OTHERS (error ' || oracle_err_num || '/' || oracle_err_mes || ')';
|
|
fac.imp_writelog (p_applname, p_applrun, 'E', v_errormsg, '');
|
|
END;
|
|
/
|
|
|
|
commit;
|