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

FSN#11433

Browse Source 
svn path=/Database/trunk/; revision=9385
This commit is contained in:
Peter Feij
2006-12-19 15:39:46 +00:00
parent 29aac4a6f1
commit 82aef1a015
8 changed files with 125 additions and 617 deletions
Download Patch File Download Diff File Expand all files Collapse all files

39
BES/BES_TAB.SRC
View File

@@ -1,8 +1,8 @@
#ifdef BES // 03-11-2000 PF
/*
* $Revision: 41 $
* $Modtime: 8-12-06 10:06 $
* $Revision: 42 $
* $Modtime: 19-12-06 17:33 $
*/
#include "comsql.h"
@@ -198,41 +198,6 @@ CREATE_TABLE(bes_bestelopdrstatuses,BES_BIBLIOTHEEK_PRIVILEGE)
VARCHAR2(30)
);
CREATE_TABLE (bes_bestelling_xml,0)
(
bes_bestelling_key
NUMBER(10),
bes_bestelling_xml
LONG,
bes_bestelling_xml_datum
DATE
DEFAULT SYSDATE
NOT NULL,
bes_bestelling_xml_volgnr
NUMBER,
CONSTRAINT bes_r_bes_bestelling_xml_key FOREIGN KEY (bes_bestelling_key)
REFERENCES bes_bestelling (bes_bestelling_key)
ON DELETE CASCADE
);
CREATE_TABLE(bes_bestelopdr_xml, BES_BIBLIOTHEEK_PRIVILEGE)
(
bes_bestelopdr_key
NUMBER(10),
bes_bestelopdr_xml
LONG,
bes_bestelopdr_xml_datum
DATE
DEFAULT SYSDATE
NOT NULL,
bes_bestelopdr_xml_volgnr
NUMBER,
CONSTRAINT bes_r_bes_bestelopdr_xml_key FOREIGN KEY (bes_bestelopdr_key)
REFERENCES bes_bestelopdr (bes_bestelopdr_key)
ON DELETE CASCADE
);
create table bes_mod_rep (
bes_bestelling_item_key number(10) not null references bes_bestelling_item(bes_bestelling_item_key) on delete cascade,
bes_mod_rep_file LONG RAW,

22
BEZ/BEZ_TAB.SRC
View File

@@ -2,8 +2,8 @@
/* REVISIONS:
*
* $Revision: 14 $
* $Modtime: 6-10-06 16:16 $
* $Revision: 15 $
* $Modtime: 19-12-06 17:33 $
*/
@@ -82,24 +82,6 @@ CREATE_TABLE(bez_bezoekers,BEZ_NORMAAL_PRIVILEGE)
DATE
);
CREATE_TABLE (bez_afspraak_xml,0)
(
bez_afspraak_key
NUMBER(10),
bez_afspraak_xml
LONG,
bez_afspraak_xml_datum
DATE
DEFAULT SYSDATE
NOT NULL,
bez_afspraak_xml_volgnr
NUMBER,
CONSTRAINT bez_r_bez_afspraak_xml_key FOREIGN KEY (bez_afspraak_key)
REFERENCES bez_afspraak (bez_afspraak_key)
ON DELETE CASCADE
);
ALTER TABLE res_rsv_deel
ADD bez_bezoekers_key NUMBER(10)

528
FAC/FAC_PAC.SRC
View File

@@ -1,6 +1,6 @@
#ifdef FAC
/* $Revision: 68 $
* $Modtime: 14-12-06 13:33 $
/* $Revision: 69 $
* $Modtime: 19-12-06 17:36 $
*/
/* FAC_P_FAC_VOLGNR: Tabel en functies voor volgnummers.
@@ -57,9 +57,6 @@
* gemaakt in COMSQL.H: Deze doorloopt alle onthouden PrimaryKeys van TableName en roept voor elk record
* de functie Func aan. Func krijgt 1 argument, nl. PrimaryKey en moet een BOOLEAN retourneren.
*
* Voorbeelden van het gebruik staan in MLD_TRI.SRC in de triggers MLD_T_MLD_OPDR_B_IUD, MLD_T_MLD_OPDR_B_IU,
* MLD_T_MLD_OPDR_B_D en MLD_T_MLD_OPDR_A_IUD.
*
* Voor de XML functies is soms de concise parameter beschikbaar, Indien waar, dan wordt er minder info
* van die node opgenomen. Soort van vuistregel is dat als het er om gaat deze false is, en als er slechts een
* vermelding is deze true is. Voorbeeld voor perslid: aanvrager moet niet concise, maar fiatteur wel.
@@ -1101,7 +1098,8 @@ CREATE OR REPLACE PACKAGE BODY fac AS
AS
CURSOR c1
IS
SELECT fac_notificatie_job_key, fac_notificatie_job_view, fac_notificatie_job_interval, fac_notificatie_job_mode
SELECT fac_notificatie_job_key, fac_notificatie_job_view, fac_notificatie_job_oms,
fac_notificatie_job_interval, fac_notificatie_job_mode
FROM fac_notificatie_job
WHERE fac_notificatie_job_nextrun <= SYSDATE
OR fac_notificatie_job_nextrun IS NULL; -- eerste keer
@@ -1156,11 +1154,14 @@ END fac;
-- contracten bij opdrachten
-- object srtdelen ....
-- srtruimte en srtterreinsector
-- In de header zijn alleen die declaraties opgenomen die qua volgorde bekend moesten zijn bij gebruik (in de body)
CREATE OR REPLACE PACKAGE xml
AS
PROCEDURE addvarchartoclob (text IN VARCHAR2);
PROCEDURE createheadernode (p_custid IN VARCHAR2);
PROCEDURE add_header (p_custid IN VARCHAR2);
PROCEDURE add_footer (dummy IN VARCHAR2);
@@ -1174,8 +1175,8 @@ AS
RETURN VARCHAR2;
PROCEDURE createopentag (p_tag IN VARCHAR2);
PROCEDURE createconciseopentag(p_tag IN VARCHAR2);
PROCEDURE createconciseopentag (p_tag IN VARCHAR2);
PROCEDURE createopentagattributes (
p_tag IN VARCHAR2,
@@ -1206,120 +1207,29 @@ AS
p_value IN VARCHAR2
);
PROCEDURE createheadernode (p_custid IN VARCHAR2);
PROCEDURE create_factuuradres_node (o_key IN NUMBER);
PROCEDURE create_prs_kostenplaats_node (p_key IN NUMBER);
PROCEDURE create_prs_kostensoort_node (p_key IN NUMBER);
PROCEDURE create_prs_kenmerken (p_key IN NUMBER, p_niveau IN VARCHAR2);
PROCEDURE create_prs_bedrijf_node (p_bedrijf_key IN NUMBER, p_contact_key IN NUMBER, p_nodename IN VARCHAR2);
PROCEDURE create_prs_afdeling_node (p_key IN NUMBER, p_nodename IN VARCHAR2);
PROCEDURE create_prs_perslid_node (p_key IN NUMBER, p_nodename IN VARCHAR2, concise IN BOOLEAN);
PROCEDURE create_prs_werkplek_node (p_werkplek_key IN NUMBER, p_perslid_key IN NUMBER, concise IN BOOLEAN);
PROCEDURE create_alg_kenmerken (p_key IN NUMBER, p_niveau IN VARCHAR2);
PROCEDURE create_alg_terreinsector_node (p_terreinsector_key IN NUMBER);
PROCEDURE create_alg_ruimte_node (p_ruimte_key IN NUMBER);
PROCEDURE create_alg_verdieping_node (p_verdieping_key IN NUMBER, p_ruimte_key IN NUMBER, p_withchildren IN BOOLEAN);
PROCEDURE create_alg_gebouw_node (p_gebouw_key IN NUMBER, p_verdieping_key IN NUMBER, p_ruimte_key IN NUMBER, p_withchildren IN BOOLEAN);
PROCEDURE create_alg_locatie_node (
p_locatie_key IN NUMBER,
p_gebouw_key IN NUMBER,
p_verdieping_key IN NUMBER,
p_ruimte_key IN NUMBER,
p_terreinsector_key IN NUMBER,
p_withchildren IN BOOLEAN
);
PROCEDURE create_alg_district_node (
p_district_key IN NUMBER,
p_locatie_key IN NUMBER,
p_gebouw_key IN NUMBER,
p_verdieping_key IN NUMBER,
p_ruimte_key IN NUMBER,
p_terreinsector_key IN NUMBER,
p_withchildren IN BOOLEAN
);
PROCEDURE create_alg_regio_node (
p_regio_key IN NUMBER,
p_district_key IN NUMBER,
p_locatie_key IN NUMBER,
p_gebouw_key IN NUMBER,
p_verdieping_key IN NUMBER,
p_ruimte_key IN NUMBER,
p_terreinsector_key IN NUMBER,
p_withchildren IN BOOLEAN
);
PROCEDURE create_alg_onroerendgoed_node (
p_key IN NUMBER,
p_nodename IN VARCHAR2,
p_lockey IN NUMBER,
concise IN BOOLEAN,
p_withchildren IN BOOLEAN
);
PROCEDURE create_ins_deel_node (p_key IN NUMBER);
PROCEDURE create_mld_kenmerken (p_key IN NUMBER);
PROCEDURE create_mld_opdr_kenmerken (p_key IN NUMBER);
PROCEDURE create_mld_uitvoerende_node (p_uitvoerende_key IN NUMBER, p_contact_key IN NUMBER, p_nodename IN VARCHAR2);
PROCEDURE create_mld_typeopdr_node (p_key IN NUMBER);
PROCEDURE create_res_disc_params_node (p_discipline_key IN NUMBER);
PROCEDURE create_bes_disc_params_node (p_discipline_key IN NUMBER);
PROCEDURE create_ins_disc_params_node (p_discipline_key IN NUMBER);
PROCEDURE create_ins_srtdiscipline_node (p_key IN NUMBER);
PROCEDURE create_mld_adres_node (p_key IN NUMBER, p_nodename IN VARCHAR2, concise IN BOOLEAN);
PROCEDURE create_mld_stdmelding_node (p_key IN NUMBER);
PROCEDURE create_prs_werkplek_node (p_werkplek_key IN NUMBER, p_perslid_key IN NUMBER, concise IN BOOLEAN);
PROCEDURE create_ins_discipline_node (p_key IN NUMBER);
PROCEDURE create_mld_melding_node (p_key IN NUMBER);
PROCEDURE create_mld_melding_xml (p_key IN NUMBER, p_custid IN VARCHAR2);
PROCEDURE create_mld_opdr_node (p_key IN NUMBER);
PROCEDURE create_mld_opdr_xml (p_key IN NUMBER, p_custid IN VARCHAR2);
PROCEDURE create_alg_onroerendgoed_node (
p_key IN NUMBER,
p_nodename IN VARCHAR2,
p_lockey IN NUMBER,
concise IN BOOLEAN,
p_withchildren IN BOOLEAN
);
PROCEDURE create_res_rsv_ruimte_node (p_key IN NUMBER, concise IN BOOLEAN);
PROCEDURE make_prj_scenario_xml (p_key IN NUMBER, p_custid IN VARCHAR2);
PROCEDURE make_mld_melding_xml (p_key IN NUMBER, p_custid IN VARCHAR2);
PROCEDURE make_mld_opdr_xml (p_key IN NUMBER, p_custid IN VARCHAR2);
PROCEDURE make_bes_bestelling_xml (p_key IN NUMBER, p_custid IN VARCHAR2);
PROCEDURE make_bes_bestelopdr_xml (p_key IN NUMBER, p_custid IN VARCHAR2);
PROCEDURE make_res_reservering_xml (p_key IN NUMBER, p_custid IN VARCHAR2);
PROCEDURE make_bez_afspraak_xml (p_key IN NUMBER, p_custid IN VARCHAR2);
PROCEDURE make_xml (
p_xmlnode IN VARCHAR,
p_key IN NUMBER,
p_custid IN VARCHAR2,
p_sessionid IN VARCHAR2,
p_extra IN NUMBER
);
END xml;
/
@@ -1694,7 +1604,7 @@ AS
AS
v_value VARCHAR2 (30);
BEGIN
createopentagattributes ('header', 'revision', '$Revision: 68 $', NULL, NULL, NULL, NULL, NULL, NULL);
createopentagattributes ('header', 'revision', SUBSTR('$Revision: 69 $',12,3), NULL, NULL, NULL, NULL, NULL, NULL);
createxmltagvalue ('dateTime', DATE_TO_CHAR (SYSDATE, 'dd-mm-yyyy hh24:mi:ss'));
createxmltagvalue ('dateDay', DATE_TO_CHAR (SYSDATE, 'dd'));
createxmltagvalue ('dateMonth', DATE_TO_CHAR (SYSDATE, 'mm'));
@@ -3575,8 +3485,8 @@ AS
mydatetochar ('datumfiat_ok', v_mld_opdr_datumfiat_ok);
mydatetochar ('datumfiat_nok', v_mld_opdr_datumfiat_nok);
createxmltagvalue ('opmerking_fiat', v_mld_opdr_opmerking_fiat);
-- || createXMLtagValue(' , _VAR(v_cnt_contract_key)
-- || createXMLtagValue(' , _VAR(v_cnt_contract_dienst_key)
-- || createXMLtagValue(' , v_cnt_contract_key);
-- || createXMLtagValue(' , v_cnt_contract_dienst_key);
create_mld_opdr_kenmerken (p_key);
create_prs_kostenplaats_node (v_prs_kostenplaats_key);
createxmltagvalue ('ordernr', v_ordernr);
@@ -4522,7 +4432,7 @@ AS
FOR rec1 IN c1 (v_res_ruimte_key)
LOOP
create_alg_ruimte_node (rec1.alg_ruimte_key);
create_alg_onroerendgoed_node (rec1.alg_ruimte_key, 'plaats', NULL, FALSE, FALSE);
END LOOP;
createclosetag ('res_ruimte');
@@ -4761,6 +4671,7 @@ AS
v_kosten_klant res_rsv_ruimte.res_rsv_ruimte_kosten_klant%TYPE;
v_status_bo_omschr res_status_bo.res_status_bo_omschrijving%TYPE;
v_status_fo_omschr res_status_fo.res_status_fo_omschrijving%TYPE;
v_verwijder_user res_rsv_ruimte.res_rsv_ruimte_verwijder_user%TYPE;
CURSOR c2d
IS
@@ -4793,14 +4704,14 @@ AS
res_rsv_ruimte_opmerking, res_rsv_ruimte_omschrijving, res_rsv_ruimte_ordernr, prs_kostenplaats_key,
res_rsv_ruimte_contact_key, res_rsv_ruimte_host_key, res_rsv_ruimte_telefoon, alg_ruimte_key,
res_rsv_ruimte_user_key, res_rsv_ruimte_volgnr, res_rsv_ruimte_afgemeld, res_rsv_ruimte_afgemeld_user,
sf.res_status_fo_omschrijving, sb.res_status_bo_omschrijving, res_rsv_ruimte_kosten_klant
sf.res_status_fo_omschrijving, sb.res_status_bo_omschrijving, res_rsv_ruimte_kosten_klant, res_rsv_ruimte_verwijder_user
INTO v_reservering_key, v_ruimte_opstel_key, v_activiteit_key, v_van, v_tot,
v_bezoekers, v_prijs, v_status_bo_key, v_status_fo_key,
v_noshow, v_aanmaak, v_verwijder, v_verwerkt,
v_opmerking, v_omschrijving, v_ordernr, v_prs_kostenplaats_key,
v_contact_key, v_host_key, v_telefoon, v_alg_ruimte_key,
v_user_key, v_volgnr, v_afgemeld, v_afgemeld_user,
v_status_fo_omschr, v_status_bo_omschr, v_kosten_klant
v_status_fo_omschr, v_status_bo_omschr, v_kosten_klant, v_verwijder_user
FROM res_rsv_ruimte rr, res_status_fo sf, res_status_bo sb
WHERE rr.res_status_bo_key = sb.res_status_bo_key(+) AND rr.res_status_fo_key = sf.res_status_fo_key(+)
AND rr.res_rsv_ruimte_key = p_key;
@@ -4830,6 +4741,7 @@ AS
mydatetochar ('aangemaakt', v_aanmaak);
mydatetochar ('afgemeld', v_afgemeld);
mydatetochar ('verwerkt', v_verwerkt);
mydatetochar ('verwijder', v_verwijder);
createxmltagvalue ('opmerking', v_opmerking);
createxmltagvalue ('omschrijving', v_omschrijving);
createxmltagvalue ('ordernr', v_ordernr);
@@ -4839,6 +4751,7 @@ AS
create_prs_perslid_node (v_host_key, 'host_user', FALSE);
create_prs_perslid_node (v_contact_key, 'contact_user', FALSE);
create_prs_perslid_node (v_afgemeld_user, 'afgemeld_user', TRUE);
create_prs_perslid_node (v_verwijder_user, 'verwijder_user', TRUE);
createxmltagvalue ('telefoon', v_telefoon);
create_alg_onroerendgoed_node (v_alg_ruimte_key, 'plaats', NULL, concise, FALSE);
@@ -4868,7 +4781,6 @@ AS
PROCEDURE create_res_reservering_node (p_key IN NUMBER, p_res_rsv_ruimte_key IN NUMBER)
AS
v_user_key res_reservering.res_reservering_user_key%TYPE;
--v_reservering_ordernr
v_aanmaak res_reservering.res_reservering_aanmaak%TYPE;
v_verwijder res_reservering.res_reservering_verwijder%TYPE;
v_nrdeelres NUMBER;
@@ -4917,82 +4829,48 @@ AS
END IF;
END;
-- * create_MLD_OPDR_XML
-- select xml.create_MLD_OPDR_XML(7120, custID) FROM DUAL
PROCEDURE create_mld_opdr_xml (p_key IN NUMBER, p_custid IN VARCHAR2)
-- MAIN PROC --
PROCEDURE make_xml (p_xmlnode IN VARCHAR, p_key IN NUMBER, p_custid IN VARCHAR2, p_sessionid IN VARCHAR2, p_extra IN NUMBER)
AS
v_clob_length NUMBER (10);
v_offset NUMBER (10);
v_interval NUMBER (10);
v_volgnr NUMBER (10);
v_chunk_size NUMBER (10) := 3000;
BEGIN
DBMS_LOB.createtemporary (aclob, TRUE, DBMS_LOB.CALL);
v_offset := 1;
add_header (p_custid);
create_mld_opdr_node (p_key);
CASE p_xmlnode
WHEN 'afspraak'
THEN
create_bez_afspraak_node (p_key);
WHEN 'bestelling'
THEN
create_bes_bestelling_node (p_key, FALSE);
WHEN 'bestelopdr'
THEN
create_bes_bestelopdr_node (p_key);
WHEN 'melding'
THEN
create_mld_melding_node (p_key);
WHEN 'opdracht'
THEN
create_mld_opdr_node (p_key);
WHEN 'reservering'
THEN
create_res_reservering_node (p_key, p_extra);
WHEN 'scenario'
THEN
create_prj_scenario_node (p_key);
END CASE;
add_footer ('');
END;
-- * create_MLD_SCENARIO_XML
-- select xml.create_MLD_SCENARIO_XML(7120, custID) FROM DUAL
PROCEDURE create_prj_scenario_xml (p_key IN NUMBER, p_custid IN VARCHAR2)
AS
BEGIN
add_header (p_custid);
create_prj_scenario_node (p_key);
add_footer ('');
END;
PROCEDURE create_bes_bestelling_xml (p_key IN NUMBER, p_custid IN VARCHAR2)
AS
BEGIN
add_header (p_custid);
create_bes_bestelling_node (p_key, FALSE);
add_footer ('');
END;
PROCEDURE create_bes_bestelopdr_xml (p_key IN NUMBER, p_custid IN VARCHAR2)
AS
BEGIN
add_header (p_custid);
create_bes_bestelopdr_node (p_key);
add_footer ('');
END;
PROCEDURE create_res_reservering_xml (p_key IN NUMBER, p_custid IN VARCHAR2, p_partial IN NUMBER)
AS
BEGIN
add_header (p_custid);
create_res_reservering_node (p_key, p_partial);
add_footer ('');
END;
PROCEDURE create_bez_afspraak_xml (p_key IN NUMBER, p_custid IN VARCHAR2)
AS
BEGIN
add_header (p_custid);
create_bez_afspraak_node (p_key);
add_footer ('');
END;
-- * make_MLD_MELDING_XML
-- select xml.make_MLD_MELDING_XML(7120, custID) FROM DUAL
-- The mld_melding is split into multiple records in the MLD_MELDING_XML
-- table. It is not possible to use CLOBs over the ADO connection.
-- The asp or vb application has to concatenate the MLD_MELDING_XML records
-- into one xml string.
PROCEDURE make_mld_melding_xml (p_key IN NUMBER, p_custid IN VARCHAR2)
AS
v_clob CLOB;
v_clob_length NUMBER (10);
v_offset NUMBER (10);
v_interval NUMBER (10);
v_volgnr NUMBER (10);
v_chunk_size NUMBER (10) := 3000;
BEGIN
DBMS_LOB.createtemporary (aclob, TRUE, DBMS_LOB.CALL);
v_offset := 1;
create_mld_melding_xml (p_key, p_custid);
v_clob_length := DBMS_LOB.getlength (aclob);
v_volgnr := 1;
DELETE FROM mld_melding_xml
WHERE mld_melding_key = p_key
OR mld_melding_xml_datum < SYSDATE - 2;
DELETE FROM fac_xml
WHERE fac_session_id = p_sessionid OR fac_xml_datum < SYSDATE - 2;
WHILE v_clob_length > 0
LOOP
@@ -5005,10 +4883,10 @@ AS
v_clob_length := 0;
END IF;
INSERT INTO mld_melding_xml
(mld_melding_key, mld_melding_xml, mld_melding_xml_volgnr
INSERT INTO fac_xml
(fac_session_id, fac_xml_xml, fac_xml_volgnr
)
VALUES (p_key, DBMS_LOB.SUBSTR (aclob, v_interval, v_offset), v_volgnr
VALUES (p_sessionid, DBMS_LOB.SUBSTR (aclob, v_interval, v_offset), v_volgnr
);
v_offset := v_offset + v_interval;
@@ -5016,272 +4894,6 @@ AS
END LOOP;
END;
-- * make_MLD_OPDR_XML
-- Usage: BEGIN xml.make_MLD_OPDR_XML(7120, custID); END;
-- The MLD_OPDR is split into multiple records in the MLD_OPDR_XML
-- table. It is not possible to use CLOBs over the ADO connection.
-- The asp or vb application has to concatenate the MLD_OPDR_XML records
-- into one xml string.
PROCEDURE make_mld_opdr_xml (p_key IN NUMBER, p_custid IN VARCHAR2)
AS
v_clob_length NUMBER (10);
v_offset NUMBER (10);
v_interval NUMBER (10);
v_volgnr NUMBER (10);
v_chunk_size NUMBER (10) := 3000;
BEGIN
DBMS_LOB.createtemporary (aclob, TRUE, DBMS_LOB.CALL);
v_offset := 1;
create_mld_opdr_xml (p_key, p_custid);
v_clob_length := DBMS_LOB.getlength (aclob);
v_volgnr := 1;
DELETE FROM mld_opdr_xml
WHERE mld_opdr_key = p_key
OR mld_opdr_xml_datum < SYSDATE -2;
WHILE v_clob_length > 0
LOOP
IF v_clob_length > v_chunk_size
THEN
v_interval := v_chunk_size;
v_clob_length := v_clob_length - v_chunk_size;
ELSE
v_interval := v_clob_length;
v_clob_length := 0;
END IF;
INSERT INTO mld_opdr_xml
(mld_opdr_key, mld_opdr_xml, mld_opdr_xml_volgnr
)
VALUES (p_key, DBMS_LOB.SUBSTR (aclob, v_interval, v_offset), v_volgnr
);
v_offset := v_offset + v_interval;
v_volgnr := v_volgnr + 1;
END LOOP;
END;
-- * make_PRJ_SCENARIO_XML
-- Usage: BEGIN xml.make_PRJ_SCENARIO_XML(1, custID); END;
-- The result is split into multiple records in the PRJ_SCENARIO_XML
-- table. It is not possible to use CLOBs over the ADO connection.
-- The asp or vb application has to concatenate the PRJ_SCENARIO_XML records
-- into one xml string.
PROCEDURE make_prj_scenario_xml (p_key IN NUMBER, p_custid IN VARCHAR2)
AS
v_clob_length NUMBER (10);
v_offset NUMBER (10);
v_interval NUMBER (10);
v_volgnr NUMBER (10);
v_chunk_size NUMBER (10) := 3000;
BEGIN
DBMS_LOB.createtemporary (aclob, TRUE, DBMS_LOB.CALL);
v_offset := 1;
create_prj_scenario_xml (p_key, p_custid);
v_clob_length := DBMS_LOB.getlength (aclob);
v_volgnr := 1;
DELETE FROM prj_scenario_xml
WHERE prj_scenario_key = p_key
OR prj_scenario_xml_datum < SYSDATE - 2;
WHILE v_clob_length > 0
LOOP
IF v_clob_length > v_chunk_size
THEN
v_interval := v_chunk_size;
v_clob_length := v_clob_length - v_chunk_size;
ELSE
v_interval := v_clob_length;
v_clob_length := 0;
END IF;
INSERT INTO prj_scenario_xml
(prj_scenario_key, prj_scenario_xml, prj_scenario_xml_volgnr
)
VALUES (p_key, DBMS_LOB.SUBSTR (aclob, v_interval, v_offset), v_volgnr
);
v_offset := v_offset + v_interval;
v_volgnr := v_volgnr + 1;
END LOOP;
END;
-- * make_bes_bestelling_XML
-- Usage: BEGIN xml.make_bes_bestelling_XML(1, custID); END;
-- The result is split into multiple records in the BES_BESTELLING_XML
-- table. It is not possible to use CLOBs over the ADO connection.
-- The asp or vb application has to concatenate the BES_BESTELLING_XML records
-- into one xml string.
PROCEDURE make_bes_bestelling_xml (p_key IN NUMBER, p_custid IN VARCHAR2)
AS
v_clob_length NUMBER (10);
v_offset NUMBER (10);
v_interval NUMBER (10);
v_volgnr NUMBER (10);
v_chunk_size NUMBER (10) := 3000;
BEGIN
DBMS_LOB.createtemporary (aclob, TRUE, DBMS_LOB.CALL);
v_offset := 1;
create_bes_bestelling_xml (p_key, p_custid);
v_clob_length := DBMS_LOB.getlength (aclob);
v_volgnr := 1;
DELETE FROM bes_bestelling_xml
WHERE bes_bestelling_key = p_key
OR bes_bestelling_xml_datum < SYSDATE - 2;
WHILE v_clob_length > 0
LOOP
IF v_clob_length > v_chunk_size
THEN
v_interval := v_chunk_size;
v_clob_length := v_clob_length - v_chunk_size;
ELSE
v_interval := v_clob_length;
v_clob_length := 0;
END IF;
INSERT INTO bes_bestelling_xml
(bes_bestelling_key, bes_bestelling_xml, bes_bestelling_xml_volgnr
)
VALUES (p_key, DBMS_LOB.SUBSTR (aclob, v_interval, v_offset), v_volgnr
);
v_offset := v_offset + v_interval;
v_volgnr := v_volgnr + 1;
END LOOP;
END;
-- * make_bes_bestelopdr_XML
-- Usage: BEGIN xml.make_bes_bestelopdr_XML(1, custID); END;
-- The result is split into multiple records in the BES_BESTELOPDR_XML
-- table. It is not possible to use CLOBs over the ADO connection.
-- The asp or vb application has to concatenate the BES_BESTELOPDR_XML records
-- into one xml string.
PROCEDURE make_bes_bestelopdr_xml (p_key IN NUMBER, p_custid IN VARCHAR2)
AS
v_clob_length NUMBER (10);
v_offset NUMBER (10);
v_interval NUMBER (10);
v_volgnr NUMBER (10);
v_chunk_size NUMBER (10) := 3000;
BEGIN
DBMS_LOB.createtemporary (aclob, TRUE, DBMS_LOB.CALL);
v_offset := 1;
create_bes_bestelopdr_xml (p_key, p_custid);
v_clob_length := DBMS_LOB.getlength (aclob);
v_volgnr := 1;
DELETE FROM bes_bestelopdr_xml
WHERE bes_bestelopdr_key = p_key
OR bes_bestelopdr_xml_datum < SYSDATE - 2;
WHILE v_clob_length > 0
LOOP
IF v_clob_length > v_chunk_size
THEN
v_interval := v_chunk_size;
v_clob_length := v_clob_length - v_chunk_size;
ELSE
v_interval := v_clob_length;
v_clob_length := 0;
END IF;
INSERT INTO bes_bestelopdr_xml
(bes_bestelopdr_key, bes_bestelopdr_xml, bes_bestelopdr_xml_volgnr
)
VALUES (p_key, DBMS_LOB.SUBSTR (aclob, v_interval, v_offset), v_volgnr
);
v_offset := v_offset + v_interval;
v_volgnr := v_volgnr + 1;
END LOOP;
END;
-- Same comment as above applies
-- p_partial is res_rsv_ruimte_key if partial print is desired
PROCEDURE make_res_reservering_xml (p_key IN NUMBER, p_custid IN VARCHAR2, p_partial IN NUMBER)
AS
v_clob_length NUMBER (10);
v_offset NUMBER (10);
v_interval NUMBER (10);
v_volgnr NUMBER (10);
v_chunk_size NUMBER (10) := 3000;
BEGIN
DBMS_LOB.createtemporary (aclob, TRUE, DBMS_LOB.CALL);
v_offset := 1;
create_res_reservering_xml (p_key, p_custid, p_partial);
v_clob_length := DBMS_LOB.getlength (aclob);
v_volgnr := 1;
DELETE FROM res_reservering_xml
WHERE res_reservering_key = p_key OR res_reservering_xml_datum < SYSDATE - 2;
WHILE v_clob_length > 0
LOOP
IF v_clob_length > v_chunk_size
THEN
v_interval := v_chunk_size;
v_clob_length := v_clob_length - v_chunk_size;
ELSE
v_interval := v_clob_length;
v_clob_length := 0;
END IF;
INSERT INTO res_reservering_xml
(res_reservering_key, res_reservering_xml, res_reservering_xml_volgnr
)
VALUES (p_key, DBMS_LOB.SUBSTR (aclob, v_interval, v_offset), v_volgnr
);
v_offset := v_offset + v_interval;
v_volgnr := v_volgnr + 1;
END LOOP;
END;
-- Usage: BEGIN xml.make_bez_afspraak_XML(1, custID); END;
PROCEDURE make_bez_afspraak_xml (p_key IN NUMBER, p_custid IN VARCHAR2)
AS
v_clob_length NUMBER (10);
v_offset NUMBER (10);
v_interval NUMBER (10);
v_volgnr NUMBER (10);
v_chunk_size NUMBER (10) := 3000;
BEGIN
DBMS_LOB.createtemporary (aclob, TRUE, DBMS_LOB.CALL);
v_offset := 1;
create_bez_afspraak_xml (p_key, p_custid);
v_clob_length := DBMS_LOB.getlength (aclob);
v_volgnr := 1;
DELETE FROM bez_afspraak_xml
WHERE bez_afspraak_key = p_key OR bez_afspraak_xml_datum < SYSDATE - 2;
WHILE v_clob_length > 0
LOOP
IF v_clob_length > v_chunk_size
THEN
v_interval := v_chunk_size;
v_clob_length := v_clob_length - v_chunk_size;
ELSE
v_interval := v_clob_length;
v_clob_length := 0;
END IF;
INSERT INTO bez_afspraak_xml
(bez_afspraak_key, bez_afspraak_xml, bez_afspraak_xml_volgnr
)
VALUES (p_key, DBMS_LOB.SUBSTR (aclob, v_interval, v_offset), v_volgnr
);
v_offset := v_offset + v_interval;
v_volgnr := v_volgnr + 1;
END LOOP;
END;
END xml;
/
#endif // FAC

29
FAC/FAC_TAB.SRC
View File

@@ -1,7 +1,7 @@
#ifdef FAC // 13-03-96 AH
/*
* $Revision: 54 $
* $Modtime: 29-11-06 10:33 $
* $Revision: 55 $
* $Modtime: 19-12-06 17:34 $
*/
#include "comsql.h"
@@ -284,7 +284,7 @@ CREATE_TABLE(fac_usrrap, FAC_BIBLIOTHEEK_PRIVILEGE)
fac_usrrap_omschrijving
VARCHAR2(60),
fac_usrrap_view_name
VARCHAR2(1000)
VARCHAR2(32)
NOT_NULL(fac_usrrap_view_name, fac_c_fac_usrrap_view_name),
fac_usrrap_in_huidige_locatie
VARCHAR2(1)
@@ -423,9 +423,24 @@ CREATE_TABLE(fac_perfmon_sample, 0)
VARCHAR2(60)
);
/*
* Temporary location of xml, replaces all XXXX_XML tables
*/
CREATE_TABLE (fac_xml,0)
(
fac_session_id
VARCHAR2(32),
fac_xml_xml
LONG,
fac_xml_datum
DATE
DEFAULT SYSDATE
NOT NULL,
fac_xml_volgnr
NUMBER,
);
/*
* fac_srtnotificatie_actief: 0 of 1 voor al dan niet in gebruik zijn van deze notificatiesoort
* bij 0 komt een dergelijke notificatie NOOIT in de queue fac_notificatie.
* fac_srtnotificatie_mode: de (bitwise) waarde van de gewenste verspreiding, is de default voor fac_notificatie_status
* fac_srtnotificatie_xmlnode: de xml-tagnaam in facilitor XML om de gegevens voor fac_notificatie_refkey te kunnen vinden.
* fac_srtnotificatie_groep: 0 of 1 om aan te geven dat record met gelijke srtnotificatie_key en gelijke receiver
@@ -440,6 +455,8 @@ CREATE_TABLE(fac_srtnotificatie, 0)
VARCHAR2(6),
fac_srtnotificatie_mode
NUMBER(3),
fac_srtnotificatie_purgemode
NUMBER(1),
fac_srtnotificatie_oms
VARCHAR2(2048),
fac_srtnotificatie_xmlnode
@@ -501,6 +518,8 @@ CREATE TABLE fac_notificatie_job
VARCHAR2(1000),
fac_notificatie_job_oms
VARCHAR2(60),
fac_notificatie_job_mode
NUMBER(3),
fac_notificatie_job_interval
NUMBER(5),
fac_notificatie_job_nextrun

28
MLD/MLD_TAB.SRC
View File

@@ -1,7 +1,7 @@
#ifdef MLD // 13-03-96 AH
/* $Revision: 66 $
* $Modtime: 18-12-06 14:18 $
/* $Revision: 67 $
* $Modtime: 19-12-06 17:34 $
*/
#include "comsql.h"
@@ -797,28 +797,4 @@ ALTER TABLE mld_melding ADD
COMMENT ON COLUMN mld_melding.mld_melding_start_key IS 'references the initiating mld_melding if this is a workflow step';
[/skip]
// Since OLEDB does NOT support CLOB's, and a PL/SQL LONG is shorter than a database LONG,
// we need this table to store our PL/SQL CLOB into a database LONG that IS supported.
CREATE_TABLE (mld_melding_xml,0)
(
mld_melding_key NUMBER(10),
mld_melding_xml LONG,
mld_melding_xml_datum DATE DEFAULT SYSDATE NOT NULL,
mld_melding_xml_volgnr NUMBER,
CONSTRAINT mld_r_mld_melding_xml_key FOREIGN KEY (mld_melding_key)
REFERENCES mld_melding (mld_melding_key)
ON DELETE CASCADE
);
CREATE_TABLE (mld_opdr_xml,0)
(
mld_opdr_key NUMBER(10),
mld_opdr_xml LONG,
mld_opdr_xml_datum DATE DEFAULT SYSDATE NOT NULL,
mld_opdr_xml_volgnr NUMBER,
CONSTRAINT mld_r_mld_opdr_xml_key FOREIGN KEY (mld_opdr_key)
REFERENCES mld_opdr (mld_opdr_key)
ON DELETE CASCADE
);
#endif // MLD

19
PRJ/PRJ_TAB.SRC
View File

@@ -1,8 +1,8 @@
#ifdef PRJ
/* PRJ_TAB.SRC
*
* $Revision: 19 $
* $Modtime: 22-06-06 13:19 $
* $Revision: 20 $
* $Modtime: 19-12-06 17:33 $
*/
#include "comsql.h"
@@ -251,21 +251,6 @@ CREATE_TABLE(prj_scenario_note, 0)
DEFAULT SYSDATE
);
CREATE TABLE prj_scenario_xml
(
prj_scenario_key
NUMBER(10)
CONSTRAINT prj_r_scenario_xml_key REFERENCES prj_scenario (prj_scenario_key) ON DELETE CASCADE,
prj_scenario_xml
LONG,
prj_scenario_xml_datum
DATE
DEFAULT SYSDATE
NOT_NULL(prj_scenario_xml_datum,prj_c_prj_scenario_xml_datum),
prj_scenario_xml_volgnr
NUMBER
);
ALTER TABLE cad_imp_contour
ADD prj_scenario_key NUMBER(10) REFERENCES prj_scenario(prj_scenario_key) ON DELETE CASCADE;

21
RES/RES_TAB.SRC
View File

@@ -1,8 +1,8 @@
#ifdef RES // 07-12-99 BIV
/*
* $Revision: 81 $
* $Modtime: 13-12-06 17:31 $
* $Revision: 82 $
* $Modtime: 19-12-06 17:33 $
*/
#include "comsql.h"
@@ -621,21 +621,4 @@ CREATE TABLE res_activiteitdiscipline (
);
CREATE_TABLE (res_reservering_xml,0)
(
res_reservering_key
NUMBER(10),
res_reservering_xml
LONG,
res_reservering_xml_datum
DATE
DEFAULT SYSDATE
NOT NULL,
res_reservering_xml_volgnr
NUMBER,
CONSTRAINT res_r_res_reservering_xml_key FOREIGN KEY (res_reservering_key)
REFERENCES res_reservering (res_reservering_key)
ON DELETE CASCADE
);
#endif // RES

56
_UP/461to470.src
View File

@@ -1,5 +1,5 @@
--
-- Update script van Facilitor versie 4.61(.6) naar 4.70 $Revision: 17 $
-- Update script van Facilitor versie 4.61(.6) naar 4.70 $Revision: 18 $
--
/*
* This script is precompiled so #if(n)def MS_SQL can be used to distinguish between
@@ -36,8 +36,8 @@ PROMPT versie voor MS SQL Server
#else
PROMPT versie voor Oracle
#endif
PROMPT $Revision: 17 $
PROMPT $Modtime: 18-12-06 14:26 $
PROMPT $Revision: 18 $
PROMPT $Modtime: 19-12-06 16:37 $
PROMPT Copyright 1996-2006 Dijkoraad IT bv/Facilitor Software Nederland bv
PROMPT
SELECT 'De huidige versie van Facilitor is: '|| fac_module_version
@@ -496,42 +496,21 @@ ALTER TRIGGER RES_T_RES_RSV_DEEL_B_IU ENABLE;
ALTER TRIGGER RES_T_RES_RSV_ARTIKEL_B_IU ENABLE;
[/skip]
/* Gaan nu ook via XML */
CREATE_TABLE (res_reservering_xml,0)
/* Alles gaat nu via XML package, en dezelfde tabel */
CREATE_TABLE (fac_xml,0)
(
res_reservering_key
NUMBER(10),
res_reservering_xml
fac_session_id
VARCHAR2(32),
fac_xml_xml
LONG,
res_reservering_xml_datum
DATE
DEFAULT SYSDATE
fac_xml_datum
DATE
DEFAULT SYSDATE
NOT NULL,
res_reservering_xml_volgnr
fac_xml_volgnr
NUMBER,
CONSTRAINT res_r_res_reservering_xml_key FOREIGN KEY (res_reservering_key)
REFERENCES res_reservering (res_reservering_key)
ON DELETE CASCADE
);
CREATE_TABLE (bez_afspraak_xml,0)
(
bez_afspraak_key
NUMBER(10),
bez_afspraak_xml
LONG,
bez_afspraak_xml_datum
DATE
DEFAULT SYSDATE
NOT NULL,
bez_afspraak_xml_volgnr
NUMBER,
CONSTRAINT bez_r_bez_afspraak_xml_key FOREIGN KEY (bez_afspraak_key)
REFERENCES bez_afspraak (bez_afspraak_key)
ON DELETE CASCADE
);
-- De kolommen vervallen achteraan
/////////////////////////////////////////////////////////////////////////////////////////// UWVA#688
@@ -1272,6 +1251,13 @@ DROP TRIGGER mld_t_mld_opdr_B_D;
/*moet! maar mag falen (heet nl. tegenwoordig alg_c_alg_kenmerk_type1 */
ALTER TABLE alg_kenmerk DROP CONSTRAINT alg_c_alg_kenmerk_type;
DROP TABLE mld_melding_xml;
DROP TABLE mld_opdr_xml;
DROP TABLE prs_scenario_xml;
DROP TABLE bes_bestelling_xml;
DROP TABLE bes_bestelopdr_xml;
--ALTER TABLE cnt_contract DROP CONSTRAINT cnt_u_cnt_contract_nummer;
-- DROP TABLE cnt_contract_dienst?;
///////////////////////////////////////////////////////////////////////////////////////////////// Bookkeeping
@@ -1279,11 +1265,11 @@ ALTER TABLE alg_kenmerk DROP CONSTRAINT alg_c_alg_kenmerk_type;
UPDATE_VERSION(_VERSION);
UPDATE FAC_MESSAGE
SET FAC_MESSAGE_TEXT = 'Facilitor '||_VERSION||' $Revision: 17 $*'
SET FAC_MESSAGE_TEXT = 'Facilitor '||_VERSION||' $Revision: 18 $*'
WHERE FAC_MESSAGE_CODE = 'FAC_M002';
UPDATE FAC_MESSAGE
SET FAC_MESSAGE_TEXT = 'Welkom bij Facilitor '||_VERSION||' $Revision: 17 $*'
SET FAC_MESSAGE_TEXT = 'Welkom bij Facilitor '||_VERSION||' $Revision: 18 $*'
WHERE FAC_MESSAGE_CODE = 'FAC_M035';
COMMIT;