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

UWVA#655

Browse Source 
svn path=/Database/trunk/; revision=9340
This commit is contained in:
Peter Feij
2006-11-23 15:43:30 +00:00
parent 125d9d5353
commit 8d0a2dedea
1 changed files with 182 additions and 25 deletions
Download Patch File Download Diff File Expand all files Collapse all files

207
FAC/FAC_PAC.SRC
View File

@@ -1,6 +1,6 @@
#ifdef FAC
/* $Revision: 65 $
* $Modtime: 21-11-06 18:11 $
/* $Revision: 66 $
* $Modtime: 23-11-06 17:33 $
*/
/* FAC_P_FAC_VOLGNR: Tabel en functies voor volgnummers.
@@ -851,7 +851,7 @@ CREATE OR REPLACE PACKAGE BODY fac AS
fac.imp_writelog (p_applname, p_applrun, 'E', v_errormsg, '');
RETURN FALSE;
END;
PROCEDURE fac_perfmon_incr (limiet IN NUMBER, zwaarte IN NUMBER)
AS
dummy VARCHAR2 (1);
@@ -886,8 +886,8 @@ CREATE OR REPLACE PACKAGE BODY fac AS
);
END;
END;
-- Rapportage tbv fac_usrrap
-- Rapportage tbv fac_usrrap
PROCEDURE rap_perfmonperiode (
user_key IN NUMBER,
p_datum_van IN VARCHAR2, -- Let wel: formaat '13-05-2005'
@@ -1012,7 +1012,7 @@ CREATE OR REPLACE PACKAGE BODY fac AS
lemail := fac.getemail (pto);
lphone := fac.getmobile (pto);
-- Stuur notificatie
-- Stuur notificatie
INSERT INTO fac_notificatie
(fac_srtnotificatie_key, fac_notificatie_status, prs_perslid_key_sender, prs_perslid_key_receiver,
fac_notificatie_receiver_email, fac_notificatie_receiver_phone, fac_notificatie_oms,
@@ -1031,19 +1031,19 @@ CREATE OR REPLACE PACKAGE BODY fac AS
skey fac_srtnotificatie.fac_srtnotificatie_key%TYPE;
BEGIN
-- gequeuede berichten
DELETE FROM fac_notificatie
DELETE FROM fac_notificatie
WHERE fac_srtnotificatie_key IN (SELECT sn.fac_srtnotificatie_key
FROM fac_srtnotificatie sn
WHERE sn.fac_srtnotificatie_code LIKE pcode)
AND fac_notificatie_refkey = pref;
-- portalberichten
DELETE FROM web_user_messages
WHERE fac_srtnotificatie_key IN (SELECT sn.fac_srtnotificatie_key
FROM fac_srtnotificatie sn
WHERE sn.fac_srtnotificatie_code LIKE pcode)
AND web_user_mess_action_params = pref;
END;
END fac;
@@ -1581,7 +1581,7 @@ AS
v_value VARCHAR2 (30);
BEGIN
-- createopentag ('header');
createopentagattributes ('header', 'revision', '$Revision: 65 $', NULL, NULL, NULL, NULL, NULL, NULL);
createopentagattributes ('header', 'revision', '$Revision: 66 $', 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'));
@@ -2081,12 +2081,10 @@ AS
mydatetochar ('ingangsdatum', v_ingangsdatum);
mydatetochar ('einddatum', v_einddatum);
createxmltagvalue ('uurloon', mynumbertochar (v_uurloon));
FOR rec1 IN c1
LOOP
create_prs_werkplek_node (rec1.prs_werkplek_key, p_key, TRUE);
create_prs_werkplek_node (rec1.prs_werkplek_key, p_key, concise); -- dus niet concise
END LOOP;
create_prs_afdeling_node (v_afdeling_key, 'afdeling');
-- Profiel toevoegen
END IF;
@@ -2633,7 +2631,7 @@ AS
BEGIN
IF p_key IS NOT NULL
THEN
IF p_lockey IS NOT NULL
IF p_lockey IS NOT NULL
THEN
SELECT alg_locatie_code, 'L'
INTO v_plaatsaanduiding, v_type
@@ -2966,14 +2964,18 @@ AS
v_min_bedrag bes_disc_params.bes_disc_params_min_bedrag%TYPE;
v_auto_order bes_disc_params.bes_disc_params_auto_order%TYPE;
v_autoacceptrfo bes_disc_params.bes_disc_params_autoacceptrfo%TYPE;
v_leverdagen bes_disc_params.bes_disc_params_leverdagen%TYPE;
// v_factuurpct bes_disc_params.bes_disc_params_factuurpct%TYPE;
// v_factuurmarge bes_disc_params.bes_disc_params_factuurmarge%TYPE;
// v_factuurappr bes_disc_params.bes_disc_params_factuurappr%TYPE;
BEGIN
IF p_discipline_key IS NOT NULL
THEN
BEGIN
SELECT bes_disc_params_key, bes_disc_params_bestellimiet, bes_disc_params_min_bedrag,
bes_disc_params_auto_order, bes_disc_params_autoacceptrfo
bes_disc_params_auto_order, bes_disc_params_autoacceptrfo, bes_disc_params_leverdagen
INTO v_key, v_bestellimiet, v_min_bedrag,
v_auto_order, v_autoacceptrfo
v_auto_order, v_autoacceptrfo, v_leverdagen
FROM bes_disc_params
WHERE bes_ins_discipline_key = p_discipline_key;
EXCEPTION
@@ -2990,6 +2992,7 @@ AS
createxmltagvalue ('min_bedrag', v_min_bedrag);
createxmltagvalue ('auto_order', v_auto_order);
createxmltagvalue ('autoacceptrfo', v_autoacceptrfo);
createxmltagvalue ('leverdagen', v_leverdagen);
createclosetag ('bes');
END IF;
END IF;
@@ -3978,6 +3981,7 @@ AS
v_item_cnt_lev bes_bestelling.bes_bestelling_item_cnt_lev%TYPE;
v_kostenplaats_key bes_bestelling.prs_kostenplaats_key%TYPE;
v_status bes_bestellingstatuses.bes_bestellingstatuses_omschr%TYPE;
v_leverdatum bes_bestelling.bes_bestelling_leverdatum%TYPE;
CURSOR c1
IS
@@ -3994,19 +3998,22 @@ AS
bes_bestelling_afgemeld, bes_bestelling_verwerkt, bes_bestelling_opmerking, bes_bestelling_document,
bes_bestelling_documentnaam, bes_bestelling_ordernr, bes_bestelling_telefoon, bes_bestelling_plaats,
bes_bestelling_fiat_user, mld_adres_key_lev, bes_bestelling_item_cnt, bes_bestelling_item_cnt_acpt,
bes_bestelling_item_cnt_lev, prs_kostenplaats_key, bes_bestellingstatuses_omschr
bes_bestelling_item_cnt_lev, prs_kostenplaats_key, bes_bestellingstatuses_omschr,
bes_bestelling_leverdatum
INTO v_module, v_statuskey, v_datum, v_perslid_key,
v_owner_key, v_geaccepteerd, v_afgewezen,
v_afgemeld, v_verwerkt, v_opmerking, v_document,
v_documentnaam, v_ordernr, v_telefoon, v_plaats,
v_fiat_user, v_adres_key_lev, v_item_cnt, v_item_cnt_acpt,
v_item_cnt_lev, v_kostenplaats_key, v_status
v_item_cnt_lev, v_kostenplaats_key, v_status,
v_leverdatum
FROM bes_bestelling b, bes_bestellingstatuses s
WHERE b.bes_bestelling_status = s.bes_bestellingstatuses_key AND bes_bestelling_key = p_key;
createxmltagvalue ('key', p_key);
createxmltagvalue ('module', v_module);
mydatetochar ('datum', v_datum);
mydatetochar ('leverdatum', v_leverdatum);
createxmltagvalue ('status_key', v_statuskey);
createxmltagvalue ('status', v_status);
create_prs_perslid_node (v_perslid_key, 'aanvrager', FALSE);
@@ -4164,7 +4171,7 @@ AS
AND rd.res_deel_key = rrd.res_deel_key
AND rrd.bez_bezoekers_key = p_key;
-- misschien maar 1 van de 2 doen?
-- misschien maar 1 van de 2 doen?
createxmltagvalue ('parkeerplaats', v_parkeer_omschr);
create_ins_deel_node (v_parkeer_key);
EXCEPTION
@@ -4327,6 +4334,84 @@ AS
END LOOP;
END;
PROCEDURE create_res_ruimte_node (p_opstelkey IN NUMBER)
AS
v_bezoekers res_ruimte_opstelling.res_ruimte_opstel_bezoekers%TYPE;
v_opstelling res_opstelling.res_opstelling_omschrijving%TYPE;
v_res_ruimte_key res_ruimte_opstelling.res_ruimte_key%TYPE;
v_resruimte res_ruimte.res_ruimte_omschrijving%TYPE;
v_aanmaak res_ruimte.res_ruimte_aanmaak%TYPE;
v_verwijder res_ruimte.res_ruimte_verwijder%TYPE;
CURSOR c1 (k IN NUMBER)
IS
SELECT alg_ruimte_key
FROM res_alg_ruimte
WHERE res_ruimte_key = k;
BEGIN
createopentag ('res_ruimte');
SELECT ro.res_ruimte_opstel_bezoekers, o.res_opstelling_omschrijving, ro.res_ruimte_key,
r.res_ruimte_omschrijving, r.res_ruimte_aanmaak, r.res_ruimte_verwijder
INTO v_bezoekers, v_opstelling, v_res_ruimte_key,
v_resruimte, v_aanmaak, v_verwijder
FROM res_ruimte_opstelling ro, res_opstelling o, res_ruimte r
WHERE o.res_opstelling_key = ro.res_opstelling_key
AND r.res_ruimte_key = ro.res_ruimte_key
AND ro.res_ruimte_opstel_key = p_opstelkey;
createxmltagvalue ('key', p_opstelkey); -- pas op!
createxmltagvalue ('opstelling', v_opstelling);
createxmltagvalue ('bezoekers', v_bezoekers);
createxmltagvalue ('omschrijving', v_resruimte);
--mydatetochar ('aanmaak', v_aanmaak);
--mydatetochar ('verwijder', v_verwijder);
FOR rec1 IN c1 (v_res_ruimte_key)
LOOP
create_alg_ruimte_node (rec1.alg_ruimte_key);
END LOOP;
createclosetag ('res_ruimte');
END;
PROCEDURE create_res_deel_node (p_key IN NUMBER)
AS
v_key res_deel.res_deel_key%TYPE;
v_ins_deel_key res_deel.res_ins_deel_key%TYPE;
v_eenheid res_deel.res_deel_eenheid%TYPE;
v_prijs res_deel.res_deel_prijs%TYPE;
v_prijs_vast res_deel.res_deel_prijs_vast%TYPE;
v_discipline_key res_deel.res_discipline_key%TYPE;
v_opmerking res_deel.res_deel_opmerking%TYPE;
v_aanmaak res_deel.res_deel_aanmaak%TYPE;
v_verwijder res_deel.res_deel_verwijder%TYPE;
v_alg_level res_deel.res_deel_alg_level%TYPE;
BEGIN
createopentag ('res_deel');
SELECT res_ins_deel_key, res_deel_eenheid, res_deel_prijs, res_deel_prijs_vast, res_deel_opmerking,
res_discipline_key, res_deel_aanmaak, res_deel_verwijder, res_deel_alg_level
INTO v_ins_deel_key, v_eenheid, v_prijs, v_prijs_vast, v_opmerking,
v_discipline_key, v_aanmaak, v_verwijder, v_alg_level
FROM res_deel rd
WHERE rd.res_deel_key = p_key;
createxmltagvalue ('key', p_key);
create_ins_discipline_node (v_discipline_key);
create_ins_deel_node (v_ins_deel_key);
createxmltagvalue ('eenheid', v_eenheid);
createxmltagvalue ('prijs', v_prijs);
createxmltagvalue ('prijsvast', v_prijs_vast);
createxmltagvalue ('opmerking', v_opmerking);
mydatetochar ('aanmaak', v_aanmaak);
mydatetochar ('verwijder', v_verwijder);
createxmltagvalue ('alglevel', v_alg_level);
createclosetag ('res_deel');
END;
PROCEDURE create_res_rsv_deel_node (p_key IN NUMBER)
AS
v_deel_key res_rsv_deel.res_deel_key%TYPE;
@@ -4360,7 +4445,7 @@ AS
WHERE rd.res_status_bo_key = sb.res_status_bo_key(+) AND rd.res_rsv_deel_key = p_key;
createxmltagvalue ('key', p_key);
create_ins_deel_node (v_deel_key); --voldoende?
create_res_deel_node(v_deel_key);
createxmltagvalue ('aantal', v_aantal);
mydatetochar ('levering', v_levering);
createxmltagvalue ('status_bokey', v_status_bo_key);
@@ -4380,6 +4465,57 @@ AS
createclosetag ('rsv_deel');
END;
PROCEDURE create_res_artikel_node (p_key IN NUMBER)
AS
v_key res_artikel.res_artikel_key%TYPE;
v_discipline_key res_artikel.res_discipline_key%TYPE;
v_nr res_artikel.res_artikel_nr%TYPE;
v_omschrijving res_artikel.res_artikel_omschrijving%TYPE;
v_eenheid res_artikel.res_artikel_eenheid%TYPE;
v_prijs res_artikel.res_artikel_prijs%TYPE;
v_prijs_vast res_artikel.res_artikel_prijs_vast%TYPE;
v_inkoopprijs res_artikel.res_artikel_inkoopprijs%TYPE;
v_btw res_artikel.res_artikel_btw%TYPE;
v_opmerking res_artikel.res_artikel_opmerking%TYPE;
v_default res_artikel.res_artikel_default%TYPE;
v_aanmaak res_artikel.res_artikel_aanmaak%TYPE;
v_verwijder res_artikel.res_artikel_verwijder%TYPE;
v_groep res_artikel.res_artikel_groep%TYPE;
v_kostenpersoneel res_artikel.res_artikel_kostenpersoneel%TYPE;
v_kostenalgemeen res_artikel.res_artikel_kostenalgemeen%TYPE;
BEGIN
createopentag ('res_artikel');
SELECT res_discipline_key, res_artikel_nr, res_artikel_omschrijving, res_artikel_eenheid, res_artikel_prijs,
res_artikel_prijs_vast, res_artikel_inkoopprijs, res_artikel_btw, res_artikel_opmerking,
res_artikel_default, res_artikel_aanmaak, res_artikel_verwijder, res_artikel_groep,
res_artikel_kostenpersoneel, res_artikel_kostenalgemeen
INTO v_discipline_key, v_nr, v_omschrijving, v_eenheid, v_prijs,
v_prijs_vast, v_inkoopprijs, v_btw, v_opmerking,
v_default, v_aanmaak, v_verwijder, v_groep,
v_kostenpersoneel, v_kostenalgemeen
FROM res_artikel ra
WHERE ra.res_artikel_key = p_key;
createxmltagvalue ('key', p_key);
create_ins_discipline_node (v_discipline_key);
createxmltagvalue ('nr', v_nr);
createxmltagvalue ('omschrijving', v_omschrijving);
createxmltagvalue ('eenheid', v_eenheid);
createxmltagvalue ('prijs', v_prijs);
createxmltagvalue ('prijsvast', v_prijs_vast);
createxmltagvalue ('inkoopprijs', v_inkoopprijs);
createxmltagvalue ('btw', v_btw);
createxmltagvalue ('opmerking', v_opmerking);
createxmltagvalue ('default', v_default);
mydatetochar ('aanmaak', v_aanmaak);
mydatetochar ('verwijder', v_verwijder);
createxmltagvalue ('groep', v_groep);
createxmltagvalue ('kostenpersoneel', v_kostenpersoneel);
createxmltagvalue ('kostenalgemeen', v_kostenalgemeen);
createclosetag ('res_artikel');
END;
PROCEDURE create_res_rsv_artikel_node (p_key IN NUMBER)
AS
v_artikel_key res_rsv_artikel.res_artikel_key%TYPE;
@@ -4410,6 +4546,7 @@ AS
WHERE ra.res_status_bo_key = sb.res_status_bo_key(+) AND res_rsv_artikel_key = p_key;
createxmltagvalue ('key', p_key);
create_res_artikel_node(v_artikel_key);
createxmltagvalue ('aantal', v_aantal);
mydatetochar ('levering', v_levering);
createxmltagvalue ('status_bokey', v_status_bo_key);
@@ -4424,6 +4561,24 @@ AS
createclosetag ('rsv_artikel');
END;
PROCEDURE create_res_activiteit_node (p_key IN NUMBER)
AS
v_omschrijving res_activiteit.res_activiteit_omschrijving%TYPE;
v_duur res_activiteit.res_activiteit_duur%TYPE;
BEGIN
createopentag ('res_activiteit');
SELECT res_activiteit_omschrijving, res_activiteit_duur
INTO v_omschrijving, v_duur
FROM res_activiteit
WHERE res_activiteit_key = p_key;
createxmltagvalue ('key', p_key);
createxmltagvalue ('omschrijving', v_omschrijving);
createxmltagvalue ('duur', v_duur);
createclosetag ('res_activiteit');
END;
PROCEDURE create_res_rsv_ruimte_node (p_key IN NUMBER, concise IN BOOLEAN)
AS
v_reservering_key res_rsv_ruimte.res_reservering_key%TYPE;
@@ -4494,8 +4649,10 @@ AS
createxmltagvalue ('key', p_key);
createxmltagvalue ('volgnr', v_volgnr);
createxmltagvalue ('ruimte_opstelling', v_ruimte_opstel_key); --uitwerken
createxmltagvalue ('activiteit', v_activiteit_key); -- uitwerken
IF v_ruimte_opstel_key IS NOT NULL THEN
create_res_ruimte_node(v_ruimte_opstel_key);
END IF;
create_res_activiteit_node(v_activiteit_key);
mydatetochar ('van', v_van);
mydatetochar ('tot', v_tot);
createxmltagvalue ('bezoekers', v_bezoekers);
@@ -4564,7 +4721,7 @@ AS
WHERE res_reservering_key = p_key;
createxmltagvalue ('key', p_key);
create_prs_perslid_node (v_user_key, 'ingevoerd_user', TRUE);
create_prs_perslid_node (v_user_key, 'ingevoerd_user', FALSE); -- niet concise, want plaats is van belang
mydatetochar ('datum', v_aanmaak);
FOR rec1 IN c1
@@ -4791,7 +4948,7 @@ AS
DELETE FROM bes_bestelling_xml
WHERE bes_bestelling_key = p_key
OR bes_bestelling_xml_datum < SYSDATE - 2;
WHILE v_clob_length > 0
LOOP
@@ -4899,7 +5056,7 @@ AS
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